国产一级a片免费看高清,亚洲熟女中文字幕在线视频,黄三级高清在线播放,免费黄色视频在线看

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 _
)'Option_Tag標示選擇了哪一種模擬事件
Dim Option_Tag As Integer
'OnTest標示是否處于模擬狀態(tài)，以便我們停止模擬
Dim OnTest As Boolean
'對API變量的定義
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
Private Sub Command1_Click()
If Command1.Caption = "開始" Then
Form1.Timer1.Interval = Text1.Text'在text1里輸入1000=1s
Form1.Timer1.Enabled = True
Command1.Caption = "關閉"
Else
Form1.Timer1.Enabled = False
Command1.Caption = "開始"
End If
End SubPrivate Sub Form_Load()
Command1.Caption = "開始"
End Sub
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyReturn Then Command1.Value = True'快捷鍵：回車
End Sub
Private Sub Timer1_timer()
mouse_event MOUSEEVENTF_RIGHTDOWN Or MOUSEEVENTF_RIGHTUP, 0, 0, 0, 0'右擊
End Sub