FRED ET AUTOIT

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]

#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, "[Vous devez être inscrit et connecté pour voir ce lien]")
_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