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

[Script]
//ʼĹ
Dim hWnd
Dim ax,ay,bx,by
VBS set TiShiObj = createobject("WScript.Shell")
Plugin File.DeleteFile("../qmacro.ini.bak")
Plugin File.MoveFile("../qmacro.ini","../qmacro.ini.bak")
//ƵĻвλãʾϳʱƶ켣
VBS YiDongSuDu=3
Gosub YiDaoZhongJian
SaveMousePos 
//Ƶ(0,0)㣬굲ס˵
MoveTo 0 0
//˳ִиģ
Gosub ShuoMing
Gosub XinJian
Gosub JieShao1
Gosub JieShao2
Gosub JieShao3
Gosub ZhiZuo
Gosub BaoCunTuiChu
//βĹ
Plugin File.DeleteFile("../qmacro.ini")
Plugin File.MoveFile("../qmacro.ini.bak","../qmacro.ini")
EndScript 
//ģ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 
    VBS bxOpp = 141:byOpp = 47
    Gosub GetABPoint
    //VBSCall 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 
    VBS bxOpp=131:byOpp=120
    Gosub GetABPoint
    Gosub ManManYiDong
    LeftClick 1
    Delay 3000
    LeftClick 1
Return JieShao1
//ģ3ű༭棬ʹ
Sub JieShao2
    TiShiXinXI = "뿴"&vbCrLf&"ģĲ"
    Gosub TiShi
    //ʾ
    RestoreMousePos 
    VBS bxOpp=131:byOpp=142
    Gosub GetABPoint
    Gosub ManManYiDong
    LeftClick 1
    Delay 3000
    LeftClick 1
Return JieShao2
//ģ4ű༭棬ʹ
Sub JieShao3
    TiShiXinXI = "뿴"&vbCrLf&"ʵһЩõĹ"
    Gosub TiShi
    RestoreMousePos 
    //ʾ
    VBS bxOpp=131:byOpp=172
    Gosub GetABPoint
    Gosub ManManYiDong
    LeftClick 1
    Delay 3000
    LeftClick 1
Return JieShao3
//ģ5һɽű
Sub ZhiZuo
    TiShiXinXI = "ڲ5"&vbCrLf&"ʵģⰴ5AĹ"
    Gosub TiShi
    RestoreMousePos 
    VBS bxOpp=131:byOpp=120
    Gosub GetABPoint
    Gosub ManManYiDong
    LeftClick 1
    VBS bxOpp=54:byOpp=158
    Gosub GetABPoint
    YiDongSuDu = 10
    Gosub ManManYiDong
    LeftClick 1
    KeyPress 65 1
    VBS bxOpp=233:byOpp=167
    Gosub GetABPoint
    YiDongSuDu = 10
    Gosub ManManYiDong
    LeftClick 5
    TiShiXinXI = "ڳɹĲ5"&vbCrLf&"Ǳű˳"
    Gosub TiShi
Return ZhiZuo
//ģ6˳ű༭
Sub BaoCunTuiChu
    VBS bxOpp=91:byOpp=45
    Gosub GetABPoint
    YiDongSuDu = 10
    Gosub ManManYiDong
    LeftClick 1
    Delay 1000
    TiShiXinXI = "ϲ㣡һű "&vbCrLf&"ڽűбһҵĽű"
    Gosub TiShi
    TiShiXinXI = "½űȼ F10 "&vbCrLf&"űɰģⰴ5 A "
    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)
    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
