VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)

VB爱好者乐园(VBGood)

 找回密码
 立即注册
搜索
查看: 4490|回复: 2

[原创] 请教一个关于调用exe文件获取返回值迟缓的问题

[复制链接]
 楼主| 发表于 2012-2-19 05:08:38 | 显示全部楼层 |阅读模式
代码如下:

Private Sub Command2_Click()
Dim strI
Dim strMac As String
strMac = Text6.Text
Open App.Path & ".\shell.bat" For Output As #1
strI = "ac2pw.exe " & strMac & " > " & App.Path & ".\print.ini"
Print #1, strI
Close #1

Shell (App.Path & ".\Shell.bat")

Dim strJ As String
Open App.Path & ".\print.ini" For Input As #2 ’问题在这里获取的值只有第一次是对的
'因为print.ini第一次建立,后续在读取print.ini的文件时获取到的都是上一次的结果
'造成这种bug的原因是因为shell在调用是会单独运行,导致读取新类容的这部分在print.ini生成前运行
'大家帮忙看一下有没有什么好的办法解决这个问题!
Input #2, strJ
Close #2
MsgBox strJ
End Sub
 楼主| 发表于 2012-2-19 05:13:42 | 显示全部楼层
不好意思啊,发错地方了!!
回复 支持 反对

使用道具 举报

发表于 2012-2-19 12:12:43 | 显示全部楼层
waitforsingleobject
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

文字版|手机版|小黑屋|VBGood  

GMT+8, 2020-6-7 04:05

VB爱好者乐园(VBGood)
快速回复 返回顶部 返回列表