• 新浪微博:
  • 腾讯微博:
  • 微信 :
按键精灵电脑版
立即下载

软件版本:2014.05
软件大小:21.6M
更新时间:07-04

按键精灵安卓版
立即下载

软件版本:3.2.9
软件大小:62.5M
更新时间:12-07

按键精灵iOS版
立即下载

软件版本:1.3.1
软件大小:29.2M
更新时间:09-29

按键精灵Mac版
立即下载

软件版本:1.1.0
软件大小:12.3M
更新时间:12-29

快捷导航

登录 后使用快捷导航
没有帐号? 注册

登录 注册
发新话题 回复该主题

利用 ShowScrTXT 命令制作一个放大镜,效果类似抓抓工具的放大镜,... [复制链接]

1#
答案:
Dim x, y, x1, x2, y1, y2, st_x, st_y
Dim scr_x1, scr_y1, scr_x2, scr_y2
MessageBox "【确定】后开始运行放大镜,【F12】键退出。"
While True
Call 放大镜()
Delay 10
Wend
//放大镜函数
Function 放大镜()
//放大镜的起点坐标
st_x = 0
st_y = 0
//获取鼠标的坐标
GetCursorPos x, y
//计算5*5区域范围
x1 = x - 2
x2 = x + 2
y1 = y - 2
y2 = y + 2
//获取并输出5*5区域内所有颜色
For a = x1 To x2
For b = y1 To y2
RtColor = Plugin.Color.GetPixelColor(a, b, 1)
//其中:4 - x2 + a = 5 - (x2 - a + 1),以下同理
scr_x1 = st_x + (4 - x2 + a) * 6
scr_y1 = st_y + (4 - y2 + b) * 6
scr_x2 = scr_x1 + 6
scr_y2 = scr_y1 + 6
Call Plugin.Msg.ShowScrTXT(scr_x1, scr_y1, scr_x2, scr_y2, "█", RtColor)
Next
Next
End Function

发新话题 回复该主题