Page 1 sur 1
[C]Petit web gui
Posté : jeu. 23 oct. 2008 19:07
par 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
Re: [..]Petit web gui
Posté : jeu. 23 oct. 2008 19:28
par L4crymal
Tu veut un navigateur web et dedans Ebbudy ?
Re: [..]Petit web gui
Posté : jeu. 23 oct. 2008 20:13
par DJSIR
@L4crymal : Tu ne ferait pas allusion a iSafari par hasard ?
Re: [..]Petit web gui
Posté : jeu. 23 oct. 2008 20:25
par ethneldryt
Je surais creer la gui avec la page web dedans. Je veux juste la methode POST avec un input pour le login.
Re: [..]Petit web gui
Posté : jeu. 23 oct. 2008 20:31
par timmalos
Peut etre qu'un simple InputBox() te suffira?
Re: [..]Petit web gui
Posté : jeu. 23 oct. 2008 22:03
par L4crymal
Un screen s'impose XD je n'est toujours pas compris
Re: [..]Petit web gui
Posté : ven. 24 oct. 2008 09:30
par ethneldryt
Vola dans 2eme images, les input devrais correspondre, quand on clique sur OK, c'est sur la 1er image.
Re: [..]Petit web gui
Posté : ven. 24 oct. 2008 09:34
par 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)
Re: [..]Petit web gui
Posté : ven. 24 oct. 2008 15:05
par 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
Re: [..]Petit web gui
Posté : sam. 25 oct. 2008 12:42
par ethneldryt
Personne ne peux m'aider ou a un exemple de POST sur une page?
Re: [..]Petit web gui
Posté : sam. 25 oct. 2008 14:50
par 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..