锐客网

  1. 首页 > 生活百科 > it技术 > >

vb.net鼠标自动点击 vbs文件编写自动点击

IT技术鼠标

VB.NET2013如何控制鼠标在某一坐标点击一下Imports System.Runtime.InteropServices
DllImport("user32.dll")
Private Shared Function SetCursorPos(ByVal X As Integer, ByVal Y As Integer) As BooleanEnd Function
DllImport("user32.dll")
Private Shared Sub mouse_event(ByVal flags As MouseEventFlag, ByVal dx As Integer, ByVal dy As Integer, ByVal data As UInteger, ByVal extraInfo As UIntPtr)End Sub
Flags()
Private Enum MouseEventFlag As UInteger
Move = H1
LeftDown = H2
LeftUp = H4
RightDown = H8
RightUp = H10
MiddleDown = H20
MiddleUp = H40
XDown = H80
XUp = H100
Wheel = H800
VirtualDesk = H4000
Absolute = H8000
End Enum

SetCursorPos(intX, intY)mouse_event(MouseEventFlag.LeftDown, intX, intY, 0, UIntPtr.Zero)
mouse_event(MouseEventFlag.LeftUp, intX, intY, 0, UIntPtr.Zero)
VB.NET鼠标自动右击代码调用api
在Visual Baisc.net中vb.net鼠标自动点击的声明vb.net鼠标自动点击：
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_LEFTDOWN = H2 '模拟鼠标左键按下
Public Const MOUSEEVENTF_LEFTUP = H4 ’模拟鼠标左键释放
Public Const MOUSEEVENTF_MIDDLEDOWN = H20 '模拟鼠标中间键按下
Public Const MOUSEEVENTF_MIDDLEUP = H40 '模拟鼠标中间键释放
Public Const MOUSEEVENTF_RIGHTDOWN = H8 '模拟鼠标右键按下
Public Const MOUSEEVENTF_RIGHTUP = H10 '模拟鼠标右键释放
Public Const MOUSEEVENTF_MOVE = H1 '模拟鼠标指针移动
例vb.net鼠标自动点击：
mouse_event MOUSEEVENTF_LEFTDOWN,10,10,0,0
'在（10，10）模拟鼠标左键按下
如何在VB.net中用程序控制鼠标移动和点击调用api
在Visual Baisc.net中的声明：
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_LEFTDOWN = H2 '模拟鼠标左键按下
Public Const MOUSEEVENTF_LEFTUP = H4 ’模拟鼠标左键释放
Public Const MOUSEEVENTF_MIDDLEDOWN = H20 '模拟鼠标中间键按下
Public Const MOUSEEVENTF_MIDDLEUP = H40 '模拟鼠标中间键释放
Public Const MOUSEEVENTF_RIGHTDOWN = H8 '模拟鼠标右键按下
Public Const MOUSEEVENTF_RIGHTUP = H10 '模拟鼠标右键释放
Public Const MOUSEEVENTF_MOVE = H1 '模拟鼠标指针移动
例：
mouse_event MOUSEEVENTF_LEFTDOWN,10,10,0,0
'在（10，10）模拟鼠标左键按下
请帮我用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()
Timer1.Interval
=
1000
Timer1.Enabled
=
True
End
Sub
Private
Sub
Timer1_Timer()
Dim
a
As
Integer
Static
b
As
Integer
'
a
=
Val(Text1.Text)
'
b
=
'
Do
Until
b
=
a
b
=
b
1
SetCursorPos
400,
400
mouse_event
MOUSEEVENTF_LEFTDOWN,
0,
0,
0,
mouse_event
MOUSEEVENTF_LEFTUP,
0,
0,
0,
Print
"click
"
b
'
Loop
If
b
=
Val(Text1.Text)
【vb.net鼠标自动点击 vbs文件编写自动点击】Then
Timer1.Enabled
=
False:
b
=
End
Sub
关于vb.net鼠标自动点击和vbs文件编写自动点击的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站 。

    推荐阅读


    上一篇：安装nmm显示net驱动，nmm安装过程中出现问题

    下一篇：模拟人生3游戏开发，模拟人生3游戏开发工作