Question

VB怎样模拟按键

哪位大哥会的加一下我的QQ帮我一下嘛2-2-9-3-5-5-6-6-2

Answer 1

Private Sub Timer1_Timer()
Static i As Integer
i = i + 1
If Check1.Value = 1 Then
If Label1.Caption = Text1.Text * (i + 1) Then
SendKeys "{TAB}"
End If
End If
End Sub

追问

Check1打钩之后不要直接执行额 要加个快捷键
比如打钩了 然后按下end在开始执行 1000=1秒

还有这句：If Label1.Caption = Text1.Text * (i + 1) Then 会出现
实时错误13
类型不匹配

还有个问题就是 我模拟了按键 然后整个程序卡死了。

追答

text1.text=15000
label1.caption=150000

追问

我要的是Check1打钩之后不要直接执行额 要加个快捷键，
比如打上钩是等于一个等待的状态，不管什么时候按下快捷键ned在开始执行text1里面的内容
text1里面的内容是5000也就是5秒，易语言里面是1000=1秒 VB不知道是不是
然后比如5000=5秒 时间到了5秒就提示“时间到”
Label1标题是秒数走动的状态 比如00 01 02 03 04 05这样跳动

我觉得够详细了哦。。

追答

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = VK_END Then
Timer1.Enabled = True
End If
End Sub
Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
If KeyCode = VK_END Then
Timer1.Enabled = True
End If
End Sub
Private Sub Form_Load()
Timer1.Enabled = False
End Sub
Private Sub Timer1_Timer()
Static i As Integer
i = i + 1
Label1.Caption = Format(i, "00")
If Check1.Value = 1 Then
If Format(Text1.Text, "00") = Label1.Caption Then
SendKeys "{TAB}"
MsgBox "时间到"
i = 0
End If
End If
End Sub

Answer 2

if check1.value=1 then sendkeys "{TAB}"