level 2
淹死的青蛙
楼主
我想把Sub里面的abcde换成我想要更改的数字,我是不是不适合玩按键,太弱了~~~~
Call 识别图色(a,b,c,d,e)
Dim a,b,c,d,e
a = 1555
b = 333
c = 623325
d = 436
e = 443
Sub 识别图色(a,b,c,d,e)
jiange = 0
Do While jiange <= 10000 //10000就是10秒
GetColor = GetPixelColor(a,b)
If GetColor = "c" Then
Call Lib.刘辉专用.移动鼠标并点击(d,e)
Goto GGG//如果指定点颜色为深蓝,那就在坐标处左击一次
Else
Delay 100
jiange=jiange+100
End If
Loop
Rem GGG
End Sub
2023年09月13日 14点09分
1
Call 识别图色(a,b,c,d,e)
Dim a,b,c,d,e
a = 1555
b = 333
c = 623325
d = 436
e = 443
Sub 识别图色(a,b,c,d,e)
jiange = 0
Do While jiange <= 10000 //10000就是10秒
GetColor = GetPixelColor(a,b)
If GetColor = "c" Then
Call Lib.刘辉专用.移动鼠标并点击(d,e)
Goto GGG//如果指定点颜色为深蓝,那就在坐标处左击一次
Else
Delay 100
jiange=jiange+100
End If
Loop
Rem GGG
End Sub