#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Icon=D:\cpro\appglobes\GameSpy.ico
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include
#include
#include
#Region ### START Koda GUI section ### Form=
$fm01 = GUICreate("Dieip", 251, 169, 348, 226)
GUISetBkColor(0xA6CAF0)
$Radio1 = GUICtrlCreateRadio("กดแฝง = 1200 ครั้ง", 24, 16, 113, 17)
$Radio2 = GUICtrlCreateRadio("กดแฝง = 2400 ครั้ง", 24, 40, 113, 17)
$Radio3 = GUICtrlCreateRadio("กดแฝง = 3600 ครั้ง", 24, 64, 113, 17)
$Radio4 = GUICtrlCreateRadio("กดแฝง = 4800 ครั้ง", 24, 88, 113, 17)
$Radio5 = GUICtrlCreateRadio("กดแฝง = 6000 ครั้ง", 24, 112, 113, 17)
$Radio6 = GUICtrlCreateRadio("กดแฝงไปเรื่อยๆ", 24, 136, 113, 17)
$Button1 = GUICtrlCreateButton("แฝงโจมตี", 152, 48, 81, 25, $WS_GROUP)
GUICtrlSetBkColor(-1, 0x3399FF)
$Button2 = GUICtrlCreateButton("แฝงป้องกัน", 152, 88, 81, 25, $WS_GROUP)
GUICtrlSetBkColor(-1, 0x3399FF)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
Global $Dieip
Func _PSsixLoadH($gtitle)
$Dieip = WinGetHandle($gtitle)
If @error Then
MsgBox(4096, "Error", "ไม่พบหน้าต่างเกม")
Exit
Else
Return 1
EndIf
EndFunc
HotKeySet("{ESC}", "stop")
Func stop()
ToolTip('หยุดการทำงาน', 0, 0)
Sleep(500)
Exit
EndFunc
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
Opt("MouseCoordMode", 2)
Opt("PixelCoordMode", 2)
Opt("CaretCoordMode", 2)
If _PSsixLoadH("Dynasty Dragon - Server 5 - Mozilla Firefox") Then WinActivate($Dieip)
d01()
Case $Button2
Opt("MouseCoordMode", 2)
Opt("PixelCoordMode", 2)
Opt("CaretCoordMode", 2)
If _PSsixLoadH("Dynasty Dragon - Server 5 - Mozilla Firefox") Then WinActivate($Dieip)
d02()
EndSwitch
WEnd
Func d01()
If $radio1 And BitAND(GUICtrlRead($radio1), $GUI_CHECKED) = $GUI_CHECKED Then
MsgBox(0,"Dieip-โจมตี","อับแฝงโจมตี 1200 ครั้ง")
for $i =1 To 1200
If PixelGetColor(945, 362) = 0x09E60C Then
MouseClick("left",739,636,1,99)
Sleep(400)
EndIf
If PixelGetColor(945, 371) = 0xDD0202 Then
MouseClick("left",840,639,1,99)
Sleep(400)
EndIf
If PixelGetColor(881, 373) = 0xFFFFFF Then
MouseClick("left",739,636,1,99)
Sleep(400)
EndIf
Sleep(450)
MouseClick("left",791,634,1,99)
Sleep(450)
Next
Exit
EndIf
If $radio2 And BitAND(GUICtrlRead($radio2), $GUI_CHECKED) = $GUI_CHECKED Then
MsgBox(0,"Dieip-โจมตี","อับแฝงโจมตี 2400 ครั้ง")
for $i =1 To 2400
If PixelGetColor(945, 362) = 0x09E60C Then
MouseClick("left",739,636,1,99)
Sleep(400)
EndIf
If PixelGetColor(945, 371) = 0xDD0202 Then
MouseClick("left",840,639,1,99)
Sleep(400)
EndIf
If PixelGetColor(881, 373) = 0xFFFFFF Then
MouseClick("left",739,636,1,99)
Sleep(400)
EndIf
Sleep(450)
MouseClick("left",791,634,1,99)
Sleep(450)
Next
Exit
EndIf
If $radio3 And BitAND(GUICtrlRead($radio3), $GUI_CHECKED) = $GUI_CHECKED Then
MsgBox(0,"Dieip-โจมตี","อับแฝงโจมตี 3600 ครั้ง")
for $i =1 To 3600
If PixelGetColor(945, 362) = 0x09E60C Then
MouseClick("left",739,636,1,99)
Sleep(400)
EndIf
If PixelGetColor(945, 371) = 0xDD0202 Then
MouseClick("left",840,639,1,99)
Sleep(400)
EndIf
If PixelGetColor(881, 373) = 0xFFFFFF Then
MouseClick("left",739,636,1,99)
Sleep(400)
EndIf
Sleep(450)
MouseClick("left",791,634,1,99)
Sleep(450)
Next
Exit
EndIf
If $radio4 And BitAND(GUICtrlRead($radio4), $GUI_CHECKED) = $GUI_CHECKED Then
MsgBox(0,"Dieip-โจมตี","อับแฝงโจมตี 4800 ครั้ง")
for $i =1 To 4800
If PixelGetColor(945, 362) = 0x09E60C Then
MouseClick("left",739,636,1,99)
Sleep(400)
EndIf
If PixelGetColor(945, 371) = 0xDD0202 Then
MouseClick("left",840,639,1,99)
Sleep(400)
EndIf
If PixelGetColor(881, 373) = 0xFFFFFF Then
MouseClick("left",739,636,1,99)
Sleep(400)
EndIf
Sleep(450)
MouseClick("left",791,634,1,99)
Sleep(450)
Next
Exit
EndIf
If $radio5 And BitAND(GUICtrlRead($radio5), $GUI_CHECKED) = $GUI_CHECKED Then
MsgBox(0,"Dieip-โจมตี","อับแฝงโจมตี 6000 ครั้ง")
for $i =1 To 6000
If PixelGetColor(945, 362) = 0x09E60C Then
MouseClick("left",739,636,1,99)
Sleep(400)
EndIf
If PixelGetColor(945, 371) = 0xDD0202 Then
MouseClick("left",840,639,1,99)
Sleep(400)
EndIf
If PixelGetColor(881, 373) = 0xFFFFFF Then
MouseClick("left",739,636,1,99)
Sleep(400)
EndIf
Sleep(450)
MouseClick("left",791,634,1,99)
Sleep(450)
Next
Exit
EndIf
If $radio6 And BitAND(GUICtrlRead($radio6), $GUI_CHECKED) = $GUI_CHECKED Then
MsgBox(0,"Dieip-โจมตี","อับแฝงโจมตีไม่จำกัดครั้ง")
for $i =1 To 9999
If PixelGetColor(945, 362) = 0x09E60C Then
MouseClick("left",739,636,1,99)
Sleep(400)
EndIf
If PixelGetColor(945, 371) = 0xDD0202 Then
MouseClick("left",840,639,1,99)
Sleep(400)
EndIf
If PixelGetColor(881, 373) = 0xFFFFFF Then
MouseClick("left",739,636,1,99)
Sleep(400)
EndIf
Sleep(450)
MouseClick("left",791,634,1,99)
Sleep(450)
Next
Exit
EndIf
EndFunc
Func d02()
If $radio1 And BitAND(GUICtrlRead($radio1), $GUI_CHECKED) = $GUI_CHECKED Then
MsgBox(0,"Dieip-ป้องกัน","อับแฝงป้องกัน 1200 ครั้ง")
for $i =1 To 1200
If PixelGetColor(945, 389) = 0x09E60C Then
MouseClick("left",739,636,1,99)
Sleep(400)
EndIf
If PixelGetColor(945, 397) = 0xDD0202 Then
MouseClick("left",840,639,1,99)
Sleep(400)
EndIf
If PixelGetColor(881, 399) = 0xFFFFFF Then
MouseClick("left",739,636,1,99)
Sleep(400)
EndIf
Sleep(450)
MouseClick("left",791,634,1,99)
Sleep(450)
Next
Exit
EndIf
If $radio2 And BitAND(GUICtrlRead($radio2), $GUI_CHECKED) = $GUI_CHECKED Then
MsgBox(0,"Dieip-ป้องกัน","อับแฝงป้องกัน 2400 ครั้ง")
for $i =1 To 2400
If PixelGetColor(945, 389) = 0x09E60C Then
MouseClick("left",739,636,1,99)
Sleep(400)
EndIf
If PixelGetColor(945, 397) = 0xDD0202 Then
MouseClick("left",840,639,1,99)
Sleep(400)
EndIf
If PixelGetColor(881, 399) = 0xFFFFFF Then
MouseClick("left",739,636,1,99)
Sleep(400)
EndIf
Sleep(450)
MouseClick("left",791,634,1,99)
Sleep(450)
Next
Exit
EndIf
If $radio3 And BitAND(GUICtrlRead($radio3), $GUI_CHECKED) = $GUI_CHECKED Then
MsgBox(0,"Dieip-ป้องกัน","อับแฝงป้องกัน 3600 ครั้ง")
for $i =1 To 3600
If PixelGetColor(945, 389) = 0x09E60C Then
MouseClick("left",739,636,1,99)
Sleep(400)
EndIf
If PixelGetColor(945, 397) = 0xDD0202 Then
MouseClick("left",840,639,1,99)
Sleep(400)
EndIf
If PixelGetColor(881, 399) = 0xFFFFFF Then
MouseClick("left",739,636,1,99)
Sleep(400)
EndIf
Sleep(450)
MouseClick("left",791,634,1,99)
Sleep(450)
Next
Exit
EndIf
If $radio4 And BitAND(GUICtrlRead($radio4), $GUI_CHECKED) = $GUI_CHECKED Then
MsgBox(0,"Dieip-ป้องกัน","อับแฝงป้องกัน 4800 ครั้ง")
for $i =1 To 4800
If PixelGetColor(945, 389) = 0x09E60C Then
MouseClick("left",739,636,1,99)
Sleep(400)
EndIf
If PixelGetColor(945, 397) = 0xDD0202 Then
MouseClick("left",840,639,1,99)
Sleep(400)
EndIf
If PixelGetColor(881, 399) = 0xFFFFFF Then
MouseClick("left",739,636,1,99)
Sleep(400)
EndIf
Sleep(450)
MouseClick("left",791,634,1,99)
Sleep(450)
Next
Exit
EndIf
If $radio5 And BitAND(GUICtrlRead($radio5), $GUI_CHECKED) = $GUI_CHECKED Then
MsgBox(0,"Dieip-ป้องกัน","อับแฝงป้องกัน 6000 ครั้ง")
for $i =1 To 6000
If PixelGetColor(945, 389) = 0x09E60C Then
MouseClick("left",739,636,1,99)
Sleep(400)
EndIf
If PixelGetColor(945, 397) = 0xDD0202 Then
MouseClick("left",840,639,1,99)
Sleep(400)
EndIf
If PixelGetColor(881, 399) = 0xFFFFFF Then
MouseClick("left",739,636,1,99)
Sleep(400)
EndIf
Sleep(450)
MouseClick("left",791,634,1,99)
Sleep(450)
Next
Exit
EndIf
If $radio6 And BitAND(GUICtrlRead($radio6), $GUI_CHECKED) = $GUI_CHECKED Then
MsgBox(0,"Dieip-ป้องกัน","อับแฝงป้องกัน ไม่จำกัดครั้ง")
for $i =1 To 9999
If PixelGetColor(945, 389) = 0x09E60C Then
MouseClick("left",739,636,1,99)
Sleep(400)
EndIf
If PixelGetColor(945, 397) = 0xDD0202 Then
MouseClick("left",840,639,1,99)
Sleep(400)
EndIf
If PixelGetColor(881, 399) = 0xFFFFFF Then
MouseClick("left",739,636,1,99)
Sleep(400)
EndIf
Sleep(450)
MouseClick("left",791,634,1,99)
Sleep(450)
Next
Exit
EndIf
EndFunc