该楼层疑似违规已被系统折叠 隐藏此楼查看此楼
set WshShell = WScript.CreateObject(“WScript.Shell”)
a=inputbox(“键入1随机抓阄，键入0指定抓阄”,”四班抓阄程序”)
if a=1 then
msgbox”点击“确定”开始抓阄”,vbInformation,”四班抓阄程序”
randomize
xh=int(rnd * 71 + 1)
msgbox “请”& xh &” 同学给我们背诵《黄河颂》”,vbInformation,”抓阄成功”
WshShell.run”notepad”
wscript.sleep 1000*1
WshShell.sendkeys”{CAPSLOCK}”
WshShell.sendkeys”r”
wscript.sleep 1000*1
WshShell.sendkeys”{CAPSLOCK}”
WshShell.sendkeys”e”
wscript.sleep 1000*1
WshShell.sendkeys”a”
wscript.sleep 1000*1
WshShell.sendkeys”d”
wscript.sleep 1000*1
WshShell.sendkeys”y”
wscript.sleep 1000*1
WshShell.sendkeys”~”
WshShell.sendkeys”{CAPSLOCK}”
WshShell.sendkeys”g”
wscript.sleep 1000*1
WshShell.sendkeys”{CAPSLOCK}”
WshShell.sendkeys”o”
else if a=0 then
b=inputbox(“请输入学 ”)
msgbox “请”& b &” 同学给我们背诵《黄河颂》”,vbInformation,”抓阄成功”
WshShell.run”notepad”
wscript.sleep 1000*3
WshShell.sendkeys”{CAPSLOCK}”
WshShell.sendkeys”r”
wscript.sleep 1000*1
WshShell.sendkeys”{CAPSLOCK}”
WshShell.sendkeys”e”
wscript.sleep 1000*1
WshShell.sendkeys”a”
wscript.sleep 1000*1
WshShell.sendkeys”d”
wscript.sleep 1000*1
WshShell.sendkeys”y”
wscript.sleep 1000*1
WshShell.sendkeys”~”
WshShell.sendkeys”{CAPSLOCK}”
WshShell.sendkeys”g”
wscript.sleep 1000*1
WshShell.sendkeys”{CAPSLOCK}”
WshShell.sendkeys”o”
end if
end if
相关资源：TS16949质量体系文件-企业管理文档类资源
声明：本站部分文章及图片源自用户投稿，如本站任何资料有侵权请您尽早请联系jinwei@zod.com.cn进行处理,非常感谢！