1

我已经这样做了几次，但是我不确定为什么这次我的 HTA vbscript 对我大喊大叫 Object 不支持此属性或方法 IE.Document.form1？

忽略等待 IE,2000 subs。

Function server_details(server_name)
    dim returnArray(6)

    Set IE = CreateObject("InternetExplorer.Application")
    IE.Visible = True
    IE.Navigate "http://website/Default.aspx"
    Wait IE,2000
    With IE.Document.form1
        .txtServerName.value = server_name
        .Button1.click
    End With

    Wait IE,4000

    'get info returned
    With IE.Document.all
        serverOS = .txtOS.value
        serverApp = .txtBusinessApp.value
        serverClass = .txtServerClass.value
        serverHost = .txtHost.value
        serverEnv = .txtSupportEnvironment.value
        serverCheckout = .txtCheckoutStatus.value
    End With

    IE.Quit
    Set IE = Nothing
    returnArray(0) = serverOS
    returnArray(1) = ServerApp
    returnArray(2) = serverClass
    returnArray(3) = serverHost
    returnArray(4) = serverEnv
    returnArray(5) = serverCheckout
    server_details = returnArray
End Function

我的 HTA vbscript 中也有这个功能，它工作正常。

Function subnetDetails(server_ip)
    Set IE = CreateObject("InternetExplorer.Application")
    IE.Visible = False
    IE.Navigate "http://otherwebsite/detail.aspx"
    Wait IE,2000
    With IE.Document.aspnetForm
        .[ctl00$_SUMMARY$txtIP].value = server_ip
        .[ctl00$_SUMMARY$btnLoad].click
    End With

    'webscrape for TABLE id="ctl00_SUMMARY_gvSubnets"
    Wait IE,9000
    responseHTML = IE.Document.getElementByID("ctl00_SUMMARY_gvSubnets").outerHTML
    IE.Quit
    Set IE = Nothing

    subnetDetails = responseHTML
End Function

发现 form1 在 iframe 中，可能是我无法引用它的原因。有任何想法吗？

<iframe id="ctl00_ContentPlaceHolder1_I1" bordercolor="White" name="I1" src="CSIS.aspx" style="border-style: none; overflow: auto; height: 2500px; width: 1100px;" frameborder="no" scrolling="no">

<html>
    <head>
        <body>
            <form name="form1" bla bla"


 </iframe>
4

2 回答 2

1

好的，所以想通了。iframe 造成了所有的麻烦。对于那些有相同错误消息的人，请尝试检查表单和元素不是您尝试抓取的站点内 iframe 的一部分。站点中的工作后备词获取 iframe 源并将其放入您的 vbscript 而不是您拥有的那个。

好运！

于 2012-09-04T19:56:44.613 回答
0

很难忽略您的等待子，因为可能存在原因。你似乎使用了固定的时间，而你应该使用类似的东西

Do Until IE.readyState = 4
  Wscript.Sleep 100
Loop

同样在遇到麻烦的情况下，最好将您的对象级别每行分离一个，更易于调试

With IE
  With .document
    With ...

并注释掉，直到它起作用

这些 oare 一般准则，如果您发布真实 URL 和您的等待子，我们可以提供更直接的建议。

于 2012-09-04T19:19:01.263 回答