[英]Cannot write in InputBox inside a frame of a website
这篇文章是以下填写Internet Explorer输入框
我们尝试隔离问题,似乎我无法(可能是由于页面中的JavaScript? - 请查看其他帖子)正确地解决我想要的特定InputBox。 我写的代码:
Sub AddInfoFromIntranet()
Dim Ie As SHDocVw.InternetExplorer
Dim Doc As MSHTML.HTMLDocument
Dim Elements As MSHTML.IHTMLElementCollection
Set Ie = New SHDocVw.InternetExplorer
With Ie
.navigate "[HERE GOES MY WEBSITE]"
.Visible = True
Do Until Not .Busy And .readyState = 4
DoEvents
Loop
Set Doc = .document
Set Elements = Doc.getElementsByName("Nachnamevalue")
.Quit
End With
Set Ie = Nothing
End Sub
“Nachnamevalue”是网页“top_window”框架中包含的元素的名称:
上面的图片是我打开我想要的地址,按F12并点击所需输入框上的“选择项目”项目。 在一开始,页面只是一堆javascripts(打开页面 - F12并复制DOM资源管理器的内容)
现在,如果我试着看看我的“Elements”变量是什么,我得到的对象基本上是空的。
如果相反我写:
Set Elements = Doc.getElementsByName("top_window")
有东西可以找到。 不幸的是我在INTRANET页面上工作,所以我无法为你提供地址。
编辑:完整的JavaScript
<html><head><script language="JavaScript">
function NewWindow(window_name){
var detail;
detail = open(window_name,"detail","dependent,resizable,screenX=50,screenY=50,width=400,height=400");
detail.focus();
}
function NewWindowScroll(window_name){
var detail;
detail = open(window_name,"detail","dependent,scrollbars,resizable,screenX=50,screenY=50,width=600,height=500");
detail.focus();
}
function NewWindowSize(window_name,w,h){
var detail, windata;
detail = open(window_name,"detail","dependent,scrollbars,resizable,screenX=250,screenY=250,width=" + w + ",height=" + h);
detail.focus();
}
function MiniWindow(window_name){
var detail;
detail = open(window_name,"miniwindow","dependent=no,resizable=yes,screenX=0,screenY=0,width=800,height=20");
detail.focus();
}
last_timer="new"
function DoSearch(){
document.Suchform.submit()
}
function wait_and_search(){
clearTimeout(last_timer)
last_timer = window.setTimeout("DoSearch()", 400);
}
function check_kpeq(this_handle){
equ_string = this_handle.value;
text = equ_string.replace(/[^0-9A-Za-z\-]/g,"");
zahlen = text.split(/[\-\/]/);
if (zahlen.length != 4) {falsches_equ_format(this_handle); return false;}
fill="000";
Zahl_1 = fill + zahlen[0];
Zahl_1 = Zahl_1.slice(Zahl_1.length-3)
Zahl_2 = fill + zahlen[1];
Zahl_2 = Zahl_2.slice(Zahl_2.length-1)
Zahl_3 = fill + zahlen[2];
Zahl_3 = Zahl_3.slice(Zahl_3.length-2)
Zahl_4 = zahlen[3];
this_handle.value = (Zahl_1 + "-" + Zahl_2 + "-" + Zahl_3 + "-" + Zahl_4);
return true;
}
function check_anab(this_handle){
anab_string = this_handle.value;
if (anab_string == "") {return true;}
text = anab_string.replace(/[^0-9\-]/g,"");
zahlen = text.split(/[\-\/]/);
if (zahlen.length != 3) {falsches_anab_format(this_handle); return false;}
fill="000";
Zahl_1 = fill + zahlen[0];
Zahl_1 = Zahl_1.slice(Zahl_1.length-2)
Zahl_2 = fill + zahlen[1];
Zahl_2 = Zahl_2.slice(Zahl_2.length-2)
Zahl_3 = fill + zahlen[2];
Zahl_3 = Zahl_3.slice(Zahl_3.length-3)
this_handle.value = (Zahl_1 + "-" + Zahl_2 + "-" + Zahl_3 );
return true;
}
function falsches_anab_format(this_handle) {
t1 = "Ung?ltiges Format f?r HVT AN/AB: >> " + this_handle.value + " <<\n\n";
t2 = "Nur 3 Zahlen mit '-' als Trennzeichen erlaubt\n\n";
t3 = "Z.B.: '01-08-001'"
alert(t1 + t2 + t3);
this_handle.focus();
}
function falsches_equ_format(this_handle) {
t1 = "Ung?ltiges Format f?r EQU: >> " + this_handle.value + " <<\n\n";
t2 = "Nur 4 Zahlen mit '-' als Trennzeichen erlaubt\n\n";
t3 = "Z.B.: '003-2-60-7'"
alert(t1 + t2 + t3);
this_handle.focus();
}
function check_form(){
if (check_kpeq(document.editanlagedata.KPEQ) == false){return false};
if (check_anab(document.editanlagedata.HVAN) == false){return false};
if (check_anab(document.editanlagedata.HVAB) == false){return false};
return true;
}
</script>
<title>Telefon-Suche</title>
<link title="Telefonsuche - Abteilung" href="[XML FILE REGARDING WEBPAGE].xml" rel="search" type="application/opensearchdescription+xml">
<link title="Telefonsuche - Name" href="[XML FILE REGARDING WEBPAGE].xml" rel="search" type="application/opensearchdescription+xml">
</head>
<!-- frames -->
<frameset rows="90,*" bordercolor="#ffffcc" frameborder="0">
<frame name="top_window" src="index.cfm?fuseaction=StdSearchForm" scrolling="No">
<frame name="bottom_window" src="index.cfm?fuseaction=ShowStartpage" scrolling="Auto">
</frameset><noframes></noframes>
您遇到的问题是,当您的目标输入框'Nachnamevalue'位于IFrame
内部时,IE必须先导航到目标页面,然后再导航到IFrame 。
如果没有到IFrame
导航,那么DOM不包含IFrame
内部的元素,这就是它无法工作的原因。 HTH
(示例代码使用位于我的PC上的文件,因此将url替换为来自Intranet的实际URL以及带有实际页面名称的'main.html'的名称。)
Option Explicit
' Add reference to Microsoft Internet Controls (SHDocVw)
' Add reference to Microsoft HTML Object Library
Sub AddInfoFromIntranet()
Dim ie As SHDocVw.InternetExplorer
Dim doc As MSHTML.HTMLDocument
Dim url As String
' Navigate to main page first
url = "file:///c:/temp/Noldor/"
Set ie = New SHDocVw.InternetExplorer
ie.Visible = True
ie.navigate url & "main.html"
While ie.Busy Or ie.readyState <> READYSTATE_COMPLETE: DoEvents: Wend
Dim inputs As MSHTML.IHTMLElementCollection
Dim iFrames As MSHTML.IHTMLElementCollection
Dim iFrame As MSHTML.HTMLFrameElement
' Get top_window frame and navigate to it then
Set doc = ie.document
Set iFrames = doc.getElementsByName("top_window")
If Not iFrames Is Nothing Then
Set iFrame = iFrames(0)
ie.navigate url & iFrame.src
While ie.Busy Or ie.readyState <> READYSTATE_COMPLETE: DoEvents: Wend
Set inputs = doc.getElementsByName("Nachnamevalue")
If Not inputs Is Nothing Then
inputs(0).Value = "Test123"
End If
End If
ie.Quit
Set ie = Nothing
End Sub
main.html
示例HTML:
<html>
<head>
<title></title>
</head>
<frameset cols="" rows="">
<frame name="top_window" src="top_window.html" />
</frameset>
<noframes>
<!-- no frames content here -->
</noframes>
</html>
top_window.html
示例HTML:
<html>
<head>
<title></title>
</head>
<body bgcolor="#ffffcc">
<form name="Suchform" action="index.cfm">
Nachname:
<input name="Nachnamevalue" type="text" size="8">
</form>
</body>
</html>
声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.