VB获取IE8地址栏的URL
2015-07-21 11:34
423 查看
Function GetIE8AddressBarURL() As String
Dim lpClassName
Dim hwnd As Long
Dim i As Integer
Dim lpURL As String * 256
lpClassName = Array("IEFrame", "WorkerW", "ReBarWindow32", "Address Band Root", "Edit")
hwnd = FindWindow(lpClassName(0), vbNullString)
If hwnd=0 Then Exit Function
For i = 1 To 4
hwnd = FindWindowEx(hwnd, 0, lpClassName(i), vbNullString)
If hwnd = 0 Then Exit Function
Next
SendMessage hwnd, WM_GETTEXT, 256, ByVal lpURL
GetIE8AddressBarURL = Replace(lpURL, Chr$(0), "")
End Function
Dim lpClassName
Dim hwnd As Long
Dim i As Integer
Dim lpURL As String * 256
lpClassName = Array("IEFrame", "WorkerW", "ReBarWindow32", "Address Band Root", "Edit")
hwnd = FindWindow(lpClassName(0), vbNullString)
If hwnd=0 Then Exit Function
For i = 1 To 4
hwnd = FindWindowEx(hwnd, 0, lpClassName(i), vbNullString)
If hwnd = 0 Then Exit Function
Next
SendMessage hwnd, WM_GETTEXT, 256, ByVal lpURL
GetIE8AddressBarURL = Replace(lpURL, Chr$(0), "")
End Function
相关文章推荐
- VB POST数据
- VB与DDE进程通信
- C# 6.0 和VB.NET 14 新特性(翻译)
- 机房收费系统基本流程
- Opengl ES IBO(索引缓冲区) VBO(顶点缓冲区)创建一个立方体
- vba 中的异常处理
- 关于在64位win7下运行Virtualbox安装系统时出错(提示VBoxDD.DLL错误)的解决
- 简易配置文件的读取(VB.NET)
- VB6.0程序图标
- 解决Unable to load R3 module ...VBoxDD.dll (VBoxDD):GetLastError=1790
- 【VBS】发邮件
- VB .bas文件生成dll并且调用
- DVB-S相关术语说明
- DVB-S info
- The Role of DTV Network Interfaces in Media Controller Support for DVB
- VBS学习日记(一个) 开始了解
- 【VB】MSHFlexGrid中数据导入到Excel(机房问题)
- vb.net 广播只有本机能收 Socket 客户端不能收 win8
- vb快速排序源代码
- VBS 函数和过程默认的传递方式