[已解决]如何获取鼠标在屏幕的坐标？

daniel32

我想运行程序后，在屏幕点击鼠标，消息显示鼠标位置坐标，附件是在网上的部分代码，还不会用。

最佳答案

月排行榜 / 总排行榜

爱疯

2017-1-11 19:45

'取得消息队列中上一条消息处理完毕时的鼠标指针屏幕位置
'http://www.excelpx.com/thread-145984-1-1.html


Declare Function GetMessagePosL Lib "user32" Alias "GetMessagePos" () As Long
'
'返回值是长整形
Sub gmp()
    Dim strHex As String
    strHex = Right("00000000" & Hex(GetMessagePosL), 8)
    [a1] = "X坐标"
    [a2] = CInt("&H" & Mid(strHex, 5, 4))
    [b1] = "Y坐标"
    [b2] = CInt("&H" & Mid(strHex, 1, 4))
End Sub



Declare Function GetMessagePosP Lib "user32" Alias "GetMessagePos" () As Point
Type Point
    x As Integer
    y As Integer
End Type
'
'返回值是自定义类型
Sub gmp()
    Dim p As Point
    p = GetMessagePosP
    [a1] = "X坐标"
    [a2] = p.x
    [b1] = "Y坐标"
    [b2] = p.y
End Sub
示例.rar (14.96 KB, 下载次数: 146)

2017-1-11 19:45 上传

点击文件名下载附件

跳转到最佳答案楼层

kmcla

我以前玩游戏时会，写过外挂，我不玩了，也不想找了
ＶＢ用ＡＰＩ就行
用工具是话有大漠和按键精灵．

爱疯

'取得消息队列中上一条消息处理完毕时的鼠标指针屏幕位置
'http://www.excelpx.com/thread-145984-1-1.html


Declare Function GetMessagePosL Lib "user32" Alias "GetMessagePos" () As Long
'
'返回值是长整形
Sub gmp()
    Dim strHex As String
    strHex = Right("00000000" & Hex(GetMessagePosL), 8)
    [a1] = "X坐标"
    [a2] = CInt("&H" & Mid(strHex, 5, 4))
    [b1] = "Y坐标"
    [b2] = CInt("&H" & Mid(strHex, 1, 4))
End Sub



Declare Function GetMessagePosP Lib "user32" Alias "GetMessagePos" () As Point
Type Point
    x As Integer
    y As Integer
End Type
'
'返回值是自定义类型
Sub gmp()
    Dim p As Point
    p = GetMessagePosP
    [a1] = "X坐标"
    [a2] = p.x
    [b1] = "Y坐标"
    [b2] = p.y
End Sub
示例.rar (14.96 KB, 下载次数: 146)

2017-1-11 19:45 上传

点击文件名下载附件

daniel32

爱疯 发表于 2017-1-11 19:45
'取得消息队列中上一条消息处理完毕时的鼠标指针屏幕位置
'http://www.excelpx.com/thread-145984-1-1.htm ...

谢谢，还想请教一下怎么让鼠标跑到那个位置然后执行单击的操作？

爱疯

API我不大会，是我以前提问时记的。

让鼠标跑到哪个位置？建议联系实际需求，重新说明。
这样，真正会的朋友，才好给予回复。

daniel32

已经在网上找到了，谢谢。