VBS 代码3.

[复制链接]
查看556 | 回复3 | 2022-8-5 00:11:17 | 显示全部楼层 |阅读模式

今天给大家带来两个整人的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整人代码
aaaa
村长黑科技是专业提供项目资源的服务的村长黑科技平台,如合购网赚项目、引流推广软件、软件程序开发等项目就选村长黑科技平台,参与或发布项目定制各种软件就来村长黑科技平台
千面萌萌 | 2022-8-6 18:58:32 | 显示全部楼层
珍爱生命,果断回帖。
aaaa
村长黑科技是专业提供项目资源的服务的村长黑科技平台,如合购网赚项目、引流推广软件、软件程序开发等项目就选村长黑科技平台,参与或发布项目定制各种软件就来村长黑科技平台
回复

使用道具 举报

liqiang24 | 2022-8-9 14:07:10 | 显示全部楼层
楼下的接上
aaaa
村长黑科技是专业提供项目资源的服务的村长黑科技平台,如合购网赚项目、引流推广软件、软件程序开发等项目就选村长黑科技平台,参与或发布项目定制各种软件就来村长黑科技平台
回复

使用道具 举报

千百渡 | 2022-8-9 17:36:10 | 显示全部楼层
前排顶,很好!
aaaa
村长黑科技是专业提供项目资源的服务的村长黑科技平台,如合购网赚项目、引流推广软件、软件程序开发等项目就选村长黑科技平台,参与或发布项目定制各种软件就来村长黑科技平台
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则