点`开始 (左上个1左边那个)
[Copy to clipboard] [ - ]
CODE:
[General]
Description=自动挤频 (By MagicBear)
BeginHotkey=192
BeginHotkeyMod=0
PauseHotkey=0
PauseHotkeyMod=0
StopHotkey=192
StopHotkeyMod=1
RunOnce=1
EnableWindow=
Enable=1
AutoRun=0
[Repeat]
Type=0
Number=1
[CallBack]
OnSetup=
[Comment]
Content=
[Script]
Beep
Plugin hWnd=Window.Foreground()
Plugin winRect=Window.GetWindowRect(hWnd)
//test
//VBSCall MessageBox(winRect)
winPoint = Split(winRect, "|", -1, 1)
bx = CInt(winPoint(0))
by = CInt(winPoint(1))
Sub RunProc
Plugin txt = Window.GetText(hWnd)
If txt <> "Audition"
EndScript
EndIf
IfColor bx+202,by+128,4afff7,0
MoveTo bx+521,by+505
Delay 50
LeftClickH 1
IfColor bx+402,by+266,ffffff,0
VBSCall FindColor(bx+420-50,by+323,bx+450+50,by+343,"393C39",kx,ky)
If (kx <> 0) and (ky <> 0)
//MoveTo (bx+505-50),(by+330)
MoveTo kx,ky
Delay 10
LeftClickH 1
Delay 10
EndIf
EndIf
Gosub RunProc
Else
EndScript
EndIf
Return RunProc
 |
点这里复制本页地址发送给您QQ/MSN上的好友 |
|