如何關閉楓之谷啟動視窗(免按Play)

楓之谷啟動視窗怎麼關閉呢?當然是ESC,也就是關閉視窗的意思
所以我們不能幹掉進程,不然遊戲就被關掉了...
這時候就要叫視窗關閉啊~
所以用PostMessage

1. Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
   
2. Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
   
3. Private Const WM_CLOSE = &H10
   
4. 
   
5. Private Sub Timer1_Timer()
   
6. Dim hwn As Long
   
7. hwn = FindWindow("StartUpDlgClass", "MapleStory")
   
8. PostMessage hwn, WM_CLOSE, 0, 0
   
9. End Sub