Question

vb实现键盘鼠标连点

谁能帮我用vb编写一个
按键盘“F10”
然后每3秒钟
鼠标“左键”
和键盘“Enter”
点一次的小程序
最好能把工程发给我
邮箱：baoyongge@21cn.com
谢谢！！！

Answer 1

Private Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)
Private Const MOUSEEVENTF_LEFTDOWN = &H2
Private Const MOUSEEVENTF_LEFTUP = &H4
Dim KB As Boolean
Private Sub Form_KeyPress(KeyAscii As Integer)
'MsgBox KeyAscii '`96
If KeyAscii = 96 Then
KB = Not KB
End If
KeyAscii = 0
Do While KB = True
mouse_event MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0
mouse_event MOUSEEVENTF_LEFTUP, 0, 0, 0, 0
DoEvents
Loop
End Sub

Answer 2

正在写,很快就发给你
-已经写好了,发往你的邮箱了,若有何不妥需要修改的QQ上提出:1 1 2 0 2 1 2 2 1 3
(百度上不给直接发送QQ号,网址一类的-_-!)