VB如何获取一个软件的Internet Explorer_Server的句柄

[Tea_123]

我试过用FindWindowEx获取但是不行，好像Enumchilewindows和Getwindowsclass能找出他的句柄
高手能不能帮忙给我举个例子！

[专注编程优化20年]

这是要做什么用？

[无·法]

根据类名 Internet Explorer_Server 进行查找

[Tea_123]

引用 4 楼 xiaoyao961 的回复:

我就是用这个方式处理的

'┏〓〓〓〓〓〓〓〓〓 FindHwndByClassAndId,start 〓〓〓〓〓〓〓〓〓┓
'［简介］：
'查找窗体中多层次下第几个相同类的句柄
Function FindHwndByClassAndId(WinHwnd As Long, ByVal Class As String, Optional FindId As Integer, Optional Id As Integer) As Long
   '[mycode_id:1934],edittime:2011/8/3 3:30:07
      Dim Hwnd2 As Long
      Dim FindHwnd As Long, TempFindHwnd As Long
      Hwnd2 = GetWindow(WinHwnd, GW_CHILD)
      While FindHwnd = 0 And Hwnd2 > 0
                  If GetClass(Hwnd2) = Class Then
                       TempFindHwnd = Hwnd2
                       
                       If Id = FindId Then
                           FindHwnd = TempFindHwnd
                           GoTo DoEnd
                       Else
                           Id = Id + 1
                       End If
                   End If
                  
                  FindHwnd = FindHwndByClassAndId(Hwnd2, Class, FindId, Id)
                  Hwnd2 = GetWindow(Hwnd2, GW_HWNDNEXT)
      Wend
   DoEnd:
      FindHwndByClassAndId = FindHwnd
   
End Function
'┗〓〓〓〓〓〓〓〓〓  FindHwndByClassAndId,end  〓〓〓〓〓〓〓〓〓┛

我获取好几个子窗口的子窗口的句柄获取了Internet Explorer_Server的句柄,就是不知如何让Internet Explorer_Server重新定向浏览其他网页

[现在还是人类]

搞这种东西你的方式不对，建议你了解一下BHO技术，你可以百度一下“vb bho”

[专注编程优化20年]

用FindWindowEx应该可以的，全用FINDWINDOWEX（HWND，HWND1,VBNULLSTRING,VBNULLSTRING) 有时你指定类还不行，全用NULL反倒行，再按所得到的所有HWND，得到其CLASS，进行比较

[专注编程优化20年]

我就是用这个方式处理的

'┏〓〓〓〓〓〓〓〓〓 FindHwndByClassAndId,start 〓〓〓〓〓〓〓〓〓┓
'［简介］：
'查找窗体中多层次下第几个相同类的句柄
Function FindHwndByClassAndId(WinHwnd As Long, ByVal Class As String, Optional FindId As Integer, Optional Id As Integer) As Long
   '[mycode_id:1934],edittime:2011/8/3 3:30:07
      Dim Hwnd2 As Long
      Dim FindHwnd As Long, TempFindHwnd As Long
      Hwnd2 = GetWindow(WinHwnd, GW_CHILD)
      While FindHwnd = 0 And Hwnd2 > 0
                  If GetClass(Hwnd2) = Class Then
                       TempFindHwnd = Hwnd2
                       
                       If Id = FindId Then
                           FindHwnd = TempFindHwnd
                           GoTo DoEnd
                       Else
                           Id = Id + 1
                       End If
                   End If
                  
                  FindHwnd = FindHwndByClassAndId(Hwnd2, Class, FindId, Id)
                  Hwnd2 = GetWindow(Hwnd2, GW_HWNDNEXT)
      Wend
   DoEnd:
      FindHwndByClassAndId = FindHwnd
   
End Function
'┗〓〓〓〓〓〓〓〓〓  FindHwndByClassAndId,end  〓〓〓〓〓〓〓〓〓┛

[无·法]

引用 6 楼 Tea_123 的回复:

[quote=引用 4 楼 xiaoyao961 的回复:] 我就是用这个方式处理的

'┏〓〓〓〓〓〓〓〓〓 FindHwndByClassAndId,start 〓〓〓〓〓〓〓〓〓┓
'［简介］：
'查找窗体中多层次下第几个相同类的句柄
Function FindHwndByClassAndId(WinHwnd As Long, ByVal Class As String, Optional FindId As Integer, Optional Id As Integer) As Long
   '[mycode_id:1934],edittime:2011/8/3 3:30:07
      Dim Hwnd2 As Long
      Dim FindHwnd As Long, TempFindHwnd As Long
      Hwnd2 = GetWindow(WinHwnd, GW_CHILD)
      While FindHwnd = 0 And Hwnd2 > 0
                  If GetClass(Hwnd2) = Class Then
                       TempFindHwnd = Hwnd2
                       
                       If Id = FindId Then
                           FindHwnd = TempFindHwnd
                           GoTo DoEnd
                       Else
                           Id = Id + 1
                       End If
                   End If
                  
                  FindHwnd = FindHwndByClassAndId(Hwnd2, Class, FindId, Id)
                  Hwnd2 = GetWindow(Hwnd2, GW_HWNDNEXT)
      Wend
   DoEnd:
      FindHwndByClassAndId = FindHwnd
   
End Function
'┗〓〓〓〓〓〓〓〓〓  FindHwndByClassAndId,end  〓〓〓〓〓〓〓〓〓┛

我获取好几个子窗口的子窗口的句柄获取了Internet Explorer_Server的句柄,就是不知如何让Internet Explorer_Server重新定向浏览其他网页[/quote]根据这个句柄不行的吧。

[无·法]

http://bbs.csdn.net/topics/390540874?page=1#post-395251637 给分吧

[无·法]

引用 8 楼 sysdzw 的回复:

http://bbs.csdn.net/topics/390540874?page=1#post-395251637 给分吧

另外贡献个使用我之前的clsWindows框架的方法，很简便：

Dim w As New clsWindow
If w.GetWindowHwndByTitleEx("应用程序标题栏文字") > 0 Then
    MsgBox w.GetElementHwndByClassName("Internet Explorer_Server") '得到ie控件句柄
End If

[create_code]

用大漠插件 EnumWindow CString cc=dm.EnumWindow(0,_T(""),_T("Internet Explorer_Server"),2+16); 把cc转换成int,这个int就是句柄了