#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Outfile=ranking.exe
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
HotKeySet("{F2}", "_startProg") ; ตั้งปุ่ม F1 เริ่มทำงาน
HotKeySet("{END}","_stopProg") ; ปุ่ม ESC ออกจากโปรแกรม
HotKeySet("{F5}", "_pauseProg") ; ตั้งปุ่ม PAUSE หยุดพักสคริป
Global $Paused = False , $GameHD , $gtitle,$listP ; ประกาศตัวแปร เป็นแบบ Global
While 1 ; ใส่ลูปเพื่อให้โปรแกรมทำงานจนกว่า จะกดปุ่มใดๆ ที่ตั้งไว้
Sleep(200)
WEnd
Func _startProg() ;
If _PSsixLoadH("Ragnarok Online By Freelife") = 1 Then
playGame()
playGame1()
EndIf
EndFunc ; end function
Func _PSsixLoadH($gtitle)
$listP = ProcessList("freelife-client.exe")
If @error Then
MsgBox(4096, "Error", "ไม่พบเกม")
Else
Return 1
EndIf
EndFunc ; end function
Func playGame()
ControlSend("Ragnarok Online By Freelife", "", "", "{F2}")
Sleep(500)
EndFunc ; end function
Func playGame1()
ControlSend("Ragnarok Online By Freelife", "", "", "{F2}")
Sleep(500)
EndFunc ; end function
Func _pauseProg()
$Paused = NOT $Paused
While $Paused
sleep(100)
ToolTip('Script is "Paused"',0,0)
WEnd
ToolTip("")
EndFunc ; end function
Func _stopProg()
Exit 0
EndFunc ; end function
#AutoIt3Wrapper_Outfile=ranking.exe
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
HotKeySet("{F2}", "_startProg") ; ตั้งปุ่ม F1 เริ่มทำงาน
HotKeySet("{END}","_stopProg") ; ปุ่ม ESC ออกจากโปรแกรม
HotKeySet("{F5}", "_pauseProg") ; ตั้งปุ่ม PAUSE หยุดพักสคริป
Global $Paused = False , $GameHD , $gtitle,$listP ; ประกาศตัวแปร เป็นแบบ Global
While 1 ; ใส่ลูปเพื่อให้โปรแกรมทำงานจนกว่า จะกดปุ่มใดๆ ที่ตั้งไว้
Sleep(200)
WEnd
Func _startProg() ;
If _PSsixLoadH("Ragnarok Online By Freelife") = 1 Then
playGame()
playGame1()
EndIf
EndFunc ; end function
Func _PSsixLoadH($gtitle)
$listP = ProcessList("freelife-client.exe")
If @error Then
MsgBox(4096, "Error", "ไม่พบเกม")
Else
Return 1
EndIf
EndFunc ; end function
Func playGame()
ControlSend("Ragnarok Online By Freelife", "", "", "{F2}")
Sleep(500)
EndFunc ; end function
Func playGame1()
ControlSend("Ragnarok Online By Freelife", "", "", "{F2}")
Sleep(500)
EndFunc ; end function
Func _pauseProg()
$Paused = NOT $Paused
While $Paused
sleep(100)
ToolTip('Script is "Paused"',0,0)
WEnd
ToolTip("")
EndFunc ; end function
Func _stopProg()
Exit 0
EndFunc ; end function