VB鼠标的移动，点击

VB高手，请大家给小弟几个实例，我是初学者。做以参考，我想单击键盘里的F1键后，鼠标自动移动到屏幕中的X：1050.Y：522然后左键单击，第2个例子，，，按下F2后，鼠... VB高手，请大家给小弟几个实例，我是初学者。做以参考，我想单击键盘里的F1键后，鼠标自动移动到屏幕中的 X：1050.Y：522 然后左键单击，第2个例子，，，按下F2后，鼠标到X：568.Y：126 然后右键单击，请高手多给几个例子。谢谢了展开

 我来答

1个回答

#热议# 生活中有哪些实用的心理学知识？

慕裕沐驰鸿
2020-05-28 · TA获得超过3831个赞

知道大有可为答主

回答量：3181

采纳率：29%

帮助的人：260万

我也去答题访问个人页

关注

展开全部

声明
Declare
Function
GetPrivateProfileString&
Lib
"kernel32"
Alias
"GetPrivateProfileStringA"
(ByVal
lpApplicationName
As
String,
ByVal
lpKeyName
As
String,
ByVal
lpDefault
As
String,
ByVal
lpReturnedString
As
String,
ByVal
nSize
As
Long,
ByVal
lpFileName
As
String)
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)
Const
MOUSEEVENTF_LEFTDOWN
=
&H2
'
left
button
down
Const
MOUSEEVENTF_LEFTUP
=
&H4
'
left
button
up
程序中
SetCursorPos
455,
234
'你所需要点的位置
mouse_event
MOUSEEVENTF_LEFTDOWN
Or
MOUSEEVENTF_LEFTUP,
0&,
0&,
0&,
0&
'模拟鼠标点击
如果要模拟键盘操作就换一个函数
换成keyboard_event