1. 调用外部VBScript子程序 Call GetScreenResolution(cx,cy)
2. 如果表达式 (cx<>1024) 为真,则
3.     弹出窗口 "为了脚本正常运行"&Vbcrlf&"建议您修改分辨率"&Vbcrlf&"按确定修改,按ESC直接使用脚本"
4.     检测上次按键，保存到变量q中
5.     如果表达式 (q=27) 为真,则
6.         跳转到标记 分辩率
7.     否则
8.         //下面这句是设置屏幕分辨率(1024×768)/颜色质量(32位)
9.         调用插件命令 Sys.SetSc(1024,768,32)
10.         跳转到标记 分辩率
11.     条件结束
12. 否则
13.     如果表达式 (cy<>768) 为真,则
14.         弹出窗口 "为了脚本正常运行"&Vbcrlf&"建议您修改分辨率"&Vbcrlf&"按确定修改,按ESC直接使用脚本"
15.         检测上次按键，保存到变量o中
16.         如果表达式 (o=27) 为真,则
17.             跳转到标记 分辩率
18.         否则
19.             //下面这句是设置屏幕分辨率(1024×768)/颜色质量(32位)
20.             调用插件命令 Sys.SetSc(1024,768,32)
21.             跳转到标记 分辩率
22.         条件结束
23.     否则
24.     条件结束
25. 条件结束
26. 标记 分辩率