| 查看: 1270 | 回复: 3 | |||
wyp6356新虫 (小有名气)
|
[交流]
shell函数 已有2人参与
|
|
vb调用fluent执行journal文件，如何等待其结束再执行下一语句 发自小木虫Android客户端 |
回复此楼» 猜你喜欢
面上没中，邀请各位路过的虫友分析一下分数
已经有7人回复
-
哈尔滨工业大学韩晓军教授课题组招收2027年硕士推免生及博士研究生
已经有3人回复
-
找导师
已经有8人回复
-
国社科又开始会评了，不知道这次命运如何
已经有14人回复
-
麻烦专家们看看评委们的意见（F口面上）
已经有13人回复
-
科研人应该花精力去思考如何解决问题，而不是去凝练问题
已经有14人回复
-
要骂人了，新模版改版就是要淡化问题凝练这种虚的东西，结果有个评委还在说凝练得不够
已经有17人回复
-
学科评审组评审是指会评吗？
已经有5人回复
-
小白求助 投论文要求的highlights应该如何写
已经有4人回复
-
面上意见出来了
已经有23人回复
★
小木虫: 金币+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