Question

怎样用VB控制鼠标和键盘？

我要的是实例！我知道得用API来控制但具体的语以句格式是什么？？？

Answer 1

Dim i%
Private Sub Command1_Click()
If Text1.Text = "" Then
Call MsgBox("TEXT内容不能为空！", vbExclamation, "提示")
Else
i = i + 1
If i Mod 2 = 0 Then
Timer1.Enabled = False: Command1.Caption = "开始"
Else
Timer1.Enabled = True: Command1.Caption = "停止"
End If
End If
End Sub

Private Sub Form_Load()
Me.Caption = "SendKeys": Command1.Caption = "开始": Text1 = "" _
: Timer1.Interval = 1000: Timer1.Enabled = False
End Sub

Private Sub Text1_Change()
If Len(Text1) > 1 Then Text1 = Left$(Text1, 1)
End Sub

Private Sub Timer1_Timer()
SendKeys "{" & Text1 & "}"
End Sub