Page 1 of 1

谁把我的问题关闭了

Posted: 05 Jul 2020, 03:44
by autowin
Call 开始
Sub 开始
BeginThread 线程0
BeginThread 线程1
End Sub
Sub 线程0
For 999999999
Delay 100
FindColor 1318,38,1464,49,"2449CB",intX,intY
If intX > 0 And intY > 0 Then
Call Plugin.Media.Play("D:\mp3\1590420531.mp3")
MessageBox "网络连接断开!"
End If
Next
End Sub
Sub 线程1
For 999999999
Delay 100
Rem 颜色一
FindColor 668,121,730,412,"BE9270",intX,intY
FindColor 668,121,730,412,"88A350",intX1,intY1
If intY1 - intY > 25 and intY1 > 0 And intY > 0 Then
Call Plugin.Media.Play("D:\mp3\1592833625.mp3")
Goto 颜色二
End If
Next
For 999999999
Delay 100
Rem 颜色二
FindColor 668,121,730,412,"BE9270",intX,intY
FindColor 668,121,730,412,"88A350",intX1,intY1
If intY - intY1 > 25 and intY1 > 0 And intY > 0 Then
Call Plugin.Media.Play("D:\mp3\1592833652.mp3")
Goto 颜色一
End If
Next
End Sub
这段按键精灵的代码怎么转写成AHK代码?