动画介绍：Dim s As String
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)
End | |
安全中国首页 > 动画中心 > VB编程
