ฟอรั่ม PSsix

Would you like to react to this message? Create an account in a few clicks or log in to continue.

ฟอรั่มของบล็อก http://pssix.blogspot.com


    รบกวนช่วยตอบปัญหานี้ที่นะครับ

    avatar
    chocoberer
    มือใหม่เพิ่งสมัคร
    มือใหม่เพิ่งสมัคร


    รบกวนช่วยตอบปัญหานี้ที่นะครับ Empty รบกวนช่วยตอบปัญหานี้ที่นะครับ Empty
    จำนวนข้อความ : 4
    ความนิยม : 0
    เข้าร่วมเมื่อ : 02/02/2014

    รบกวนช่วยตอบปัญหานี้ที่นะครับ Empty รบกวนช่วยตอบปัญหานี้ที่นะครับ

    ตั้งหัวข้อ by chocoberer 09/05/14, 06:45 pm

    #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

      เวลาขณะนี้ 09/05/24, 12:39 am