谁把我的问题关闭了

Post a reply


In an effort to prevent automatic submissions, we require that you complete the following challenge.
Smilies
:D :) ;) :( :o :shock: :? 8-) :lol: :x :P :oops: :cry: :evil: :twisted: :roll: :!: :?: :idea: :| :mrgreen: :geek: :ugeek: :arrow: :angel: :clap: :crazy: :eh: :lolno: :problem: :shh: :shifty: :sick: :silent: :think: :thumbup: :thumbdown: :salute: :wave: :wtf: :yawn: :facepalm: :bravo: :dance: :beard: :morebeard: :xmas: :HeHe: :trollface: :cookie: :rainbow: :monkeysee: :monkeysay: :happybday: :headwall: :offtopic: :superhappy: :terms: :beer:
View more smilies

BBCode is ON
[img] is OFF
[flash] is OFF
[url] is ON
Smilies are ON

Topic review
   

Expand view Topic review: 谁把我的问题关闭了

谁把我的问题关闭了

by autowin » 05 Jul 2020, 03:44

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代码?

Top