麻烦大侠们，问一下vb6.0中有关shell打开文件后关闭事件的触发_vb吧_百度贴吧
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&签到排名：今日本吧第个签到，本吧因你更精彩，明天继续来努力！
本吧签到人数：0成为超级会员，使用一键签到本月漏签0次！成为超级会员，赠送8张补签卡连续签到：天&&累计签到：天超级会员单次开通12个月以上，赠送连续签到卡3张
关注：103,889贴子：
麻烦大侠们，问一下vb6.0中有关shell打开文件后关闭事件的触发收藏
比如用vb6的shell打开一个txtShell ¬epad & & App.Path & &\Master.txt&, vbNormalFocus然后我想在这个文本被修改并关闭后，程序读出txt的内容来。就是不知道vb6 应该怎么触发这个由shell打开的文件的关闭事件。求指导~~ 多谢
南北软件外贸ERP技术领先 服务专业
找到了一段关于如何判断exe是否是打开状态的代码。Private Function CheckExeIsRun(exeName As String) As BooleanOn Error GoTo Err_chk
CheckExeIsRun = False
Set WMI = GetObject(&WinMgmts:&)
Set Objs = WMI.InstancesOf(&Win32_Process&)
For Each Obj In Objs
If (InStr(UCase(exeName), UCase(Obj.Description)) && 0) Then
CheckExeIsRun = True
If Not Objs Is Nothing Then Set Objs = Nothing
If Not WMI Is Nothing Then Set WMI = Nothing
Exit Function
If Not Objs Is Nothing Then Set Objs = Nothing
If Not WMI Is Nothing Then Set WMI = Nothing
Exit Function
If Not Objs Is Nothing Then Set Objs = Nothing
If Not WMI Is Nothing Then Set WMI = Nothing
End Function不过试验了，对txt文件是否在读取中是无法判断的。还是叨扰您一下，给我解解惑。。。
findwondow +postmessage 也可以判断
字数超标，新楼回复： On Error GoTo ErrMsgBoxDim winHwnd As Long *定义winHwnd为长整型，来储存计算器的句柄Dim RetVal As Long *定义RetVal为长整型winHwnd = FindWindow(vbNullString, &VipMain&) *用FindWindow函数返回计算器的句柄到winHwnd
If winHwnd && 0 Then *判断winHwnd是否为0，如果是0就说明计算器没有启动
RetVal = PostMessage(winHwnd, WM_CLOSE, 0&, 0&) *用PostMessage函数寄送WM_CLOSE到计算器并返回值到RetVal
If RetVal && 0 Then
*程序正在运行
KillProcess (&update1.exe&) *结束进程
URLDownloadToFile 0, StrUrl, App.Path & FileName, 0, 0
Shell App.Path & &\& & FileName, vbNormalFocus
Else *判断RetVal是否为0，如果是0就说明程序没有成功关闭
MsgBox &关闭程序出错！&
End IfElseIf winHwnd = 0 Then
URLDownloadToFile 0, StrUrl, App.Path & FileName, 0, 0
Shell App.Path & &\& & FileName, vbNormalFocus
Unload MeEnd IfExit SubErrMsgBox:
MsgBox Err.DescriptionEnd
问题已经解决，多谢楼上的各位热心帮忙。进程控制神马的过于精妙，恕小弟不才，还无法领悟其中奥妙。把自己解决的方法跟大家分享下。其实很简单，一条路行不通，绕条路。。。放弃监视文件进程。vb6可以通过 FileDateTime(FilePath)
来获取文件的修改时间，所以你懂的，设个timer盯着看就好了。。。结贴。。。
登录百度帐号推荐应用点解当初封自己系“环市东少女的祈祷”但又话“小弟不才，拍过两三次拖”，甘唔系前后矛盾乜？
全部***（共1个回答）
BT下载慢或不能下载，主要是由于：
1、网络原因
比如服务商限速、服务器端口不稳，又如局域网与公网的差异
2、系统原因
比如TCP-IP连接数的限制
3、资源原...
咸湿佬，矛得救
随便了~~都一样
我的封印是哪个带着拳套,光这上身的人
sfc的模拟器的金手指估计用的最多的就是7E××××－××格式的raw了。
这种格式在电脑上但模拟器金手指EmuCheat有巨量
但是这种格式有个弊端就是一条代...
这是首爱情是吧？为了这首诗的整体押韵，我觉得第三句还是良宵美景与君伴，不如第二局中的相伴改为，俊才今生喜想念。第四句将宾语前置改为今生今世唯汝恋，第六句改为只愿...
答: 有提问内容的小品都有什么东西的呢？要给孩子看什么小品比较好的啊？
答: 　日~8月29日
　　“青涩创想计划”2007当代艺术院校大学生年度提名展 / 今日美术馆（百子湾）
　　此次展览的参展对象为全国艺术院...
答: 　日~8月29日
　　“青涩创想计划”2007当代艺术院校大学生年度提名展 / 今日美术馆（百子湾）
　　此次展览的参展对象为全国艺术院...
答: 　日~8月29日
　　“青涩创想计划”2007当代艺术院校大学生年度提名展 / 今日美术馆（百子湾）
　　此次展览的参展对象为全国艺术院...
大家还关注
确定举报此问题
举报原因(必选)：
广告或垃圾信息
激进时政或意识形态话题
不雅词句或人身攻击
侵犯他人隐私
其它违法和不良信息
报告，这不是个问题
报告原因(必选)：
这不是个问题
这个问题分类似乎错了
这个不是我熟悉的地区