24小时热门版块排行榜

返回列表

wyp6356

新虫 (小有名气)

应助: 0 (幼儿园)
金币: 54.5
散金: 35
帖子: 85
在线: 7.4小时
虫号: 7551546
注册: 2017-12-01
性别: MM
专业: 农业水利

[交流] shell函数已有2人参与

vb调用fluent执行journal文件，如何等待其结束再执行下一语句

发自小木虫Android客户端

回复此楼

» 猜你喜欢

球磨粉体时遇到了大的问题，请指教！已经有9人回复
江汉大学解明教授课题组招博士研究生/博士后已经有3人回复

1楼 2018-05-03 16:20:35

已阅回复此楼关注TA 给TA发消息送TA红花 TA的回帖

jjdg

版主 (知名作家)

程序强帖: 9
应助: 223 (大学生)
贵宾: 3.926
金币: 51005.2
红花: 238
帖子: 7227
在线: 474.2小时
虫号: 27000
注册: 2003-10-21
专业: 药物代谢与药物动力学
管辖: 程序语言

★
小木虫: 金币+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

已阅回复此楼关注TA 给TA发消息送TA红花 TA的回帖

wyp6356

新虫 (小有名气)

应助: 0 (幼儿园)
金币: 54.5
散金: 35
帖子: 85
在线: 7.4小时
虫号: 7551546
注册: 2017-12-01
性别: MM
专业: 农业水利

引用回帖:

2楼: Originally posted by jjdg at 2018-05-04 11:12:06
vb用shell调用程序，等待其结束再继续往下执行 (2006-10-18 08:57:18)转载▼
分类：编程
Private Const SYNCHRONIZE = &H100000
Private Const INFINITE = &HFFFFFFFF

Private Declare Fun ...

试过这个了，只改了这个 lngPId = Shell("E:\Program Files\ANSYS Inc\v150\fluent\ntbin\win64\fluent.exe -r15.0.0 3d -i F:\ppppp\oh.jou", vbHide)，vb不会等待fluent结束