Connexion

Récupérer mon mot de passe

Qui est en ligne ?
Il y a en tout 2 utilisateurs en ligne :: 0 Enregistré, 0 Invisible et 2 Invités

Aucun

Le record du nombre d'utilisateurs en ligne est de 24 le Ven 15 Déc 2017, 23:28
Derniers sujets
Flux RSS



Flag Counter
Partenaires

FRED ET AUTOIT

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 : 31
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, "[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

_________________
____________________________________________________________________________________________________________________________
 [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 : 31
Localização : FRANCE

Revenir en haut Aller en bas

Revenir en haut

- Sujets similaires

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