看流星社区

 找回密码
 注册账号
查看: 3130|回复: 3

[VB] 冒险岛的模拟按键问题

[复制链接]

该用户从未签到

发表于 2011-4-7 07:48:05 | 显示全部楼层 |阅读模式
Option Explicit
Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)

Private Sub Form_Load()
    Timer1.Interval = 10000  'N键上的技能
    Timer2.Interval = 10000  'V键上的技能
    Timer3.Interval = 10000  'B键上的技能
     
    Dim ReturnValue, I
    ReturnValue = Shell("D:\Program Files\新建文件夹\MapleStory.exe", 1)
    AppActivate ReturnValue
End Sub

Private Sub Timer1_Timer()
    Call keybd_event(78, 0, 0, 0)
End Sub

Private Sub Timer2_Timer()
    Call keybd_event(86, 0, 0, 0)
End Sub

Private Sub Timer3_Timer()
    Call keybd_event(66, 0, 0, 0)
End Sub



执行到这里    AppActivate ReturnValue    会出错不能进行下去,请高手指点为什么错的
要怎样解决的?

该用户从未签到

发表于 2011-4-7 07:48:17 | 显示全部楼层
额``看不到问题出在哪``主要偶不是玩冒险的``

该用户从未签到

发表于 2011-4-7 07:48:26 | 显示全部楼层
Dim ReturnValue, I
    ReturnValue = Shell("D:\Program Files\新建文件夹\MapleStory.exe", 1)
    AppActivate ReturnValue

应该是获得窗口句柄这里错了吧,VB里好像是通过标题或PID获得句柄的,SHELL我没用过,回去研究下

该用户从未签到

发表于 2011-4-7 07:48:34 | 显示全部楼层
不要继续了keybd_event对冒险已失效
点击按钮快速添加回复内容: 支持 高兴 激动 给力 加油 苦寻 生气 回帖 路过 感恩
您需要登录后才可以回帖 登录 | 注册账号

本版积分规则

小黑屋|手机版|Archiver|看流星社区 |网站地图

GMT+8, 2024-3-29 05:19

Powered by Kanliuxing X3.4

© 2010-2019 kanliuxing.com

快速回复 返回顶部 返回列表