2,722
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
ustc_tweeg 2003-10-01
- 打赏
- 举报
弓虽！这就揭贴
zhongyj 2003-09-30
- 打赏
- 举报
Declare integer GetCursorPos IN win32api string
p1=repl(chr(0),8)
?GetCursorPos(@p1)
dime num[8]
for i=1 to 8
?trans(asc(substr(p1,i,1)),"@0")
num[i]=right(trans(asc(substr(p1,i,1)),"@0"),2)
endfor
x=val("0x"+num[4]+num[3]+num[2]+num[1])
y=val("0x"+num[8]+num[7]+num[6]+num[5])
?x
?y
p1=repl(chr(0),8)
?GetCursorPos(@p1)
dime num[8]
for i=1 to 8
?trans(asc(substr(p1,i,1)),"@0")
num[i]=right(trans(asc(substr(p1,i,1)),"@0"),2)
endfor
x=val("0x"+num[4]+num[3]+num[2]+num[1])
y=val("0x"+num[8]+num[7]+num[6]+num[5])
?x
?y
