sinan

not working macro Help pls #include <GUIConstants.au3> Opt("GUIOnEventMode", 1) #Region ### START Koda GUI section ### Form= $Form1 = GUICreate("Copyright by sin2018 - - DandikBot v2.0", 390, 400, -1, -1, BitOR($WS_MINIMIZEBOX,$WS_CAPTION,$WS_POPUP,$WS_GROUP,$WS_BORDER,$WS_CLIPSIBLINGS)) GUISetOnEvent($GUI_EVENT_CLOSE, "Form1Close") GUISetOnEvent($GUI_EVENT_MINIMIZE, "Form1Minimize") GUISetOnEvent($GUI_EVENT_MAXIMIZE, "Form1Maximize") GUISetOnEvent($GUI_EVENT_RESTORE, "Form1Restore") GuiCtrlCreateGroup("Genel", 5, 5, 380, 80 ) GuiCtrlCreateGroup("Bufflar", 5, 90, 250, 290) GuiCtrlCreateGroup("Aç/dur/kapat", 260, 90, 120, 290) $Label1 = GUICtrlCreateLabel("Atak Skilleri :", 24, 16, 100, 22) GUICtrlSetFont(-1, 10, 800, 0, "Trebuchet MS") GUICtrlSetColor(-1, 0x0000FF) GUICtrlSetOnEvent(-1, "Label1Click") $Label2 = GUICtrlCreateLabel("Bufflar :", 24, 48, 61, 22) GUICtrlSetFont(-1, 10, 800, 0, "Trebuchet MS") GUICtrlSetColor(-1, 0x0000FF) GUICtrlSetOnEvent(-1, "Label2Click") $Combo1 = GUICtrlCreateCombo("", 152, 16, 65, 25,$CBS_DROPDOWNLIST) GUICtrlSetOnEvent(-1, "Combo1Change") GUICtrlSetData(-1,"{F1}|{F2}|{F3}|{F4}","{F1}") $Combo2 = GUICtrlCreateCombo("", 152, 48, 65, 25,$CBS_DROPDOWNLIST) GUICtrlSetOnEvent(-1, "Combo2Change") GUICtrlSetData(-1,"{F1}|{F2}|{F3}|{F4}","{F2}") $Button1 = GUICtrlCreateButton("Başlat", 280, 130, 70, 25, 0) GUICtrlSetOnEvent(-1, "Button1Click") $Button2 = GUICtrlCreateButton("Durdur", 280, 180, 70, 25, 0) GUICtrlSetOnEvent(-1, "Button2Click") $Button3 = GUICtrlCreateButton("Çık", 280, 230, 70, 25, 0) GUICtrlSetOnEvent(-1, "Button3Click") $Checkbox1 = GUICtrlCreateCheckbox("Dusenleri Topla", 250, 18, 97, 17) GUICtrlSetOnEvent(-1, "Checkbox1Click") $Checkbox2 = GUICtrlCreateCheckbox("Berserk Dolunca Kullan", 250, 50, 157, 17) GUICtrlSetOnEvent(-1, "Checkbox2Click") $Checkbox3 = GUICtrlCreateCheckbox("2. Slotdaki skill", 60, 120, 157, 17) GUICtrlSetOnEvent(-1, "Checkbox3Click") $Checkbox4 = GUICtrlCreateCheckbox("3. Slotdaki skill", 60, 170, 157, 17) GUICtrlSetOnEvent(-1, "Checkbox4Click") $Checkbox5 = GUICtrlCreateCheckbox("4. Slotdaki skill", 60, 220, 157, 17) GUICtrlSetOnEvent(-1, "Checkbox5Click") $Checkbox6 = GUICtrlCreateCheckbox("5. Slotdaki skill", 60, 270, 157, 17) GUICtrlSetOnEvent(-1, "Checkbox6Click") $Checkbox7 = GUICtrlCreateCheckbox("6. Slotdaki skill", 60, 320, 157, 17) GUICtrlSetOnEvent(-1, "Checkbox7Click") $zaman1 = GUICtrlCreateInput("1000",40, 145, 40,20) GUICtrlCreateLabel("2-3 skill arası bekleme zamanı",100, 145) $zaman2 = GUICtrlCreateInput("1000",40, 195, 40,20) GUICtrlCreateLabel("3-4 skill arası bekleme zamanı",100, 195) $zaman3 = GUICtrlCreateInput("2000",40, 245, 40,20) GUICtrlCreateLabel("4-5 skill arası bekleme zamanı",100, 245) $zaman4 = GUICtrlCreateInput("3000",40, 295, 40,20) GUICtrlCreateLabel("5-6 skill arası bekleme zamanı",100, 295) $zaman5 = GUICtrlCreateInput("3000",40, 345, 40,20) GUICtrlCreateLabel("6-- skill arası bekleme zamanı",100, 345) GUISetState(@SW_SHOW) #EndRegion ### END Koda GUI section ### Global $Paused = 0 $msg = 0 $atak = Guictrlread($combo1) $buff = Guictrlread($combo2) $i = 1 $b = 1 While $i =1 if $Paused = 1 Then If WinActive("sro_client") and PixelGetColor(30,13) = 0xFF5A7E and GuiCtrlread($checkbox2) = $GUI_CHECKED then Send("{Tab}") Sleep(100) endif If WinActive("sro_client") and $b = 100 then Send($buff) Sleep(100) Send("1") Sleep(1000) Send("2") Sleep(1000) Send("3") Sleep(1000) Send("4") Sleep(1000) Send("5") Sleep(1000) $b = 1 Sleep(500) elseif WinActive("sro_client") and PixelGetColor(431,47) = 0x9C1111 and GuiCtrlread($checkbox2) = $GUI_CHECKED then Send($atak) Sleep(100) elseif WinActive("sro_client") and PixelGetColor(431,47) = 0x9C1111 and GuiCtrlread($checkbox3) = $GUI_CHECKED then Send("1") Send("2") Sleep($zaman1) elseif WinActive("sro_client") and PixelGetColor(431,47) = 0x9C1111 and GuiCtrlread($checkbox4) = $GUI_CHECKED then Send("1") Send("3") Sleep($zaman2) elseif WinActive("sro_client") and PixelGetColor(431,47) = 0x9C1111 and GuiCtrlread($checkbox5) = $GUI_CHECKED then Send("1") Send("4") Sleep($zaman3) elseif WinActive("sro_client") and PixelGetColor(431,47) = 0x9C1111 and GuiCtrlread($checkbox6) = $GUI_CHECKED then Send("1") Send("5") Sleep($zaman4) elseif WinActive("sro_client") and PixelGetColor(431,47) = 0x9C1111 and GuiCtrlread($checkbox7) = $GUI_CHECKED then Send("1") Send("6") Sleep($zaman5) elseif WinActive("sro_client") and PixelGetColor(431,47) <> 0x9C1111 and GuiCtrlread($checkbox1) = $GUI_CHECKED then Send("G") Sleep(100) Send("G") Sleep(100) Send($atak) Sleep(100) Send("1") Sleep(500) $b = $b + 1 elseif WinActive("sro_client") and PixelGetColor(431,47) <> 0x9C1111 then MouseClick("middle") Sleep(500) $b = $b + 1 endif EndIf WEnd Func Button1Click() $basla = 1 ; başlat EndFunc Func Button2Click() $basla = 0 ; durdur EndFunc Func Button3Click() Exit ; programı kapat EndFunc Func Checkbox1Click() EndFunc Func Checkbox2Click() EndFunc Func Checkbox3Click() EndFunc Func Checkbox4Click() EndFunc Func Checkbox5Click() EndFunc Func Checkbox6Click() EndFunc Func Checkbox7Click() EndFunc Func Combo1Change() EndFunc Func Combo2Change() EndFunc Func Form1Close() EndFunc Func Form1Maximize() EndFunc Func Form1Minimize() EndFunc Func Form1Restore() EndFunc Func Label1Click() EndFunc Func Label2Click() EndFunc

But , not work pls help #include <GUIConstants.au3> #Include <Date.au3> Global $Timer1 = 0 Global $Timer2 = 0 Global $Timer3 = 0 Global $Timer4 = 0 Global $Timer5 = 0 Opt("GUICoordMode", 1) GUICreate("Gariban Bota hoşgeldiniz") ; TITLE DUR ;Beginning of display Guictrlcreatelabel ("By made sin2018", 10, 6) $ssro = GUICtrlCreateButton("START SRO", 260,130, 100,20) $start = GUICtrlCreateButton("START", 260,150, 100,20) $exit = GUICtrlCreateButton("EXIT", 260,170, 100,20) $buff1check = GUICtrlCreateCheckbox("",50,150,25,25) $buff2check = GUICtrlCreateCheckbox("",50,180,25,25) $buff3check = GUICtrlCreateCheckbox("",50,210,25,25) $buff4check = GUICtrlCreateCheckbox("",50,240,25,25) $buff5check = GUICtrlCreateCheckbox("",50,270,25,25) $buff1duration = GUICtrlCreateInput("1000",87,153,40,20) $buff2duration = GUICtrlCreateInput("5000",87,183,40,20) $buff3duration = GUICtrlCreateInput("6000",87,213,40,20) $buff4duration = GUICtrlCreateInput("7000",87,243,40,20) $buff5duration = GUICtrlCreateInput("8000",87,273,40,20) $buff1input = GUICtrlCreateInput("1",175,153,35,20) $buff2input = GUICtrlCreateInput("2",175,183,35,20) $buff3input = GUICtrlCreateInput("3",175,213,35,20) $buff4input = GUICtrlCreateInput("4",175,243,35,20) $buff5input = GUICtrlCreateInput("5",175,273,35,20) GUISetState () GUICtrlCreateGroup ("Buffer Auto", 20, 100, 205, 205) GUICtrlCreateLabel("Alugo Bot por 30 reais 200h",20,40) GUICtrlCreateLabel("Coloque o tempo dos buffers. (em seconds)",20,55) GUICtrlCreateLabel("Selecione os numeros aonde esta os skill",20,70) GUICtrlCreateLabel("Seçiniz",40,120) GUICtrlCreateGroup ("",30, 110, 45, 30) GUICtrlCreateLabel("Zaman",100,120) GUICtrlCreateGroup ("",95, 110, 50, 30) GUICtrlCreateLabel("secs",130,158) GUICtrlCreateLabel("secs",130,188) GUICtrlCreateLabel("secs",130,218) GUICtrlCreateLabel("secs",130,248) GUICtrlCreateLabel("secs",130,278) GUICtrlCreateLabel("Tuşlar",180,120) GUICtrlCreateGroup ("",170, 110, 40, 30) $buff1slot = GUICtrlCreateUpdown($buff1input) $buff2slot = GUICtrlCreateUpdown($buff2input) $buff3slot = GUICtrlCreateUpdown($buff3input) $buff4slot = GUICtrlCreateUpdown($buff4input) $buff5slot = GUICtrlCreateUpdown($buff5input) GUICtrlSetLimit($buff1slot,9,0) GUICtrlSetLimit($buff2slot,9,0) GUICtrlSetLimit($buff3slot,9,0) GUICtrlSetLimit($buff4slot,9,0) GUICtrlSetLimit($buff5slot,9,0) ;----------------------------------------^^^^^^^^^^^^^^^^^^^^^^^^^^^--------------^^^^^^^^^^^DISPLAY ;Beginning button and functions While 1 $msg = GUIGetMsg() Select Case $msg = $GUI_EVENT_CLOSE Exitloop Case $msg = $GUI_EVENT_MINIMIZE Case $msg = $Exit Exitloop Case $msg = $buff1check if GUICtrlRead($buff1check) = 1 Then send("{F1}") GUICtrlSetState($buff1duration, $GUI_ENABLE) GUICtrlSetState($buff1input, $GUI_ENABLE) Else GUICtrlSetState($buff1duration, $GUI_DISABLE) GUICtrlSetState($buff1input, $GUI_DISABLE) EndIf Case $msg = $buff2check if GUICtrlRead($buff2check) = 1 Then GUICtrlSetState($buff2duration, $GUI_ENABLE) GUICtrlSetState($buff2input, $GUI_ENABLE) Else GUICtrlSetState($buff2duration, $GUI_DISABLE) GUICtrlSetState($buff2input, $GUI_DISABLE) EndIf Case $msg = $buff3check if GUICtrlRead($buff3check) = 1 Then GUICtrlSetState($buff3duration, $GUI_ENABLE) GUICtrlSetState($buff3input, $GUI_ENABLE) Else GUICtrlSetState($buff3duration, $GUI_ENABLE) GUICtrlSetState($buff3input, $GUI_ENABLE) EndIf Case $msg = $buff4check if GUICtrlRead($buff4check) = 1 Then GUICtrlSetState($buff4duration, $GUI_ENABLE) GUICtrlSetState($buff4input, $GUI_ENABLE) Else GUICtrlSetState($buff4duration, $GUI_DISABLE) GUICtrlSetState($buff4input, $GUI_DISABLE) EndIf Case $msg = $buff5check if GUICtrlRead($buff5check) = 1 Then GUICtrlSetState($buff5duration, $GUI_ENABLE) GUICtrlSetState($buff5input, $GUI_ENABLE) Else GUICtrlSetState($buff5duration, $GUI_DISABLE) GUICtrlSetState($buff5input, $GUI_DISABLE) EndIf EndSelect $buff1duration = TimerInit() $buff2duration = TimerInit() $buff3duration = TimerInit() $buff4duration = TimerInit() $buff5duration = TimerInit() $msg = GUIGetMsg() Select Case $msg = $start WinWaitActive("sro_client") WinActive("sro_client") sleep(500) ;1nd buff if TimerDiff($buff1duration) > $buff1duration Then ;buff started send($buff1input) sleep(1000) EndIf ;2nd buff if TimerDiff($buff2duration) > $buff2duration Then ;buff started send($buff2input) sleep(1000) EndIf ;3rd buff if TimerDiff($buff3duration) > $buff3duration Then ;buff started send($buff3input) sleep(1000) EndIf ;4nd buff if TimerDiff($buff4duration) > $buff4duration Then ;buff started send($buff4input) sleep(1000) EndIf ;5nd buff if TimerDiff($buff5duration) > $buff5duration Then ;buff started send($buff5input) sleep(1000) EndIf EndSelect WEnd

The program not work Pls help me Thnx.. #include <GUIConstants.au3> #Include <Date.au3> Global $Timer1 = 0 Global $Timer2 = 0 Global $Timer3 = 0 Global $Timer4 = 0 Global $Timer5 = 0 Opt("GUICoordMode", 1) GUICreate("Gariban Bota hoşgeldiniz") ; TITLE DUR ;Beginning of display Guictrlcreatelabel ("By made sin2018", 10, 6) $ssro = GUICtrlCreateButton("START SRO", 260,130, 100,20) $start = GUICtrlCreateButton("START", 260,150, 100,20) $exit = GUICtrlCreateButton("EXIT", 260,170, 100,20) $buff1check = GUICtrlCreateCheckbox("",50,150,25,25) $buff2check = GUICtrlCreateCheckbox("",50,180,25,25) $buff3check = GUICtrlCreateCheckbox("",50,210,25,25) $buff4check = GUICtrlCreateCheckbox("",50,240,25,25) $buff5check = GUICtrlCreateCheckbox("",50,270,25,25) $buff1duration = GUICtrlCreateInput("1000",87,153,40,20) $buff2duration = GUICtrlCreateInput("5000",87,183,40,20) $buff3duration = GUICtrlCreateInput("6000",87,213,40,20) $buff4duration = GUICtrlCreateInput("7000",87,243,40,20) $buff5duration = GUICtrlCreateInput("8000",87,273,40,20) $buff1input = GUICtrlCreateInput("1",175,153,35,20) $buff2input = GUICtrlCreateInput("2",175,183,35,20) $buff3input = GUICtrlCreateInput("3",175,213,35,20) $buff4input = GUICtrlCreateInput("4",175,243,35,20) $buff5input = GUICtrlCreateInput("5",175,273,35,20) GUISetState () GUICtrlCreateGroup ("Buffer Auto", 20, 100, 205, 205) GUICtrlCreateLabel("Alugo Bot por 30 reais 200h",20,40) GUICtrlCreateLabel("Coloque o tempo dos buffers. (em seconds)",20,55) GUICtrlCreateLabel("Selecione os numeros aonde esta os skill",20,70) GUICtrlCreateLabel("Seçiniz",40,120) GUICtrlCreateGroup ("",30, 110, 45, 30) GUICtrlCreateLabel("Zaman",100,120) GUICtrlCreateGroup ("",95, 110, 50, 30) GUICtrlCreateLabel("secs",130,158) GUICtrlCreateLabel("secs",130,188) GUICtrlCreateLabel("secs",130,218) GUICtrlCreateLabel("secs",130,248) GUICtrlCreateLabel("secs",130,278) GUICtrlCreateLabel("Tuşlar",180,120) GUICtrlCreateGroup ("",170, 110, 40, 30) $buff1slot = GUICtrlCreateUpdown($buff1input) $buff2slot = GUICtrlCreateUpdown($buff2input) $buff3slot = GUICtrlCreateUpdown($buff3input) $buff4slot = GUICtrlCreateUpdown($buff4input) $buff5slot = GUICtrlCreateUpdown($buff5input) GUICtrlSetLimit($buff1slot,9,0) GUICtrlSetLimit($buff2slot,9,0) GUICtrlSetLimit($buff3slot,9,0) GUICtrlSetLimit($buff4slot,9,0) GUICtrlSetLimit($buff5slot,9,0) ;----------------------------------------^^^^^^^^^^^^^^^^^^^^^^^^^^^--------------^^^^^^^^^^^DISPLAY ;Beginning button and functions While 1 $msg = GUIGetMsg() Select Case $msg = $GUI_EVENT_CLOSE Exitloop Case $msg = $GUI_EVENT_MINIMIZE Case $msg = $Exit Exitloop Case $msg = $buff1check if GUICtrlRead($buff1check) = 1 Then send("{F1}") GUICtrlSetState($buff1input, $GUI_ENABLE) GUICtrlSetState($buff1input, $GUI_ENABLE) Else GUICtrlSetState($buff1duration, $GUI_DISABLE) GUICtrlSetState($buff1input, $GUI_DISABLE) EndIf Case $msg = $buff2check if GUICtrlRead($buff2check) = 1 Then GUICtrlSetState($buff2input, $GUI_ENABLE) GUICtrlSetState($buff2input, $GUI_ENABLE) Else GUICtrlSetState($buff2duration, $GUI_DISABLE) GUICtrlSetState($buff2input, $GUI_DISABLE) EndIf Case $msg = $buff3check if GUICtrlRead($buff3check) = 1 Then GUICtrlSetState($buff3input, $GUI_ENABLE) GUICtrlSetState($buff3input, $GUI_ENABLE) Else GUICtrlSetState($buff3duration, $GUI_ENABLE) GUICtrlSetState($buff3input, $GUI_ENABLE) EndIf Case $msg = $buff4check if GUICtrlRead($buff4check) = 1 Then GUICtrlSetState($buff4input, $GUI_ENABLE) GUICtrlSetState($buff4input, $GUI_ENABLE) Else GUICtrlSetState($buff4duration, $GUI_DISABLE) GUICtrlSetState($buff4input, $GUI_DISABLE) EndIf Case $msg = $buff5check if GUICtrlRead($buff5check) = 1 Then GUICtrlSetState($buff5input, $GUI_ENABLE) GUICtrlSetState($buff5input, $GUI_ENABLE) Else GUICtrlSetState($buff5duration, $GUI_DISABLE) GUICtrlSetState($buff5input, $GUI_DISABLE) EndIf send("{F1}") EndSelect $buff1duration = TimerInit() $buff2duration = TimerInit() $buff3duration = TimerInit() $buff4duration = TimerInit() $buff5duration = TimerInit() $msg = GUIGetMsg() Select Case $msg = $start WinWaitActive("sro_client") WinActive("sro_client") sleep(500) ;1nd buff if TimerDiff($buff1duration) > $buff1duration Then ;buff started send($buff1input) sleep(1000) EndIf ;2nd buff if TimerDiff($buff2duration) > $buff2duration Then ;buff started send($buff2input) sleep(1000) EndIf ;3rd buff if TimerDiff($buff3duration) > $buff3duration Then ;buff started send($buff3input) sleep(1000) EndIf ;4nd buff if TimerDiff($buff4duration) > $buff4duration Then ;buff started send($buff4input) sleep(1000) EndIf ;5nd buff if TimerDiff($buff5duration) > $buff5duration Then ;buff started send($buff5input) sleep(1000) EndIf EndSelect WEnd