| 网站首页 | 业界新闻 | 小组 | 交易 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
共有 591 人关注过本帖
标题:求助各路 大神?我是新手。想问下VB怎么一关闭q1.exe 就删除q1.exe,不是删除 ...
只看楼主 加入收藏
WSZXD
Rank: 1
等 级:新手上路
帖 子:8
专家分:0
注 册:2010-6-27
结帖率:100%
收藏
 问题点数:0 回复次数:3 
求助各路 大神?我是新手。想问下VB怎么一关闭q1.exe 就删除q1.exe,不是删除主程序~~麻烦大师给修改下·谢谢了。
想问下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:01编辑过]

搜索更多相关主题的帖子: exe Sub 删除 修改 文件 
2020-01-04 23:00
tangjiashier
Rank: 1
等 级:新手上路
帖 子:2
专家分:0
注 册:2019-10-29
收藏
得分:0 
你可以用一个时钟控件去检测有没有q1这个进程,没有的时候删除q1。
2020-02-03 12:03
tanting323
Rank: 1
等 级:新手上路
帖 子:1
专家分:0
注 册:2020-2-5
收藏
得分:0 
学习下
2020-02-05 21:24
风吹过b
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:276
帖 子:4604
专家分:28574
注 册:2008-10-15
收藏
得分:0 
q1.exe
如果是你写的,
调用时,把自己的 进程ID 转递进去,
然后Q1.exe 每隔多少毫秒,发一个心跳包。如果有指定的时间之内没收到心跳包,启动循环删Q1.exe

如果不是你写的。
不怕报错,那就直接循环删Q1.exe

on error resume next
do while dir(App.Path & "\q1.exe")<>""
Kill App.Path & "\q1.exe"
loop


授人于鱼,不如授人于渔
早已停用QQ了
2020-02-06 21:16
快速回复:求助各路 大神?我是新手。想问下VB怎么一关闭q1.exe 就删除q1.exe,不 ...
数据加载中...
 
   



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

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