现在用构造虚拟键扫描码的键鼠模拟方式能骗过多少游戏的检测？？

mumu940307

现在用构造虚拟键扫描码的键鼠模拟方式能骗过多少游戏的检测？？

Tc模拟键鼠的方式构造了虚拟键扫描码吗？？？



Option Explicit
Private Declare Function PostMessage Lib "USER32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Declare Function MapVirtualKey Lib "USER32" Alias "MapVirtualKeyA" (ByVal wCode As Long, ByVal wMapType As Long) As Long
Private Const WM_KEYDOWN = &H100
Private Const WM_KEYUP = &H101
Private Const WM_CHAR = &H102
'//构造扫描码
Private Function MakeKeyLparam(ByVal VirtualKey As Long, ByVal flag As Long) As Long
     Dim s As String
     Dim Firstbyte As String     'lparam参数的24-31位
     If flag = WM_KEYDOWN Then   '如果是按下键
         Firstbyte = "00"
     Else
         Firstbyte = "C0"        '如果是释放键
     End If
     Dim Scancode As Long
     '获得键的扫描码
     Scancode = MapVirtualKey(VirtualKey, 0)
     Dim Secondbyte As String    'lparam参数的16-23位，即虚拟键扫描码
     Secondbyte = right("00" & Hex(Scancode), 2)
     s = Firstbyte & Secondbyte & "0001"   '0001为lparam参数的0-15位，即发送次数和其它扩展信息
     MakeKeyLparam = Val("&H" & s)
End Function
Public Function PostKeyDown(wHandle As Long, KeyCode As Long) '//发送按键
     PostMessage wHandle, WM_KEYDOWN, KeyCode, MakeKeyLparam(KeyCode, WM_KEYDOWN) '按下某键
End Function
Public Function PostKeyUp(wHandle As Long, KeyCode As Long) '//发送按键
     PostMessage wHandle, WM_KEYUP, KeyCode, MakeKeyLparam(KeyCode, WM_KEYUP)    '释放某键
End Function

我是冰冻的番茄

好想法，鼠标的键码是多少呢

jimye0526

都说跟tc的提交按键一样，他估计也是吧参数都写全了的，扫描码什么都写了的，你可以去找老大直接问啊

而且消息模拟基本对大部分网游作用不大，大部分游戏键盘基本都是dx的，鼠标可能是支持消息模拟。

mumu940307

回复 3楼jimye0526的帖子

我用大漠绑定键盘窗口dx模式游戏直接关了。。。。。。看来是误解了     361插件有不支持按键精灵以外的。。。。破游戏只有用361度插件的kmtransform函数转换窗口才能后台模拟键盘按键

jimye0526

回复 4楼mumu940307的帖子

不是还有天使么