Automatiser DNSJUMPER

Aide et conseils concernant AutoIt et ses outils.
Règles du forum
.
Répondre
flegmatik
Niveau 1
Niveau 1
Messages : 3
Enregistré le : dim. 24 déc. 2023 14:24
Status : Hors ligne

Automatiser DNSJUMPER

#1

Message par flegmatik »

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 ?
Avatar du membre
mikell
Spammer !
Spammer !
Messages : 6292
Enregistré le : dim. 29 mai 2011 17:32
Localisation : Deep Cévennes
Status : Hors ligne

Re: Automatiser DNSJUMPER

#2

Message par mikell »

Pas spécialement...
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 )
flegmatik
Niveau 1
Niveau 1
Messages : 3
Enregistré le : dim. 24 déc. 2023 14:24
Status : Hors ligne

Re: Automatiser DNSJUMPER

#3

Message par flegmatik »

Alors pour l'instant j'en suis à ça:

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
Donc l'application se lance mais la seconde étape à savoir dérouler la combobox pour selectionner mon vpn ne se fait pas.
Avatar du membre
mikell
Spammer !
Spammer !
Messages : 6292
Enregistré le : dim. 29 mai 2011 17:32
Localisation : Deep Cévennes
Status : Hors ligne

Re: Automatiser DNSJUMPER

#4

Message par mikell »

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
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
" L'échec est le fondement de la réussite. " (Lao-Tseu )
" Plus ça rate, plus on a de chances que ça marche " (les Shadoks )
flegmatik
Niveau 1
Niveau 1
Messages : 3
Enregistré le : dim. 24 déc. 2023 14:24
Status : Hors ligne

Re: Automatiser DNSJUMPER

#5

Message par flegmatik »

Bon même soucis malheureusement, je ne suis pas doué
Répondre