| 查看: 2555 | 回复: 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 |
回复此楼» 猜你喜欢
材料调剂
已经有7人回复
-
化学工程085602 305分求调剂
已经有10人回复
-
289求调剂
已经有15人回复
-
291 求调剂
已经有7人回复
-
274求调剂
已经有14人回复
-
北京林业大学硕导招生广告
已经有3人回复
-
309求调剂
已经有5人回复
-
292求调剂
已经有8人回复
-
求调剂
已经有4人回复
-
一志愿 西北大学 总分282 英语一62 求调剂
已经有3人回复
» 本主题相关价值贴推荐，对您同样有帮助:
- 一个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人回复
yhwsmile
金虫 (小有名气)
- 应助: 0 (幼儿园)
- 金币: 1053.8
- 帖子: 160
- 在线: 16.2小时
- 虫号: 620196
- 注册: 2008-10-08
- 性别: GG
- 专业: 大气环境与全球气候变化
3楼2010-10-23 13:26:17
★ ★ ★ ★
小木虫(金币+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
4楼2010-12-11 08:43:13
5楼2010-12-23 09:51:11
