按键精灵如何实现跳到指定的某行运行?
2个回答
展开全部
Rem s1
Delay 500
GetColor=Plugin.Bkgnd.GetPixelColor(hwnd,230,268)
Call Plugin.Color.ColorToRGB(GetColor, R, G, B)
If R =47 and G =224 and B =102 Then
Delay 500
Goto s2
End If
Delay 500
Goto s1
Rem s2
代码能看懂吧?判断x=230y=268这个点,如果R =47 and G =224 and B =102,就跳到标记s2,如果不等于的话一直到End If都没有用,开始运行下面的Delay 500,然后调到标记S1,到标记S1后开始重新判断,直到达到你的要求跳到S2,至于你说的第8行代码,你可以加在Rem s2的下面,说的够啰嗦了,希望你能明白
Delay 500
GetColor=Plugin.Bkgnd.GetPixelColor(hwnd,230,268)
Call Plugin.Color.ColorToRGB(GetColor, R, G, B)
If R =47 and G =224 and B =102 Then
Delay 500
Goto s2
End If
Delay 500
Goto s1
Rem s2
代码能看懂吧?判断x=230y=268这个点,如果R =47 and G =224 and B =102,就跳到标记s2,如果不等于的话一直到End If都没有用,开始运行下面的Delay 500,然后调到标记S1,到标记S1后开始重新判断,直到达到你的要求跳到S2,至于你说的第8行代码,你可以加在Rem s2的下面,说的够啰嗦了,希望你能明白
展开全部
如果单纯判断 某个点的颜色 就循环判断等待执行 如果同时要操作别的 就得多线程了
//第八行------- Rem 第八行 -------------
Do
FindColor 0, 0, 1024, 768, 000000, intX, intY
// 把指定区域缩小到1像素 颜色改成自己颜色色值
If intX >= 0 And intY >= 0 Then
Exit Do
End If
Loop
Goto 第八行
//第八行------- Rem 第八行 -------------
Do
FindColor 0, 0, 1024, 768, 000000, intX, intY
// 把指定区域缩小到1像素 颜色改成自己颜色色值
If intX >= 0 And intY >= 0 Then
Exit Do
End If
Loop
Goto 第八行
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询