[General]
Description=⣺ȫ
BeginHotkey=121
BeginHotkeyMod=0
PauseHotkey=0
PauseHotkeyMod=0
StopHotkey=123
StopHotkeyMod=0
RunOnce=1
EnableWindow=
Enable=0
AutoRun=0
[Repeat]
Type=0
Number=1
[Relative]
SetupOCXFile=
[Comment]
Content=

[Script]
Plugin AllStartTime = Sys.GetTime()
//PutAttachment Plugin *.bmp
set TiShiObj = createobject("WScript.Shell")
TestFileFolder = "c:\Qm_Auto_Test\"
TestFilePath = TestFileFolder & "Ա.txt"
PaintTitle = "δ - ͼ"
PaintViewClass = "AfxFrameOrView42u"
PaintClientClass = "Afx:1000000:8"
NotepadTitle = "ޱ - ±"
Plugin File.DeleteFolder("c:\Qm_Auto_Test")
Delay 300
Plugin File.CreateFolder("c:\Qm_Auto_Test")
Delay 300
TestItemTitle = "ʼԣ벻Ҫƶ"
ScRX = 800
ScRY = 600
Gosub [ʾϢ]
TestItemNum = 1
Plugin File.WriteFileEx(TestFilePath,"ȡûϵͳ")
Gosub [ȡϸӲϢ]
Gosub [ȡҪӲϢ]
Gosub [WMIгϵͳн]
Plugin File.WriteFileEx(TestFilePath,"ʼ")
Gosub [Sys(ϵͳ)]
Gosub [ȡǰλ]
Gosub [ȡ״]
Gosub [ȡָɫ]
Gosub [ɫ]
Gosub [ɫ]
Gosub [ɫչ]
Gosub [ȡڴ]
Gosub [Memory(ڴ/)]
Gosub [Color(ɫ)]
Gosub [File(ļ)]
Gosub [Bkgnd(̨)]
Gosub [Window()]
Gosub [Media(ý)]
//Gosub [Msg(Ϣʾ)]
//Gosub [Pic(ͼ)]
Gosub [Office(칫ĵ)]
//Gosub [Console(̨)]
Gosub [Encrypt(ӽ)]
Gosub [Net()]
Gosub [Web(ҳ)]
Plugin AllEndTime = Sys.GetTime()
Plugin File.WriteFileEx(TestFilePath,"ȫԽܹʱ" & AllEndTime-AllStartTime & "")
MsgBox "ȫԽܹʱ" & AllEndTime-AllStartTime & ",ȷ鿴Խ"
VBSCall RunApp(TestFileFolder)
EndScript 
Sub [ʾϢ]
    Plugin Msg.HideScrTXT()
    Delay 100
    Plugin Msg.ShowScrTXT(0, 0, ScRX, ScRY, TiShiXinXi, "0000FF")
    Delay 100
Return [ʾϢ]
Sub [ͼ]
    TiShiXinXi = ScreenSnapShotTitle
    Gosub [ʾϢ]
    Plugin Pic.PrintScreen(0, 0, ScRX, ScRY, TestFileFolder & ScreenSnapShotTitle & ".jpg")
Return [ͼ]
Sub [ʼ]
    TiShiXinXi = TestItemTitle & "Կʼ"
    Gosub [ʾϢ]
    Plugin StartTime=Sys.GetTime()
    Plugin File.WriteFileEx(TestFilePath,TestItemNum & "." & TiShiXinXi & vbcrlf & "[code]")
    TestItemNum = TestItemNum + 1
Return [ʼ]
Sub []
    TiShiXinXi = TestItemTitle & "Խ"
    Plugin EndTime=Sys.GetTime()
    Gosub [ʾϢ]
    Plugin File.WriteFileEx(TestFilePath,TiShiXinXi & "ִٶΪ" & EndTime-StartTime & "" & vbcrlf & "[/code]" & vbcrlf)
Return []
Sub [ȡϸӲϢ]
    TestItemTitle = "ȡϸӲϢ"
    Gosub [ʼ]
    VBSBegin 
        all=""
        set ws=createobject("wscript.shell")
        set fso=createobject("scripting.filesystemobject")
        ws.run"cmd /c systeminfo >>c:\sys.txt",0,true
        set file=fso.opentextfile("c:\sys.txt")
        all=file.readall
        file.close
        fso.deletefile("c:\sys.txt")
    VBSEnd 
    Plugin File.WriteFileEx(TestFilePath,all & vbcrlf)
    Gosub []
Return [ȡϸӲϢ]
Sub [ȡҪӲϢ]
    TestItemTitle = "ȡҪӲϢ"
    Gosub [ʼ]
    VBSBegin 
        all=""
        temp=0
        set wshshell=createObject("wscript.shell")
        'WMI(ûͲ)
        wshshell.run ("%comspec% /c regsvr32 /s scrrun.dll"),0,True
        wshshell.run ("%comspec% /c sc config winmgmt start= auto"),0,True
        wshshell.run ("%comspec% /c net start winmgmt"),0
        strComputer = "."
        Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
        '
        set board =objwmiservice.execQuery("select * from win32_baseboard")
        for each item in board
        board2=board2&":" & item.Product
        next
        'CPU
        set cpu =objwmiservice.execQuery("select * from win32_processor")
        for each item in cpu
        cpu2= cpu2&"CPU:" & item.Name
        next
        'ڴ
        Set colItems = objWMIService.ExecQuery("Select * from Win32_PhysicalMemory",,48)
        For Each objItem in colItems
        a=objitem.capacity
        temp=temp+objitem.capacity
        n=n+1
        Next
        memory=temp/1048576
        if n=1 then
        memory2= "ڴ: " & n & "" &a&"M"
        else
        memory2= "ڴ: " & n & "" &a&"M"&" ܼ"&memory&"M"
        end if
        'Ӳ
        set disk =objwmiservice.execQuery("select * from win32_diskdrive")
        for each item in disk
        disk2= disk2&"Ӳ: " & item.Model&" "
        next
        'Կ
        set video =objwmiservice.execQuery("select * from win32_videocontroller",,48)
        for each item in video
        video2= video2&"Կ: " & item.Description
        next
        '
        Set colItems = objWMIService.ExecQuery("Select * from Win32_NetworkAdapter",,48)
        For Each objItem in colItems
        if (left(objItem.NetConnectionID,4)="") then
        lanname=lanname&objItem.Name
        end if
        Next
        lan2=": " & lanname
    VBSEnd 
    Plugin File.WriteFileEx(TestFilePath,board2)
    Plugin File.WriteFileEx(TestFilePath,cpu2)
    Plugin File.WriteFileEx(TestFilePath,memory2)
    Plugin File.WriteFileEx(TestFilePath,disk2)
    Plugin File.WriteFileEx(TestFilePath,video2)
    Plugin File.WriteFileEx(TestFilePath,lan2)
    Plugin File.WriteFileEx(TestFilePath,all)
    Gosub []
Return [ȡҪӲϢ]
Sub [WMIгϵͳн]
    TestItemTitle = "WMIгϵͳн"
    Gosub [ʼ]
    Set WMI = GetObject("WinMgmts:")
    Set objs = WMI.InstancesOf("Win32_Process")
    stt=stt & vbcrlf & "For Each obj In objs "
    stt=stt & vbcrlf & "Enum1 =  Enum1 & obj.Description & vbcrlf"
    stt=stt & vbcrlf & "Next"
    Execute(stt)
    Plugin File.WriteFileEx(TestFilePath,Enum1)
    Gosub []
Return [WMIгϵͳн]
Sub [Sys(ϵͳ)]
    TestItemTitle="Sys"
    Gosub [ʼ]
    Plugin OS = Sys.GetOSType()
    If OS=0
        Plugin File.WriteFileEx(TestFilePath,"Ĳϵͳ汾Windows 95/98")
    ElseIf OS=1
        Plugin File.WriteFileEx(TestFilePath,"Ĳϵͳ汾Windows ME/NT/2K/XP")
    ElseIf OS=2
        Plugin File.WriteFileEx(TestFilePath,"Ĳϵͳ汾Windows 2003")
    ElseIf OS=3
        Plugin File.WriteFileEx(TestFilePath,"Ĳϵͳ汾Windows 2008")
        PaintTitle = "ޱ - ͼ"
        PaintClientClass = "Afx:130000:8"
    ElseIf OS=4
        Plugin File.WriteFileEx(TestFilePath,"Ĳϵͳ汾Windows Vista")
        PaintTitle = "ޱ - ͼ"
        PaintClientClass = "Afx:1d0000:8"
    ElseIf OS=5
        Plugin File.WriteFileEx(TestFilePath,"Ĳϵͳ汾Windows 7")
        PaintTitle = "ޱ - ͼ"
        PaintViewClass = "MSPaintView"
        PaintClientClass = "Afx:9c0000:8"
    ElseIf OS=6
        Plugin File.WriteFileEx(TestFilePath,"Ĳϵͳ汾Windows CE")
    Else 
        Plugin File.WriteFileEx(TestFilePath,"ʶǰϵͳ汾")
    EndIf 
    Plugin ScRX=Sys.GetScRX()
    Plugin File.WriteFileEx(TestFilePath,"ĵǰĻֱʿȣ" & ScRX)
    Plugin ScRY=Sys.GetScRY()
    Plugin File.WriteFileEx(TestFilePath,"ĵǰĻֱʸ߶ȣ" & ScRY)
    Plugin ScDep=Sys.GetScDep()
    Plugin File.WriteFileEx(TestFilePath,"ĵǰĻɫȣ" & ScDep)
    Plugin s=Sys.GetTime()
    xs=int(s/1000/60/60)
    fz=int(s/1000/60)-xs*60
    m=Clng(s/1000)-fz*60-xs*60*60
    Plugin File.WriteFileEx(TestFilePath,"ĲϵͳĿǰʱ䣺" & xs & "Сʱ" & fz & "" & m & "")
    Plugin HDDSN = Sys.GetHDDSN()
    Plugin File.WriteFileEx(TestFilePath,"Ӳкǣ" & hex(HDDSN))
    Plugin CurrentPath = Sys.GetDir(0)
    Plugin File.WriteFileEx(TestFilePath,"õǰ·Ϊ" & CurrentPath)
    Plugin Sys.SetCLB("üа")
    Plugin File.WriteFileEx(TestFilePath,"üа")
    Plugin Clipboard = Sys.GetCLB()
    Plugin File.WriteFileEx(TestFilePath,"ȡаݣ" & Clipboard)
    Gosub []
Return [Sys(ϵͳ)]
Sub [File(ļ)]
    TestItemTitle="File"
    Gosub [ʼ]
    fileINI = "C:\QmTestINI.ini"
    Plugin File.WriteINI("Command", "Val", "Բ", fileINI)
    Delay 300
    Plugin IsFile = File.IsFileExit(fileINI)
    If IsFile = True
        txt="Ŀļɹ"
        Plugin Text = File.ReadINI("Command", "Val", fileINI)
    Else 
        txt="Ŀļʧ"
    EndIf 
    Plugin File.WriteFileEx(TestFilePath,fileINI & txt & " дΪ" & Text)
    filePath = TestFileFolder & "Log.txt"
    Plugin fileHandle=File.OpenFile(filePath)
    If fileHandle=-1
        Plugin File.WriteFileEx(TestFilePath,"񴴽ļ" & filePath & "ʧ")
    Else 
        Plugin File.WriteFileEx(TestFilePath,"ļ" & filePath & "ɹ,ؾ"&fileHandle)
    EndIf 
    Plugin File.SeekFile(fileHandle,0)
    Plugin File.WriteFileEx(TestFilePath,"λļͷ")
    Text = "ãӭʹðԽű"
    Plugin File.WriteFile(fileHandle,Text)
    Plugin File.WriteFileEx(TestFilePath,"дı" & Text)
    Text = "濪ʼ"
    Plugin File.WriteLine(fileHandle,Text)
    Plugin File.WriteFileEx(TestFilePath,"дһı" & Text)
    Plugin File.CloseFile(fileHandle)
    Plugin File.WriteFileEx(TestFilePath,"رļ" & filePath)
    Plugin Length = File.GetFileLength(filePath)
    Plugin File.WriteFileEx(TestFilePath,filePath & "ļΪ" & Length)
    Plugin fileHandle=File.OpenFile(filePath)
    If fileHandle=-1
        Plugin File.WriteFileEx(TestFilePath,"񴴽ļ" & filePath & "ʧ")
    Else 
        Plugin File.WriteFileEx(TestFilePath,"ļ" & filePath & "ɹ,ؾ" & fileHandle)
    EndIf 
    Plugin file20byte=File.ReadFile(fileHandle,20)
    Plugin File.WriteFileEx(TestFilePath,"ȡ20ַ" & file20byte)
    Plugin fileline=File.ReadLine(fileHandle)
    Plugin File.WriteFileEx(TestFilePath,"ȡһַ" & fileline)
    Plugin File.CloseFile(fileHandle)
    Plugin File.WriteFileEx(TestFilePath,"رļ" & filePath)
    fileBak = TestFileFolder & "Log.bak"
    Plugin File.CopyFile(filePath, fileBak)
    Delay 300
    Plugin IsFile = File.IsFileExit(fileBak)
    If IsFile=True
        Plugin File.WriteFileEx(TestFilePath,"" & filePath & "Ƶ" & fileBak & "ɹ")
    Else 
        Plugin File.WriteFileEx(TestFilePath,"" & filePath & "Ƶ" & fileBak & "ʧ")
    EndIf 
    Plugin File.MoveFile(fileINI, TestFileFolder & "QmTestINI.ini")
    Delay 300
    Plugin IsFile = File.IsFileExit(fileINI)
    If IsFile=True
        Plugin File.DeleteFile(fileINI)
        Plugin File.WriteFileEx(TestFilePath,"ƶļʧܣɾ" & fileINI)
    Else 
        Plugin File.WriteFileEx(TestFilePath,"ƶļ" & fileINI & "ɹ")
    EndIf 
    TestPath = TestFileFolder & "Test"
    Plugin File.CreateFolder(TestPath)
    Delay 300
    Plugin IsFile = File.IsFileExit(TestPath)
    If IsFile=0
        Plugin File.DeleteFolder(TestPath)
        Plugin File.WriteFileEx(TestFilePath,"ļгɹɾļ" & TestPath)
    Else 
        Plugin File.WriteFileEx(TestFilePath,"񴴽ļʧ")
    EndIf 
    fileBakup = TestFileFolder & "Log.bakup"
    Plugin File.ReNameFile(fileBak, fileBakup)
    Plugin File.WriteFileEx(TestFilePath,"" & fileBak & "Ϊ" & fileBakup)
    Plugin File.SetAttrib(fileBakup, 0)
    Plugin File.SetDate(fileBakup, "2009-2-19 10:10:10")
    Plugin File.WriteFileEx(TestFilePath,"" & fileBakup & "޸ڸΪ2009-2-19 10:10:10")
    //Ҫû
    //    Plugin filepath = File.SelectFile()
    //    Plugin File.WriteFileEx(TestFilePath, "ѡļǣ" & filepath)
    //    Plugin dirPath = File.SelectDirectory()
    //    Plugin File.WriteFileEx(TestFilePath, "ѡĿ¼ǣ" & dirPath)
    Gosub []
Return [File(ļ)]
Sub [Bkgnd(̨)]
    TestItemTitle="Bkgnd"
    Gosub [ʼ]
    PaintPath="mspaint.exe"
    VBSCall RunApp(PaintPath)
    Plugin File.WriteFileEx(TestFilePath, "г" & PaintPath)
    Delay 1000
    Plugin PaintHwnd=Window.Find(0,PaintTitle)
    If PaintHwnd = 0
        Delay 1000
        Plugin PaintHwnd=Window.Find(0,PaintTitle)
    EndIf 
    If PaintHwnd = 0
        Plugin File.WriteFileEx(TestFilePath,"" & PaintPath & "ʧ")
    Else 
        Plugin File.WriteFileEx(TestFilePath,"" & PaintPath & "гɹΪ" & PaintHwnd)
        Plugin SubHwnd=Window.FindEx(PaintHwnd, 0, PaintViewClass, 0)
        Plugin SubHwnd=Window.FindEx(SubHwnd, 0, PaintClientClass, 0)
        Plugin File.WriteFileEx(TestFilePath,"ͼΪ" & SubHwnd)
        x = 10
        y = 50
        For 5
            Plugin Bkgnd.LeftClick(SubHwnd, x, y)
            x = x + 10
            y = y + 10
            Delay 100
        EndFor 
        x = 30
        y = 50
        For 5
            Plugin Bkgnd.LeftDoubleClick(SubHwnd, x, y)
            x = x + 10
            y = y + 10
        EndFor 
        Plugin File.WriteFileEx(TestFilePath, "̨ģ")
        Gosub [ģ]
        Plugin Color = Bkgnd.GetPixelColor(SubHwnd, 5, 5)
        Plugin File.WriteFileEx(TestFilePath,"" & SubHwnd & "(:5,5)ɫ=" & Color)
        Plugin XY = Bkgnd.FindColor(SubHwnd, 0, 0, 700,550,"FFFFFF")
        Dim MyArray
        MyArray = Split(XY, "|")
        X = CInt(MyArray(0))
        Y = CInt(MyArray(1))
        Plugin File.WriteFileEx(TestFilePath,"FindColorҴ" & SubHwnd & "ɫ:FFFFFFX="& X & ",Y=" & Y)
        Plugin XY = Bkgnd.FindColorEx(SubHwnd, 0, 0, 700,550,"FFFFFF", 0, 0.9)
        MyArray = Split(XY, "|")
        X = CInt(MyArray(0)): Y = CInt(MyArray(1))
        Plugin File.WriteFileEx(TestFilePath,"FindColorExģҴ" & SubHwnd & "ɫ:FFFFFFX="& X & ",Y=" & Y)
        Plugin XY = Bkgnd.FindCenterColor(SubHwnd, 0, 0, 700,550,"FFFFFF")
        MyArray = Split(XY, "|")
        X = CInt(MyArray(0)): Y = CInt(MyArray(1))
        Plugin File.WriteFileEx(TestFilePath,"FindCenterColorҴ" & SubHwnd & "ɫ:FFFFFFX="& X & ",Y=" & Y)
        ScreenSnapShotTitle = "ģɫܽ"
        Plugin File.WriteFileEx(TestFilePath,"ģͺ̨ɫܲԽ,رջͼ,Խ鿴ͼ:" & ScreenSnapShotTitle)
        Gosub [ͼ]
        Plugin Window.Close(PaintHwnd)
        Plugin File.WriteFileEx(TestFilePath,"" & PaintPath & "رճɹ")
    EndIf 
    NotepadPath = "notepad.exe"
    VBSCall RunApp(NotepadPath)
    Plugin File.WriteFileEx(TestFilePath, "г" & NotepadPath)
    Delay 1000
    Plugin NotepadHwnd=Window.Find(0,NotepadTitle)
    If NotepadHwnd = 0
        Delay 1000
        Plugin NotepadHwnd=Window.Find(0,NotepadTitle)
    EndIf 
    If NotepadHwnd = 0
        Plugin File.WriteFileEx(TestFilePath,"" & NotepadPath & "ʧ")
    Else 
        Plugin File.WriteFileEx(TestFilePath,"" & NotepadPath & "гɹΪ" & NotepadHwnd)
        Gosub [ģ̲]
        Plugin SubHwnd=Window.FindEx(NotepadHwnd, 0, "Edit", 0)
        If SubHwnd=0
            Plugin File.WriteFileEx(TestFilePath,"ûҵӴھ")
        Else 
            Plugin File.WriteFileEx(TestFilePath,"鵽ĿΪ" & SubHwnd)
            InputText="̨ģ̲Ϣ"
            Plugin Bkgnd.SendString(SubHwnd, InputText)
            For 5
                Plugin Bkgnd.KeyPress(SubHwnd, 65)
                Delay 100
            EndFor 
            Plugin Bkgnd.KeyDown(SubHwnd, 13)
            Plugin Bkgnd.KeyUp(SubHwnd, 13)
            Plugin File.WriteFileEx(TestFilePath,InputText & "aaaaa")
        EndIf 
    EndIf 
    Gosub []
Return [Bkgnd(̨)]
Sub [Window()]
    TestItemTitle="Window"
    Gosub [ʼ]
    InputText = "ģϢ"
    Plugin Window.SendString(SubHwnd, InputText)
    For 5
        Plugin Window.SendKeyPress(SubHwnd, 66)
        Delay 50
    EndFor 
    Plugin Window.SendKeyDown(SubHwnd, 13)
    Plugin Window.SendKeyUp(SubHwnd, 13)
    Plugin File.WriteFileEx(TestFilePath,InputText & "bbbbb")
    ScreenSnapShotTitle = "ģز"
    Plugin File.WriteFileEx(TestFilePath,"ģزɣ鿴ͼ:" & ScreenSnapShotTitle)
    Gosub [ͼ]
    Plugin path=Window.GetExePath(NotepadHwnd)
    Plugin File.WriteFileEx(TestFilePath,"±·ǣ" & path)
    Plugin Window.Active(NotepadHwnd)
    Plugin File.WriteFileEx(TestFilePath,"" & NotepadHwnd)
    Delay 100
    Plugin Hwnd = Window.Foreground()
    Plugin File.WriteFileEx(TestFilePath,"õǰǰ洰ھΪ" & Hwnd)
    Delay 100
    Plugin Window.Min(NotepadHwnd)
    Plugin File.WriteFileEx(TestFilePath,"С" & NotepadHwnd)
    Delay 100
    Plugin Window.Restore(NotepadHwnd)
    Plugin File.WriteFileEx(TestFilePath,"ԭ" & NotepadHwnd)
    Delay 100
    Plugin Window.Max(NotepadHwnd)
    Plugin File.WriteFileEx(TestFilePath,"󻯴" & NotepadHwnd)
    Delay 100
    Plugin Window.Restore(NotepadHwnd)
    Plugin File.WriteFileEx(TestFilePath,"ԭ" & NotepadHwnd)
    Delay 100
    Plugin Window.Hide(NotepadHwnd)
    Plugin File.WriteFileEx(TestFilePath,"ش" & NotepadHwnd)
    Delay 100
    Plugin Window.Show(NotepadHwnd)
    Plugin File.WriteFileEx(TestFilePath,"ʾ" & NotepadHwnd)
    Delay 100
    Plugin Window.Top(NotepadHwnd, 0)
    Plugin File.WriteFileEx(TestFilePath,"ǰ" & NotepadHwnd)
    Delay 100
    Plugin Window.Top(NotepadHwnd, 1)
    Plugin File.WriteFileEx(TestFilePath,"ȡǰ" & NotepadHwnd)
    Delay 100
    Plugin MousePointHwnd = Window.MousePoint()
    Plugin File.WriteFileEx(TestFilePath,"õָ򴰿ھΪ" & MousePointHwnd)
    Delay 100
    Plugin Rect = Window.GetWindowRect(NotepadHwnd)
    Plugin File.WriteFileEx(TestFilePath,"õ" & NotepadHwnd & "ı߿С()Ϊ" & Rect)
    Dim MyArray
    MyArray = Split(Rect, "|")
    W1 = Clng(MyArray(0)): H1 = Clng(MyArray(1))
    W2 = Clng(MyArray(2)): H2 = Clng(MyArray(3))
    Plugin File.WriteFileEx(TestFilePath,"õ" & NotepadHwnd & "ı߿С()Ϊ" &  W2-W1 & "*" & H2-H1)
    Delay 100
    Plugin Rect = Window.GetClientRect(NotepadHwnd)
    Plugin File.WriteFileEx(TestFilePath,"ȡͻСΪ" & Rect)
    MyArray = Split(Rect, "|")
    L = Clng(MyArray(0)): T = Clng(MyArray(1))
    R = Clng(MyArray(2)): B = Clng(MyArray(3))
    Plugin File.WriteFileEx(TestFilePath,"ͻСΪ" & R-L & "*" & B-T)
    Delay 100
    Plugin Window.Size(NotepadHwnd, 100, 100)
    Plugin File.WriteFileEx(TestFilePath,"ı䴰" & NotepadHwnd & "СΪ100*100")
    Delay 100
    Plugin Window.Size(NotepadHwnd, W2-W1, H2-H1)
    Plugin File.WriteFileEx(TestFilePath,"ı䴰" & NotepadHwnd & "СΪ" &  W2-W1 & "*" & H2-H1)
    Delay 100
    Plugin Window.Move(NotepadHwnd, 100, 100)
    Plugin File.WriteFileEx(TestFilePath,"ƶڵ(100,100)λ")
    Delay 100
    Plugin Window = Window.IsWindow(NotepadHwnd)
    If Window = 1
        Plugin File.WriteFileEx(TestFilePath,"" & NotepadHwnd & "Ѵ")
    Else 
        Plugin File.WriteFileEx(TestFilePath,"񴰿" & NotepadHwnd & "ûд")
    EndIf 
    Plugin Title = Window.GetText(NotepadHwnd)
    If Title=""
        Plugin File.WriteFileEx(TestFilePath,"񴰿" & NotepadHwnd & "ȡʧ")
    Else 
        Plugin File.WriteFileEx(TestFilePath,"" & NotepadHwnd & "Ϊ" & Title)
    EndIf 
    Plugin ClassName = Window.GetClass(NotepadHwnd)
    If ClassName=""
        Plugin File.WriteFileEx(TestFilePath,"񴰿" & NotepadHwnd & "ȡʧ")
    Else 
        Plugin File.WriteFileEx(TestFilePath,"" & NotepadHwnd & "Ϊ" & ClassName)
    EndIf 
    Plugin HwndEx = Window.Search("±")
    If HwndEx=""
        Plugin File.WriteFileEx(TestFilePath,"ûҵϵĴھ")
    Else 
        Plugin File.WriteFileEx(TestFilePath,"ҵĴھΪ" & HwndEx)
    EndIf 
    MyArray = Split(HwndEx, "|")
    If UBound(MyArray)>=0
        i=0
        For UBound(MyArray)
            Plugin File.WriteFileEx(TestFilePath,"" & i+1 & "ھΪ" & Clng(MyArray(i)))
            i=i+1
        EndFor 
    EndIf 
    Plugin Window.Close(NotepadHwnd)
    Plugin File.WriteFileEx(TestFilePath,"" & NotepadPath & "رճɹ")
    Gosub []
Return [Window()]
Sub [Office(칫ĵ)]
    TestItemTitle="Office"
    Gosub [ʼ]
    set oExcel = createobject("Excel.Application")
    If TypeName(oExcel) = "Application"
        Text = "Office"
        XmlPath = TestFileFolder & ".xls"
        Plugin Office.WriteXls(1, 1, 1, Text, XmlPath)
        Plugin File.WriteFileEx(TestFilePath,"" & XmlPath & "дı" & Text)
        Plugin Text = Office.ReadXls(1, 1, 1, XmlPath)
        Plugin File.WriteFileEx(TestFilePath,"" & XmlPath & "Excelĵ(1)Ԫ(1, 1):" & Text)
    Else 
        Plugin File.WriteFileEx(TestFilePath,"δװOffice칫")
    EndIf 
    Gosub []
Return [Office(칫ĵ)]
Sub [ȡǰλ]
    VBSCall GetCursorPos(x,y)
    If x>=0
        Plugin File.WriteFileEx(TestFilePath,"ǰλǣ" & x &","& y)
    Else 
        Plugin File.WriteFileEx(TestFilePath,"δܵõǰλ")
    EndIf 
Return [ȡǰλ]
Sub [ȡָɫ]
    VBSCall color=GetPixelColor(100,100)
    If color=""
        Plugin File.WriteFileEx(TestFilePath,"δܵõ:100,100ɫֵ")
    Else 
        Plugin File.WriteFileEx(TestFilePath,":100,100ɫֵǣ" & color)
    EndIf 
Return [ȡָɫ]
Sub [ɫ]
    VBSCall FindColor(0,0,ScRX,ScRY,"FFFFFF",x,y)
    If x>=0
        Plugin File.WriteFileEx(TestFilePath,"0,0," & ScRX & "," & ScRY & "Ѱҵ'FFFFFF'ɫ")
    Else 
        Plugin File.WriteFileEx(TestFilePath,"δ0,0," & ScRX & "," & ScRY & "Ѱҵ'FFFFFF'ɫ")
    EndIf 
Return [ɫ]
Sub [ɫ]
    VBSCall FindCenterColor(0,0,ScRX,ScRY,"FFFFFF",x,y)
    If x>=0
        Plugin File.WriteFileEx(TestFilePath,"0,0," & ScRX & "," & ScRY & "Ѱҵ'FFFFFF'ɫ")
    Else 
        Plugin File.WriteFileEx(TestFilePath,"δ0,0," & ScRX & "," & ScRY & "Ѱҵ'FFFFFF'ɫ")
    EndIf 
Return [ɫ]
Sub [ɫչ]
    VBSCall FindColorEx(0,0,ScRX,ScRY,"FFFFFF",0,0.9,x,y)
    If x>=0
        Plugin File.WriteFileEx(TestFilePath,"0,0," & ScRX & "," & ScRY & "дҿʼѰҵ'FFFFFF'ɫ")
    Else 
        Plugin File.WriteFileEx(TestFilePath,"δ0,0," & ScRX & "," & ScRY & "дҿʼѰҵ'FFFFFF'ɫ")
    EndIf 
    Delay 1000
    VBSCall FindColorEx(0,0,ScRX,ScRY,"FFFFFF",1,0.9,x,y)
    If x>=0
        Plugin File.WriteFileEx(TestFilePath,"0,0," & ScRX & "," & ScRY & "дĿʼѰҵ'FFFFFF'ɫ")
    Else 
        Plugin File.WriteFileEx(TestFilePath,"δ0,0," & ScRX & "," & ScRY & "ĿʼѰҵ'FFFFFF'ɫ")
    EndIf 
    Delay 1000
    VBSCall FindColorEx(0,0,ScRX,ScRY,"FFFFFF",2,0.9,x,y)
    If x>=0
        Plugin File.WriteFileEx(TestFilePath,"0,0," & ScRX & "," & ScRY & "дʼѰ'FFFFFF'ɫ")
    Else 
        Plugin File.WriteFileEx(TestFilePath,"δ0,0," & ScRX & "," & ScRY & "дʼѰҵ'FFFFFF'ɫ")
    EndIf 
Return [ɫչ]
Sub [ͼƬ]
    VBSCall FindPic(0,50,1023,767,"winmine.bmp",0.9,intX,intY)
    If intX>0 and intY>0
        Plugin File.WriteFileEx(TestFilePath,"" & ScRX & "X" & ScRY & "ķֱѰҵɨ׳Цͼ")
    Else 
        Plugin File.WriteFileEx(TestFilePath,"" & ScRX & "X" & ScRY & "ķֱѰҵɨ׳Цͼ")
    EndIf 
Return [ͼƬ]
Sub [ȡڴ]
    VBSCall ReadMemory(&h400000,2,val)
    Plugin File.WriteFileEx(TestFilePath,"ȡڴַ&h400000Ľǣ"&CStr(val))
Return [ȡڴ]
Sub [ȡ״]
    VBSCall shape=GetCursorShape(0)
    Plugin File.WriteFileEx(TestFilePath,"ǰ:" & shape)
Return [ȡ״]
Sub [ģ]
    Plugin Window.Max(PaintHwnd)
    Plugin File.WriteFileEx(TestFilePath,"󻯴" & PaintHwnd)
    Delay 100
    Plugin Window.Active(PaintHwnd)
    Plugin File.WriteFileEx(TestFilePath,"" & PaintHwnd)
    Delay 100
    KeyDown 17,1
    KeyPress 69,1
    KeyUp 17,1
    Delay 100
    SayString "500"
    Delay 50
    KeyPress 9,1
    SayString "500"
    Delay 50
    KeyPress 13,1
    Delay 50
    MoveTo 150,200
    Delay 50
    For 5
        MoveR 10,10
        Delay 50
        LeftClick 1
        Delay 50
    EndFor 
    Plugin File.WriteFileEx(TestFilePath,"ͨģ")
    Delay 50
    MoveTo 200,200
    Delay 50
    For 5
        MoveRS 10,10
        Delay 50
        LeftClickS 1
        Delay 50
    EndFor 
    Plugin File.WriteFileEx(TestFilePath,"ģ")
    Delay 50
    MoveTo 300,200
    Delay 50
    For 5
        MoveRH 10,10
        LeftClickH 1
        Delay 50
    EndFor 
    Plugin File.WriteFileEx(TestFilePath,"Ӳģ")
Return [ģ]
Sub [ģ̲]
    Plugin Window.Active(NotepadHwnd)
    Delay 300
    SayString "ͨģ:"
    Delay 50
    For 5
        KeyPress 65 1
        Delay 50
    EndFor 
    KeyPress 13,1
    Plugin File.WriteFileEx(TestFilePath,"ͨģ:aaaaa")
    Delay 50
    SayString "ģ:"
    Delay 50
    For 5
        KeyPressS 66 1
        Delay 50
    EndFor 
    KeyPressS 13,1
    Plugin File.WriteFileEx(TestFilePath,"ģ:bbbbb")
    Delay 50
    SayString "Ӳģ:"
    Delay 50
    For 5
        KeyPressH 67 1
        Delay 50
    EndFor 
    KeyPressH 13,1
    Plugin File.WriteFileEx(TestFilePath,"Ӳģ:ccccc")
Return [ģ̲]
Sub TestFindNumber
    dh_x=916:dh_y=5
    Normal1X=array(dh_x+4,dh_x+1,dh_x,dh_x+4,dh_x+3,dh_x+2,dh_x+1)
    Normal1Y=array(dh_y,dh_y+1,dh_y+2,dh_y+2,dh_y+3,dh_y+4,dh_y+5)
    jx=0
    zuobiao1_i=0
    zuobiao1_y=0
    VBSCall zuobiao1_n=getnum(Normal1X,Normal1Y,jx,"FFFFFF")
    If zuobiao1_n < 10
        zuobiao1_y = zuobiao1_y * 10 + zuobiao1_n
    EndIf 
    For 3
        jx=jx+6
        VBSCall zuobiao1_n=getnum(Normal1X,Normal1Y,jx,"FFFFFF")
        If zuobiao1_n < 10
            zuobiao1_y = zuobiao1_y * 10 + zuobiao1_n
        EndIf 
    EndFor 
    myx=abs(zuobiao1_y)
    Normal2X=array(dh_x+4+50,dh_x+1+50,dh_x+50,dh_x+4+50,dh_x+3+50,dh_x+2+50,dh_x+1+50)
    Normal2Y=array(dh_y,dh_y+1,dh_y+2,dh_y+2,dh_y+3,dh_y+4,dh_y+5)
    jx=0
    zuobiao2_i=0
    zuobiao2_y=0
    VBSCall zuobiao2_n=getnum(Normal2X,Normal2Y,jx,"FFFFFF")
    If zuobiao2_n < 10
        zuobiao2_y = zuobiao2_y * 10 + zuobiao2_n
    EndIf 
    For 3
        jx=jx+6
        VBSCall zuobiao2_n=getnum(Normal2X,Normal2Y,jx,"FFFFFF")
        If zuobiao2_n < 10
            zuobiao2_y = zuobiao2_y * 10 + zuobiao2_n
        EndIf 
    EndFor 
    myy=abs(zuobiao2_y)
Return TestFindNumber
Sub [Media(ý)]
    TestItemTitle="Media"
    Gosub [ʼ]
    Plugin Media.Beep(523, 200)
    Plugin Media.Beep(578, 200)
    Plugin Media.Beep(659, 200)
    Plugin Media.Beep(698, 200)
    Plugin Media.Beep(784, 200)
    Plugin Media.Beep(880, 200)
    Plugin Media.Beep(988, 200)
    Plugin File.WriteFileEx(TestFilePath,"BeepŽ")
    Plugin Media.Play("C:\WINDOWS\Media\Windows XP .wav")
    Plugin File.WriteFileEx(TestFilePath,"ʼ")
    Plugin Media.Vol(50)
    Plugin File.WriteFileEx(TestFilePath,"СΪ50")
    Plugin Media.Stop()
    Plugin File.WriteFileEx(TestFilePath,"ֹͣ")
    Gosub []
Return [Media(ý)]
Sub [Msg(Ϣʾ)]
    TestItemTitle="Msg"
    Gosub [ʼ]
    PU=0
    For 1
        Plugin Msg.HideScrTXT()
        Plugin File.WriteFileEx(TestFilePath,"ˢĻ")
        Delay 300
        Plugin Msg.ShowScrTXT(0, 0, ScRX, ScRY, "Ļд  "&PU, "0000FF")
        ScreenSnapShotTitle = "MsgԽ"
        Plugin File.WriteFileEx(TestFilePath,"ĻݣĻд  " & PU & "뿴ͼ:" & ScreenSnapShotTitle)
        Gosub [ͼ]
        Delay 300
        PU=PU+1
    EndFor 
    Gosub []
Return [Msg(Ϣʾ)]
Sub [Color(ɫ)]
    TestItemTitle="Color"
    Gosub [ʼ]
    Plugin Color.ColorToRGB("0000FF", R, G, B)
    Plugin File.WriteFileEx(TestFilePath,"16ɫ(0000FF)תֽ⵽10(R:" & R & ",G:" & G &",B:" & B & ")")
    Plugin Color = Color.GetRGB(255, 0, 0)
    Plugin File.WriteFileEx(TestFilePath,"10ɫ(255,0,0)תΪ16ɫ" & Color)
    Plugin Color.ColorToHSL("0000FF", H, S, L)
    Plugin File.WriteFileEx(TestFilePath,"16ɫ(0000FF)תֽ⵽10(H:" & H & ",S:" & S & ",L:" & L & ")")
    Plugin NUM = Color.CountColor(0, 0, ScRX, ScRY, "FFFFFF",1)
    Plugin File.WriteFileEx(TestFilePath,"ɫ(FFFFFF)=" & NUM)
    Plugin XY = Color.FindMutiColor(0, 0, ScRX, ScRY, "FFFFFF", "2|0|FFFFFF,-6|1|FFFFFF,-3|1|FFFFFF,-6|3|FFFFFF,-3|3|FFFFFF,0|3|FFFFFF,4|3|FFFFFF,-1|5|FFFFFF,3|5|FFFFFF,-3|6|FFFFFF,-6|7|FFFFFF,1|8|FFFFFF,4|8|FFFFFF,-5|10|FFFFFF,-3|10|FFFFFF,4|10|FFFFFF", 1)
    MyArray = Split(XY, "|")
    X = CInt(MyArray(0)): Y = CInt(MyArray(1))
    Plugin File.WriteFileEx(TestFilePath,"ĻɫܣĻ""""λΪ" & X&","&Y)
    Plugin XY = Color.FindShape(0, 0, ScRX, ScRY, "5|0|1,4|1|1,7|1|1,-2|2|1,8|2|1,4|3|1,0|4|1,3|5|1,5|5|1,-2|6|1,0|6|1,3|7|1,6|7|1,0|8|1,5|9|1,-2|10|1,0|10|1,2|10|1,8|10|1", 1)
    MyArray = Split(XY, "|")
    X = Clng(MyArray(0)): Y = Clng(MyArray(1))
    Plugin File.WriteFileEx(TestFilePath,"Ļͼ״ܣĻ""""λΪ" & X & "," & Y)
    ScreenSnapShotTitle = "ColorԽ"
    Plugin File.WriteFileEx(TestFilePath,"Color(ɫ)Խ,Խ鿴ͼ:" & ScreenSnapShotTitle)
    Gosub [ͼ]
    Gosub []
Return [Color(ɫ)]
Sub [Console(̨)]
    TestItemTitle="Console"
    Gosub [ʼ]
    Plugin Console.Open()
    Plugin File.WriteFileEx(TestFilePath,"򿪿̨")
    Plugin Console.WriteLine("̨Կʼ뼸ַȻ󰴻س")
    Plugin File.WriteFileEx(TestFilePath,"̨Կʼ뼸ַȻ󰴻س")
    Plugin ReadLine = Console.ReadLine()
    Plugin File.WriteFileEx(TestFilePath,"ȡı" & ReadLine)
    Plugin Console.WriteLine("ʾű˳̨" & vbcrlf)
    Plugin File.WriteFileEx(TestFilePath,"ʾű˳̨" & vbcrlf)
    Plugin Console.Close()
    Plugin File.WriteFileEx(TestFilePath,"رտ̨")
    Gosub []
Return [Console(̨)]
Sub [Pic(ͼ)]
    TestItemTitle="Pic"
    Gosub [ʼ]
    Plugin Pic.PrintScreen(0, 0, ScRX, ScRY, TestFileFolder & "PIC.bmp")
    Plugin File.WriteFileEx(TestFilePath,"ͼ浽(" & TestFileFolder & "PIC.bmp)")
    Delay 200
    Plugin Pic.PrintScreen(0, 0, ScRX, ScRY, TestFileFolder & "PIC.jpg")
    Plugin File.WriteFileEx(TestFilePath,"ͼ浽(" & TestFileFolder & "PIC.jpg)")
    Gosub []
Return [Pic(ͼ)]
Sub [Memory(ڴ/)]
    TestItemTitle="Memory"
    Gosub [ʼ]
    WinminePath = "winmine.exe"
    WinmineTitle = "ɨ"
    VBSCall RunApp(WinminePath)
    Delay 1000
    Plugin WinmineHwnd=Window.Find(0,WinmineTitle)
    If WinmineHwnd = 0
        Delay 1000
        Plugin WinmineHwnd=Window.Find(0,WinmineTitle)
    EndIf 
    If WinmineHwnd=0
        Plugin File.WriteFileEx(TestFilePath,"" & WinminePath & "ʧ")
    Else 
        Gosub [ͼƬ]
        Plugin File.WriteFileEx(TestFilePath,"" & WinminePath & "гɹΪ" & WinmineHwnd)
        Plugin Memory.SetProcessLive(WinmineHwnd, 4)
        Plugin File.WriteFileEx(TestFilePath,"ýȼΪ(ڱ׼(A)")
        Plugin Live = Memory.GetProcessLive(WinmineHwnd)
        Plugin File.WriteFileEx(TestFilePath,"ȼΪ"&Live)
        Dim x, y
        Plugin x=Memory.Read32Bit(WinmineHwnd,&h1005334)
        Plugin y=Memory.Read32Bit(WinmineHwnd,&h1005338)
        Plugin File.WriteFileEx(TestFilePath, "ɨ׵ĳĸΪ" &x& "  *  " &y&"")
        strview = ""
        i = 0
        ClickX = 18
        ClickY = 56
        Plugin Bkgnd.LeftClick(WinmineHwnd,ClickX,ClickY)
        For y
            j = 0
            For x
                Plugin Val = Memory.Read8Bit(WinmineHwnd,&h1005360+(j+i*32+1))
                If Val = &h8F or Val = &h8A
                    strview = strview & " *"
                    Plugin Bkgnd.RightClick(WinmineHwnd,ClickX + 16*j,ClickY + 16*i)
                Else 
                    strview = strview & " @"
                    Plugin Bkgnd.LeftClick(WinmineHwnd,ClickX + 16*j,ClickY + 16*i)
                EndIf 
                j = j+1
            EndFor 
            strview = strview & vbcrlf
            i = i+1
        EndFor 
        strview = strview & "˵@ȫ*"
        Plugin File.WriteFileEx(TestFilePath,strview)
        Plugin Val = Memory.Read8Bit(WinmineHwnd, &H400000)
        Plugin File.WriteFileEx(TestFilePath, "ȡ8λڴֵ(&H400000)ڴַ"&Val)
        Plugin Val = Memory.Read16Bit(WinmineHwnd, &H400000)
        Plugin File.WriteFileEx(TestFilePath, "ȡ16λڴֵ(&H400000)ڴַ"&Val)
        Plugin Val = Memory.ReadSingle(WinmineHwnd,&h1005338)
        Plugin File.WriteFileEx(TestFilePath, "ȡ32λڴ渡ֵ(&h1005338)ڴַ"&Val)
        Plugin Val = Memory.ReadDouble(WinmineHwnd, &H400000)
        Plugin File.WriteFileEx(TestFilePath, "ȡ64λڴ渡ֵ(&H400000)ڴַ"&Val)
        Plugin z = Memory.ReadString(WinmineHwnd, &H7D7A45B4, 2)
        Plugin File.WriteFileEx(TestFilePath, "һ""""ڴַΪ&H" & Hex(DiZhi))
        Plugin Val = Memory.Find8Bit(WinmineHwnd, 100, &H400000, &H600000, 2)
        Plugin File.WriteFileEx(TestFilePath, "8λڴֵ(100)ַ"&Val)
        Plugin Val = Memory.Find16Bit(WinmineHwnd, 100, &H400000, &H600000, 2)
        Plugin File.WriteFileEx(TestFilePath, "16λڴֵ(100)ַ"&Val)
        Plugin Val = Memory.Find32Bit(WinmineHwnd, 100, &H400000, &H600000, 2)
        Plugin File.WriteFileEx(TestFilePath, "32λڴֵ(100)ַ"&Val)
        Plugin DiZhi = Memory.FindString(WinmineHwnd, "", &H7D7045B4, &H7D8045B4, 2)
        Plugin File.WriteFileEx(TestFilePath, "һ""""ڴַΪ&H" & Hex(DiZhi))
        ScreenSnapShotTitle = "MemoryԽ"
        Plugin File.WriteFileEx(TestFilePath,"MemoryԽ,Խ뿴ͼ:" & ScreenSnapShotTitle)
        Gosub [ͼ]
        Plugin Memory.TerminateProc(WinmineHwnd)
        Plugin File.WriteFileEx(TestFilePath,"" & WinminePath & "رճɹ")
    EndIf 
    Gosub []
Return [Memory(ڴ/)]
Sub [Encrypt(ӽ)]
    TestItemTitle = "Encrypt"
    Gosub [ʼ]
    Plugin TextMD5 = Encrypt.Md5String("")
    Plugin File.WriteFileEx(TestFilePath,"ַ תΪMD5Ϊ" & TextMD5)
    MD5FilePath = TestFileFolder & "log.txt"
    Plugin FileMD5 = Encrypt.Md5File(MD5FilePath)
    Plugin File.WriteFileEx(TestFilePath,MD5FilePath & "תΪMD5Ϊ" & FileMD5)
    Gosub []
Return [Encrypt(ӽ)]
Sub [Net()]
    TestItemTitle = "Net"
    Gosub [ʼ]
    Gosub []
Return [Net()]
Sub [Web(ҳ)]
    TestItemTitle = "Web"
    Gosub [ʼ]
    Gosub []
Return [Web(ҳ)]
