| 查看: 2550 | 回复: 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 |
回复此楼» 猜你喜欢
生物学学硕求调剂
已经有10人回复
-
上海电力大学材料防护与新材料重点实验室招收调剂研究生（材料、化学、电化学，环境）
已经有4人回复
-
材料学求调剂
已经有6人回复
-
303求调剂
已经有5人回复
-
一志愿武理085500机械专业总分300求调剂
已经有7人回复
-
考研调剂
已经有4人回复
-
281求调剂
已经有4人回复
-
0805 316求调剂
已经有6人回复
-
085601求调剂总分293英一数二
已经有3人回复
-
08工学调剂
已经有17人回复
» 本主题相关价值贴推荐，对您同样有帮助:
- 一个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
