皮皮网

1.想用VB做一个自动打怪程序
2.为什么用VB写游戏连发程序用sendkeys不生效

想用VB做一个自动打怪程序

       很简单

       1个timer控件,打怪interval=,一个按钮控件````用vb6.0

       算了,给你个代码自己去研究吧.....

       Dim x As Integer

       Private Sub Command1_Click()

       Timer1.Interval = IIf(Timer1.Interval = 0, , 0) '一秒钟一次

       Command1.Caption = IIf(Command1.Caption = "结束", "开始", "结束")

       End Sub

       Private Sub Timer1_Timer()

       x = x + 1: If x = Then x = 0

       If x Mod = 0 Then SendKeys "1" '小键盘上的数字1

       If x Mod 8 = 0 Then SendKeys "3"

       If x Mod 6 = 0 Then SendKeys "2"

       End Sub

       前提是你的游戏必须有焦点啊,这样发送的键子才能让你的游戏收到````

为什么用VB写游戏连发程序用sendkeys不生效

       不是被HOOK了，而是源码s游被无视了。

       如果是戏打源码删除DirectX游戏一般你会失败，因为DirectX的打怪游戏为了追求最少的按键延迟，会用DirectInput库：它是源码s游cloud项目源码分享会绕过Windows消息——直接读取端口的。

       而用SendKeys只是戏打倒锤星源码给Windows发送消息罢了（Key_Event也是），他根本不睬你:)。打怪只有真正的源码s游对端口的读写才有用。（按键精灵就是戏打）

       推荐你搜索下“WINIO”。这是打怪一个端口读写的DLL，他的源码s游例子里面有VB的例子。

       （注意：用WINIO必须编译以后用，戏打否则会报初始化失败的打怪gooderp读取源码收费错误）