Bonjour à tous,
Etant totalement débutant je vous explique ma démarche.
Je souhaiterais à l'ouverture de Windows ouvrir un fichier .au3 qui me permet:
- Lancer DNSJumper.exe
- Sélectionner dans la première combobox, mon VPN (le numéro 5)
- Ensuite de cliquer sur le bouton "DNS le plus rapide"
- Puis sur le bouton "Lancer test DNS"
- Pause de 10sec (le temps que le listing se fasse)
- Puis "Appliquer Serveur DNS"
- Fermer la fenêtre
- Fermer le logiciel
Peu d'étapes mais en cherchant à droite et à gauche je suis bloqué à l'étape 2 la liste ne se déroule pas.
Est ce trop difficile un script de ce type pour un débutant comme moi ?
Automatiser DNSJUMPER
Règles du forum
- Merci de consulter la section "Règles du forum" et plus particulièrement "Règles et Mentions Légales du site autoitscript.fr" avant d'écrire un message.
- mikell
- Spammer !
- Messages : 6292
- Enregistré le : dim. 29 mai 2011 17:32
- Localisation : Deep Cévennes
- Status : Hors ligne
Re: Automatiser DNSJUMPER
Pas spécialement...
Qu'est-ce que tu as essayé comme code jusqu'ici ?
Qu'est-ce que tu as essayé comme code jusqu'ici ?
" L'échec est le fondement de la réussite. " (Lao-Tseu )
" Plus ça rate, plus on a de chances que ça marche " (les Shadoks )
" Plus ça rate, plus on a de chances que ça marche " (les Shadoks )
Re: Automatiser DNSJUMPER
Alors pour l'instant j'en suis à ça:
Donc l'application se lance mais la seconde étape à savoir dérouler la combobox pour selectionner mon vpn ne se fait pas.
Code : Tout sélectionner
Local $DNSJexe="D:\DnsJumper\DnsJumper.exe"
ShellExecute($DNSJexe, "", "open") ; Lance l'application avec comme paramètre le fichier.
WinWait("DNS Jumper v2.3")
DNS()
Func DNS()
ControlCommand ("DNS Jumper v2.3", "", "[CLASS:ComboBox; INSTANCE:1]", "SelectString", "5. NOM DU VPN")
Sleep(2000)
; Ferme le processus.
ProcessClose($DNSJexe)
EndFunc ;==>DNS
- mikell
- Spammer !
- Messages : 6292
- Enregistré le : dim. 29 mai 2011 17:32
- Localisation : Deep Cévennes
- Status : Hors ligne
Re: Automatiser DNSJUMPER
Hé oui, souvent il faut tatonner , essayer diverses commandes et vérifier pas à pas qu'elles fonctionnent (avec des ConsoleWrite ou des Msgbox)
Et bien lire le fichier d'aide (les petits caractères inclus)
Tu pourrais essayer ça
Et bien lire le fichier d'aide (les petits caractères inclus)
Tu pourrais essayer ça
ShellExecute("D:\DnsJumper\DnsJumper.exe")
$hWnd = WinWait("DNS Jumper v2.3")
WinActivate($hWnd)
$hCombo = ControlGetHandle($hWnd, "", "[CLASS:ComboBox; INSTANCE:1]")
; Msgbox(0,"", $hCombo)
ControlCommand($hCombo, "", "", "ShowDropDown", "")
$occ = ControlCommand($hCombo, "", "", "FindString", "5. NOM DU VPN")
; Msgbox(0,"", $occ)
ControlCommand($hCombo, "", "", "SetCurrentSelection", $occ)
; etc
$hWnd = WinWait("DNS Jumper v2.3")
WinActivate($hWnd)
$hCombo = ControlGetHandle($hWnd, "", "[CLASS:ComboBox; INSTANCE:1]")
; Msgbox(0,"", $hCombo)
ControlCommand($hCombo, "", "", "ShowDropDown", "")
$occ = ControlCommand($hCombo, "", "", "FindString", "5. NOM DU VPN")
; Msgbox(0,"", $occ)
ControlCommand($hCombo, "", "", "SetCurrentSelection", $occ)
; etc
" L'échec est le fondement de la réussite. " (Lao-Tseu )
" Plus ça rate, plus on a de chances que ça marche " (les Shadoks )
" Plus ça rate, plus on a de chances que ça marche " (les Shadoks )
Re: Automatiser DNSJUMPER
Bon même soucis malheureusement, je ne suis pas doué