论坛: 编程破解 标题: 用vb获得鼠标的位置 复制本贴地址    
作者: wolf [cxgwolf]    论坛用户   登录

Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long


Private Type POINTAPI

x As Long

y As Long

End Type





Dim p As POINTAPI

Call GetCursorPos(p)

谁能告诉我错在那里?



地主 发表时间: 10/14 17:30

回复: ronggang [ronggang]   论坛用户   登录
直接用 GetCursorPos P 就可以啊。

B1层 发表时间: 10/16 15:36

回复: wolf [cxgwolf]   论坛用户   登录
还是不行呀,

B2层 发表时间: 10/17 22:02

回复: gut2404 [gut2404]   论坛用户   登录
为什么用这个函数只能的到程序界面上的坐标呢?

B3层 发表时间: 11/08 21:37

回复: kikiny [kikiny]   论坛用户   登录

Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long


Private Type POINTAPI

x As Long

y As Long

End Type





Dim p As POINTAPI

Call GetCursorPos(p)
 
print p.x & "," & p.y

B4层 发表时间: 11/11 12:39

论坛: 编程破解

20CN网络安全小组版权所有
Copyright © 2000-2010 20CN Security Group. All Rights Reserved.
论坛程序编写:NetDemon

粤ICP备05087286号