看流星社区 › 其它编程技术 › 冒险岛的模拟按键问题

bimuyu 发表于 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    会出错不能进行下去，请高手指点为什么错的
要怎样解决的？

szg9999 发表于 2011-4-7 07:48:17

额``看不到问题出在哪``主要偶不是玩冒险的``

zhangjian950617 发表于 2011-4-7 07:48:26

Dim ReturnValue, I
    ReturnValue = Shell("D:\Program Files\新建文件夹\MapleStory.exe", 1)
    AppActivate ReturnValue

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

sghfxp 发表于 2011-4-7 07:48:34

不要继续了keybd_event对冒险已失效

查看完整版本: 冒险岛的模拟按键问题