BBAT BATCH ON-LINE
Vous souhaitez réagir à ce message ? Créez un compte en quelques clics ou connectez-vous pour continuer.
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 29 le Mer 29 Jan 2020, 10:53
Derniers sujets
» [StackOverflow] Batch to Create video .srt Subtitles with right timing
FRED ET AUTOIT EmptyVen 25 Déc 2015, 14:17 par Sachadee

» [devellopez] Formater une date en ligne Dos
FRED ET AUTOIT EmptyVen 31 Juil 2015, 10:40 par Dylan Gadacha

» Un super Tuto Batch de IniTScreen
FRED ET AUTOIT EmptyLun 08 Juin 2015, 12:16 par InitScreen

» Un code MATRIX sympa
FRED ET AUTOIT EmptyDim 12 Avr 2015, 14:27 par Sachadee

» [BAT/EXE] DresolChange changer la sesolution de l´écran
FRED ET AUTOIT EmptyMar 17 Mar 2015, 09:12 par Sachadee

» [EXE/bat] DpScript Código Delphi interpreter
FRED ET AUTOIT EmptyJeu 12 Mar 2015, 15:48 par Sachadee

» Externo SaveDlg com 2 kb
FRED ET AUTOIT EmptyDim 15 Fév 2015, 12:20 par Sachadee

» présentation
FRED ET AUTOIT EmptyDim 15 Fév 2015, 12:14 par Sachadee

» [developpez.com] Transcodage fichier vidéo si fichier déposé
FRED ET AUTOIT EmptyMar 03 Fév 2015, 01:02 par Sachadee

Flux RSS



Flag Counter
Partenaires
Le Deal du moment : -34%
-34% LG OLED55B3 – TV OLED 4K 55″ 2023 ...
Voir le deal
919 €

FRED ET AUTOIT

Aller en bas

FRED ET AUTOIT Empty FRED ET AUTOIT

Message par FRED92G 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]
FRED92G
FRED92G
EQUIPE BBAT
EQUIPE BBAT

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

Revenir en haut Aller en bas

FRED ET AUTOIT Empty Re: FRED ET AUTOIT

Message par FRED92G 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
FRED92G
FRED92G
EQUIPE BBAT
EQUIPE BBAT

Mensagens : 260
Data de inscrição : 04/06/2013
Idade : 37
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