Code
HotKeySet("{F2}", "hide1");สั่งซ่อนจอ
HotKeySet("{F3}", "show1");สั่งแสดงจอ
HotKeySet("{ESC}", "end");สั่งปิดโปรแกรม
While 1
Tooltip("")
WEnd
Func start()
Run("D:\Program Files\Nox\bin\Nox.exe");สั่งเปิดโปรแกรม Nox Player
WinWait("NoxPlayer","",10);สั่งให้รอโปรแกรม NoxPlayer ติดขึ้นมาก่อนทำคำสั่งถัดไป รอเป็นเวลา10วินาที
WinActive("NoxPlayer","");สั่งให้เด้งหน้า NoxPlayer ขึ้นมาเผื่อโดนโปรแกรมอื่นบังอยู่
If WinActivate("NoxPlayer","") Then;สร้างเงื่อไขขึ้น มาเช็คว่า NoxPlayer ถูกเปิดแล้วจริงไหมถ้าจริง จะแสดง MsgBox มาบอก
MsgBox(0,"เช็คNoxPlayer","เปิด NoxPlayer สำเร็จแล้วหละ");ถ้าเข้าเงื่อนไขจะแสดง MsgBox อันนี้อาจเปลี่ยนเป็นสั่งเปิดเกมหรือแอปได้แล้วแต่ประยุกต์ใช้นะ
EndIf
EndFunc
Func hide1()
WinSetState("NoxPlayer","",@SW_HIDE);สั่งซ่อน NoxPlayer
EndFunc
Func show1()
WinSetState("NoxPlayer","",@SW_SHOW);สั่งแสดง NoxPlayer
EndFunc
Func end()
Exit
EndFunc
0 ความคิดเห็น