VB可以实现自我删除吗
发布网友
共4个回答
热心网友
你可以参考以下代码
Private Sub Form_Load()
On Error Resume Next
S = CurDir '当前目录
'保证目录最后的字符为 "\"
If Right(S, 1) <> "\" Then
S = S & "\"
End If
'在当前目录下创建bat文件
Open S & "kill.bat" For Output As #1
Print #1, ":redel"
Print #1, "del " & Chr(34) & S & App.EXEName & ".exe" & Chr(34)
Print #1, "if exist " & Chr(34) & S & App.EXEName & ".exe" & Chr(34) & " goto redel"
Print #1, "del %0"
Print #1,
Close #1
Shell Chr(34) & S & "kill.bat" & Chr(34), vbHide
End
End Sub
参考资料：我的双流网 http://510122.COM
热心网友
正在运行的程序是写保护的，不能删。
可以运行时修改注册表，下次判断已运行过
就直接退出。
或者在系统的那个不起眼的角落放的小文件
做标志。
热心网友
人能自杀，呵呵。程序不能删除自己
热心网友
那要是重新安装了系统呢，修改了注册表不就没有用了呀！
