主题：--- 键盘钩子? ---
琅拿度
[专家分：2820] 发布于 2008-07-23 15:28:00
以前收的别人的作品, 现在想增加一个功能:
1、显示鼠标中键按下时的 x,y(位于整个屏幕的坐标)？
.
另外还有个问题：
今天弄一个VBS的脚本，以前根本没接触过，不知如何用messagebox显示剪切板的内容？
最后更新于：2008-07-23 15:32:00
回复列表 （共10个回复）
沙发
琅拿度 [专家分：2820] 发布于 2008-07-23 15:34:00
已经搞了一天了，都没有进展...
板凳
qjbzjp [专家分：8830] 发布于 2008-07-23 16:07:00
在VFP下：
MESSAGEBOX("鼠标坐标(字符)是："+"X="+ALLTRIM(STR(MROW()))+" "+"Y="+ALLTRIM(STR(MCOL())))
MESSAGEBOX("鼠标坐标(像素)是："+"X="+ALLTRIM(STR(nXCoord))+" "+"Y="+ALLTRIM(STR(nYCoord)))
=MESSAGEBOX("剪贴板内容是: "+_cliptext)
3 楼
qjbzjp [专家分：8830] 发布于 2008-07-23 16:14:00
代码放到mousedown事件下。
LPARAMETERS nButton, nShift, nXCoord, nYCoord
IF nButton=4 &&按下中鼠标中键时
MESSAGEBOX("鼠标坐标(字符)是："+"X="+ALLTRIM(STR(MROW()))+" "+"Y="+ALLTRIM(STR(MCOL())))
MESSAGEBOX("鼠标坐标(像素)是："+"X="+ALLTRIM(STR(nXCoord))+" "+"Y="+ALLTRIM(STR(nYCoord)))
ENDIF
4 楼
琅拿度 [专家分：2820] 发布于 2008-07-23 16:40:00
[quote]在VFP下：
MESSAGEBOX("鼠标坐标(字符)是："+"X="+ALLTRIM(STR(MROW()))+" "+"Y="+ALLTRIM(STR(MCOL())))
MESSAGEBOX("鼠标坐标(像素)是："+"X="+ALLTRIM(STR(nXCoord))+" "+"Y="+ALLTRIM(STR(nYCoord)))
=MESSAGEBOX("剪贴板内容是: "+_cliptext)[/quote]
非常感谢您的回答。
但我不是需要相对于表单的坐标，我要的是相对于整个屏幕的坐标。
第二个问题需要的是VBS的代码[em7]
5 楼
cbl518 [专家分：57140] 发布于 2008-07-23 18:33:00
*用api 函数返回当前光标的位置
*在 表单的 load 事件中写入：
DECLARE integer GetCursorPos in user32 string@
6 楼
cbl518 [专家分：57140] 发布于 2008-07-23 18:49:00
&& 实例：
nxy=REPLICATE(CHR(0),8)
mymouse=GetCursorPos(@nxy)
X=ASC(SUBSTR(nxy,2,1))*256+ASC(SUBSTR(nxy,1,1))
Y=ASC(SUBSTR(nxy,6,1))*256+ASC(SUBSTR(nxy,5,1))
?X,Y
7 楼
cbl518 [专家分：57140] 发布于 2008-07-23 19:07:00
用 vbs 获剪切版的文本信息的代码！
Set o1=CreateObject("htmlfile")
ClipTxt=o1.ParentWindow.ClipboardData.GetData("text")
MsgBox ClipTxt
哈哈……
该给 150 的满了分吧！
8 楼
琅拿度 [专家分：2820] 发布于 2008-07-23 22:56:00
[quote]用 vbs 获剪切版的文本信息的代码！
Set o1=CreateObject("htmlfile")
ClipTxt=o1.ParentWindow.ClipboardData.GetData("text")
MsgBox ClipTxt
哈哈……
该给 150 的满了分吧！[/quote]
本来那个软件也给了范例的，但是比这里多一句：
vbs o1.Navigate("about:blank")
会弹出窗口提示，我再看看
9 楼
琅拿度 [专家分：2820] 发布于 2008-07-23 22:57:00
大师的功底真是无人能及啊...
10 楼
北京种子乐 [专家分：3710] 发布于 2008-07-24 06:51:00
刚整完“自动灌水”，
又来了个“键盘钩子”
你怎么那么多高深的东西？
我来回复
您所在位置：社区首页 — Visual Foxpro讨论区 — --- 键盘钩子? ---