Sign in to follow this  
Followers 0
sinan

not working help pls

2 posts in this topic

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

Share this post


Link to post
Share on other sites



Whats not working?

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!


Register a new account

Sign in

Already have an account? Sign in here.


Sign In Now
Sign in to follow this  
Followers 0