冰楓論壇

標題: (已解決)關於VB6製作後台按鍵 [打印本頁]

作者: qwas963563 時間: 2016-7-3 22:02
標題: (已解決)關於VB6製作後台按鍵
本帖最後由 qwas963563 於 2016-7-9 20:09 編輯

這些是我用按鍵精靈寫的為了方便我寫成後台去玩別的遊戲但我玩的遊戲剛好防按鍵精靈
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 時間: 2016-7-6 00:33
本帖最後由 qwas963563 於 2016-7-6 00:34 編輯

我有找到一些關於後台按鍵的語法
但夜神模擬器
调用方法：后台模拟按键句柄，键码值
模块：
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函數卻找不到

歡迎光臨冰楓論壇 (https://bingfong.com/)