vb点虐 把鼠标固定 vb 鼠标拖动事件

求大神指点vb点虐 怎么用SendInput来实现鼠标移动到指定位置呢?

您好，建议您使用mouse_event或者 Cursor.Position来实现。例如：

创新互联 - 内江服务器托管，四川服务器租用，成都服务器租用，四川网通托管,绵阳服务器托管，德阳服务器托管，遂宁服务器托管，绵阳服务器托管，四川云主机，成都云主机，西南云主机，内江服务器托管，西南服务器托管，四川/成都大带宽，机柜大带宽租用·托管，四川老牌ＩＤＣ服务商

1. 您需要将鼠标移动dx, dy的位置。

Public Sub MouseMoveBy(ByVal dx As Integer, ByVal dy As Integer)

Cursor.Position = New Point(Cursor.Position.X + dx, Cursor.Position.Y + dy)

End Sub

或者

Public Sub MouseMoveBy(ByVal dx As Integer, ByVal dy As Integer)

mouse_event(0, dx, dy, 0, 0)

End Sub

2. 您需要将鼠标移动到x, y的位置

Public Sub MouseMoveTo(ByVal x As Integer, ByVal y As Integer)

Cursor.Position = New Point(x, y)

End Sub

请您试一下。

如何在VB点虐 中用程序控制鼠标移动和点击

调用api

在Visual Baisc点虐 中的声明：

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.NET改变鼠标位置和让鼠标消失

几乎找不到真正VB.NET的api，都是自己将VB的api改成VB.NET的api，我的理解是声明中对应输入是H的地方保留Long，其他的Long改成Integer，既然VB.NET连MSDN都找不到较全的api说明，不保证api的用法在VB.NET其他版本中适用。

给你个好玩的例子，包括鼠标的隐藏（Ctrl_↓）、显示（Ctrl_↑），移动、点击

在Form1上放上2个TextBox，其中TextBox1.Multiline = True，并且面积大些，2个Button，运行后在TextBox1中点击一下会记录位置，移开鼠标，点击移动或点击Button，可模拟在TextBox1中的点击

Public Class Form1

Public My_MousePosition As Point

'模拟鼠标移动、点击

Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Integer, ByVal dy As Integer, ByVal cButtons As Long, ByVal dwExtraInfo As Long)

'定义光标的位置

Declare Function SetCursorPos Lib "user32" Alias "SetCursorPos" (ByVal x As Integer, ByVal y As Integer) As Integer

'鼠标的隐藏

Declare Function ShowCursor Lib "user32" Alias "ShowCursor" (ByVal bShow As Integer) As Integer

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

TextBox1.Multiline = True

Button1.Text = "点击"

Button2.Text = "移动"

Me.KeyPreview = True

End Sub

Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown

If e.Control And e.KeyCode = Keys.Down Then ShowCursor(0)

If e.Control And e.KeyCode = Keys.Up Then ShowCursor(1)

End Sub

Private Sub Form1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseMove

TextBox2.Text = MousePosition.X " " MousePosition.Y

End Sub

Private Sub TextBox1_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles TextBox1.MouseClick

My_MousePosition = MousePosition

TextBox1.Text = My_MousePosition.X " " My_MousePosition.Y vbCrLf

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

SetCursorPos(My_MousePosition.X, My_MousePosition.Y)

mouse_event(H2, 0, 0, 0, 0)

mouse_event(H4, 0, 0, 0, 0)

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

SetCursorPos(My_MousePosition.X, My_MousePosition.Y)

End Sub

End Class

其中

mouse_event Lib "user32" (ByVal dwFlags As Long

的dwFlags的代码是

Const MOUSEEVENTF_LEFTDOWN = H2

Const MOUSEEVENTF_LEFTUP = H4

Const MOUSEEVENTF_MIDDLEDOWN = H20

Const MOUSEEVENTF_MIDDLEUP = H40

Const MOUSEEVENTF_MOVE = H1

Const MOUSEEVENTF_ABSOLUTE = H8000

Const MOUSEEVENTF_RIGHTDOWN = H8

Const MOUSEEVENTF_RIGHTUP = H10

网站名称：vb点虐 把鼠标固定 vb 鼠标拖动事件
转载来源：https://www.cdcxhl.com/article8/ddsdjip.html

成都网站建设公司_创新互联，为您提供网页设计公司、面包屑导航、网站制作、网站收录、品牌网站制作、搜索引擎优化

广告

声明：本网站发布的内容（图片、视频和文字）以用户投稿、用户转载内容为主，如果涉及侵权请尽快告知，我们将会在第一时间删除。文章观点不代表本网站立场，如需处理请联系客服。电话：028-86922220；邮箱：631063699@qq.com。内容未经允许不得转载，或转载时需注明来源： 创新互联