1. dim Time
2. time=200
3. //调用“WScript.Shell”
4. set Obj = createobject("WScript.Shell")
5. //取得当前用户的桌面路径赋给FileName
6. FileName = Obj.SpecialFolders("desktop")
7. //*********************** 主程序开始 *******************
8. //延时Time毫秒
9. 延时Time毫秒
10. //找抓屏键(Print Screen)
11. 按键<Print Screen>
12. 延时Time毫秒
13. //运行画图
14. 调用外部VBScript子程序 运行一个外部程序("mspaint.exe")
15. 延时5*Time毫秒
16. //按住<CTRL>
17. 按住<Ctrl>
18. 延时Time毫秒
19. //按下<V>--把图粘贴到画图中[CTRL+V]
20. 按键<V>
21. 延时2*Time毫秒
22. //按下<S>---保存图像[CTRL+S]
23. 按键<S>
24. 延时Time毫秒
25. //弹起<CTRL>
26. 弹起<Ctrl>
27. //**********调用随机数**********
28. Randomize
29. //在999999999随机取一个值赋给 X
30. （VBScript语句） X = Int((99999999 * Rnd) + 1)
31. 延时Time毫秒
32. //输入表达式 X---以一个随机数做图片的名字
33. 输入文本 FileName&"\"&X
34. 延时2*Time毫秒
35. //按下<ALT>
36. 按住<Alt>
37. 延时Time毫秒
38. //按下<S>---确定保存[ALT+S]
39. 按键<S>
40. 延时5*Time毫秒
41. //按下<F4>---关闭当前激活的窗口[ALT+F4]
42. //也就是关掉-图画
43. 按键<F4>
44. 延时Time毫秒
45. //弹起<ALT>
46. 弹起<Alt>