标题:想问下VB怎么一关闭q1.exe 就删除q1.exe,不是删除主程序~
只看楼主
WSZXD
Rank: 1
等 级:新手上路
帖 子:8
专家分:0
注 册:2010-6-27
结帖率:100%
已结贴  问题点数:20 回复次数:8 
想问下VB怎么一关闭q1.exe 就删除q1.exe,不是删除主程序~
求助各路 大神?我是新手。
求助.rar (1.29 MB)
~麻烦大师给修改下·谢谢了。
想问下VB怎么一关闭q1.exe 就删除q1.exe,不是删除主程序~~麻烦大师给修改下·谢谢了。

麻烦各位大神给修改下 谢谢了也可以在这里下载http://zhangxiaoduan. 上传修改好的谢谢了。

Public Function ExtractFile(ResIndex As Integer, ResType As String)

Dim TempFile() As Byte

Dim FileHandle As Integer '定义文件句柄
FileHandle = FreeFile '初始化文件句柄

TempFile = LoadResData(ResIndex, ResType) '装载资源文件
Open App.Path & "\q1.exe" For Binary Access Write As #FileHandle '以二进制方式操作文件
Put #FileHandle, , TempFile '写入文件
Close #FileHandle '关闭文件句柄
End Function

Private Sub cmdRes_Click()
Dim n As Integer
n = 0
n = ExtractFile(101, "CUSTOM") '
Shell App.Path & "\q1.exe", vbNormalFocus

If (n <> 0) Then
MsgBox "释放文件失败"
End If

End Sub

Private Sub Form_Unload(Cancel As Integer)
Kill App.Path & "\q1.exe"
End Sub

Private Sub Label1_Click()

End Sub


[此贴子已经被作者于2020-1-4 23:08编辑过]

搜索更多相关主题的帖子: Sub 文件 End exe 删除 
2018-03-26 15:13
Artless
Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19
等 级:贵宾
威 望:103
帖 子:4211
专家分:28888
注 册:2009-4-8
得分:5 
没看懂

无知
2018-03-26 20:34
WSZXD
Rank: 1
等 级:新手上路
帖 子:8
专家分:0
注 册:2010-6-27
得分:0 
回复 2楼 Artless
VB自释码放运行源码
2018-03-27 11:12
wds1
Rank: 11Rank: 11Rank: 11Rank: 11
等 级:贵宾
威 望:49
帖 子:393
专家分:2025
注 册:2016-3-10
得分:5 
如果只是实现自释放文件包含源码,那你用rar,把源码压缩为自释放文件就行了。

2018-03-27 11:34
WSZXD
Rank: 1
等 级:新手上路
帖 子:8
专家分:0
注 册:2010-6-27
得分:0 
回复 4楼 wds1
怎么写 给个源码
2018-03-27 12:30
风吹过b
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:贵宾
威 望:364
帖 子:4912
专家分:29900
注 册:2008-10-15
得分:5 
估计第一件事,就是被杀软件干掉。

使用资源文件 。
      FileByte() = LoadResData(101, "CUSTOM")

判断文件是否存在,是,删除
以二进制打开文件
一次性把 整个数组写进去
关闭文件

没有循环,只有一个判断,再加三条 顺序语句。自己翻译为 代码。


授人于鱼,不如授人于渔
早已停用QQ了
2018-03-27 15:38
WSZXD
Rank: 1
等 级:新手上路
帖 子:8
专家分:0
注 册:2010-6-27
得分:0 
回复 6楼 风吹过b
给个参考源码 刚刚学习VB
2018-03-28 09:12
风吹过b
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:贵宾
威 望:364
帖 子:4912
专家分:29900
注 册:2008-10-15
得分:0 
'判断文件是否存在,是,删除
if dir(sName) <> "" then
  kill sName
end if
'以二进制打开文件
Open sName For Binary As #1
'一次性把 整个数组写进去
Put #1,,FileByte
'关闭文件
Close #1

授人于鱼,不如授人于渔
早已停用QQ了
2018-03-28 09:53
WSZXD
Rank: 1
等 级:新手上路
帖 子:8
专家分:0
注 册:2010-6-27
得分:0 
回复 6楼 风吹过b
求助版主大神我是想问下VB怎么一关闭q1.exe 就删除q1.exe,不是删除主程序~~麻烦大师给修改下·谢谢了。
想问下VB怎么一关闭q1.exe 就删除q1.exe,不是删除主程序~~麻烦大师给修改下·谢谢了。
求助.rar (1.29 MB)


麻烦各位大神给修改下 谢谢了也可以在这里下载http://zhangxiaoduan. 上传修改好的谢谢了。

Public Function ExtractFile(ResIndex As Integer, ResType As String)

Dim TempFile() As Byte

Dim FileHandle As Integer '定义文件句柄
FileHandle = FreeFile '初始化文件句柄

TempFile = LoadResData(ResIndex, ResType) '装载资源文件
Open App.Path & "\q1.exe" For Binary Access Write As #FileHandle '以二进制方式操作文件
Put #FileHandle, , TempFile '写入文件
Close #FileHandle '关闭文件句柄
End Function

Private Sub cmdRes_Click()
Dim n As Integer
n = 0
n = ExtractFile(101, "CUSTOM") '
Shell App.Path & "\q1.exe", vbNormalFocus

If (n <> 0) Then
MsgBox "释放文件失败"
End If

End Sub

Private Sub Form_Unload(Cancel As Integer)
Kill App.Path & "\q1.exe"
End Sub

Private Sub Label1_Click()

End Sub
2020-01-04 23:11



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-485582-1-1.html




关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.046066 second(s), 9 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved