从网站

  • Z时代
  • 2024-01-10
  • 分类：问答

我有一个从网站获取URL麻烦获取网址： https://searchbzp.uzp.gov.pl/Search.aspx
在这个网站上有一个表。
文本'Zobacz'是一个超链接，从这个地方我想要得到的URL。从网站

我可以在这个URL中使用下面的代码单击，然后浏览器试图打开新的标签页： IE.Document.getelementbyID("ctl00_ContentPlaceHolder1_ASPxGridView1_DXCBtn0").Click

但我只想得到这个URL（无需打开新的标签页）。 我是想这样的事情，但它不工作：

Dim a 
a = IE.Document.parentWindow.ExecScript("javascript:ctl00_ContentPlaceHolder1_ASPxGridView1_DXCBtn0", "JavaScript") 
MsgBox a 
a = IE.Document.parentWindow.ExecScript(IE.Document.getElementById("ctl00_ContentPlaceHolder1_ASPxGridView1_DXCBtn0").href, "JavaScript") 
MsgBox a

任何人可以帮助我呢？

回答：

见我的回答类似的问题昨天：http://stackoverflow.com/a/47593832/8112776

如果你只需要得到一个值，即始终位于同一个地方，那么就没有必要IE对象和所有。

这里：

Function GetHTML(url As String) As String 
    With CreateObject("MSXML2.XMLHTTP") 
     .Open "GET", url, False 
     .Send 
     GetHTML = .ResponseText 
    End With 
End Function 
Sub getData() 
    Const url = "https://searchbzp.uzp.gov.pl/Search.aspx" 
    Const strStart = "ctl00_ContentPlaceHolder1_ASPxGridView1_DXCBtn0""><span>" 
    Const strStop = "</span>" 
    Dim html As String, pStart As Long, pStop As Long 
    html = GetHTML(url) 
    pStart = InStr(1, html, strStart) + Len(strStart) 
    pStop = InStr(pStart, html, strStop) 
    MsgBox Mid(html, pStart, pStop - pStart) 
End Sub

以上是 从网站 的全部内容， 来源链接： utcz.com/qa/260286.html

回到顶部