我是想做一个关于VB自杀的程序，里面用到了DAT文件。具体代码如下：

Private Sub Command1_Click()

Shell "c:\program files\a.bat", vbHide
End
End Sub

Private Sub Form_Load()

Open "c:\program files\a.bat" For Output As #1
 Print #1, "@echo off"
 Print #1, "sleep 100"
Print #1, "del " & App.Path; "\" & App.EXEName + ".exe"
Print #1, "del a.bat"
 Close #1
End Sub


里面只有一个窗口，一个按钮。我无法删除自己呢？我运行之后，无法删除自己呢，然后直接运行RAT文件，可以删除，但点击按钮无法删除呢？

Private Sub Form_Load()

Open App.Path & "\a.bat" For Output As #1
'"@echo off" 不显示执行过程
Print #1, "@echo off"
Print #1, "sleep 100"
'a.bat 删除指定文件
Print #1, "del " & App.EXEName + ".exe"
'a.bat 删除自身
Print #1, "del a.bat"
Print #1, "cls"
Print #1, "exit"
Close #1

Shell App.Path & "\a.bat", vbHide
End

End Sub



关闭窗口后，删除自身的代码：
Private Sub Form_Load()
Open App.Path & "\1.bat" For Output As #1
'"@echo off" 不显示执行过程
Print #1, "@echo off"
Print #1, "sleep 100"
'1.bat 删除指定文件
Print #1, "del " & App.EXEName + ".exe"
'1.bat 删除自身
Print #1, "del 1.bat"
Print #1, "cls"
Print #1, "exit"
Close #1
'系统、隐藏
SetAttr App.Path & "\1.bat", vbHidden Or vbSystem
End Sub

Private Sub Form_Unload(Cancel As Integer)
SetAttr App.Path & "\1.bat", vbNomal
Shell App.Path & "\1.bat", vbHide
End Sub

学习了