Connexion
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 29 le Mer 29 Jan 2020, 10:53
Sujets les plus vus
Derniers sujets
FRED ET AUTOIT
Page 1 sur 1
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]
[Vous devez être inscrit et connecté pour voir ce lien]
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
[Vous devez être inscrit et connecté pour voir ce lien]
FRED92G- EQUIPE BBAT
- Mensagens : 260
Data de inscrição : 04/06/2013
Idade : 37
Localização : FRANCE
Re: FRED ET AUTOIT
#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
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
FRED92G- EQUIPE BBAT
- Mensagens : 260
Data de inscrição : 04/06/2013
Idade : 37
Localização : FRANCE
Sujets similaires
» [Autoit] Convertisseur VBS vers Autoit VBS2Autoit
» VBScript and HTA Applications de M FRED
» UN INTERPRETEUR AUTOIT
» TRON - Le jeu en AutoIt !
» [AutoIt] Pong
» VBScript and HTA Applications de M FRED
» UN INTERPRETEUR AUTOIT
» TRON - Le jeu en AutoIt !
» [AutoIt] Pong
Page 1 sur 1
Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum
|
|
Ven 25 Déc 2015, 14:17 par Sachadee
» [devellopez] Formater une date en ligne Dos
Ven 31 Juil 2015, 10:40 par Dylan Gadacha
» Un super Tuto Batch de IniTScreen
Lun 08 Juin 2015, 12:16 par InitScreen
» Un code MATRIX sympa
Dim 12 Avr 2015, 14:27 par Sachadee
» [BAT/EXE] DresolChange changer la sesolution de l´écran
Mar 17 Mar 2015, 09:12 par Sachadee
» [EXE/bat] DpScript Código Delphi interpreter
Jeu 12 Mar 2015, 15:48 par Sachadee
» Externo SaveDlg com 2 kb
Dim 15 Fév 2015, 12:20 par Sachadee
» présentation
Dim 15 Fév 2015, 12:14 par Sachadee
» [developpez.com] Transcodage fichier vidéo si fichier déposé
Mar 03 Fév 2015, 01:02 par Sachadee