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

2013-08-06 12:27:35 820 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

ANSYS Twin Builder实战：5步搞定数字孪生模型部署（附ROM配置技巧）本文详细解析了ANSYS Twin Builder在数字孪生模型部署中的实战应用，重点介绍了ROM（降阶模型）配置技巧。通过5个关键步骤，从环境搭建到工业部署，帮助工程师高效实现高精度三维仿真到轻量化数字孪生的转化，提升预测性维护和系统仿真效率。阅读详情

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

...全文

从图片到3D模型：用Tripo+Unity打造AI建模流水线（避坑指南）本文详细介绍了如何利用Tripo和Unity构建AI驱动的3D建模流水线，从图片到3D模型的高效转换。通过文生模型和图生模型的双模系统，开发者可以大幅提升建模效率，适用于游戏开发和数字内容创作。文章还提供了环境配置、图片预处理、批量生成等实用技巧，帮助开发者避开常见陷阱。阅读详情

Tea_123

API 1,488 成员 23,270 内容

+ 关注 + 加入社区

切换为时间正序

create_code 2014-03-25

打赏
举报

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

无·法 2013-08-08

打赏
举报

引用 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

无·法 2013-08-08

打赏
举报

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

无·法 2013-08-08

打赏
举报

引用 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]根据这个句柄不行的吧。

专注编程优化20年 2013-08-07

打赏
举报

我就是用这个方式处理的

'┏〓〓〓〓〓〓〓〓〓 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  〓〓〓〓〓〓〓〓〓┛

专注编程优化20年 2013-08-07

打赏
举报

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

现在还是人类 2013-08-07

打赏
举报

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

Tea_123 2013-08-07

打赏
举报

引用 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重新定向浏览其他网页

无·法 2013-08-07

打赏
举报

根据类名 Internet Explorer_Server 进行查找

专注编程优化20年 2013-08-06

打赏
举报

这是要做什么用？

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

相关推荐