| 查看: 1291 | 回复: 3 | |||
wyp6356新虫 (小有名气)
|
[交流]
shell函数 已有2人参与
|
|
vb调用fluent执行journal文件,如何等待其结束再执行下一语句 发自小木虫Android客户端 |
» 猜你喜欢
OpenAI又攻克数学难题了,离AI做有机合成还有多远?
已经有12人回复
极限拉扯,如何抉择
已经有13人回复
课题组会帮你通过考核么?
已经有7人回复
入职后第一次管课题组的专利缴费,对账才发现官费比别人多掏了一倍
已经有6人回复
售一区SCI文章T0P,我:8O.551.O54,科目全,可十急
已经有9人回复
售SCI一区T0P文章,我:8.O55.1.O.54,科目全,可十急
已经有8人回复
售SCI一区文章,我:8O5.5.1.O5.4,科目全,可伽急
已经有10人回复
售SCI一区T0P文章,我:8.O55.1.O.54,科目全,可十急
已经有9人回复
售SCI一区文章,我:8.O.55.1.O.54,科目齐全,可伽急
已经有7人回复
售SCI文章,我:8O5.5.1.O.54,科目齐全,可+急
已经有10人回复
★
小木虫: 金币+0.5, 给个红包,谢谢回帖
小木虫: 金币+0.5, 给个红包,谢谢回帖
|
vb用shell调用程序,等待其结束再继续往下执行 (2006-10-18 08:57:18)转载▼ 分类: 编程 Private Const SYNCHRONIZE = &H100000 Private Const INFINITE = &HFFFFFFFF Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long 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 Dim lngPId As Long Dim lngPHandle As Long lngPId = Shell("tmp.bat", vbHide) lngPHandle = OpenProcess(SYNCHRONIZE, 0, lngPId) If lngPHandle <> 0 Then Call WaitForSingleObject(lngPHandle, INFINITE) '无限等待,直到程式结束 Call CloseHandle(lngPHandle) End If |

2楼2018-05-04 11:12:06
wyp6356
新虫 (小有名气)
- 应助: 0 (幼儿园)
- 金币: 54.5
- 散金: 35
- 帖子: 85
- 在线: 7.4小时
- 虫号: 7551546
- 注册: 2017-12-01
- 性别: MM
- 专业: 农业水利
3楼2018-05-05 14:34:54
4楼2019-05-17 20:40:44










回复此楼