按键精灵加入do循环,之前的程序都不会动
以下是我原本的脚本IfColor869,97,"554941",0ThenCall自动打怪EndIfIfColor188,665,"CDCDCA",0ThenKeyPre...
以下是我原本的脚本
IfColor 869,97,"554941",0 Then
Call 自动打怪
End If
IfColor 188, 665, "CDCDCA", 0 Then
KeyPress "F5", 1
End If '自动开始
IfColor 541,391,"666666",0 Then
KeyPress "F5", 1
End If '室长F5
IfColor 1306,834,"B53808",0 Then
KeyPress "ESC", 1
End If '奖励关闭
IfColor 205, 671, "C8C4B4", 0 Then
MoveTo 205, 671
LeftClick 1
KeyPress "Enter", 1
End If '观战自动加入
Sub 自动打怪
KeyDown "S", 1
Delay 200
KeyUp "S", 1
End Sub
网上请教大神写出判断出现某色後执行程序
以下这段
上限秒数 = 5 //单位为秒
TIME1 = Timer
Do
TracePrint "TIME1=" & TIME1
TracePrint "Timer=" & Timer
IfColor 869,97,"554941", 0 Then
TracePrint"找到某颜色"
Else
TIME1 = Timer
End If
If TIME1 + 上限秒数 <= Timer Then
Call 到达上限秒数後要做的事()
Exit Do
End If
Delay 100
Loop
Sub 到达上限秒数後要做的事()
TracePrint "到达上限秒数後要做的事"
KeyPress "Esc", 1
KeyPress "Enter", 1
End Sub
把自己的跟网上请教人写出来的串再一起
变得无法运作了 请教脚本大神出了啥况 展开
IfColor 869,97,"554941",0 Then
Call 自动打怪
End If
IfColor 188, 665, "CDCDCA", 0 Then
KeyPress "F5", 1
End If '自动开始
IfColor 541,391,"666666",0 Then
KeyPress "F5", 1
End If '室长F5
IfColor 1306,834,"B53808",0 Then
KeyPress "ESC", 1
End If '奖励关闭
IfColor 205, 671, "C8C4B4", 0 Then
MoveTo 205, 671
LeftClick 1
KeyPress "Enter", 1
End If '观战自动加入
Sub 自动打怪
KeyDown "S", 1
Delay 200
KeyUp "S", 1
End Sub
网上请教大神写出判断出现某色後执行程序
以下这段
上限秒数 = 5 //单位为秒
TIME1 = Timer
Do
TracePrint "TIME1=" & TIME1
TracePrint "Timer=" & Timer
IfColor 869,97,"554941", 0 Then
TracePrint"找到某颜色"
Else
TIME1 = Timer
End If
If TIME1 + 上限秒数 <= Timer Then
Call 到达上限秒数後要做的事()
Exit Do
End If
Delay 100
Loop
Sub 到达上限秒数後要做的事()
TracePrint "到达上限秒数後要做的事"
KeyPress "Esc", 1
KeyPress "Enter", 1
End Sub
把自己的跟网上请教人写出来的串再一起
变得无法运作了 请教脚本大神出了啥况 展开
2个回答
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询