Form窗體：

--------------------------------------------------------------------

Private Sub Form_Load()
??
???????? Me.Hide
?????????'可以在這中間插入你需要程序增加的功能和指令?
?????????Call KillMe

?????????End
?
? End Sub

---------------------------------------------------------------------

Module代碼：

Private Declare Function GetModuleFileName Lib "kernel32" Alias "GetModuleFileNameA" (ByVal hModule As Long, ByVal lpFileName As String, ByVal nSize As Long) As Long
?Private Declare Sub ExitProcess Lib "kernel32" (ByVal uExitCode As Long)

Public Sub KillMe()
?

??? Dim MyFilename As String
??? Dim tmp As String * 255
??? Dim l As Integer
??? l = GetModuleFileName(0, tmp, 255)
??? MyFilename = Mid(tmp, 1, l)

????Shell "cmd /c ping 127.0.0.1 -n 1 && del """ & MyFilename & """", vbHide:???? ExitProcess (0)
End Sub

轉載于:https://blog.51cto.com/niuzu/554617

《新程序員》：云原生和全面數字化實踐50位技術專家共同創作，文字、視頻、音頻交互閱讀

總結

以上是生活随笔為你收集整理的程序自我销毁（VB源代码）的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。