求一个按键精灵的脚本

新人没多少分 求大神给一个可以用的脚本 要求这样
1 鼠标移动到某处 单击
2 后移动到某处 如颜色为 红色 则鼠标移动到某处 单击鼠标 如颜色为绿色 则鼠标移动到某处 单击鼠标
3 回到第一步

比较着急 膜拜各位了,,,

//先进入do循环执行脚本
Do
//鼠标移动到坐标某点x, 某点y
MoveTo 某点x, 某点y
//找色 获取(某点x, 某点y)坐标点的颜色
//把指定点(某点x, 某点y)颜色存进变量GetColor里
GetColor = GetPixelColor(某点x, 某点y)
//如果GetColor这个变量放的是红色 那么
If GetColor = "0000FF" Then
//鼠标移动到坐标(某处1x, 某处1y)
MoveTo 某处1x, 某处1y
//否则如果这个变量放的是绿色 ,那么
ElseIf GetColor = "008000" Then
//鼠标移动到坐标( 某处2x, 某处2y)
MoveTo 某处2x, 某处2y
//判断条件结束
End If
//返回do循环继续执行脚本
Loop
/*
这里顺便说下 楼上的还是少用点goto 那个语句危害狠大 狠吃内存的 一般大型脚本都直接无视goto的
*/
温馨提示:内容为网友见解,仅供参考
第1个回答  2013-09-24
别着急,我来给你编一个。
还有两个问题要确认一下,你是想让脚本一直循环执行吗?
颜色不是你说的红色和绿色那么简单,必须精确,所以我编的脚本需要你自己再确认一下颜色,修改颜色代码。
我的脚本里假设第一个点坐标为x1,y1,第二个点坐标为x2,y2,第三个点……追问

颜色我可以自己抓 坐标也可以。。
脚本并非一直执行 而是达到某一个数值之后停止。。 这样说可以么。。

追答

逻辑不严谨,我来说一下,不对的地方你告诉我,后面的达到某个数值是不是循环多少次?以下四个点都是确定的点?
1、鼠标移动到第一个点单击。
2、如果第二个点的颜色为红色,则鼠标移动到第三个点单击,如果第二个点的颜色为绿色,则鼠标移动到第四个点单击。
3、当次数没达到的时候,返回脚本开头继续运行。
脚本如下:
UserVar x1=1 "第一个点X坐标"
UserVar y1=1 "第一个点Y坐标"
UserVar x2=1 "第二个点X坐标"
UserVar y2=1 "第二个点Y坐标"
UserVar x3=1 "第三个点X坐标"
UserVar y3=1 "第三个点Y坐标"
UserVar x4=1 "第四个点X坐标"
UserVar y4=1 "第四个点Y坐标"
x=0
Rem 开始运行
Delay 100
MoveTo x1, y1
LeftClick 1
Delay 100
IfColor x2, y2, "红色颜色代码", 0 Then
MoveTo x3, y3
LeftClick 1
Delay 100
Else
End If
IfColor x2, y2, "绿色颜色代码", 0 Then
MoveTo x4, y4
LeftClick 1
Delay 100
Else
End If
x = x + 1
//下面的5是循环次数,自己根据需要改。
If x < 5 Then
Goto 开始运行
End If
EndScript
//脚本中的四个点的坐标、以及2种颜色自己确定,每个延时时间都要修改合理。

追问

可能是我的表达能力不够清晰 能加你的Q Q么 大哥 还想请教点问题

追答

直接向我提问即可,我不太上QQ。
鼠标停留在我的用户名上,就会出现“向他提问”,你点一下就可以向我提问。

追问

好的 我先试验一下 谢谢你

本回答被提问者采纳

求一个简单的按键精灵脚本
TKey0 = "1"\/\/初始化按键码0 TKey1 = "2"\/\/初始化按键码1 TKey2 = "3"\/\/初始化按键码2 GAP1=5\/\/设置间隔1 GAP2=10\/\/设置间隔2 \/\/启动线程 TH0 = BeginThread(AlwaysClick)TH1 = BeginThread(TimingClick1)TH2 = BeginThread(TimingClick2)isRun = 1\/\/开始循环 While isRun IF ...

求一个按键精灵脚本
do Key=WaitKey()\/\/脚本运行到这一行会暂停,当用户按下键盘后继续执行 If Key = 13 Then \/\/13是回车键 a=a+1 b=10*a-10 moveto 1500,150+b End If loop 已亲测可行

求一个按键精灵后台脚本
Hwnd = Plugin.Window.Search("Lineage II")MyArray = Split(Hwnd, "|")RE = Plugin.Window.GetClientRect(MyArray(0))DX=Split(RE,"|")tx=DX(0)ty=DX(1)Call Plugin.Bkgnd.LeftClick(MyArray(0), 165+tx, 428+ty)Delay 2000 Call Plugin.Bkgnd.LeftClick(MyArray(0), 165+tx, 382...

求一按键精灵脚本
tupian=1 Delay yanchi KeyPress 27,1 Delay yanchi Else tupian=0 EndIf Return 找图 Sub 连点 Rem 继续点 tupian=GetEnv("tupian")If tupian=1 LeftClick 1 Delay yanchi EndIf Goto 继续点 Return 连点

求一个按键精灵 后台操作的简单脚本
\/\/脚本中坐标点XX,YY你要自己设定 Hwnd = Plugin.Window.MousePoint()\/\/得到当前鼠标指向窗口的句柄 While true \/\/当条件为真时循环 Call Plugin.Bkgnd.LeftClick(Hwnd, XX, YY)\/\/向这个窗口坐标XX,YY处发鼠标左键单击 Delay 500 \/\/延时500毫秒 Call Plugin.Bkgnd.KeyPress(Hwnd, 81)\/\/向...

求帮忙写一个按键精灵脚本
按键精灵是VB,上个世纪的编程语言。我帮不了你。但是我可以用python写出这个脚本。运行环境是kmbox键鼠宏转换器:代码如下:one=km.getint('1')#设置1键键值 two=km.getint('2')#设置2键简直 one_step=0 #1键控制状态 two_step=0 #2键控制状态 km.rgb(0,1000,0) #led变绿 标...

求一个按键精灵的双击脚本代码
a = WaitClick\/\/等待按键,把按键码存到变量a里If a = 32769 Then \/\/如果按下的是鼠标左键,则Delay 50\/\/延时0.05秒LeftClick 1\/\/鼠标左键单击一次End If\/\/结束判断虽然感觉你的要求有点奇怪,但还是给你写出来了。总感觉这样的程序结构是有问题的,有什么不懂得欢迎继续追问,满意请及时采纳...

求一个简单的 按键精灵后台脚本
Hwnd = Plugin.Window.MousePoint()Do Call Plugin.Bkgnd.LeftClick(Hwnd, x, y)Delay 30000 Loop 开始的时候鼠标指向你的窗口。如果改程序支持后台操作则可以使用。希望对您有帮助。

求个按键精灵脚本很简单的
KeyPress 51,1 Delay 1500 KeyPress 51,1 Delay 1500 KeyPress 53,1 Delay 50*60000 EndWhile 上面的 While 1=1是为了形成死循环,因为你都要求50分钟循环一次。所以在EndWhile前面一句就是延时50分钟 其实按键精灵的UI已经设计的很好了,这么简单的东西,自己多摸索摸索,就明白了。另外,这些代码...

求按键精灵脚本
Plugin ScreenX = Sys.GetScRX()Plugin ScreenY = Sys.GetScRY()R=200 \/\/R为绕圈的半径,可自行设定。pi=3.1415926 angle=0 \/\/角度 a=10 \/\/a为每次转过的角度,调节可改变转速 While 1 x=ScreenX\/2+R*Sin(angle)y=ScreenY\/2+R*Cos(angle)MoveTo x,y angle=angle+a*(pi\/180)Dela...

相似回答