- 注册时间
- 2011-3-6
- 最后登录
- 1970-1-1
该用户从未签到
|
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 会出错不能进行下去,请高手指点为什么错的
要怎样解决的? |
|