我已經做了幾次,但我不知道爲什麼這次我的HTA vbscript正在大喊我關於Object不支持這個屬性或方法IE.Document.form1?HTA VBScript - IE CreateObject(InternetExplorer.Application)IE.Document.form1不支持屬性或方法
忽略Wait 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>
好吧,可能會對某事。它看起來像我試圖廢除的頁面使用iframe。 form1位於名爲ct100_ContentPlaceHolder1_T1的iframe中。見上面的編輯。 – Jim