ฟอรั่ม 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


2 posters

    สอบถามเรื่องโค๊ด Pause & Remember

    potaenakrab
    potaenakrab
    สมาชิกทั่วไป
    สมาชิกทั่วไป


    สอบถามเรื่องโค๊ด Pause & Remember Empty สอบถามเรื่องโค๊ด Pause & Remember Empty
    จำนวนข้อความ : 19
    ความนิยม : 0
    เข้าร่วมเมื่อ : 23/01/2014
    อายุ : 29

    สอบถามเรื่องโค๊ด Pause & Remember Empty สอบถามเรื่องโค๊ด Pause & Remember

    ตั้งหัวข้อ by potaenakrab 29/01/14, 03:25 pm

    ผมมีปัญหาตรงที่ว่ากด ESC แล้วมันออกโปรแกรมให้เลย
    ผมอยากให้มัน Pause เหมือนกด ESC ครั้งแรก กดครั้งที่ 2 ให้ Remember ไม่ทรายว่าต้องใส่โค๊ดลงไปยังไง


    โค๊ดแบบนิ้



    Global $GameHD

    Func _PSsixLoadH($gtitle)
    $GameHD = WinGetHandle($gtitle)
    If @error Then
    MsgBox(4096, "Error", "ไม่พบหน้าต่างเกมส์")
    Else
    Return 1
    EndIf
    EndFunc

    If _PSsixLoadH("Glory Destiny Online") Then WinActivate($GameHD)

    HotKeySet("{ESC}", "pause")

    While 1
    if WinActive ($GameHD) then Send ("1")
    Sleep(10)
    if WinActive ($GameHD) then Send ("2")
    Sleep(10)
    if WinActive ($GameHD) then Send ("1")
    Sleep(10)
    if WinActive ($GameHD) then Send ("2")
    WEnd

    Func pause()
    MsgBox(0,"Pause ", "ออกโปรแกรม Bye Bye!!~")
    Sleep(50)
    Exit
    EndFunc
    yoyokungzz
    yoyokungzz
    PSsix Member Class II
    PSsix Member Class II


    สอบถามเรื่องโค๊ด Pause & Remember Empty สอบถามเรื่องโค๊ด Pause & Remember Empty
    จำนวนข้อความ : 49
    ความนิยม : 9
    เข้าร่วมเมื่อ : 18/10/2013

    สอบถามเรื่องโค๊ด Pause & Remember Empty Re: สอบถามเรื่องโค๊ด Pause & Remember

    ตั้งหัวข้อ by yoyokungzz 29/01/14, 05:28 pm

    Code:
    Global $GameHD
    [color=#ff3333]Global $Paused[/color]
    Func _PSsixLoadH($gtitle)
    $GameHD = WinGetHandle($gtitle)
    If @error Then
    MsgBox(4096, "Error", "ไม่พบหน้าต่างเกมส์")
    Else
    Return 1
    EndIf
    EndFunc

    If _PSsixLoadH("Glory Destiny Online") Then WinActivate($GameHD)

    HotKeySet("{ESC}", "pause")

    While 1
    if WinActive ($GameHD) then Send ("1")
    Sleep(10)
    if WinActive ($GameHD) then Send ("2")
    Sleep(10)
    if WinActive ($GameHD) then Send ("1")
    Sleep(10)
    if WinActive ($GameHD) then Send ("2")
    WEnd

    [color=#ff3333]Func pause()
       $Paused = Not $Paused
       While $Paused
          Sleep(500)
          ToolTip("Paused", 0, 0)
       WEnd
       ToolTip("")
    EndFunc[/color]
    yoyokungzz
    yoyokungzz
    PSsix Member Class II
    PSsix Member Class II


    สอบถามเรื่องโค๊ด Pause & Remember Empty สอบถามเรื่องโค๊ด Pause & Remember Empty
    จำนวนข้อความ : 49
    ความนิยม : 9
    เข้าร่วมเมื่อ : 18/10/2013

    สอบถามเรื่องโค๊ด Pause & Remember Empty Re: สอบถามเรื่องโค๊ด Pause & Remember

    ตั้งหัวข้อ by yoyokungzz 29/01/14, 05:30 pm

    อันนี้ครับ ผมก็หาได้มาจากในบ้านนี่แหละครับ ขอบคุณท่านพอส

    Global $GameHD
    Global $Paused
    Func _PSsixLoadH($gtitle)
    $GameHD = WinGetHandle($gtitle)
    If @error Then
    MsgBox(4096, "Error", "ไม่พบหน้าต่างเกมส์")
    Else
    Return 1
    EndIf
    EndFunc

    If _PSsixLoadH("Glory Destiny Online") Then WinActivate($GameHD)

    HotKeySet("{ESC}", "pause")

    While 1
    if WinActive ($GameHD) then Send ("1")
    Sleep(10)
    if WinActive ($GameHD) then Send ("2")
    Sleep(10)
    if WinActive ($GameHD) then Send ("1")
    Sleep(10)
    if WinActive ($GameHD) then Send ("2")
    WEnd

    Func pause()
      $Paused = Not $Paused
      While $Paused
         Sleep(500)
         ToolTip("Paused", 0, 0)
      WEnd
      ToolTip("")
    EndFunc
    potaenakrab
    potaenakrab
    สมาชิกทั่วไป
    สมาชิกทั่วไป


    สอบถามเรื่องโค๊ด Pause & Remember Empty สอบถามเรื่องโค๊ด Pause & Remember Empty
    จำนวนข้อความ : 19
    ความนิยม : 0
    เข้าร่วมเมื่อ : 23/01/2014
    อายุ : 29

    สอบถามเรื่องโค๊ด Pause & Remember Empty Re: สอบถามเรื่องโค๊ด Pause & Remember

    ตั้งหัวข้อ by potaenakrab 29/01/14, 11:56 pm

    คับผม ยังไงก็ขอบคุณมากนะคับ

      เวลาขณะนี้ 28/04/24, 06:22 pm