怎么用语句获取当前HTTP网址呀

[fooltutu]

当遇到一个有用的网址时,想点击功能菜单把它网址保存下来.用语句获取当前网页的网址呀?

[zzyong00]

收藏夹？

[fooltutu]

Set xmlobject = CreateObject("Microsoft.XMLHTTP")
strURL = "http://222.28.112.103/Search/ResourceDataDetailPage.aspx?recordSchema=native.html&Database=qikan&expression=6444106&keywords=%e9%a3%8e%e9%99%a9%e9%a1%b9%e7%9b%ae" & "?rNum=" & Int((9999) * Rnd(Now()) + 1)

xmlobject.Open "GET", strURL, False
xmlobject.send
If xmlobject.ReadyState = 4 Then
strhtml = xmlobject.responseText
End If

这段代码可以读取固定地址的源代码,如果我的地址不固定怎么办?

[bob008]

可以设置一个热键程序...主要功能是查找地址栏文本...然后保存到你的网址记录文件里

当你感觉我正看的这个网址还不错的时候按下热键就保存了.. 又不用添加到收藏夹

你想看那URL的时候... 热键呼出,点记录里的URL 自动打开或者自动填到已经打开的IE地址栏里并自动打开.//

只要你想的到就做的到...

[TakiCN]

是用的webbrowser控件吗，使用localurl就可以获得当前网址

[爱我的人请呼吸]

　　如果不是固定的那你先把你要读取的URL地址赋值给strURL再读取