全面测试.doc

[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