24小时热门版块排行榜    

北京石油化工学院2026年研究生招生接收调剂公告
查看: 1151  |  回复: 3
当前只显示满足指定条件的回帖,点击这里查看本话题的所有回帖

wyp6356

新虫 (小有名气)

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

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

发自小木虫Android客户端
回复此楼

» 猜你喜欢

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

zhaomaogen

银虫 (小有名气)

原程序引用的是一个批处理文件,你直接引用输入的内容不一定和批处理文件一致,检查下看看。
4楼2019-05-17 20:40:44
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
查看全部 4 个回答

jjdg

版主 (知名作家)

优秀版主


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

新虫 (小有名气)

引用回帖:
2楼: Originally posted by jjdg at 2018-05-04 11:12:06
vb用shell调用程序,等待其结束再继续往下执行 (2006-10-18 08:57:18)转载▼
分类: 编程
Private Const SYNCHRONIZE = &amp;H100000
Private Const INFINITE = &amp;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结束
3楼2018-05-05 14:34:54
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
普通表情 高级回复 (可上传附件)
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 085600 286分 材料求调剂 +5 麻辣鱿鱼 2026-03-27 6/300 2026-03-28 04:51 by wxiongid
[考研] 一志愿上海理工能源动力(085800)310分求调剂 +3 zhangmingc 2026-03-27 4/200 2026-03-27 19:01 by 给你你注意休息
[考研] 070300求调剂306分 +3 26要上岸 2026-03-27 3/150 2026-03-27 17:57 by arrow8852
[考研] 272求调剂 +7 脚滑的守法公民 2026-03-27 7/350 2026-03-27 17:23 by laoshidan
[考研] 复试调剂,一志愿南农083200食品科学与工程 +5 XQTJZ 2026-03-26 5/250 2026-03-27 14:49 by 狂炫麦当当
[考研] 085600,材料与化工321分调剂 +4 大馋小子 2026-03-27 6/300 2026-03-27 14:11 by 松花缸1201
[考研] 求调剂 +8 Auroracx 2026-03-22 8/400 2026-03-26 19:55 by 不吃魚的貓
[考研] 263求调剂 +6 yqdszhdap- 2026-03-22 10/500 2026-03-26 13:11 by 公瑾逍遥
[考研] 调剂310 +3 温柔的晚安 2026-03-25 4/200 2026-03-25 23:16 by peike
[考研] 332求调剂 +6 032500 2026-03-25 6/300 2026-03-25 22:45 by 418490947
[考研] 334分 一志愿武理-080500 材料求调剂 +4 李李不服输 2026-03-25 4/200 2026-03-25 21:26 by 星空星月
[考研] 26考研-291分-厦门大学(085601)-柔性电子学院材料工程专业求调剂 +3 min3 2026-03-24 4/200 2026-03-25 18:22 by xcjcqu
[考研] 网络空间安全0839招调剂 +4 w320357296 2026-03-25 6/300 2026-03-25 17:59 by 255671
[考研] 293求调剂 +7 加一一九 2026-03-24 7/350 2026-03-25 12:02 by userper
[考研] 一志愿吉林大学材料与化工303分求调剂 +4 为学666 2026-03-24 4/200 2026-03-25 11:27 by BruceLiu320
[考研] 306求0703调剂一志愿华中师范 +10 纸鱼ly 2026-03-21 11/550 2026-03-24 17:22 by qingfeng258
[考研] 材料考研调剂生 +3 黄粱一梦千年 2026-03-24 3/150 2026-03-24 17:00 by barlinike
[考研] 333求调剂 +3 ALULU4408 2026-03-23 3/150 2026-03-23 19:04 by macy2011
[论文投稿] 急发核心期刊论文 +3 贤达问津 2026-03-23 5/250 2026-03-23 17:13 by 妹子不好惹
[考研] 275求调剂 +6 shansx 2026-03-22 8/400 2026-03-22 15:27 by barlinike
信息提示
请填处理意见