按键精灵 IfColor语句问题,求高手解答
一共有四个按键精灵问题,想请教高手解答1.IfColor语句判断某点是否变为X色,变色后继续执行下面的命令,如果没有变色,返回前面等待变色RemA标记Delay2000I...
一共有四个按键精灵问题,想请教高手解答
1.IfColor语句判断某点是否变为X色,变色后继续执行下面的命令,如果没有变色,返回前面等待变色
Rem A标记
Delay 2000
IfColor 600,300,FF00FF,0
Goto B标记
Else
Goto A标记
EndIf
Rem B标记
这个命令有没有办法简化,我记得好像是可以只留一个标记的,条件为假的用来导回前面
2.我想用IfColor语句判断a点或者b点其中之一是否变为某色,然后执行后面的命令该怎么做?虽然我有解决办法,可我希望可以简化为一条命令来实现
我的解决办法
Rem A标记
IfColor 500,500,FFCCFF,0
Goto B标记
Else
Goto C标记
EndIf
Rem C标记
Delay 2000
IfColor 200,300,FFFFCC,0
Goto B标记
Else
Goto A标记
EndIf
Rem B标记
3.我想在执行完某段命令后播放提示音,要怎么做?不是硬盘提示音那种,只要有个提示就可以了,最好是系统的提示音,不要带弹出对话框的,单纯的声音就可以
4.类似于第2个问题,怎样可以让按键精灵判断两点颜色是否同时满足某条件,不同于第二个'或'的关系,是'且'的关系
或者判断系统笔记本某行是否为空,有没有好办法
望高手赐教,帮帮我这个菜鸟
谢谢
还有个问题想问一下,我想定义一个变量a为0,满足某条件后赋值为1,然后在程序后面来判断此变量值,该怎么做呢? 展开
1.IfColor语句判断某点是否变为X色,变色后继续执行下面的命令,如果没有变色,返回前面等待变色
Rem A标记
Delay 2000
IfColor 600,300,FF00FF,0
Goto B标记
Else
Goto A标记
EndIf
Rem B标记
这个命令有没有办法简化,我记得好像是可以只留一个标记的,条件为假的用来导回前面
2.我想用IfColor语句判断a点或者b点其中之一是否变为某色,然后执行后面的命令该怎么做?虽然我有解决办法,可我希望可以简化为一条命令来实现
我的解决办法
Rem A标记
IfColor 500,500,FFCCFF,0
Goto B标记
Else
Goto C标记
EndIf
Rem C标记
Delay 2000
IfColor 200,300,FFFFCC,0
Goto B标记
Else
Goto A标记
EndIf
Rem B标记
3.我想在执行完某段命令后播放提示音,要怎么做?不是硬盘提示音那种,只要有个提示就可以了,最好是系统的提示音,不要带弹出对话框的,单纯的声音就可以
4.类似于第2个问题,怎样可以让按键精灵判断两点颜色是否同时满足某条件,不同于第二个'或'的关系,是'且'的关系
或者判断系统笔记本某行是否为空,有没有好办法
望高手赐教,帮帮我这个菜鸟
谢谢
还有个问题想问一下,我想定义一个变量a为0,满足某条件后赋值为1,然后在程序后面来判断此变量值,该怎么做呢? 展开
4个回答
展开全部
写了这么多,要加分的哦
1.这样就可以
Rem A标记
Delay 2000
IfColor 600,300,FF00FF,0
Else
Goto A标记
EndIf
2.简化:
Rem A标记
IfColor 500,500,FFCCFF,0
Else
Delay 2000
IfColor 200,300,FFFFCC,0
Else
Goto A标记
EndIf
EndIf
3.不跳出播放窗口,在需要提示音的地方,插入下面脚本就可以。
VBS strSoundFile = "C:\WINDOWS\Media\Windows XP 登录音.wav"
VBS Set objShell = CreateObject("Wscript.Shell")
VBS strCommand = "sndrec32 /play /close " & chr(34) & strSoundFile & chr(34)
VBS objShell.Run strCommand, 0, True
4.如下:
Rem A标记
IfColor 500,500,FFCCFF,0
IfColor 200,300,FFFFCC,0
MessageBox "两个条件已经同时满足,可以把这一句替换成你需要的脚本"
Else
Goto A标记
EndIf
Else
Goto A标记
EndIf
5.判断系统笔记本某行是否为空,可以用区域找色
Rem A标记
VBSCall FindColorEx(区域左边坐标,区域上边坐标,区域右边坐标,区域坐标,"FFFFFF",0,1,x,y)
If x>=0 and y>=0
MessageBox "所找区域为空,可以把这一句替换成你需要的脚本"
Else
Goto A标记
EndIf
1.这样就可以
Rem A标记
Delay 2000
IfColor 600,300,FF00FF,0
Else
Goto A标记
EndIf
2.简化:
Rem A标记
IfColor 500,500,FFCCFF,0
Else
Delay 2000
IfColor 200,300,FFFFCC,0
Else
Goto A标记
EndIf
EndIf
3.不跳出播放窗口,在需要提示音的地方,插入下面脚本就可以。
VBS strSoundFile = "C:\WINDOWS\Media\Windows XP 登录音.wav"
VBS Set objShell = CreateObject("Wscript.Shell")
VBS strCommand = "sndrec32 /play /close " & chr(34) & strSoundFile & chr(34)
VBS objShell.Run strCommand, 0, True
4.如下:
Rem A标记
IfColor 500,500,FFCCFF,0
IfColor 200,300,FFFFCC,0
MessageBox "两个条件已经同时满足,可以把这一句替换成你需要的脚本"
Else
Goto A标记
EndIf
Else
Goto A标记
EndIf
5.判断系统笔记本某行是否为空,可以用区域找色
Rem A标记
VBSCall FindColorEx(区域左边坐标,区域上边坐标,区域右边坐标,区域坐标,"FFFFFF",0,1,x,y)
If x>=0 and y>=0
MessageBox "所找区域为空,可以把这一句替换成你需要的脚本"
Else
Goto A标记
EndIf
展开全部
以下是前台语句:(要后台的可以联系我)
rem
star
ifcolor
416,169,7c2,0
moveto
416,169
delay
10
leftclick
1
else
endif
goto
star
rem
star
ifcolor
416,169,7c2,0
moveto
416,169
delay
10
leftclick
1
else
endif
goto
star
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
For
30
Rem
1A
IfColor
640,570,006CD8,0
MoveTo
640,570
Delay
250
LeftClick
1
Delay
250
Else
Delay
10
Goto
1A
EndFor
30
Rem
1A
IfColor
640,570,006CD8,0
MoveTo
640,570
Delay
250
LeftClick
1
Delay
250
Else
Delay
10
Goto
1A
EndFor
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询