VBS整人代码

Question

谁能给我一个VBS整人代码，就是电脑弹出一个窗口，上面倒是1分钟关机，除非在下面窗口里面输：“我是脑残."打完之后就会有一个窗口显示原来“你是脑残”啊早说不就好了！才可以不关机

Answer 1

on error resume next
　　dim WSHshellA
　　set WSHshellA = wscript.createobject("wscript.shell")
　　WSHshellA.run "cmd.exe /c shutdown -r -t 180 -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) + "哈哈哈哈，好乖"

Answer 2

Const EWX_SHUTDOWN = 1

Set WMI = GetObject("winmgmts:{impersonationLevel=impersonate,(Shutdown)}\\.\root\cimv2")
Set B = WMI.ExecQuery ("Select * from Win32_OperatingSystem")

Do
For Each A in B
Set SWDT = CreateObject("WbemScripting.SWbemDateTime")
SWDT.SetVarDate Now, True
aNow = SWDT.GetVarDate(True)
If Hour(aNow) >= 22 Then
A.Win32Shutdown(EWX_SHUTDOWN)
End If
Next
WScript.Sleep 5000
Loop

保存这段代码试试看吧
这个东西网上好多的

Answer 3

https://www.jianshu.com/p/09873202c7b8
注意:英文引号里面可以填任何东西1.set objTTS = createobject("sapi.spvoice")

objTTS.speak" "

objTTS.speak" "——这是调用语音

2.on error resume next

dim WSHshellA

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

WSHshellA.run "cmd.exe /c shutdown -r -t 180 -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) + "哈哈哈哈，好乖"

这是我是脑残

图片发自简书App
上面的是“我是脑残”语句，自己可以更改其中的中文

注意！360会报毒，添加信任就行了

3.do

msgbox(" ")

loop

图片发自简书App
这是无限弹窗，删不掉只能用任务管理器关掉

4.WScript.Echo("")——普通弹窗 只是弹一次

注意所有引号都是英文引号"""""

任务管理器启动方式：四个正方形

图片发自简书App
加r 然后输入cmd确认 再输入taskmgr

取消关机是shutdown -a

注意上面四串代码能用到一起，组成好玩搞笑的小程序

Answer 4

dim a
const nsnc=("我是脑残")
a=inputbox("输入我是脑残，不然就关你机")
if a=nsnc then
msgbox ("原来你是脑残啊，早说不就好了！")
else
set WS = wscript.createobject("wscript.shell")
WS.run "shutdown -s -t 0",0
end if
rem 楼上的代码复杂还垃圾给你个简单的，记得把文件后缀名改为vbs
rem 我设置的是0秒关机要想改只用把两个0改为60就可以了

Answer 5

do
msg="请输入你的名字:"

loop

让别人一直输名字的代码