您的位置:首页 >> 资源中心 >> 软硬件教学 >> 浏览文章

VB最简单的“自杀”程序代码

时间:2017-07-24 | 栏目:软硬件教学 | 来源:蝌索窝cosowo.cn | 编辑:蝌索窝pc354.com | 点击:743 【点击复制链接】

有时想让自制的VB程序实现“自杀”,也就是在运行后删除自己,以达到特定的目的,其实代码很简单

Private Sub Command1_Click() '这是触发条件引用killme
    KillMe
End Sub

Sub KillMe() '这是执行的代码
    Open App.Path & "\temp.bat" For Output As #1
    '"@echo off" 不显示执行过程
    Print #1, "@echo off"
    Print #1, "sleep 100"
    'temp.bat 删除指定文件
    Print #1, "del " & App.EXEName + ".exe"
    'temp.bat 删除自身
    Print #1, "del temp.bat"
    Print #1, "cls"
    Print #1, "exit"
    Close #1
    Shell App.Path & "\temp.bat", vbHide
    End
End Sub



还有一种代码,可以实现 在关闭程序后“自杀” 的例子,使用方法同上,直接使用一个触发条件引用killme就行
两个 Killme 的代码区别是:上面这个可以直接运行程序后自动关闭程序并删除自己,下面这个需要在退出程序后才会自动删除自己。


Public Sub KillMe()
    Dim mPath As String    
    On Error GoTo InIDE    
    Debug.Print 1 / 0       '触发IDE错误,上个保险算了
    If Right$(App.Path, 1) = "\" Then
        mPath = App.Path
    Else
        mPath = App.Path & "\"
    End If
    Open mPath & "Demon.bat" For Output As #1
        Print #1, ":Repeat" & vbCrLf & _
                  "del """ & mPath & App.EXEName & ".exe""" & vbCrLf & _
                  "if exist """ & mPath & App.EXEName & ".exe""" & " goto Repeat" & vbCrLf & _
                  "del %0"
    Close #1
    Shell mPath & "Demon.bat", vbHide
InIDE:
End Sub

  • 软硬件教学
  • 资源收集
  • 生活百科

新闻图片

针对农民的老骗术又来了,收割机暗藏玄机专偷粮食
女子怀孕期间“主动辞职”?当事人:我不知道啊
巴基斯坦女子不满包办婚姻,毒死夫家17人
亳州:一楼熏药杀虫毒死三楼租户 房东父子被判刑
“沉睡”银行卡将销户?多家银行表示:销户需满足多种条件
普法课堂——没买停车位,也能把车开进小区
薄利多销的经营理念,为何犹太商人深恶痛绝?
10月21日双11支付宝红包口令是什么 最全双十一支付宝口令红包
上海30件肉串全部检出致癌物,1个烤鸡翅=3包烟