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

รู้สึกว่าจะมีปัญหากับคำสั่งมากๆตอนนี้
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

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