VBGood网站全文搜索 Google

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

VB爱好者乐园(VBGood)

 找回密码
 立即注册
搜索
查看: 376|回复: 13

[求助] vb 判断是否系统标准窗口

[复制链接]
发表于 2018-4-12 19:45:03 | 显示全部楼层 |阅读模式
如题想请教VB 怎么判断其他程序的窗口是或者不是系统标准窗口,或者是自绘窗口
发表于 2018-4-12 21:46:05 | 显示全部楼层
查看窗口類型不行嗎?
回复 支持 反对

使用道具 举报

发表于 2018-4-13 10:34:37 | 显示全部楼层
查看有没子窗口,EnumChildWindows
回复 支持 反对

使用道具 举报

发表于 2018-4-13 10:41:46 | 显示全部楼层
Public Declare Function GetDesktopWindow Lib "user32" () As Long
Public Declare Function EnumChildWindows Lib "user32" (ByVal hWndParent As Long, ByVal lpEnumFunc As Long, ByVal lParam As Long) As Long
Public Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
Public Declare Function GetClassName Lib "user32" Alias "GetClassNameA" (ByVal hwnd As Long, ByVal lpClassName As String, ByVal nMaxCount As Long) As Long
Public Declare Function SetWindowText Lib "user32" Alias "SetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String) As Long


Private Sub Command3_Click()
    EnumChildWindows w, AddressOf EnumChildProc, ByVal 0&
End Sub

Public Function EnumChildProc(ByVal hwnd As Long, ByVal lParam As Long) As Long
    Dim sSave As String * 255
    If hwnd = &H8116C Then
        Debug.Print Hex(hwnd),
        GetWindowText hwnd, sSave, 255
        Debug.Print sSave,
        GetClassName hwmd, sSave, 255
        Debug.Print sSave
    End If
    EnumChildProc = 1
End Function
回复 支持 反对

使用道具 举报

 楼主| 发表于 2018-4-13 17:35:15 | 显示全部楼层
JuncoJet 发表于 2018-4-13 10:41
Public Declare Function GetDesktopWindow Lib "user32" () As Long
Public Declare Function EnumChildW ...

ZAQTransparen - Microsoft Visual Basic [运行] - [Module1 (Code)]      wndclass_desked_gsk                              class                             
              text                              
              class                             
              text                              
              class                             
              text          缺省                  
              class         缺省                  
              text          定义颜色...            
              class         定义颜色...            
              text          MsoDockBottom      
              class         MsoDockBottom      
              text          MsoDockRight        
              class         MsoDockRight        
              text          MsoDockTop         
              class         MsoDockTop         
              text          标准                  
              class         标准                  
              text          菜单条                 
              class         菜单条                 
              text          MsoDockLeft         
              class         MsoDockLeft         
新标签页 - 115电脑版        Chrome_WidgetWin_1                                                                         text          Chrome Legacy Window
              class         Chrome Legacy Window
欢迎使用百度网盘            BaseGui                                                                                                                                                                                                                                                        
              class                             
              text                              
              class                             
              text                              
              class                             
sys           ExploreWClass                                                                                            text                              
              class                             
              text                              
              class                             
              text          FolderView         
              class         FolderView         
VB爱好者乐园(VBGood)VB技巧vb 判断是否系统标准窗口 - Powered by Discuz! - 360极速浏览器 9.0                                    Chrome_WidgetWin_1                                                                                                                                                                                                                                             
              text          Chrome Legacy Window
              class         Chrome Legacy Window
这是我得到的结果,其中115  ,百度  , 360 浏览器 都不是标准窗口,不知道从结果中哪里判断
回复 支持 反对

使用道具 举报

 楼主| 发表于 2018-4-13 17:35:49 | 显示全部楼层
JuncoJet 发表于 2018-4-13 10:41
Public Declare Function GetDesktopWindow Lib "user32" () As Long
Public Declare Function EnumChildW ...

ZAQTransparen - Microsoft Visual Basic [运行] - [Module1 (Code)]      wndclass_desked_gsk                              class                             
              text                              
              class                             
              text                              
              class                             
              text          缺省                  
              class         缺省                  
              text          定义颜色...            
              class         定义颜色...            
              text          MsoDockBottom      
              class         MsoDockBottom      
              text          MsoDockRight        
              class         MsoDockRight        
              text          MsoDockTop         
              class         MsoDockTop         
              text          标准                  
              class         标准                  
              text          菜单条                 
              class         菜单条                 
              text          MsoDockLeft         
              class         MsoDockLeft         
新标签页 - 115电脑版        Chrome_WidgetWin_1                                                                         text          Chrome Legacy Window
              class         Chrome Legacy Window
欢迎使用百度网盘            BaseGui                                                                                                                                                                                                                                                        
              class                             
              text                              
              class                             
              text                              
              class                             
sys           ExploreWClass                                                                                            text                              
              class                             
              text                              
              class                             
              text          FolderView         
              class         FolderView         
VB爱好者乐园(VBGood)VB技巧vb 判断是否系统标准窗口 - Powered by Discuz! - 360极速浏览器 9.0                                    Chrome_WidgetWin_1                                                                                                                                                                                                                                             
              text          Chrome Legacy Window
              class         Chrome Legacy Window
这是我得到的结果,其中115  , 百度  , 360 浏览器 都不是标准窗口,不知道从结果中哪里判断
回复 支持 反对

使用道具 举报

 楼主| 发表于 2018-4-13 17:36:47 | 显示全部楼层
本帖最后由 z1a2q3xsw 于 2018-4-13 18:32 编辑

基中,ZAQTransparen      和  SYS 是系统标准窗口样式
回复 支持 反对

使用道具 举报

 楼主| 发表于 2018-4-13 18:28:48 | 显示全部楼层
本帖最后由 z1a2q3xsw 于 2018-4-13 18:30 编辑

谢谢。楼上的回复,不知道怎么搞的点回复一直显示内容错误
回复 支持 反对

使用道具 举报

 楼主| 发表于 2018-4-14 20:56:50 | 显示全部楼层
eason2233 发表于 2018-4-12 21:46
查看窗口類型不行嗎?

你好,能不能说得详细点,得到的窗口类型都有哪些,怎么区分
回复 支持 反对

使用道具 举报

 楼主| 发表于 2018-4-14 20:57:05 | 显示全部楼层
eason2233 发表于 2018-4-12 21:46
查看窗口類型不行嗎?

你好,能不能说得详细点,得到的窗口类型都有哪些,怎么区分
回复 支持 反对

使用道具 举报

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

本版积分规则

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

GMT+8, 2018-5-26 18:07

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