| 查看: 2525 | 回复: 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 |
回复此楼» 猜你喜欢
青椒八年已不青，大家都被折磨成啥样了？
已经有5人回复
-
青年基金C终止
已经有3人回复
-
26申博求博导推荐-遥感图像处理方向
已经有4人回复
-
限项规定
已经有7人回复
-
救命帖
已经有8人回复
-
招博士
已经有4人回复
-
西南交通大学国家级人才团队2026年博士研究生招生（考核制）—机械、材料、力学方向
已经有3人回复
-
英文综述是否需要润色及查重
已经有5人回复
-
为什么nbs上溴 没有产物点出现呢
已经有9人回复
» 本主题相关价值贴推荐，对您同样有帮助:
- 一个VB工程的问题
已经有5人回复
- 用vb如何将EXClE一个工作表关闭同时打开另一个指定的工作表
已经有2人回复
- 如何运行Fortran编译好的exe并自动输入文
已经有11人回复
- 一个从来没有编程经验的人，你们觉得VB作为入门语言怎么样？
已经有23人回复
- 【求助】dev c++编译结束，运行后怎么样输出结果？
已经有6人回复
- 【求助】matlab程序运行出错，是怎么回事啊【已完结】
已经有6人回复
- 【求助】vb调用外部程序，外部程序运行结束后如何在form上显示出提示信息啊~！~~
已经有3人回复
- 【求助】vb command控件添加背景图片后，文字跑最下了，怎么让其居中啊~~~~
已经有8人回复
- 【求助】VB如何读取txt文件~~
已经有12人回复
- 【求助】此VB程序怎么运行不起来？
已经有8人回复
- 【求助】Fortran程序，如何让exe文件可以单独运行？
已经有6人回复
- 【交流】VC++, C#, VB答疑专贴
已经有145人回复
★ ★ ★ ★
小木虫(金币+0.5):给个红包，谢谢回帖交流
resonant(金币+3):谢谢提供，一种方法评一分：-） 2010-10-22 19:24:07
小木虫(金币+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实现比较麻烦一点 |
2楼2010-10-22 17:00:35
yhwsmile
金虫 (小有名气)
- 应助: 0 (幼儿园)
- 金币: 1053.8
- 帖子: 160
- 在线: 16.2小时
- 虫号: 620196
- 注册: 2008-10-08
- 性别: GG
- 专业: 大气环境与全球气候变化
3楼2010-10-23 13:26:17
4楼2010-12-11 08:43:13
5楼2010-12-23 09:51:11
6楼2010-12-27 14:39:25