Question

VB 实现 使用代码，模拟长按鼠标操作

VB 怎样 使用代码，实现 按住 鼠标左键不放；
以及自动释放鼠标长按…
要求实现以下功能：
使用代码控制鼠标拖动 程序 的滚动条

滚动条的位置 在 （1400，200） （单位：像素）；要求；使用代码控制鼠标将滚动条拖动到

（1400,500）；并释放鼠标左键。

Answer 1

这种用按键精灵很容易实现
可以通过自带的录制实现
不用非得VB吧

追问

你能写个用 VB实现的代码吗？

追答

很难写，建议还是用按键精灵

追问

那你会写么？会写的话；写上吧……

至少；告诉我 按住 鼠标左键 不放 的方法……
我需要这个……（用VB完成）

追答

你试试下面代码行不？我不是很有把握：
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 Const MOUSEEVENTF_LEFTDOWN = &H2
Private Const MOUSEEVENTF_LEFTUP = &H4

Private Sub Command1_Click()
SetCursorPos 1400, 200
mouse_event MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0
SetCursorPos 1400, 500
mouse_event MOUSEEVENTF_LEFTUP, 0, 0, 0, 0
End Sub