[General]
Description=̳2¼ƽű
BeginHotkey=50
BeginHotkeyMod=0
PauseHotkey=0
PauseHotkeyMod=0
StopHotkey=123
StopHotkeyMod=0
RunOnce=1
EnableWindow=
Enable=0
[Repeat]
Type=0
Number=1
[CallBack]
OnSetup=
[Comment]
Content=.
˵.
öűķʽʹð¼ƹ.
.
ʹ˵.
ȼ2ű.
.
߽ܡ.
vrBrothers.Leo.
.
ڡ.
2006.9.
.

[Script]
//ʼĹ
Dim hWnd
Dim ax,ay,bx,by
VBS set TiShiObj = createobject("WScript.Shell")
//ƵĻвλãʾϳʱƶ켣
VBS YiDongSuDu=3
Gosub YiDaoZhongJian
SaveMousePos 
MoveTo 0 0
//˵һ½űĹ
Gosub ShuoMing
//˳ִиģ
Gosub LuZhi
Gosub BaoCunTuiChu
EndScript 
//ģ0űĻ
Sub ShuoMing
    TiShiXinXi = "顿̳ 2.0vrBrothers.Leo"&vbCrLf&"̳ȫԶڽűʱӴ̺꣡"
    Gosub TiShi
    TiShiXinXi = "¼ƽűʱ䣺130"
    Gosub TiShi
    TiShiXinXi = "¼ƹǰɫ֮һ"
    Gosub TiShi
    TiShiXinXi = "¼һĶ¼ƳɽűԺʱط"
    Gosub TiShi
    TiShiXinXi = "ǽ¼ƹܵľʹ"
    Gosub TiShi
Return ShuoMing
//ģ1ƶ굽¼ưť¼ƴ
Sub LuZhi
    //¼ƽ
    TiShiXinXI = "¼ƽҪ3ܣ¼ơֹͣ档"
    Gosub TiShi
    TiShiXinXI = "ʼ¼ƽűַʽ¼ưť߰ScrollLockť"
    Gosub TiShi
    TiShiXinXI = "¼֮ɵֹͣťٴΰScrollLockťֹͣ"
    Gosub TiShi
    TiShiXinXI = "㱣水ťɽ¼ƵĶΪű"
    Gosub TiShi
    TiShiXinXI = "ǽ¼ƽ棬¼һű"
    Gosub TiShi
    //¼ưťԵַ
    RestoreMousePos 
    VBS bxOpp = 296:byOpp = 47
    Gosub GetABPoint
    //VBSCall MessageBox(ax&"|"&ay&"|"&bx&"|"&by)
    Gosub ManManYiDong
    Delay 2000
    LeftClick 1
    //ȴ¼ƽ
    Delay 3000
    KeyPress 145 1
    Delay 2000
    Gosub Բ
    Delay 2000
    KeyPress 145 1
    //ƶ水ť水ť(80,30),¼ƽ244˱水ťλþĻx-244/2+80=x-42
    RestoreMousePos 
    MoveR -42 0
    Delay 2000
    LeftClick 1
    Delay 2000
Return LuZhi
//ģ2˳ű༭
Sub BaoCunTuiChu
    TiShiXinXI = "¼ƵĶѾɹ¼Ϊű"&vbCrLf&"ӦÿԿĽű"
    Gosub TiShi
    TiShiXinXI = "Ǳű˳"
    Gosub TiShi
    VBS bxOpp=91:byOpp=45-20
    Gosub GetABPoint
    YiDongSuDu = 10
    Gosub ManManYiDong
    LeftClick 1
    Delay 1000
    TiShiXinXI = "ϲ¼ƵĽű "&vbCrLf&"ڽűбһҵĽű"
    Gosub TiShi
    TiShiXinXI = "½űȼ F10 "&vbCrLf&"űɰطŸղŵĶ "
    Gosub TiShi
    TiShiXinXI = "̳ʾϣ"&vbCrLf&"¼Ƶĵһűɣ"
    Gosub TiShi
Return BaoCunTuiChu
//ã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
    VBSCall TiShiObj.Popup(TiShiXinXi,3,"3󴰿Զر",0)
Return TiShi
//ãȡAB꣬Aǵǰ㣬BĿ
Sub GetABPoint
    //ȡAϢ
    VBSCall GetCursorPos(ax,ay)
    //ȡBϢB    
    Plugin hWnd=Window.Foreground()
    Plugin winRect=Window.GetWindowRect(hWnd)
    //    VBSCall MessageBox(winRect)
    winPoint = Split(winRect, "|", -1, 1)
    bx = CInt(winPoint(0)) + bxOpp
    by = CInt(winPoint(1)) + byOpp
Return GetABPoint
//ãƶĻ
Sub YiDaoZhongJian
    VBSCall 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 Բ
