| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 950 人关注过本帖
标题:[求助]如何判断窗口程序是否结束
取消只看楼主 加入收藏
我爱满天星
Rank: 1
等 级:新手上路
帖 子:17
专家分:0
注 册:2005-12-16
收藏
 问题点数:0 回复次数:5 
[求助]如何判断窗口程序是否结束
如何知道一个窗口程序运行是否结束?
(窗口程序进行数据处理,数据处理结束后,窗口还在,如何关闭该窗口,窗口程序是别人写的,我在vb中调用)
搜索更多相关主题的帖子: 窗口程序 数据处理 结束 判断 
2006-01-10 19:42
我爱满天星
Rank: 1
等 级:新手上路
帖 子:17
专家分:0
注 册:2005-12-16
收藏
得分:0 

谢谢楼上几位兄弟了。

外部程序是用vc写的,程序运行结束后,有个static类的caption显示“程序运行结束,共处理数据XX条”
(开始时此static的标题为空)。
我的想法是,找出所有的static类,察看其标题直至其一为“程序运行结束,
共处理数据XX条”,时结束程序,现在关键是如何获取他的标题,而且XX还是个变值。

例如
'模板中声明
Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Public Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

'窗体的代码
Private Sub Command1_Click()
Dim name As String
Dim myad As Long

winHwnd = FindWindow(vbNullString, "音量控制") '系统调节音量的窗体

myad = 0

Do
myad = FindWindowEx(winHwnd, myad, "Static", vbNullString)
'SendMessage myad, 13, 10, name '13 &h0d WM_GETTEXT 此句为何不对?
List1.AddItem Hex(myad)
Loop While myad <> 0 'list中显示所有static的句柄,如何显示其标题呢?

End Sub

[此贴子已经被作者于2006-1-11 20:02:21编辑过]

2006-01-11 19:54
我爱满天星
Rank: 1
等 级:新手上路
帖 子:17
专家分:0
注 册:2005-12-16
收藏
得分:0 
请教griefforyou
如何进行诸如兄台所说的判断cpu占用率啊!!
给源码例程学学啊:)
2006-01-11 19:58
我爱满天星
Rank: 1
等 级:新手上路
帖 子:17
专家分:0
注 册:2005-12-16
收藏
得分:0 
操作系统为xp
请问用SENDMESSAGE发送WM_GETTEXT消息时。后面的参数是什么类型的。最好给出例子。谢谢。
2006-01-11 20:20
我爱满天星
Rank: 1
等 级:新手上路
帖 子:17
专家分:0
注 册:2005-12-16
收藏
得分:0 

急用!!!顶下先:)

2006-01-11 21:27
我爱满天星
Rank: 1
等 级:新手上路
帖 子:17
专家分:0
注 册:2005-12-16
收藏
得分:0 
可以呀,我上边的例子,就是在list中显示音量调节窗体的所有,static句柄,用spy++对照是正确的
2006-01-11 21:56
快速回复:[求助]如何判断窗口程序是否结束
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.016956 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved