-lancer le scrip
-d'expliquer
-de régler
-de quitter
mais quand je clique sur le bouton reglage une gui de réglage s'ouvre sa marche mais c'est lorsque je veux revenir sur le gui principale les bouton ne marche plus
merci d'avance
► Afficher le texte
Code : Tout sélectionner
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
$clicc = 0xFFFFFF
$entrepage = 0xFFFFFF
$2 = 0xFF6600
$0 = 0xFF6600
$1 = 0x215582
$pariseffectuer = 0
$couleurfindepage = 0x206080
$temp_pour_mettre_en_place_debut_en_gros = 5000
$temp_crool = 400
$temp_charge_paris = 4000
$temp_datente_entre_miseparis_et_selection = 175
$temp_avant_misedefoz = 175
$temp_pour_valider = 125
$temp_pour_charge_tout_paris = 5500
$temp_pour_chargement_page_si_erreur = 1500
$coup_de_scrool = 2
$affichage_paris_effectuer = 4 ;en seconde
#Region ### START Koda GUI section ### Form=
Global $Form1 = GUICreate("bot paris autot", 633, 447, 192, 124)
Global $Button1 = GUICtrlCreateButton("c'est parti", 256, 168, 75, 25, $WS_GROUP)
GUICtrlCreateLabel("", 272, 56, 4, 4)
Global $Button2 = GUICtrlCreateButton("je quitte", 256, 208, 75, 25, $WS_GROUP)
Global $Button3 = GUICtrlCreateButton("a lire avant d'utiliser", 184, 64, 227, 89, $WS_GROUP)
Global $button4 = GUICtrlCreateButton("reglage (optionelle)", 245, 248,100,45, $WS_GROUP)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
test()
Case $Button3
MsgBox(64,"a lire", "veullez vous connecter et vous mettre dans les paris puis lancer le script")
Case $Button2
MsgBox(16,"bye", "bye ...",1)
Exit
Case $button4
;~ GUI DE REGLAGE **************************************************************************************************************
;~ *****************************************************************************************************************************
Global $Form1 = GUICreate("Form1", 633, 447, 192, 124)
Global $Input1 = GUICtrlCreateInput("400", 256, 112, 121, 21)
Global $Input2 = GUICtrlCreateInput("4", 256, 168, 121, 21)
Global $Input3 = GUICtrlCreateInput("5500", 256, 232, 121, 21)
Global $Input4 = GUICtrlCreateInput("2", 256, 296, 121, 21)
Global $Label1 = GUICtrlCreateLabel("temp entre deux scrool", 120, 112, 132, 25)
GUICtrlSetColor(-1, 0x0000FF)
GUICtrlSetBkColor(-1, 0xFF0000)
Global $Label2 = GUICtrlCreateLabel("temp d'affichage de la fenetre paris effectuer", 120, 168, 132, 25)
GUICtrlSetColor(-1, 0x0000FF)
GUICtrlSetBkColor(-1, 0xFF0000)
Global $Label3 = GUICtrlCreateLabel("temp pour charger la fenetre principal (avec tout les paris)", 120, 225, 132, 40)
GUICtrlSetColor(-1, 0x0000FF)
GUICtrlSetBkColor(-1, 0xFF0000)
Global $Label4 = GUICtrlCreateLabel("coup de roulette", 120, 296, 132, 25)
GUICtrlSetColor(-1, 0x0000FF)
GUICtrlSetBkColor(-1, 0xFF0000)
Global $Label5 = GUICtrlCreateLabel("si vous ne savez pas a quoi correspond ces reglages laisser les reglage par default"& @CRLF &"tout reglage fait n'est pas enregistrer pour toujour a chaque relancement du programme les reglage ce remette par default", 180, 16, 284, 70)
GUICtrlSetColor(-1, 0xFF0000 )
GUICtrlSetBkColor(-1, 0x0000FF)
Global $Label6 = GUICtrlCreateLabel("(seconde)", 380, 168, 132, 25)
Global $Label7 = GUICtrlCreateLabel("(milliseconde)", 380, 112, 132, 25)
Global $Label8 = GUICtrlCreateLabel("(milliseconde)", 380, 232, 132, 25)
Global $Label9 = GUICtrlCreateLabel("(milliseconde)", 380, 296, 132, 25)
const $label10 = GUICtrlCreateLabel("(exemple: 1 seconde = 1000 milliseconde)", 200, 400, 284, 70)
Global $Button1 = GUICtrlCreateButton("enregistrer", 504, 376, 91, 33, $WS_GROUP)
Global $Button2 = GUICtrlCreateButton("quitter", 504, 200, 91, 33, $WS_GROUP)
GUICtrlSetState($Button2,$GUI_DISABLE)
GUISetState(@SW_SHOW)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
GUICtrlSetState($Button2,$GUI_ENABLE)
$temp_crool = GUICtrlRead($Input1)
$affichage_paris_effectuer = GUICtrlRead($Input2)
$temp_pour_charge_tout_paris = GUICtrlRead($Input3)
$coup_de_scrool = GUICtrlRead($Input4)
Case $Button2
GUISetState(@SW_HIDE)
EndSwitch
WEnd
;fin de la gui de reglage ******************************************************************************************************************************
EndSwitch
WEnd
Func test()
$somme = InputBox("valeur paris", "quel mise veut tu mettre , attention la somme entrer sera mise a chaque paris!!!")
ToolTip("creer par *****", 80,80 ,"createur")
MsgBox(64, "bot paris automatique", "EVITER DE TOUCHER LA SOURIS!!" & @CRLF & "mettez vous en plein ecran" & @CRLF & "et connecter vous et mettez vous dans les paris" & @CRLF & "vous avez 5 seconde apres avoir cliquer sur ok")
Sleep($temp_pour_mettre_en_place_debut_en_gros)
$clic=PixelSearch(184, 408,323, 525, $clicc)
MouseClick("left",$clic[0], $clic[1],1, 0)
Do ;.......................................................
Sleep($temp_crool)
$jeparie=PixelSearch(188, 463, 709, 730, $0)
If Not @error then
$pariseffectuer = $pariseffectuer+1
MouseClick("left", $jeparie[0], $jeparie[1],1,0)
Sleep($temp_charge_paris)
$miseparis=PixelSearch(181, 413,559, 629, $1)
If Not @error then
Sleep($temp_datente_entre_miseparis_et_selection)
MouseClick("left", $miseparis[0], $miseparis[1],1,10)
Sleep($temp_avant_misedefoz)
Send ($somme)
sleep($temp_pour_valider)
$valider=PixelSearch(548, 534,871, 666, $2)
MouseClick("left", $valider[0], $valider[1],1,0)
Sleep($temp_pour_charge_tout_paris)
Else
MouseClick("left",385, 65)
Send("site") ;page 2!!!!!!!!!!!!!!!!!!!!
Send("{enter}")
Sleep($temp_pour_chargement_page_si_erreur)
$entrepage=PixelSearch(182, 461, 360, 712, $entrepage)
MouseClick("left", $entrepage[0], $entrepage[1])
EndIf
Else
MouseWheel("down", $coup_de_scrool)
$findepage = PixelGetColor( 989, 683)
EndIf
Until ($findepage = $couleurfindepage)
MsgBox(0,"paris effectuer","vous avez effectuer " & $pariseffectuer & " paris en tout pour l'instant", $affichage_paris_effectuer)
EndFunc
