Question

vb 模拟鼠标按键

把鼠标移到屏幕指定位置 如（111.111） 单击一下
再移到屏幕另一指定位置指定位置 如（222.222）单击一下
希望哪位高手教教我 要调用api函数
但是我不会
麻烦把做好的程序（含代码）发到我邮箱419317946@qq.com 或直接用qq聊
成功后再送100分奖赏

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 Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long

Private Sub Command1_Click()
Timer1.Enabled = True
Timer2.Enabled = True
End Sub

Private Sub Form_Load()
Timer1.Interval = 1000
Timer2.Interval = 1000
Timer1.Enabled = False
Timer2.Enabled = False
End Sub

Private Sub Timer1_Timer()
Call SetCursorPos(111, 111) '让鼠标移动到(111,111)
mouse_event MOUSEEVENTF_ABSOLUTE Or MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0
mouse_event MOUSEEVENTF_LEFTDOWN Or MOUSEEVENTF_LEFTUP, 0, 0, 0, 0
End Sub

Private Sub Timer2_Timer()
Call SetCursorPos(2222, 2222) '让鼠标移动到(2222,2222)
mouse_event MOUSEEVENTF_ABSOLUTE Or MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0
mouse_event MOUSEEVENTF_LEFTDOWN Or MOUSEEVENTF_LEFTUP, 0, 0, 0, 0
End Sub

Answer 2

什么意思啊

点一西啊就OK了

Answer 3

这是我写在空间里面的一部分代码,复制给你吧.
这个是类似按键精灵的一个简单移动代码,要模拟按键,可在VB自带的API查看中,找到鼠标常数的声明加入标准模块.在调用中加入相关的参数即可.

以下是API函数声明(请写在标准模块里面):

Public 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)

Public Const MOUSEEVENTF_ABSOLUTE = &H8000
Declare Function SetCursorPos Lib "User32" (ByVal X As Long, ByVal Y As Long) As Long

Public Const MOUSEEVENTF_LEFTDOWN = &H2
Public Const MOUSEEVENTF_LEFTUP = &H4
Public Const MOUSEEVENTF_MOVE = &H1

调用方法(在需要模拟的过程里加入):

mouse_event MOUSEEVENTF_ABSOLUTE Or MOUSEEVENTF_MOVE, 9000, 1000, 0, 0

'Call SetCursorPos(355, 556)'这是一种方法,中间的数字为窗口屏幕坐标

mouse_event MOUSEEVENTF_ABSOLUTE Or MOUSEEVENTF_MOVE, 19000, 11000, 0, 0

mouse_event MOUSEEVENTF_ABSOLUTE Or MOUSEEVENTF_MOVE, 12000, 41000, 0, 0

mouse_event MOUSEEVENTF_ABSOLUTE Or MOUSEEVENTF_MOVE, 12000, 51000, 0, 0

mouse_event MOUSEEVENTF_ABSOLUTE Or MOUSEEVENTF_MOVE, 29000, 21000, 0, 0

mouse_event MOUSEEVENTF_ABSOLUTE Or MOUSEEVENTF_MOVE, 39000, 31000, 0, 0

mouse_event MOUSEEVENTF_ABSOLUTE Or MOUSEEVENTF_MOVE, 49000, 41000, 0, 0

mouse_event MOUSEEVENTF_ABSOLUTE Or MOUSEEVENTF_MOVE, 59000, 51000, 0, 0

API其实很好用,只要你沉下心去,看懂他的参数与说明.不要被一长串的参数与字符吓倒了.

(原创)