Se logger sur un site avec VBS
Psycho
-
Psycho -
Psycho -
Bonjour,
Je crée une petite appli sous VB qui me lance une page web (entre autre). Sur cette dernière il faut rentrer un nom d'utilisateur et un mot de passe.
J'ai regardé la FAQ qui montrait comment se connecter sur Développez.net mais la methode ne marche pas pour EOGalaxy.com, j'ai pourtant regardé la source html et j'ai essayé de réadapter en fonction du code html de la page j'ai meme fait des recherche sur d'autres sites et j'ai pas trouvé :cry:
tout d'abord voici la balise FORM de la page html concernée :
[CODE]<form name="p_log" action="http://serv1.eogalaxy.com/game/login.php" method="post">
Nom d'utilisateur :<br />
<input type="text" name="login" id="login" size=15><br />
Password :<br/ >
<input size=15 type="password" name="pass" id="pass" ><br />
<input input type="submit" value="Envoyer" ><br /><br />
<a href="http://www.eogalaxy.com?a=lp">Mot de passe perdu ?</a>
</form>/CODE
Ensuite, en prenant connaissance du nom des valeurs j'ai réadapté le script du FAQ :
[CODE]Dim IE
Set IE = Wscript.CreateObject("InternetExplorer.Application")
IE.Visible = 1
IE.navigate "http://www.eogalaxy.com"
Do While (IE.Busy)
WScript.Sleep 10
Loop
Set Helem = IE.document.getElementById("login")
Helem.Value = "NomUtilisateur"
Set Helem = IE.document.getElementById("pass")
Helem.Value = "MotDePasse"
Set Helem = IE.document.Forms(0)
Helem.Submit/CODE
Sa ne fonctionnait pas alors j'ai essayé une autre méthode :
[CODE]Set ie = CreateObject("internetexplorer.application")
ie.Navigate ("http://www.eogalaxy.com")
ie.visible=true
Do While ie.Busy
wscript.sleep (100)
Loop
wscript.sleep (2000)
Set dct = ie.Document.parentwindow.frames.Item(1).frames.Item(1).document
dct.p_log.login="topsecret"
dct.p_log.pass.value="topsecret"
dct.p_log.submit /CODE
ça ne fonctionnement pas non plus...
Avez-vous une solution ?
Merci de votre aide,
Je crée une petite appli sous VB qui me lance une page web (entre autre). Sur cette dernière il faut rentrer un nom d'utilisateur et un mot de passe.
J'ai regardé la FAQ qui montrait comment se connecter sur Développez.net mais la methode ne marche pas pour EOGalaxy.com, j'ai pourtant regardé la source html et j'ai essayé de réadapter en fonction du code html de la page j'ai meme fait des recherche sur d'autres sites et j'ai pas trouvé :cry:
tout d'abord voici la balise FORM de la page html concernée :
[CODE]<form name="p_log" action="http://serv1.eogalaxy.com/game/login.php" method="post">
Nom d'utilisateur :<br />
<input type="text" name="login" id="login" size=15><br />
Password :<br/ >
<input size=15 type="password" name="pass" id="pass" ><br />
<input input type="submit" value="Envoyer" ><br /><br />
<a href="http://www.eogalaxy.com?a=lp">Mot de passe perdu ?</a>
</form>/CODE
Ensuite, en prenant connaissance du nom des valeurs j'ai réadapté le script du FAQ :
[CODE]Dim IE
Set IE = Wscript.CreateObject("InternetExplorer.Application")
IE.Visible = 1
IE.navigate "http://www.eogalaxy.com"
Do While (IE.Busy)
WScript.Sleep 10
Loop
Set Helem = IE.document.getElementById("login")
Helem.Value = "NomUtilisateur"
Set Helem = IE.document.getElementById("pass")
Helem.Value = "MotDePasse"
Set Helem = IE.document.Forms(0)
Helem.Submit/CODE
Sa ne fonctionnait pas alors j'ai essayé une autre méthode :
[CODE]Set ie = CreateObject("internetexplorer.application")
ie.Navigate ("http://www.eogalaxy.com")
ie.visible=true
Do While ie.Busy
wscript.sleep (100)
Loop
wscript.sleep (2000)
Set dct = ie.Document.parentwindow.frames.Item(1).frames.Item(1).document
dct.p_log.login="topsecret"
dct.p_log.pass.value="topsecret"
dct.p_log.submit /CODE
ça ne fonctionnement pas non plus...
Avez-vous une solution ?
Merci de votre aide,
A voir également:
- Se logger sur un site avec VBS
- Site comme coco - Accueil - Réseaux sociaux
- Site de telechargement - Accueil - Outils
- Quel site remplace coco - Accueil - Réseaux sociaux
- Site x - Guide
- Vbs windows - Accueil - Optimisation
1 réponse
J'ai trouvé la solution :
Dim IE
Set IE = Wscript.CreateObject("InternetExplorer.Application")
IE.Visible = 1
IE.navigate "http://www.eogalaxy.com"
Do While (IE.Busy)
WScript.Sleep 10
Loop
Do While Not ElementExiste ("Login")
Wscript.Sleep 10
Loop
Function ElementExiste ( stNom)
On Error resume next
ElementExiste = IE.document.getElementById("login").name <> ""
end function
Set Helem = IE.document.getElementById("login")
Helem.Value = "xxx"
Set Helem = IE.document.getElementById("pass")
Helem.Value = "xxx"
Set Helem = IE.document.Forms(0)
Helem.Submit
Dim IE
Set IE = Wscript.CreateObject("InternetExplorer.Application")
IE.Visible = 1
IE.navigate "http://www.eogalaxy.com"
Do While (IE.Busy)
WScript.Sleep 10
Loop
Do While Not ElementExiste ("Login")
Wscript.Sleep 10
Loop
Function ElementExiste ( stNom)
On Error resume next
ElementExiste = IE.document.getElementById("login").name <> ""
end function
Set Helem = IE.document.getElementById("login")
Helem.Value = "xxx"
Set Helem = IE.document.getElementById("pass")
Helem.Value = "xxx"
Set Helem = IE.document.Forms(0)
Helem.Submit