Connexion

Récupérer mon mot de passe

Qui est en ligne ?
Il y a en tout 1 utilisateur en ligne :: 0 Enregistré, 0 Invisible et 1 Invité

Aucun

Le record du nombre d'utilisateurs en ligne est de 21 le Jeu 17 Oct 2013, 13:40
Derniers sujets
Flux RSS



Flag Counter
Partenaires

FRED ET AUTOIT

Voir le sujet précédent Voir le sujet suivant Aller en bas

FRED ET AUTOIT

Message par FRED92G le Ven 04 Avr 2014, 00:49

VOILA MON INTERFACE GRAPHIQUE IL MANQUE JUSTE LE NAVIGATEUR NE BAS PAS TROUVER COMMENT FAIRE
IL FAUT COMPARER LA LIGNE PROPOSE AVEC LA LIGNE SOUS INNERTEXT
DE FACON A AVOIR LE CLIQUE SUR LE BON LIEN APRES DANS LE DOMME
JE DONNER LE CODE VBNET A METRE AVEC SE TRUC DU MOIN A REPRENDRE ET A METRE EN FORME
 
 
[Vous devez être inscrit et connecté pour voir cette image]
 
 
 
Code:

Dim name As HtmlElementCollection = WebBrowser1.Document.GetElementsByTagName("DIV")
For Each elem As HtmlElement In name
If elem.GetAttribute("className").Contains("mbs _6m6") Then
TextBox1.Text = elem.InnerText

End If
Next
If InStr(1, TextBox1.Text, TextBox4.Text) Then
Button3.PerformClick()

Else
Button7.PerformClick()

End If
GC.Collect()
End SubPrivate

Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
Dim nameS As HtmlElementCollection = WebBrowser1.Document.GetElementsByTagName("DIV")
For Each eleme As HtmlElement In nameS
If eleme.GetAttribute("className").Contains("_6l- __c_") Then
eleme.Focus()
eleme.InvokeMember(
"click")
End If
Next

 Private
Sub form_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles MyBase.FormClosing
If WebBrowser1.Visible = False Then
Else
Dim ALLELEMENTS As HtmlElementCollection = WebBrowser1.Document.All
For Each WEBPAGEELEMENT As HtmlElement In ALLELEMENTS
If WEBPAGEELEMENT.GetAttribute("VALUE") = "Déconnexion" ThenWEBPAGEELEMENT.InvokeMember(
"CLICK")
End If
Next
End If
LIEN DE TELECHARGEMENT DE L INTERFACE
 
[Vous devez être inscrit et connecté pour voir ce lien]
avatar
FRED92G
EQUIPE BBAT
EQUIPE BBAT

Mensagens : 260
Data de inscrição : 04/06/2013
Idade : 30
Localização : FRANCE

Revenir en haut Aller en bas

Re: FRED ET AUTOIT

Message par FRED92G le Ven 04 Avr 2014, 11:57

#include
Local $Bbat = _IECreate("[Vous devez être inscrit et connecté pour voir ce lien]
Local $BbatUserName = _IEGetObjByName($Bbat, "EMAIL")
Local $BbatPassword = _IEGetObjByName($Bbat, "PASS")
_IEFormElementSetValue($BbatUserName, "FRED92G@")
_IEFormElementSetValue($BbatPassword, "XXXXX")
Local $oSubmit = _IEGetObjByName($Bbat, "loginbutton")
_IEAction($oSubmit, "click")
_IELoadWait($Bbat)
$onzs = _IETagnameGetCollection($Bbat, "div")
For $onz in $onzs
If String($onz.className) = "mbs _6m6" Then
if String(_IEPropertyGet($onz, "innerText")) THEN
_IEAction($onz, "focus")
 MsgBox(0, "onz", $onz.innerText)
$textbox = GUICtrlCreateInput("My text", 8, 350, 150)
ENDIF
ENDIF
NEXT

_________________
____________________________________________________________________________________________________________________________
 [Vous devez être inscrit et connecté pour voir cette image] [Vous devez être inscrit et connecté pour voir cette image] [Vous devez être inscrit et connecté pour voir cette image]
 
ICI PAS DE TOURISME ON A AUTRE CHOSE A FAIRE ET AUCUN DROIT A L ERREUR ET PERMI OR MIE D' AVOIR UN BON DICO OU DECODEUR
SURTOUT APRES QUE LE GRAND DOCTEUR ET PARLER.
avatar
FRED92G
EQUIPE BBAT
EQUIPE BBAT

Mensagens : 260
Data de inscrição : 04/06/2013
Idade : 30
Localização : FRANCE

Revenir en haut Aller en bas

Voir le sujet précédent Voir le sujet suivant Revenir en haut

- Sujets similaires

 
Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum