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


รู้สึกว่าจะมีปัญหากับคำสั่งมากๆตอนนี้

Share

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


จำนวนข้อความ : 4
ความนิยม : 0
เข้าร่วมเมื่อ : 03/10/2015

รู้สึกว่าจะมีปัญหากับคำสั่งมากๆตอนนี้

ตั้งหัวข้อ by koshiro on 30/10/15, 07:31 pm

รู้สึกว่าจะมีปัญหากับคำสั่งมากๆตอนนี้
1.  WinActivate ('ชื่อโปรแกรม') ; หรือ
    If _PSsixLoadH("ชื่อโปรแกรม") Then WinActivate($GameHD) ;
สองคำสั่งนี้จะตรวจสอบแค่ตอนรัน .exe ครั้งแรกแค่นั้นหรือเปล่า
หากรัน .exe แล้วไม่เจอโปรแกรมที่ระบุ ก็จะแสดงข้อความตามที่ตั้งไว้ หากเจอก็จะทำงานตามตัวโปรแกรม และพอลองคลิ๊กไปที่โปรแกรมอื่น ชื่ออื่น อ้าวโปรแกรมยังทำงานเหมือนเดิมตั้งกดปุ่ม ตั้งคลิ๊กยังไงก็ยังงั้น แสดงว่าหน้าต่างไหน Active มันทำงานหมดเหมือนเดิม - -

2.  HotKeySet("{end}", "_stop"
คำสั้งนี้ใช้หยุดโปรแกรมชั่วคราว กดปุ่ม end หรือปุ่มอื่นๆตามที่ตั้งค่าไว้ จะขึ้นสถานะ "stopped" ตามให้ตั้งไว้
แต่!!! โปรแกรมไม่ยอมหยุดทำงาน แต่นานๆครั้งมันก็หยุดนี่สิ มันยังไงโปรแกรมเดียวกัน
ส่วนปุ่มสั่ง start ,exit ไม่มีปัญหาใดๆ

3.  for $i = 1 to 99
คำสั่งนี้พอตั้งเวลาไว้เยอะๆ มันดันไม่ทำงาน
If $stop Then ExitLoop
for $i = 1 to 99  มันได้สูงสุดเท่าไหร่นะ ลอง 500 ก็นิ่งสนิทเลย ไม่ยอมกด 9 ให้
Send("{1 down}")
sleep(500)
Send("{1 up}")
sleep(500)
Send("{2 down}")
sleep(500)
Send("{2 up}")
sleep(500)         ถ้าตั้งให้กดปุ่มตรงนี้เยอะกว่านี้ก็ดัน ไม่ กดปุ่ม 9 ให้อีกเฮ้อ

Next
Send("{9 up}")
sleep(500)
Send("{9 down}")
sleep(500)

4.  คำสั่ง ControlSend($GameHD, "", "", "1") ;สั่งกดปุ่ม 1
อ้างอิงจาก [You must be registered and logged in to see this link.]
........................................ไม่ทำงานอีกละ ลองทั้ง note pad ,word หรือเกมส์นิ่งสนิท


5.  ทั้งหมดทั้งมวลนี้คอมไพล์ 32 บิตนะ พอ 64 บิตนี้เด้งฟ้องหยุดทำงานอย่างเดียวเลยทั้งที่ก็ใช้ win7 64 บิตแล้วนะ
ยังไม่ทันได้ไปขั้นสูงหาค่าสีไรเลยก็ติดปัญหาซะละ T_T Help Me.....
Global $GameHD ;

Func _PSsixLoadH($gtitle) ;
$GameHD = WinGetHandle($gtitle) ;
If @error Then
MsgBox(4096, "Error", "Unknow") ;
Else
Return 1
EndIf
EndFunc

If _PSsixLoadH("Untitled - Notepad") Then WinActivate($GameHD) ;

HotKeySet("{F7}", "_start")
HotKeySet("{end}", "_stop")
HotKeySet("{F8}", "_exit")
$stop = False

While 1
Sleep(100)
WEnd

Func _start()
ToolTip("started")
While 1
If $stop Then ExitLoop
for $i = 1 to 99
Send("{1 down}")
sleep(500)
Send("{1 up}")
sleep(500)
Send("{2 down}")
sleep(500)
Send("{2 up}")
sleep(500)

Next
Send("{9 up}")
sleep(500)
Send("{9 down}")
sleep(500)

WEnd
ToolTip("stopped")
$stop = False
EndFunc

Func _stop()
$stop = True
EndFunc

Func _exit()
Exit
EndFunc

test_music
PSsix Member Class II
PSsix Member Class II


จำนวนข้อความ : 41
ความนิยม : 7
เข้าร่วมเมื่อ : 05/08/2013

Re: รู้สึกว่าจะมีปัญหากับคำสั่งมากๆตอนนี้

ตั้งหัวข้อ by test_music on 19/01/16, 06:18 pm

แก้ไขการเข้าใจ code ผิด em228

    เวลาขณะนี้ 26/09/17, 05:59 pm