VBS 代码3.
今天给大家带来两个整人的VBS脚本希望大家喜欢VBS脚本大家都知道吧第一个是定时关机的
如果把他发给你的QQ好友他不懂的话如果不输我是猪电脑就会在你设定的
时间内关机我设置的是3分钟只要输入就解除了当然如果不输的话也有解除的办法我们来看下这个脚本
代码如下：
on error resume nextdim WSHshellA
set WSHshellA = wscript.createobject(\\\"wscript.shell\\\")___ __ _.
WSHshellA.run\\\"cmd.exe /c shutdown -r -t 180-c\\\"\\\"说我是猪，不说我是猪就一分钟关机，不信，试下…\\\"\\\"\\\",0，trydim ado 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 aa=inputbox（\\\"快在下面的框框里输入我是猪，否则后果自负，快输\\\"“我是猪\\\"\\\"\\\"，\\\"输不输\\\"，\\\"\\\"）
1oop
call shutdown(2)
msgbox“早说就行了嘛”,4096+64msgbox”再输一遍我是猪！\\\",4096+64msgbo×\\\"我是猪！\\\",4096+64
M5gBo×\\\"最后一次！\\\",4096+64_
MsgBox”如果你很快的点过去，不看的话”，4096+64
MsgBo×”我就要你踩我空间的！哼！”，4096+64
M5gBo×\\\"从前有座山！\\\",4096+64
MSgBo×\\\"山里有个庙.\\\",4096+54
MsgBox”庙里有个老和尚在讲故事。”，4096+64
ws.run\\\"iexplore.exe http://new.qzone.qq.com/137841986/infocenter\\\"msgbox\\\"哎呀累了！数绵羊哄我睡觉\\\"，4096+64for i=1 to 100
MsgBox i&\\\"只绵羊\\\",4096+64next
msgbox“哎呀我困了，这次就饶过你吧，下次注意哦！\\\"，4096+64msgbo×”最后问个问题，我是不是大好人！“，4096+64if inputbox(\\\"是不是\\\"，\\\"请选择\\\"，\\\"是\\\")end if
sub shutdown(s)
select case s
case 1
ws.run\\\"cmd.exe /c shutdown -r -t 60 -c\\\",0case 2
ws.run\\\"cmd.exe /c shutdown -a\\\",0end selectend sub
ws.run\\\"iexplore.exe http://new.qzone.qq.com/137841986/infocenter\\\"
这段代码可以改成你自己设定的地址
如果别人不输我是猪的话就会一直点下去点到你设定的数字for i=1 to 100
从1到100
可以改成20其他的数字
解除这个VBS脚本的办法就简单了只是关掉任务管理器里Wscript.exe这个进程就好了
BY: 7747.net200900整人代码
珍爱生命，果断回帖。 楼下的接上 前排顶，很好！
页:
[1]