不知道这个标题是不是有误,反正就是获取一个post的地址啦^_
用到了WebBrowser控件。
代码如下:
Option Explicit
Private Sub Command1_Click()
Dim doc, objhtml
Dim strUrl As String
Set doc = WebBrowser1.Document
Set objhtml = doc.body.createtextrange()
If Not IsNull(objhtml) Then
Text1.Text = objhtml.htmltext
End If
strUrl = Split(Split(Text1, "<P align=center>")(1), """")(1)
strUrl = Replace(strUrl, "amp;", "")
strUrl = "http://ren.baidu.com" & strUrl
Debug.Print strUrl '这就是我们要的结果
End Sub
已经有(0)位网友发表了评论,你也评一评吧!
原创文章如转载,请注明:转载自Eddy Blog
原文地址:http://www.rrgod.com/program/414.html 欢迎订阅Eddy Blog。