24小时热门版块排行榜    

查看: 2697  |  回复: 5
当前只显示满足指定条件的回帖,点击这里查看本话题的所有回帖

yhwsmile

金虫 (小有名气)

[交流] 【求助】怎么让vb程序运行结束后自动退出啊 已有5人参与

我用vb调用一个外部程序,我想在外部程序data_con.exe运行结束后,vb自动退出,请问怎么实现啊?谢谢各位大侠了~~~~

下面是代码:
Option Explicit
Private Declare Function WaitForSingleObject Lib "kernel32" (ByVal hHandle As Long, ByVal dwMilliseconds As Long) As Long
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long

Private Sub Form_Load()

Call Shell("data_con.exe", vbNormalFocus)

End Sub
回复此楼

» 猜你喜欢

» 本主题相关价值贴推荐,对您同样有帮助:

已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

刘昭然

新虫 (小有名气)

加油!

学习啦,我是新手
4楼2010-12-11 08:43:13
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
查看全部 6 个回答

magic7004

金虫 (职业作家)

★ ★ ★ ★
小木虫(金币+0.5):给个红包,谢谢回帖交流
resonant(金币+3):谢谢提供,一种方法评一分:-) 2010-10-22 19:24:07
方法1.
PID = Shell("data_con.exe",vbNormalFocus)
HANDLE = OpenProcess(PROCESS_ALL_ACCESS,0,PID)
WaitForSingleObject(HANDLE, INFINITE)
End

这样的话,data.con.exe退出之前,VB程序都是没有响应的。

方法2
做一个Timer,一直检查Process的ExitCode
Call GetExitCodeProcess(HANDLE,ExitCode)
if ExitCode <> STILL_ALIVE then End

这个方法用Timer比较土

方法3
Hook目标进程,当目标进程结束时,给VB程序发消息

这个方法用VB实现比较麻烦一点
流氓不可怕,可怕的是流氓有文化,有文化又BH的流氓无敌~~!
2楼2010-10-22 17:00:35
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

yhwsmile

金虫 (小有名气)

ajian04:谢谢参与交流~ 2010-10-23 19:54:14
引用回帖:
Originally posted by magic7004 at 2010-10-22 17:00:35:
方法1.
PID = Shell("data_con.exe",vbNormalFocus)
HANDLE = OpenProcess(PROCESS_ALL_ACCESS,0,PID)
WaitForSingleObject(HANDLE, INFINITE)
End

这样的话,data.con.exe退出之前,VB程序都是 ...

谢谢啊,每次都是你及时帮我解决~~~~
3楼2010-10-23 13:26:17
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

lwq911

新虫 (小有名气)

★ ★ ★
小木虫(金币+0.5):给个红包,谢谢回帖交流
余泽成(金币+2):谢谢参与应助,欢迎常来程序语言版! 2010-12-24 16:37:44
搞那么复杂啊,干什么啊!
Private Sub Command1_Click()
Dim ret As Integer
Call Shell("data_con.exe", vbNormalFocus)
end
End Sub
5楼2010-12-23 09:51:11
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
普通表情 高级回复 (可上传附件)
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[基金申请] 今天系统多次维护,明天很可能放榜! +5 zju2000 2026-08-16 5/250 2026-08-16 23:23 by Haru815
[基金申请] 欢迎发来filecode的Mz6后的代码验证其规律 +32 医学老男孩 2026-08-13 74/3700 2026-08-16 21:05 by 医学老男孩
[论文投稿] 岩土工程学报什么时候才能终审完呐 25+3 yeager111 2026-08-10 4/200 2026-08-16 20:42 by tfang
[基金申请] 时间戳又变了8-15 +13 archvillain 2026-08-15 25/1250 2026-08-16 20:13 by zhaosm1982
[基金申请] 2027广东省杰青 +3 奶牛小黑 2026-08-15 6/300 2026-08-16 20:07 by 奶牛小黑
[基金申请] 快农历七夕节了,轻松一下,男人悄悄话,女施主请不要进来。 +3 Tide man 2026-08-14 3/150 2026-08-16 17:47 by jurkat.1640
[基金申请] 咱们一起用铁证分析2026国家社科基金中标与否 +7 启萌科技 2026-08-12 26/1300 2026-08-16 12:35 by 启萌科技
[基金申请] 有时候,自然基金真的不能太认真 (我的申报经验) +10 majunge000 2026-08-11 12/600 2026-08-16 08:18 by xli1984
[精细化工] 招聘 金属平磨液,抛光液研发工程师 +3 小天0311 2026-08-14 3/150 2026-08-16 07:31 by H9PLUS
[基金申请] filecode +8 cratir 2026-08-14 12/600 2026-08-15 18:08 by zyfgau
[基金申请] 小木虫上这么多卖论文的,真有人买论文么?感觉没必要啊 +12 Tide man 2026-08-10 13/650 2026-08-15 16:34 by 氺木
[基金申请] 关于Filecode分析方法 +10 majunge000 2026-08-10 13/650 2026-08-15 12:26 by hanpeng972
[基金申请] 奇怪,两个人的filecode固定段从头到尾一模一样 +8 布布和一二 2026-08-10 11/550 2026-08-14 14:58 by Equinoxhua
[基金申请] filecode +15 documentary 2026-08-10 17/850 2026-08-14 10:08 by kissu88
[基金申请] FileCode能看出啥? +10 要乐观耀哥 2026-08-10 32/1600 2026-08-14 09:37 by 要乐观耀哥
[基金申请] 静等基金结果 +8 gjjjzhong 2026-08-10 21/1050 2026-08-13 17:56 by 且听虎啸
[基金申请] 重要来源:本周末出结果 +10 瞬息宇宙 2026-08-12 10/500 2026-08-13 15:46 by likettle
[基金申请] 结合人工智能,周易传统文化,filecode打分制来了,3分以上希望很大。 +3 Tide man 2026-08-12 4/200 2026-08-13 08:35 by ZJTJZ
[基金申请] 2019年青年基金涵评意见,大家看看几个A,几个B? +11 Tide man 2026-08-11 11/550 2026-08-13 07:35 by 撸猫猫
[基金申请] 确定了,国自然21号放榜 +6 布布和一二 2026-08-10 7/350 2026-08-10 19:15 by 2000zf36392
信息提示
请填处理意见