[C]Petit web gui

[ethneldryt]

Bonsoir, connaissez vous ebuddy? Un web messenger. Je me demandai si il ai possible de faire 2 input, un pour le compte msn, et l'autre le password . Ensuite dans une gui le messenger. Je ne sais pas comment expliquer. Demain je mettrai des screen modifier si vous ne comprenez pas. Merci

[L4crymal]

Tu veut un navigateur web et dedans Ebbudy ?

[DJSIR]

@L4crymal : Tu ne ferait pas allusion a iSafari par hasard ?

[ethneldryt]

Je surais creer la gui avec la page web dedans. Je veux juste la methode POST avec un input pour le login.

[timmalos]

Peut etre qu'un simple InputBox() te suffira?

[L4crymal]

Un screen s'impose XD je n'est toujours pas compris

[ethneldryt]

Vola dans 2eme images, les input devrais correspondre, quand on clique sur OK, c'est sur la 1er image.

[ethneldryt]

Ensuite bien sur j'améliorerai la gui avec des menus ect. le truc c'est que je ne sais pas comment faire un post de ma 2eme image vers la première...

Code : Tout sélectionner

_IEErrorHandlerRegister()
$fenetreIE = _IECreateEmbedded()
$objets = GUICtrlCreateObj($fenetreIE,w,x,y,z)
_IENavigate($ie,"...",0)

[ethneldryt]

Voila j'ai un peux avancer, mais j'aimerai que la page login sois des input dans la GUI comme sur la photo 2.

► Afficher le texte

Code : Tout sélectionner

#include <GuiConstants.au3>
#include <IE.au3>
#Include <date.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>







GuiCreate("TITRE", 400, 600)

$tab = GUICtrlCreateTab(5, 5, 390, 590)
$tab0 = GUICtrlCreateTabItem("                       Ebuddy                          ")

$ie = _IECreateEmbedded()
$ieobject = GUICtrlCreateObj($ie,10,30,380,560)
_IENavigate($ie,"http://paris.ebuddy.com/vo6.19.11/start.jsp",0)


$tab1 = GUICtrlCreateTabItem("                       Radio                           ")

$menuA = GUICtrlCreateListView("test",50,200,200,200)
$menuAA = GUICtrlCreateListViewItem("test A",$menuA)
$menuAB = GUICtrlCreateListViewItem("test B",$menuA)

$oMyError = ObjEvent("AutoIt.Error","Quit")
$oMediaplayer = ObjCreate("WMPlayer.OCX.7")    
If Not IsObj($oMediaplayer) Then Exit
$oMediaplayer.Enabled = true
$oMediaplayer.WindowlessVideo= true
$oMediaPlayer.UImode="invisible"

$oMediaPlayControl=$oMediaPlayer.Controls
$oMediaPlaySettings=$oMediaPlayer.Settings
$oMediaPlayControl.Stop






$Volume = GuiCtrlCreateSlider(50, 40, 180, 20)
GuiCtrlCreateLabel("Volume", 85, 50, 40, 20)
GUICtrlSetData($Volume, 50)
$Play = GuiCtrlCreateButton("Play", 30, 60, 50, 30)
$Stop = GuiCtrlCreateButton("Stop", 120, 60, 50, 30)
$VolLevel = 100



GUICtrlCreateTabItem("")








GuiSetState()
While 1
    $msg = GuiGetMsg()
    Select
    Case $msg = $GUI_EVENT_CLOSE
        ExitLoop
    Case $msg = $Play
        $oMediaPlayControl.Play
    Case $msg = $menuAA
        $oMediaPlayer.URL="http://radio.funradio.fr/funradio.asx"
    Case $msg = $menuAB
        $oMediaPlayer.URL="http://streaming.radio.rtl.fr/rtl-1-44-96"
    Case $msg = $Stop
                
        $oMediaPlayControl.Stop
    Case Else
        If GUICtrlread($Volume) <> $VolLevel Then
            $oMediaPlaySettings.Volume = GUICtrlRead($Volume)
            $VolLevel = GUICtrlRead($Volume)
        EndIf
    EndSelect
WEnd
Exit
#endregion

#region functions
Func Quit()
    $oMediaPlayControl.Stop
    Exit
EndFunc

Func Hide()
    GUISetState(@SW_HIDE)
EndFunc

Func Show()
    GUISetState(@SW_SHOW)
EndFunc
#endregion

[ethneldryt]

Personne ne peux m'aider ou a un exemple de POST sur une page?

[ethneldryt]

bon j'ai avancer dans mes recherche :

SI je met :

Code : Tout sélectionner

$ie = _IECreateEmbedded()
$ieobject = GUICtrlCreateObj($ie,10,30,380,560)
_IENavigate($ie,"http://paris.ebuddy.com/vo6.19.11/start.jsp",0)
$mail = _Iegetobjbyname($ie,'username') 
_IEFormElementSetValue($mail,"mon@email.fr")  
$pass = _Iegetobjbyname($ie,'password') 
_IEFormElementSetValue($pass,"dfgdfgdfgdfgfdg")  

sleep(5000)
$button = _Iegetobjbyname($ie,'login_submit') 
_Ieaction($button,'click');
_IEloadwait($ie)

Il y a une erreur :

Code : Tout sélectionner

>"C:\Program Files\AutoIt3\SciTE\..\autoit3.exe" /ErrorStdOut "C:\Documents and Settings\Jimmy\Bureau\msn.au3"    
C:\Program Files\AutoIt3\Include\IE.au3 (2709) : ==> Object referenced outside a "With" statement.:
If IsObj($o_object.document.GetElementsByName($s_Id).item($i_index)) Then
If IsObj($o_object.document.GetElementsByName($s_Id)^ ERROR
>Exit code: 1    Time: 1.338

Mais SI je met :

Code : Tout sélectionner

$ie = _Iecreate()
_IEnavigate($ie,'http://paris.ebuddy.com/vo6.19.11/start.jsp') 
$mail = _Iegetobjbyname($ie,'username') 
_IEFormElementSetValue($mail,"mon@email.fr")  
$pass = _Iegetobjbyname($ie,'password') 
_IEFormElementSetValue($pass,"dfgdfgdfgdfgfdg")  

sleep(5000)
$button = _Iegetobjbyname($ie,'login_submit') 
_Ieaction($button,'click')
_IEloadwait($ie)

la ca marche mais sa ouvre IE..
Il faudrai que ma premiere solution marche avec ie dans ma GUI..