dim Time
time=200
//调用“WScript.Shell”
set Obj = createobject("WScript.Shell")
//取得当前用户的桌面路径赋给FileName
FileName = Obj.SpecialFolders("desktop")
//*********************** 主程序开始 *******************
//延时Time毫秒
Delay Time
//找抓屏键(Print Screen)
KeyPress 44,1
Delay Time
//运行画图
VBSCall RunApp("mspaint.exe")
Delay 5*Time
//按住<CTRL>
KeyDown 17,1
Delay Time
//按下<V>--把图粘贴到画图中[CTRL+V]
KeyPress 86,1
Delay 2*Time
//按下<S>---保存图像[CTRL+S]
KeyPress 83,1
Delay Time
//弹起<CTRL>
KeyUp 17,1
//**********调用随机数**********
Randomize
//在999999999随机取一个值赋给 X
VBS X = Int((99999999 * Rnd) + 1)
Delay Time
//输入表达式 X---以一个随机数做图片的名字
SayString FileName&"\"&X
Delay 2*Time
//按下<ALT>
KeyDown 18,1
Delay Time
//按下<S>---确定保存[ALT+S]
KeyPress 83,1
Delay 5*Time
//按下<F4>---关闭当前激活的窗口[ALT+F4]
//也就是关掉-图画
KeyPress 115,1
Delay Time
//弹起<ALT>
KeyUp 18,1