麻烦用vbs写一段获取某个ie句柄或者是当前网页的URL

请用vbs写一段获取某个网页的网页地址。已知某ie句柄的变量是Hwnd现在如何获取这个hwnd的url... 请用vbs写一段获取某个网页的网页地址。
已知某ie句柄的变量是Hwnd
现在如何获取这个hwnd的url
展开
 我来答
悠然见影
推荐于2016-05-31
悠然见影
采纳数:232 获赞数:369 LV8
擅长:电脑/网络 编程语言 操作系统/系统故障 JAVA相关 VB
向TA提问 私信TA
展开全部
<script Language="vbscript">
dim url
function geturl()
url=window.location.href
document.getElementById("ur").innerText=url
end function
</script>
<input type="button" value="获取" onclick="geturl()"> 当前网页地址为:<span id="ur"></span>

下面一段是转帖过来的,应用在VB上,通过取得ie句柄获得ie的url,希望对你有帮助:
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Dim dWinFolder As SHDocVw.ShellWindows
Set dWinFolder = New SHDocVw.ShellWindows
Dim objIE1 As SHDocVw.InternetExplorer
Dim ActID As Long
Dim myUrl as String
ActID = FindWindow("IEFrame", vbNullString)

For Each objIE1 In dWinFolder
'过滤掉windows资源管理器的窗口
  If InStr(1, objIE1.FullName, "IEXPLORE.EXE", vbTextCompare) <> 0 Then
'是否是当前正在浏览的IE窗口
If objIE1.hWnd = ActID Then
'执行程序
myUrl = objIE1.LocationURL '取得地址
End If
End If
Next
400zclkuu
2011-06-25
400zclkuu
采纳数:1200 获赞数:2657 LV12
擅长:暂未定制
向TA提问 私信TA
展开全部
建议你分析一下迅雷.
看它的IE右键菜单在注册表的什么地方
还有的是在注册表中分析那个菜单调用的.html
注意external.menuArguments.document是获取点击该菜单的页面句柄.知道了这个就好办事了.其它的就是普通的客户端脚本与网页的配合了.
多思考一下.
祝你成功
不过如果系统屏蔽了WSH,或者禁止了FSO那么就搞不定了
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
华依凝
2011-07-05
华依凝
采纳数:1 获赞数:3 LV3
擅长:暂未定制
向TA提问 私信TA
展开全部
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Dim dWinFolder As SHDocVw.ShellWindows
Set dWinFolder = New SHDocVw.ShellWindows
Dim objIE1 As SHDocVw.InternetExplorer
Dim ActID As Long
Dim myUrl as String
ActID = FindWindow("IEFrame", vbNullString)

For Each objIE1 In dWinFolder
已赞过 已踩过<
你对这个回答的评价是?
评论 收起

为你推荐:

×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消