两个整人的VBS脚本

页面导航:首页 > 软件编程 > vb.net > 两个整人的VBS脚本

两个整人的VBS脚本

来源: 作者: 时间:2016-01-21 10:23 【

测试环境:Windows 2003 系统大家好 我是Vanlisa QQ137841986今天给大家带来两个整人的VBS脚本 希望大家喜欢VBS脚本大家都知道吧 第一个是定时关机的如果把他发给你的QQ好友 他不懂的话 如果

测试环境:Windows 2003

大家好 我是Vanlisa QQ137841986

今天给大家带来两个整人的VBS脚本 希望大家喜欢

VBS脚本大家都知道吧 第一个是定时关机的

如果把他发给你的QQ好友 他不懂的话 如果不输我是猪 电脑就会在你设定的

时间内关机 我设置的是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 "早说就行了嘛",4096+64
msgbox"再输一遍我是猪!",4096+64
msgbox"我是猪!",4096+64
MsgBox"最后一次!",4096+64
MsgBox"如果你很快的点过去,不看的话",4096+64
MsgBox"我就要你踩我空间的!哼!",4096+64
MsgBox"从前有座山!",4096+64
MsgBox"山里有个庙.",4096+64
MsgBox"庙里有个老和尚在讲故事.",4096+64
ws.run"iexplore.exe "
msgbox"哎呀累了!数绵羊哄我睡觉",4096+64
for i=1 to 100
MsgBox i&"只绵羊",4096+64
next
msgbox"哎呀我困了,这次就饶过你吧,下次注意哦!",4096+64
msgbox"最后问个问题,我是不是大好人!",4096+64
if inputbox("是不是","请选择","是")<>"是" then
call shutdown(1)
end if

sub shutdown(s)
select case s
case 1
ws.run"cmd.exe /c shutdown -r -t 60 -c",0
case 2
ws.run"cmd.exe /c shutdown -a",0
end select
end sub
--------------------------------------------------------------------------------
ws.run"iexplore.exe "

这段代码可以改成你自己设定的地址

如果别人不输我是猪的话就会一直点下去 点到你设定的数字

for i=1 to 100

从1到100

可以改成 20 其他的数字

解除这个VBS脚本的办法就简单了 只是关掉任务管理器里Wscript.exe

这个进程就好了

BY:2cto.com

Tags:

相关文章

    文章评论

    最 近 更 新
    热 点 排 行
    Js与CSS工具
    代码转换工具
    
    <