Question

求VB模拟按键编程代码~~内详

首先 不要用sendkeys 用这个对我没用 要用模拟按下弹起的 比如mouse_event 键盘也是然后我的条件就是:整个过程每1.5秒按下弹起鼠标右键一次，每1秒按下弹起Z键一次，每1分钟按下弹起F4键一次，每5分钟30秒按下弹起F5键一次，按下弹起F5键之后必定要3秒后按下弹起F8键一次

Answer 1

在VB6.0中新建工程，添加定时器控件。然后程序如下Private Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
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 Type POINTAPI
x As Long
y As Long
End Type
Const MOUSEEVENTF_LEFTDOWN = &H2
Const MOUSEEVENTF_LEFTUP = &H4
Const MOUSEEVENTF_MIDDLEDOWN = &H20
Const MOUSEEVENTF_MIDDLEUP = &H40
Const MOUSEEVENTF_MOVE = &H1
Const MOUSEEVENTF_ABSOLUTE = &H8000
Const MOUSEEVENTF_RIGHTDOWN = &H8
Const MOUSEEVENTF_RIGHTUP = &H10
Dim a As Integer
Dim b As POINTAPIPrivate Sub Timer1_Timer()
a = a + 1
Form1.Caption = a
If a Mod 3 = 0 Then mouse_event -32768 Or MOUSEEVENTF_RIGHTDOWN Or MOUSEEVENTF_RIGHTUP, 1, 1, 0, 0 '1.5秒按鼠标右键一次
If a Mod 2 = 0 Then
keybd_event 90, 0, 0, 0 '1秒按"Z"键一次
keybd_event 90, 0, 2, 0
End If
If a Mod 60 = 0 Then
keybd_event 115, 0, 0, 0 '1分按"F4"键一次
keybd_event 115, 0, 2, 0
End If
If a Mod 90 = 0 Then
keybd_event 116, 0, 0, 0 '1分半按"F5"键一次
keybd_event 116, 0, 2, 0
End If
If (a Mod 90) - 3 = 0 Then
keybd_event 119, 0, 0, 0 '1分半后3秒按"F8"键一次
keybd_event 119, 0, 2, 0
End If
Form1.Caption = a
End Sub自己研究吧！希望是你想要的

Answer 2

可以找一些算法类比较浅的书，上淘宝看看