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


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

Share

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


จำนวนข้อความ : 19
ความนิยม : 0
เข้าร่วมเมื่อ : 23/01/2014
อายุ : 22

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

ตั้งหัวข้อ by potaenakrab on 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
PSsix Member Class II
PSsix Member Class II


จำนวนข้อความ : 49
ความนิยม : 9
เข้าร่วมเมื่อ : 18/10/2013

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

ตั้งหัวข้อ by yoyokungzz on 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
PSsix Member Class II
PSsix Member Class II


จำนวนข้อความ : 49
ความนิยม : 9
เข้าร่วมเมื่อ : 18/10/2013

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

ตั้งหัวข้อ by yoyokungzz on 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
สมาชิกทั่วไป
สมาชิกทั่วไป


จำนวนข้อความ : 19
ความนิยม : 0
เข้าร่วมเมื่อ : 23/01/2014
อายุ : 22

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

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

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

    เวลาขณะนี้ 11/12/16, 08:49 pm