vbs整人代码_手机vbs整人代码_如何让别人执行vbs代码(4)

时间内关机 我设置的是3分钟 只要输入就解除了 当然如果不输的话也有解除的办法

我们来看下这个脚本

复制代码 代码如下:

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) + "哈哈哈哈，好乖"

新建一个记事本 把上面的代码复制进去 另存为VBE格式的就可以了

cmd.exe /c shutdown -r -t 180 -c

这里的数字可以修改关机时间 180秒

这些文字也可以自设 这个脚本启用cmd 里的关机程序

如果不输的的话 可以打开任务管理器 输入shutdown -a 来解除 我们试下 这时定时关机已

经没了 但是还有个关不掉的窗口 我们打开任务管理器 结束掉Wscript.exe 这个进程就OK

了 这时就完全解除这个脚本了 Wscript 时Windows 脚本宿主

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

下面看第二个整人的脚本

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

复制代码 代码如下:

set ws=createobject("wscript.shell")

call shutdown(1)

do while a<>"我是猪"

a=inputbox("快在下面的框框里输入我是猪,否则后果自负，快输""我是猪"" ","输不输","")

loop

call shutdown(2)

msgbox "早说

本文来自电脑杂谈，转载请注明本文网址：
http://www.pc-fly.com/a/tongxinshuyu/article-39893-4.html