应《网络安全法》要求，自2017年10月1日起，未进行实名认证将不得使用互联网跟帖服务。为保障您的帐号能够正常使用，请尽快对帐号进行手机号验证，感谢您的理解与支持！

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 计算模拟区 » 程序语言 » VB » shell函数
北京石油化工学院2026年研究生招生接收调剂公告
51/1返回列表
查看: 1153  |  回复: 3
只看楼主 @他人 存档 新回复提醒 (忽略) 收藏    在APP中查看
当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖

wyp6356

新虫 (小有名气)

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

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

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

» 猜你喜欢
1楼 2018-05-03 16:20:35
已阅   回复此楼   关注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 = &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结束
赞一下 回复此楼
3楼2018-05-05 14:34:54
已阅   回复此楼   关注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的回帖

zhaomaogen

银虫 (小有名气)
原程序引用的是一个批处理文件，你直接引用输入的内容不一定和批处理文件一致，检查下看看。
赞一下 回复此楼
4楼2019-05-17 20:40:44
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
查看全部 4 个回答
普通表情 龙 兔 虎 猫 高级回复 (可上传附件)
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 食品工程专硕一志愿中海洋309求调剂 +3 小张zxy张 2026-03-26 6/300 2026-03-28 15:55 by 小张zxy张
[考研] 一志愿南昌大学324求调剂 +7 hanamiko 2026-03-27 7/350 2026-03-28 09:56 by 李上岸0921
[考研] 0703化学/290求调剂/本科经历丰富/工科也可 +9 丹青奶盖 2026-03-26 10/500 2026-03-28 07:45 by barnett0632
[考研] 291求调剂 +7 孅華 2026-03-22 7/350 2026-03-28 04:02 by fmesaito
[考研] 265求调剂11408 +3 刘小鹿lu 2026-03-27 3/150 2026-03-27 20:53 by nihaoar
[考研] 一志愿上海理工能源动力（085800）310分求调剂 +3 zhangmingc 2026-03-27 4/200 2026-03-27 19:01 by 给你你注意休息
[考研] 085600，材料与化工321分，求调剂 +9 大馋小子 2026-03-27 9/450 2026-03-27 14:30 by mmm just
[考研] 化学308分求调剂 +8 你好明天你好 2026-03-23 9/450 2026-03-27 14:01 by 杨光于青云
[考研] 材料学硕，求调剂 6+5 糖葫芦888ll 2026-03-22 10/500 2026-03-27 08:18 by hypershenger
[考研] 材料调剂 +8 匹克i 2026-03-23 8/400 2026-03-27 08:11 by hypershenger
[考研] 317求调剂 +7 蛋黄咸肉粽 2026-03-26 7/350 2026-03-27 02:29 by fmesaito
[考研] 351求调剂 +4 麦克阿磊 2026-03-24 4/200 2026-03-27 00:32 by wxiongid
[考研] 349求调剂 +4 李木子啊哈哈 2026-03-25 4/200 2026-03-26 22:49 by fmesaito
[考研] 中国科学院深圳先进技术研究院-光纤传感课题组招生-中国科学院大学、深圳理工大学联培 +5 YangTyu1 2026-03-26 5/250 2026-03-26 18:27 by 猫咪猫咪呀
[考研] 289求调剂 +17 硕星赴 2026-03-23 17/850 2026-03-26 16:18 by 不吃魚的貓
[考研] 材料科学与工程 317求调剂 +4 JKSOIID 2026-03-26 4/200 2026-03-26 15:58 by 不吃魚的貓
[考研] 085600 材料与化工 329分求调剂 +9 Mr. Z 2026-03-25 9/450 2026-03-26 10:36 by baoball
[考研] 求b区院校调剂 +4 周56 2026-03-24 5/250 2026-03-25 17:12 by yishunmin
[考研] 0854AI CV方向招收调剂 +4 章小鱼567 2026-03-23 4/200 2026-03-25 17:04 by CoderLoser
[考研] 293求调剂 +3 涛涛Wjt 2026-03-22 5/250 2026-03-22 22:21 by jiangpengfei
信息提示
关闭
请填处理意见
关闭