[General]
Description=̳3űΪС
BeginHotkey=51
BeginHotkeyMod=2
PauseHotkey=0
PauseHotkeyMod=0
StopHotkey=123
StopHotkeyMod=0
RunOnce=1
EnableWindow=
Enable=0
AutoRun=0
[Repeat]
Type=0
Number=1
[Relative]
SetupOCXFile=
[Comment]
Content=.
˵.
öűķʽʹðС鹦.
.
ʹ˵.
ȼ3ű.
.
߽ܡ.
vrBrothers.Leo.
.
ڡ.
2006.9.
.

[Script]
//ʼĹ
Dim hWnd
Dim ax,ay,bx,by
set TiShiObj = createobject("WScript.Shell")
//ƵĻвλãʾϳʱƶ켣
YiDongSuDu=3
Gosub YiDaoZhongJian
SaveMousePos 
MoveTo 0,0
//˵һ½űĹ
Gosub ShuoMing
//˳ִиģ
Gosub XiaoJL
Gosub ZhiZuoJL
EndScript 
//ģ0űĻ
Sub ShuoMing
    TiShiXinXi = "顿̳ 3.0vrBrothers.Leo"&vbCrLf&"̳ȫԶڽűʱӴ̺꣡"
    Gosub TiShi
    TiShiXinXi = "С飻ʱ䣺130"
    Gosub TiShi
    TiShiXinXi = "С鹦ǰһɫ԰ѽűΪִеEXE"
    Gosub TiShi
    TiShiXinXi = "ǽСľ"
    Gosub TiShi
Return ShuoMing
//ģ1ƶ굽¼ưť¼ƴ
Sub XiaoJL
    //ѡű
    TiShiXinXI = "ȱѡһűܴС"
    Gosub TiShi
    RestoreMousePos 
    //һűλ
    bxOpp = 321:byOpp = 140
    Gosub GetABPoint
    Gosub ManManYiDong
    LeftClick 1
    Delay 2000
    TiShiXinXI = "ѡнűС顿ťС"
    Gosub TiShi
    //С鰴ťԵַ
    bxOpp = 498:byOpp = 47
    Gosub GetABPoint
    Gosub ManManYiDong
    Delay 2000
    LeftClick 1
    Delay 3000
Return XiaoJL
//ģ2С
Sub ZhiZuoJL
    TiShiXinXI = "ľСĽ"
    Gosub TiShi
    TiShiXinXI = "ȸС˵ʹ"
    Gosub TiShi
    //6TABлעͿؼ
    KeyPress 9,15
    KeyPress 13 2
    SayString "ҵСע"
    Delay 2000
    TiShiXinXI = "עͼ֮ʼť֮ͻɹС"
    Gosub TiShi
    //С鰴ťԵַ
    bxOpp = 372:byOpp = 390
    //bxOpp = 452:byOpp = 400
    Gosub GetABPoint
    Gosub ManManYiDong
    Delay 1000
    LeftClick 1
    TiShiXinXI = "̳̽СѾɹ"
    Gosub TiShi
Return ZhiZuoJL
//ãaƶb
Sub ManManYiDong
    PianYiX = ax-bx
    PianYiY = ay-by
    Rem YiDong
    If PianYiX<>0 or PianYiY<>0
        YiDongX =0
        YiDongY =0
        If PianYiX<>0
            YiDongX = -abs(PianYiX)/PianYiX
        EndIf 
        If PianYiY<>0
            YiDongY = -abs(PianYiY)/PianYiY
        EndIf 
        MoveR YiDongX YiDongY
        PianYiX = PianYiX + YiDongX
        PianYiY = PianYiY + YiDongY
        Delay YiDongSuDu
        Goto YiDong
    EndIf 
Return ManManYidong
//ãʾϢ3Զرմڵķʽ
Sub TiShi
    Call TiShiObj.Popup(TiShiXinXi,3,"3󴰿Զر",0)
Return TiShi
//ãȡAB꣬Aǵǰ㣬BĿ
Sub GetABPoint
    //ȡAϢ
    Call GetCursorPos(ax,ay)
    //ȡBϢB    
    Plugin hWnd=Window.Foreground()
    Plugin winRect=Window.GetWindowRect(hWnd)
    //    Call MessageBox(winRect)
    winPoint = Split(winRect, "|", -1, 1)
    bx = CInt(winPoint(0)) + bxOpp
    by = CInt(winPoint(1)) + byOpp
Return GetABPoint
//ãƶĻ
Sub YiDaoZhongJian
    Call GetScreenResolution(intX,intY)
    MoveTo intX/2 intY/2
Return YiDaoZhongJian
//ãĻϻԲ
Sub Բ
    r=300:x0=512:y0=384:x=0:y=0:n=0
    While n<3.1415926*2
        x=x0+r*cos(n)
        y=y0-r*sin(n)
        MoveTo x y
        Delay 10
        n=n+0.03
    EndWhile 
Return Բ
