ไม่ทารว่า ยังจะมีคน เข้ามา บอดร์ นี่ไหม
ผมได้เขียน โปรแกรมช้วยเล้น เกมส์ มาตัว 1
แต่ปัญหาคือ มันไช้ได ทีละ ฟังช้น ผมอยาก ไช้หลายๆ ฟังช้น ด้วยกัน
ช้วยดูโคด ให้ที ว่า อะไรมันผิดไป
คือผม อยาก ไช้งาน $BOT_A และ $Right_click_Start ไปพร้อมๆ กัน แต่ ผม รัน ดูแล้ว มันทำ แค่ อันเดียว อิก อันมันไม่ทำอยากให้ มัน ไช้ได้ พร้อม กัน หมด ทุก ฟังช้น อะครับ
#include ButtonConstants.au3
#include GUIConstantsEx.au3
#include ProgressConstants.au3
#include StaticConstants.au3
#include WindowsConstants.au3
Global $GameHD
Global $Paused
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Auto Skill_BY...BTN", 585, 195, 192, 124)
$BOT_A = GUICtrlCreateButton("BOT_A", 16, 152, 123, 25)
GUICtrlSetBkColor(-1, 0x00FF00)
$BOT_B = GUICtrlCreateButton("BOT_B", 152, 152, 123, 25)
GUICtrlSetBkColor(-1, 0x00FF00)
$Right_click_Start = GUICtrlCreateButton("เรี่มคลิกขวาไช้คู้กับ_BOT_A", 290, 152, 147, 25)
GUICtrlSetBkColor(-1, 0x00FF00)
$Progress1 = GUICtrlCreateProgress(40, 16, 230, 9)
GUICtrlSetBkColor(-1, 0x00FF00)
$Progress2 = GUICtrlCreateProgress(40, 32, 230, 9)
GUICtrlSetBkColor(-1, 0x00FF00)
$HP = GUICtrlCreateLabel("HP", 8, 16, 19, 17)
$MP = GUICtrlCreateLabel("MP", 8, 32, 20, 17)
$Anti_bot_protection_off = GUICtrlCreateButton("ป่องกันหลุดออกจากเกมส์ สำหรับ BOT_A", 360, 32, 211, 25)
GUICtrlSetBkColor(-1, 0x00FF00)
$Check_the_HP_And_MP = GUICtrlCreateButton("ตราจสอบระดับHPและMP", 360, 0, 211, 25)
GUICtrlSetBkColor(-1, 0x00FF00)
$Close = GUICtrlCreateButton("Close", 448, 152, 123, 25)
GUICtrlSetBkColor(-1, 0x00FF00)
$Check_the_HP_And_MP__Status_is_enabled = GUICtrlCreateLabel("สถานะตวาจสอบ: HPและMP ยังไม่เปิดไช้งาน", 32, 56, 223, 17)
GUICtrlSetColor(-1, 0xFF0000)
$Anti_bot_protection_off1 = GUICtrlCreateLabel("ฟังช้่น ป่องกันหลุดออกจากเกมส์ คลิกแค่ครั้งเดียวนะครับ", 32, 88, 270, 41)
GUICtrlSetColor(-1, 0xFF0000)
$Anti_bot_protection_off1 = GUICtrlCreateButton("ป่องกันหลุดออกจากเกมส์ สำหรับ BOT_B", 360, 64, 211, 25)
GUICtrlSetBkColor(-1, 0x00FF00)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
Func _PSsixLoadH($gtitle)
$GameHD = WinGetHandle($gtitle)
If @error Then
MsgBox(4096, "BY...BTN", "ไม่พบหน้าต่างเกม")
Sleep(5000)
Exit
Else
Return 1
EndIf
EndFunc
If _PSsixLoadH("Ran-Online") Then WinActivate($GameHD)
HotKeySet("{F10}", "stop")
HotKeySet("{F9}","Pause")
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Form1
Case $Form1
Case $Form1
Case $Form1
Case $BOT_A
While 2
Send ("1")
Sleep(500)
Send ("2")
Sleep(500)
Send ("3")
Sleep(500)
Send ("4")
Sleep(500)
Send ("5")
Sleep(500)
Send("6")
Sleep(500)
Send ("7")
Sleep(500)
Send ("8")
Sleep(500)
Send ("9")
Sleep(500)
Send ("0")
Sleep(500)
WEnd
Case $BOT_B
While 3
Send ("1")
Sleep(500)
Send ("2")
Sleep(500)
Send ("3")
Sleep(500)
Send ("4")
Sleep(500)
Send ("5")
Sleep(500)
Send ("q")
Sleep(500)
Send ("w")
Sleep(500)
Send ("e")
Sleep(500)
Send ("r")
Sleep(500)
Send ("t")
Sleep(500)
WEnd
Case $Right_click_Start
While 4
MouseDown("right")
Sleep(100)
MouseUp("right")
WEnd
Case $HP
Case $MP
Case $Anti_bot_protection_off
While 5
Sleep(1300000)
if WinActive ($GameHD) then Send ("I")
Sleep(100)
if WinActive ($GameHD) then Send ("I")
Sleep(1500000)
if WinActive ($GameHD) then Send ("T")
Sleep(100)
if WinActive ($GameHD) then Send ("T")
WEnd
Case $Check_the_HP_And_MP
Case $Close
Exit
Case $Check_the_HP_And_MP__Status_is_enabled
Case $Anti_bot_protection_off1
While 6
Sleep(1300000)
if WinActive ($GameHD) then Send ("I")
Sleep(100)
if WinActive ($GameHD) then Send ("I")
Sleep(1500000)
if WinActive ($GameHD) then Send ("D")
Sleep(100)
if WinActive ($GameHD) then Send ("D")
WEnd
EndSwitch
WEnd
Func Pause()
$Paused = Not $Paused
While $Paused
Sleep(100)
ToolTip('พักการทำงาน BY...BTN', 0, 0)
WEnd
ToolTip("")
EndFunc ;==>Pause")")
Func stop()
ToolTip('หยุดการทำงาน BY...BTN', 0, 0)
Sleep(500)
Exit
EndFunc
และท้า ผม จะนำค่าจาก แอดเดร CE มา แสดงใน GUICtrlCreateProgress พอได้ไหม
ผมได้เขียน โปรแกรมช้วยเล้น เกมส์ มาตัว 1
แต่ปัญหาคือ มันไช้ได ทีละ ฟังช้น ผมอยาก ไช้หลายๆ ฟังช้น ด้วยกัน
ช้วยดูโคด ให้ที ว่า อะไรมันผิดไป
คือผม อยาก ไช้งาน $BOT_A และ $Right_click_Start ไปพร้อมๆ กัน แต่ ผม รัน ดูแล้ว มันทำ แค่ อันเดียว อิก อันมันไม่ทำอยากให้ มัน ไช้ได้ พร้อม กัน หมด ทุก ฟังช้น อะครับ
#include ButtonConstants.au3
#include GUIConstantsEx.au3
#include ProgressConstants.au3
#include StaticConstants.au3
#include WindowsConstants.au3
Global $GameHD
Global $Paused
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Auto Skill_BY...BTN", 585, 195, 192, 124)
$BOT_A = GUICtrlCreateButton("BOT_A", 16, 152, 123, 25)
GUICtrlSetBkColor(-1, 0x00FF00)
$BOT_B = GUICtrlCreateButton("BOT_B", 152, 152, 123, 25)
GUICtrlSetBkColor(-1, 0x00FF00)
$Right_click_Start = GUICtrlCreateButton("เรี่มคลิกขวาไช้คู้กับ_BOT_A", 290, 152, 147, 25)
GUICtrlSetBkColor(-1, 0x00FF00)
$Progress1 = GUICtrlCreateProgress(40, 16, 230, 9)
GUICtrlSetBkColor(-1, 0x00FF00)
$Progress2 = GUICtrlCreateProgress(40, 32, 230, 9)
GUICtrlSetBkColor(-1, 0x00FF00)
$HP = GUICtrlCreateLabel("HP", 8, 16, 19, 17)
$MP = GUICtrlCreateLabel("MP", 8, 32, 20, 17)
$Anti_bot_protection_off = GUICtrlCreateButton("ป่องกันหลุดออกจากเกมส์ สำหรับ BOT_A", 360, 32, 211, 25)
GUICtrlSetBkColor(-1, 0x00FF00)
$Check_the_HP_And_MP = GUICtrlCreateButton("ตราจสอบระดับHPและMP", 360, 0, 211, 25)
GUICtrlSetBkColor(-1, 0x00FF00)
$Close = GUICtrlCreateButton("Close", 448, 152, 123, 25)
GUICtrlSetBkColor(-1, 0x00FF00)
$Check_the_HP_And_MP__Status_is_enabled = GUICtrlCreateLabel("สถานะตวาจสอบ: HPและMP ยังไม่เปิดไช้งาน", 32, 56, 223, 17)
GUICtrlSetColor(-1, 0xFF0000)
$Anti_bot_protection_off1 = GUICtrlCreateLabel("ฟังช้่น ป่องกันหลุดออกจากเกมส์ คลิกแค่ครั้งเดียวนะครับ", 32, 88, 270, 41)
GUICtrlSetColor(-1, 0xFF0000)
$Anti_bot_protection_off1 = GUICtrlCreateButton("ป่องกันหลุดออกจากเกมส์ สำหรับ BOT_B", 360, 64, 211, 25)
GUICtrlSetBkColor(-1, 0x00FF00)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
Func _PSsixLoadH($gtitle)
$GameHD = WinGetHandle($gtitle)
If @error Then
MsgBox(4096, "BY...BTN", "ไม่พบหน้าต่างเกม")
Sleep(5000)
Exit
Else
Return 1
EndIf
EndFunc
If _PSsixLoadH("Ran-Online") Then WinActivate($GameHD)
HotKeySet("{F10}", "stop")
HotKeySet("{F9}","Pause")
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Form1
Case $Form1
Case $Form1
Case $Form1
Case $BOT_A
While 2
Send ("1")
Sleep(500)
Send ("2")
Sleep(500)
Send ("3")
Sleep(500)
Send ("4")
Sleep(500)
Send ("5")
Sleep(500)
Send("6")
Sleep(500)
Send ("7")
Sleep(500)
Send ("8")
Sleep(500)
Send ("9")
Sleep(500)
Send ("0")
Sleep(500)
WEnd
Case $BOT_B
While 3
Send ("1")
Sleep(500)
Send ("2")
Sleep(500)
Send ("3")
Sleep(500)
Send ("4")
Sleep(500)
Send ("5")
Sleep(500)
Send ("q")
Sleep(500)
Send ("w")
Sleep(500)
Send ("e")
Sleep(500)
Send ("r")
Sleep(500)
Send ("t")
Sleep(500)
WEnd
Case $Right_click_Start
While 4
MouseDown("right")
Sleep(100)
MouseUp("right")
WEnd
Case $HP
Case $MP
Case $Anti_bot_protection_off
While 5
Sleep(1300000)
if WinActive ($GameHD) then Send ("I")
Sleep(100)
if WinActive ($GameHD) then Send ("I")
Sleep(1500000)
if WinActive ($GameHD) then Send ("T")
Sleep(100)
if WinActive ($GameHD) then Send ("T")
WEnd
Case $Check_the_HP_And_MP
Case $Close
Exit
Case $Check_the_HP_And_MP__Status_is_enabled
Case $Anti_bot_protection_off1
While 6
Sleep(1300000)
if WinActive ($GameHD) then Send ("I")
Sleep(100)
if WinActive ($GameHD) then Send ("I")
Sleep(1500000)
if WinActive ($GameHD) then Send ("D")
Sleep(100)
if WinActive ($GameHD) then Send ("D")
WEnd
EndSwitch
WEnd
Func Pause()
$Paused = Not $Paused
While $Paused
Sleep(100)
ToolTip('พักการทำงาน BY...BTN', 0, 0)
WEnd
ToolTip("")
EndFunc ;==>Pause")")
Func stop()
ToolTip('หยุดการทำงาน BY...BTN', 0, 0)
Sleep(500)
Exit
EndFunc
และท้า ผม จะนำค่าจาก แอดเดร CE มา แสดงใน GUICtrlCreateProgress พอได้ไหม