VB 删除做一个VB的EXE文件,上面有一个Command1和Command2和Command3,点击Command1时自动关闭并把自己删掉,点击Command2时删掉D:\GHOST,点击Command3时删掉D:\Downloads\vb6.exe
我要代码
看来楼主目的不小,想写一个病毒文件。
以下代码全部测试通过。添加相应的控件,直接复制即可看到执行结果
方法很多,如果用API,必须删除应用程序在内存中的映射,如果用winnt。INI初始化文件,则必须等待应用程序退出的消息,如果用DOS,会非常麻烦,所以我这里就用最简单的办法--VBS。
如果懒得复制代码,可以直接下载附件
'代码从这里开始,当然,有详细的注释
Private Sub Command1_Click()
AppName$ = App。Path & App。EXEName & "。 exe"
MyString$ = "On Error Resume Next" & vbC...全部
看来楼主目的不小,想写一个病毒文件。
以下代码全部测试通过。添加相应的控件,直接复制即可看到执行结果
方法很多,如果用API,必须删除应用程序在内存中的映射,如果用winnt。INI初始化文件,则必须等待应用程序退出的消息,如果用DOS,会非常麻烦,所以我这里就用最简单的办法--VBS。
如果懒得复制代码,可以直接下载附件
'代码从这里开始,当然,有详细的注释
Private Sub Command1_Click()
AppName$ = App。Path & App。EXEName & "。
exe"
MyString$ = "On Error Resume Next" & vbCrLf '写入此语句是以防万一
MyString$ = MyString$ + "Set fso = CreateObject(" & Chr(34) & "Scripting。
FileSystemObject" & Chr(34) & ")" & vbCrLf
MyString$ = MyString$ + " eep 2000" & vbCrLf '停顿2秒,等待应用程序退出
MyString$ = MyString$ + "fso。
DeleteFile(WScript。ScriptName)" & vbCrLf '删除脚本自身
MyString$ = MyString$ + "fso。DeleteFile(" & Chr(34) & AppName$ & Chr(34) & ")" '删除应用程序自身
Open "delme。
vbs" For Binary As #1 '生成自删除VBS,并写入剧本
Put #1, , MyString
Close #1
Shell "attrib delme。vbs +h +s" '赋于VBS系统及隐藏属性,由于文件生成两秒后立即自删除,所以任何人都没有办法注意到生成了这么一个文件
Shell "Wscript。
exe delme。vbs", vbHide '开始执行脚本
End '退出应用程序
End Sub
Private Sub Command2_Click()
On Error Resume Next '以防万一
Dim MyObject As Object
Set MyObject = CreateObject("Scripting。
FileSystemObject")
MyObject。DeleteFolder "D:\GHOST", True '删除楼主指定的文件夹
Set MyObject = Nothing
End Sub
Private Sub Command3_Click()
On Error Resume Next '以防万一
Kill "D:\Downloads\vb6。
exe" '删除楼主指定的文件
End Sub
如果仍然有问题,请给我发信,谢谢。收起