1,486
社区成员
发帖
与我相关
我的任务
分享
Dim x As Long, y As Long
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Private Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) 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 Declare Sub Sleep Lib "kernel32.dll" (ByVal dwMilliseconds 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 Const MOUSEEVENTF_LEFTDOWN = &H2
Private Const MOUSEEVENTF_LEFTUP = &H4
Const KEYEVENTF_KEYUP = 2
Private Type POINTAPI
x As Long
y As Long
End Type
Dim p As POINTAPI
Dim t1 As Date, t2 As Date
Private Sub Command1_Click()
p.x = Val(Text1.Text)
p.y = Val(Text2.Text)
SetCursorPos p.x, p.y
mouse_event MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0
mouse_event MOUSEEVENTF_LEFTUP, 0, 0, 0, 0
Command2_Click
End Sub
Private Sub Command2_Click()
keybd_event vbKeyControl, 0, 0, 0
keybd_event vbKeyA, 0, 0, 0
keybd_event vbKeyControl, 0, KEYEVENTF_KEYUP, 0
keybd_event vbKeyA, 0, KEYEVENTF_KEYUP, 0
keybd_event vbKeyControl, 0, 0, 0
keybd_event vbKeyC, 0, 0, 0
keybd_event vbKeyControl, 0, KEYEVENTF_KEYUP, 0
keybd_event vbKeyC, 0, KEYEVENTF_KEYUP, 0
Text4.Text = Clipboard.GetText
End Sub
Private Sub Form_Load()
End Sub
Private Sub Timer1_Timer()
GetCursorPos p
Label1.Caption = p.x & "+" & p.y
End Sub