[General]
Description=̳1½һű
BeginHotkey=49
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=.
˵.
öűķʽʹð½һű.
.
ʹ˵.
ȼ1ű.
.
߽ܡ.
vrBrothers.Leo.
.
ڡ.
2006.9.
.

[Script]
//ʼĹ
Dim hWnd
Dim ax,ay,bx,by
set TiShiObj = createobject("WScript.Shell")
Plugin File.DeleteFile("../qmacro.ini.bak")
Plugin File.MoveFile("../qmacro.ini","../qmacro.ini.bak")
//ƵĻвλãʾϳʱƶ켣
YiDongSuDu=3
Gosub YiDaoZhongJian
SaveMousePos 
//Ƶ(0,0)㣬굲ס˵
MoveTo 0,0
//˳ִиģ
Gosub ShuoMing
Gosub XinJian
Gosub JieShao1
//Gosub JieShao2
Gosub JieShao3
Gosub ZhiZuo
Gosub BaoCunTuiChu
EndScript 
Sub OnScriptExit
    //βĹ
    Plugin File.DeleteFile("../qmacro.ini")
    Plugin File.MoveFile("../qmacro.ini.bak","../qmacro.ini")
Return 
//ģ0űĻ
Sub ShuoMing
    TiShiXinXi = "顿̳ 1.0棬vrBrothers.Leo"&vbCrLf&"̳ȫԶڽűʱӴ̺꣡"
    Gosub TiShi
    TiShiXinXi = "νĽűʱ䣺130"
    Gosub TiShi
    TiShiXinXi = "ϻ˵ȵ½ť½һű"
    Gosub TiShi
    TiShiXinXi = "͵͵Сɣƶťͣ2룬ɿϸ˵"
    Gosub TiShi
Return ShuoMing
//ģ1ƶ굽½ť򿪽ű༭
Sub XinJian
    //½ťԵַ
    RestoreMousePos 
    bxOpp = 141:byOpp = 47
    Gosub GetABPoint
    //Call MessageBox(ax&"|"&ay&"|"&bx&"|"&by)
    Gosub ManManYiDong
    LeftClick 1
    Delay 2000
    //˽ű༭ܽű༭Ĺ
    TiShiXinXI = "ǽű༭"&vbCrLf&"Ǵų̋"
    Gosub TiShi
    TiShiXinXI = "ű༭Ϊ4Ҫ"
    Gosub TiShi
    TiShiXinXI = "ϷǹһЩűĹܰť"
    Gosub TiShi
    TiShiXinXI = "壬ͨű"
    Gosub TiShi
    TiShiXinXI = "мǽűĴͨͼȫģ˭ай˵Ʒ ^_^ "
    Gosub TiShi
    TiShiXinXI = "ұǽű򣬿趨űȼзʽ"
    Gosub TiShi
Return XinJian
//ģ2ű༭棬ܼʹ
Sub JieShao1
    TiShiXinXI = "뿴"&vbCrLf&"ģ̵Ĳ"
    Gosub TiShi
    //ʾ࣬˵byҪȥ20ΪĿǰץȡ򲻻20
    RestoreMousePos 
    bxOpp=131:byOpp=135
    Gosub GetABPoint
    Gosub ManManYiDong
    LeftClick 1
    Delay 3000
    LeftClick 1
Return JieShao1
//ģ3ű༭棬ʹ
Sub JieShao2
    TiShiXinXI = "뿴"&vbCrLf&"ģĲ"
    Gosub TiShi
    //ʾ
    RestoreMousePos 
    bxOpp=131:byOpp=162
    Gosub GetABPoint
    Gosub ManManYiDong
    LeftClick 1
    Delay 3000
    LeftClick 1
Return JieShao2
//ģ4ű༭棬ܿʹ
Sub JieShao3
    TiShiXinXI = "Լȥо"&vbCrLf&"᲻µĹ"
    Gosub TiShi
    RestoreMousePos 
Return JieShao3
//ģ5һɽű
Sub ZhiZuo
    TiShiXinXI = "ڲ5"&vbCrLf&"ʵģⰴ5AĹ"
    Gosub TiShi
    RestoreMousePos 
    bxOpp=131:byOpp=135
    Gosub GetABPoint
    Gosub ManManYiDong
    LeftClick 1
    bxOpp=54:byOpp=179
    Gosub GetABPoint
    YiDongSuDu = 10
    Gosub ManManYiDong
    LeftClick 1
    KeyPress 65 1
    bxOpp=233:byOpp=185
    Gosub GetABPoint
    YiDongSuDu = 10
    Gosub ManManYiDong
    LeftClick 5
    TiShiXinXI = "ڳɹĲ5"&vbCrLf&"Ǳű˳"
    Gosub TiShi
Return ZhiZuo
//ģ6˳ű༭
Sub BaoCunTuiChu
    bxOpp=91:byOpp=45
    Gosub GetABPoint
    YiDongSuDu = 10
    Gosub ManManYiDong
    TiShiXinXI = "ϲ㣡һű "&vbCrLf&"ɹűбһҵĽű"
    Gosub TiShi
    TiShiXinXI = "½űȼ F10 "&vbCrLf&"űɰģⰴ5 A "
    Gosub TiShi
    TiShiXinXI = "̳ʾϣ׼Զű"&vbCrLf&"ĵһűɣ"
    Gosub TiShi
    LeftClick 1
    Delay 1000
    KeyPress 13,1
    Delay 1000
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
    //ע⣺CALLVBSCALL䡣̵ôʱCALLؼ֡
    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)
    winPoint = Split(winRect, "|", -1, 1)
    bx = CInt(winPoint(0)) + bxOpp
    by = CInt(winPoint(1)) + byOpp
Return GetABPoint
//ãƶĻ
Sub YiDaoZhongJian
    VBSCall GetScreenResolution(intX,intY)
    MoveTo intX/2,intY/2
Return YiDaoZhongJian
