(已解決)關於VB6製作後台按鍵

qwas963563

這些是我用按鍵精靈寫的 為了方便我寫成後台 去玩別的遊戲 但我玩的遊戲剛好防按鍵精靈
Dim a
a = Plugin.Window.GetKeyFocusWnd()
Rem x
Call Plugin.Bkgnd.KeyDown(a, 17)
Delay 50
Call Plugin.Bkgnd.KeyDown(a, 48)
Delay 50
Call Plugin.Bkgnd.KeyUp(a, 17)
Delay 50
Call Plugin.Bkgnd.KeyUp(a, 48)
Delay 2000
Goto x
所以我想寫成VB6來用這樣應該就不會被偵測到了

會的麻煩教我一下
我是要用在夜神模擬器

qwas963563

我有找到一些關於後台按鍵的語法
但夜神模擬器
调用方法：后台模拟按键 句柄，键码值  
模块：  
Public 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
Public Const WM_KEYDOWN = &H100
Public Const WM_KEYUP = &H101
Public Sub 后台模拟按键(ByVal 句柄 As Long,byval 要模拟的键码值 as integer)     '这里的键码举例：小写a为65 ，b为66   PostMessage 句柄, WM_KEYDOWN, 要模拟的键码值, 0&
End Sub
但那個句柄卻用Findwindow函數卻找不到