VB.NET2013如何控制鼠标在某一坐标点击一下

Imports SystemRuntimeInteropServices

<DllImport("user32dll")> 

    Private Shared Function SetCursorPos(ByVal X As Integer, ByVal Y As Integer) As Boolean    End Function

    <DllImport("user32dll")> 

        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(MouseEventFlagLeftDown, intX, intY, 0, UIntPtrZero)

mouse_event(MouseEventFlagLeftUp, intX, intY, 0, UIntPtrZero)

要自动获取后台点击时的坐标,必须用一个插件,叫361窗口插件增强版,你自己去按键精灵论坛下载,否则下面的脚本是无法运行的

有了插件后,鼠标移动到需要点击的位置,按下热键启动,就行了

Plugin h=WindowMousePoint()

VBSCall GetCursorPos(x,y)

Plugin WindowEx3ScreenToClient(h,x,y)

Rem 循环

Plugin BkgndMoveTo(h,x,y)

Plugin BkgndLeftDoubleClick(h,x,y)

Delay 100

Goto 循环

这个,就是JS获得页面某一元素的位置吧

我写了个function

参数e,表示 元素对象

function getElementOffset(e)

{

var t = eoffsetTop;

var l = eoffsetLeft;

var w = eoffsetWidth;

var h = eoffsetHeight-1;

while(e=eoffsetParent) {

t+=eoffsetTop;

l+=eoffsetLeft;

}

return {

top : t,

left : l,

width : w,

height : h

}

}

Dim x(8),y(8)

For i = 0 To 8

GetCursorPos x(i), y(i)

Delay 3000

Next

For i = 0 To 8

MoveTo x(i), y(i)

TracePrint x(i) & "," & y(i)

Delay 2000

Next

使用数组可以轻松做到

setScreenMetrics(1080,1920) 设置你手机的分辩率 如果更高的分辩率自行修改就行

click(X坐标, Y坐标)

例如想点击屏幕正中间就是

click(540,960)

不知道能不能帮到你！

以上就是关于VB.NET2013如何控制鼠标在某一坐标点击一下全部的内容，包括:VB.NET2013如何控制鼠标在某一坐标点击一下、如何做一个(后台运行的 固定坐标位置 鼠标左键双击,自动连点器 脚本)按键精灵、java 如何寻找网页控件位置 做robot自动点击的时候，如何获取网页中按钮位置（坐标）等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！