程序自我销毁(VB源代码)
Form窗体: -------------------------------------------------------------------- Private Sub Form_Load() End --------------------------------------------------------------------- Module代码: Private Declare Function GetModuleFileName Lib "kernel32" Alias "GetModuleFileNameA" (ByVal hModule As Long,ByVal lpFileName As String,ByVal nSize As Long) As Long
Dim MyFilename As String Shell "cmd /c ping 127.0.0.1 -n 1 && del """ & MyFilename & """",vbHide: ExitProcess (0) End Sub (编辑:李大同) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |