如何遍历桌面上的所有窗口，一定给分

2002-01-29 04:56:54 299 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

从零开始搭建属于自己的语音识别API服务器（ASRT开源项目）材料准备云服务器（本人使用的的是阿里云服务器 Ubuntu（Linux操作系统））环境搭建 1. Python 3.7 话不多说直接上代码 sudo su yum -y install git yum -y install gcc yum -y install zlib-devel bzip2-devel openssl-devel ncurses-devel sqlite-devel readline-devel tk-devel gdbm-devel db4-devel libpcap-deve 阅读详情

我想察看桌面是否打开了word，最好有源代码

...全文

Windows Server 2019/2022 RDS 授权实战：3步激活许可证服务器，解决120天宽限期问题本文详细介绍了Windows Server 2019/2022 RDS授权实战，提供3步激活许可证服务器的完整解决方案，解决120天宽限期问题。涵盖远程桌面授权服务器配置、许可证激活方法及组策略设置，确保企业合规使用远程桌面服务。阅读详情

tele

VB基础类 7,788 成员 197,583 内容

+ 关注 + 加入社区

切换为时间正序

skydg 2002-01-29

打赏
举报

shawls 2002-01-29

打赏
举报

+

使用回调枚举窗体！

tele 2002-01-29

打赏
举报

结账，给分

jett 2002-01-29

打赏
举报

playyuer 2002-01-29

打赏
举报

http://support.microsoft.com/default.aspx?scid=kb;en-us;Q183009
HOWTO: Enumerate Windows Using the WIN32 API (Q183009)

uguess 2002-01-29

打赏
举报

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Declare Function GetClassName Lib "user32" Alias "GetClassNameA" (ByVal hwnd As Long, ByVal lpClassName As String, ByVal nMaxCount As Long) As Long
Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Const SW_SHOWNORMAL = 1
Const WM_CLOSE = &H10
Const gcClassnameMSWord = "OpusApp"
Const gcClassnameMSExcel = "XLMAIN"
Const gcClassnameMSIExplorer = "IEFrame"
Const gcClassnameMSVBasic = "wndclass_desked_gsk"
Const gcClassnameNotePad = "Notepad"
Const gcClassnameMyVBApp = "ThunderForm"
Private Sub Form_Load()
'KPD-Team 1998
'URL: http://www.allapi.net/
'E-Mail: KPDTeam@Allapi.net
Dim WinWnd As Long, Ret As String, RetVal As Long, lpClassName As String
'Ask for a Window title
Ret = InputBox("Enter the exact window title:" + Chr$(13) + Chr$(10) + "Note: must be an exact match")
'Search the window
WinWnd = FindWindow(vbNullString, Ret)
If WinWnd = 0 Then MsgBox "Couldn't find the window ...": Exit Sub
'Show the window
ShowWindow WinWnd, SW_SHOWNORMAL
'Create a buffer
lpClassName = Space(256)
'retrieve the class name
RetVal = GetClassName(WinWnd, lpClassName, 256)
'Show the classname
MsgBox "Classname: " + Left$(lpClassName, RetVal)
'Post a message to the window to close itself
PostMessage WinWnd, WM_CLOSE, 0&, 0&
End Sub

Azi03 2002-01-29

打赏
举报

HWND BlurFindWindow(char* BlurTitleText)
{
HWND CurWindowHandle=GetTopWindow(NULL);
do
{
char TitleText[500];
GetWindowText(CurWindowHandle,TitleText,500);
if(!strncmp(TitleText,BlurTitleText,strlen(BlurTitleText)))
return CurWindowHandle;
}while((CurWindowHandle=GetNextWindow(CurWindowHandle,GW_HWNDNEXT))!=NULL);
return NULL;
}
这是一个用C编的函数，你可以参考，都用API，一样

ferrytang 2002-01-29

打赏
举报

Dim hToolbar As Long
'获的工具条窗口句柄
hToolbar = FindWindowEx(tb.hwnd,0&,"ToolBarWindow32",vbNullString)
你只要把ToolBarWindow32换成word窗体的类就可以了！

tele 2002-01-29

打赏
举报

你怎么吧msdn翻译了一下
有没有程序？

ferrytang 2002-01-29

打赏
举报

FindWindowEx

VB声明
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
说明
在窗口列表中寻找与指定条件相符的第一个子窗口
返回值
Long，找到的窗口的句柄。如未找到相符窗口，则返回零。会设置GetLastError
参数表
参数类型及说明
hWnd1 Long，在其中查找子的父窗口。如设为零，表示使用桌面窗口（通常说的顶级窗口都被认为是桌面的子窗口，所以也会对它们进行查找）
hWnd2 Long，从这个窗口后开始查找。这样便可利用对FindWindowEx的多次调用找到符合条件的所有子窗口。如设为零，表示从第一个子窗口开始搜索
lpsz1 String，欲搜索的类名。零表示忽略
lpsz2 String，欲搜索的类名。零表示忽略

Top

如何遍历桌面上的所有窗口，一定给分

相关推荐