Bonjour a tous, j'aurais besoin d'un tout petit coup de main concernant un tool d'échange ! :D Il faudrait réduire le temps parce que c'est vraiment long !
Merci d'avance a l'ame charitable ! :D voici le code
Merci d'avance a l'ame charitable ! :D voici le code
PHP:
#RequireAdmin
#Region
#AutoIt3Wrapper_Icon=..\Favicon\favicon1.ico
#AutoIt3Wrapper_UseX64=n
#EndRegion
$OK = InputBox("Wilf'Echange", "Pseudo du principal" & @CRLF & " " & @CRLF & "Presse F1 pour arrêter le tools.")
$BOT = InputBox("Wilf'Echange", "Pseudo du bot" & @CRLF & " " & @CRLF & "Presse F1 pour arrêter le tools.")
$NBR = InputBox("Wilf'Echange", "Nombre d'échange" & @CRLF & " " & @CRLF & "Presse F1 pour arrêter le tools.")
HotKeySet("{F1}", "Fermeture")
Func FERMETURE()
MsgBox(0, "Wilf'Echange", "Fermeture...", 1)
Exit
EndFunc
WinActivate($OK)
WinWait($OK)
WinMove($OK, "", 0, 0, 784, 652)
Sleep(1000)
WinActivate($BOT)
WinWait($BOT)
WinMove($BOT, "", 0, 0, 784, 652)
Sleep(1000)
MouseClick("left", 82, 633, 1, 1)
Sleep(500)
Send("/invite ")
Sleep(500)
Send($OK)
Sleep(500)
Send("{enter}")
Sleep(300)
For $I = 1 To $NBR Step +1
Sleep(300)
MouseClick("left", 482, 317, 1, 2)
Sleep(500)
Send("{down}")
Sleep(500)
Send("{ENTER}")
Sleep(500)
MouseClick("left", 108, 274, 1, 3)
Sleep(500)
MouseClick("left", 174, 164, 1, 1)
Sleep(500)
Send("{down}")
Sleep(500)
Send("{enter}")
Sleep(300)
Send("{ESC}")
Sleep(300)
MouseClick("left", 747, 238, 1, 1)
Sleep(300)
MouseClick("left", 633, 325, 1, 1)
Sleep(300)
WinActivate($OK)
WinWait($OK)
Sleep(1000)
Send("{enter}")
WinActivate($BOT)
WinWait($BOT)
Sleep(1000)
MouseClick("left", 709, 165, 1, 1)
Sleep(1000)
For $II = 1 To 4 Step +1
Send("{CTRLDOWN}")
MouseClick("left", 616, 210, 150, 1)
Send("{CTRLUP}")
Sleep(1000)
Next
Sleep(5000)
MouseClick("left", 198, 296, 1, 1)
Sleep(2000)
WinActivate($OK)
WinWait($OK)
Sleep(300)
MouseClick("left", 198, 296, 1, 1)
Sleep(300)
MouseClick("left", 482, 317, 1, 1)
Sleep(1000)
Send("{down}")
Sleep(1000)
Send("{enter}")
Sleep(2000)
Send("{down}")
Sleep(1000)
Send("{enter}")
Sleep(300)
MouseClick("left", 609, 163, 1, 1)
Sleep(300)
Send("{down}")
Sleep(1000)
Send("{enter}")
Sleep(200)
Send("{ESC}")
Sleep(1000)
WinActivate($BOT)
WinWait($BOT)
Sleep(1000)
MsgBox(0, "Wilf'Echange - Fini", $I, 3)
Sleep(200)
Next