ฟอรั่ม 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
    bankzazaos1
    มือใหม่เพิ่งสมัคร
    มือใหม่เพิ่งสมัคร


    ช้วยดูโคด ให้ ที ว่า จะ เขียน ยังใงให้ มันทำงาน ให้ พร้อม กัน Empty ช้วยดูโคด ให้ ที ว่า จะ เขียน ยังใงให้ มันทำงาน ให้ พร้อม กัน Empty
    จำนวนข้อความ : 2
    ความนิยม : 0
    เข้าร่วมเมื่อ : 05/10/2012

    ช้วยดูโคด ให้ ที ว่า จะ เขียน ยังใงให้ มันทำงาน ให้ พร้อม กัน Empty ช้วยดูโคด ให้ ที ว่า จะ เขียน ยังใงให้ มันทำงาน ให้ พร้อม กัน

    ตั้งหัวข้อ by bankzazaos1 14/08/14, 03:19 pm

    em230 ไม่ทารว่า ยังจะมีคน เข้ามา บอดร์ นี่ไหม
    ผมได้เขียน โปรแกรมช้วยเล้น เกมส์ มาตัว 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 พอได้ไหม

      เวลาขณะนี้ 28/03/24, 09:40 pm