MoveTo 148, 126
Delay 906
LeftClick 1
MoveTo 350, 357
Delay 383
LeftDoubleClick 1
Delay 86
Delay 160
LeftDown 1
MoveTo 310, 357
Delay 746
LeftUp 1
Delay 860
KeyPress "F8", 2
MoveTo 670, 36
Delay 898
LeftClick 1
MoveTo 641, 491
Delay 473
LeftClick 1
MoveTo 401, 311
Delay 333
LeftClick 1 在这加识别颜色的命令
MoveTo 724, 504
Delay 376
LeftClick 1
MoveTo 608, 16
Delay 473
LeftClick 1
Delay 43
LeftClick 1
'==========以上是按键精灵录制的内容==========
就是在上面这段脚本,我设置的自动循环,求个高手解答```如果识别不到颜色不要影响脚本运行```就是识别到某一点上的颜色自动停止运行```
按键精灵自动识别某一点的颜色自动停止的命令
答案:2 悬赏:70 手机版
解决时间 2021-02-09 16:56
- 提问者网友:一抹荒凉废墟
- 2021-02-08 21:43
最佳答案
- 五星知识达人网友:像个废品
- 2021-02-08 22:51
按键精灵 进去后写代码:----左上角 基本命令/全部命令------点全部命令-----3个选择,先 基本命令,,,里面有颜色和图形命令。。。
脚本例子按键精灵8及以上语法
复制代码
getcursorpos x,y
cr1=getpixelcolor(x,y)
messagebox cr1
//得到当前点的颜色,并弹出对话框显示出来
getcursorpos x,ycr1=getpixelcolor(x,y)messagebox cr1 //得到当前点的颜色,并弹出对话框显示出来
脚本例子按键精灵7及以下语法
复制代码
vbscall getcursorpos(x,y)
vbscall cr1=getpixelcolor(x,y)
messagebox cr1
//得到当前点的颜色,并弹出对话框显示出来
接下来,你只要
if cr1 = 指定颜色
……
else
……
endif
我用 按键精灵77777777777777777,找图
vbscall findpic(0,50,1023,767,"??????.bmp",0.9,intx,inty)
if intx>0 and inty>0
……
else
……
endif
希望有用。
脚本例子按键精灵8及以上语法
复制代码
getcursorpos x,y
cr1=getpixelcolor(x,y)
messagebox cr1
//得到当前点的颜色,并弹出对话框显示出来
getcursorpos x,ycr1=getpixelcolor(x,y)messagebox cr1 //得到当前点的颜色,并弹出对话框显示出来
脚本例子按键精灵7及以下语法
复制代码
vbscall getcursorpos(x,y)
vbscall cr1=getpixelcolor(x,y)
messagebox cr1
//得到当前点的颜色,并弹出对话框显示出来
接下来,你只要
if cr1 = 指定颜色
……
else
……
endif
我用 按键精灵77777777777777777,找图
vbscall findpic(0,50,1023,767,"??????.bmp",0.9,intx,inty)
if intx>0 and inty>0
……
else
……
endif
希望有用。
全部回答
- 1楼网友:山有枢
- 2021-02-08 23:46
颜色 = GetPixelColor(坐标X, 坐标Y)
If 颜色 = 你说的那个颜色 Then
EndScript
Else
End If
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
大家都在看
推荐资讯