Internet explorer 在VBscript命令中使用变量
我有以下代码: 但我想这样做: 这就是你想要的。它允许您以字符串形式计算VBScript,然后当然允许您按照自己的意愿创建该字符串。例如:Internet explorer 在VBscript命令中使用变量,internet-explorer,variables,vbscript,concatenation,Internet Explorer,Variables,Vbscript,Concatenation,我有以下代码: 但我想这样做: 这就是你想要的。它允许您以字符串形式计算VBScript,然后当然允许您按照自己的意愿创建该字符串。例如: Dim myElement, evalResult myElement = "a_l_1" evalResult = Eval("objIE.Document.All." & myElement & ".click") 您可以访问文档的元素。按名称列出所有集合,例如: document.all("a_l_1").click 因此,不需要执
Dim myElement, evalResult
myElement = "a_l_1"
evalResult = Eval("objIE.Document.All." & myElement & ".click")
您可以访问
文档的元素。按名称列出所有集合,例如:
document.all("a_l_1").click
因此,不需要执行Execute
或Eval()
更新:
这是HTA:
<html>
<!-- !! http://stackoverflow.com/questions/14595716/using-variables-in-commands-vbscript
-->
<head>
<title>VariableDemo</title>
<HTA:APPLICATION
APPLICATIONNAME="VariableDemo"
>
<SCRIPT Language="VBScript">
Sub AClick()
Report document.all.bttA
Dim sBtt
For Each sBtt In Array("bttB", "bttC")
document.all(sBtt).click
Next
End Sub
Sub XClick(bttX)
Report bttX
End Sub
Sub Report(bttX)
document.all("txtA").innerText = bttX.innerText & ": " & Now() & vbCrLf & document.all("txtA").innerText
End Sub
</SCRIPT>
</head>
<body>
<form>
<button id="bttA" onclick="AClick">A</button>
<button id="bttB" onclick="XClick Me">B</button>
<button id="bttC" onclick="XClick Me">C</button>
<br />
<textarea id="txtA" rows="15" cols="40"></textarea>
</form>
</body>
</html>
如果月亮的相位不受干扰,则所有选项都“起作用”。试试objIE.Document.all[some var]。单击您的意思是:Eval(objIE.Document.all[clicker]。单击)我可以这样做,但我想使用变量而不是字符串。但由于某些原因,它不起作用。@yuknow-请参阅更新;你必须提供更多的信息来找出这个奇怪的原因。我真的很感谢你花时间回答这个问题。我应该更清楚我需要什么。但是我发现了这一点,我只是使用了这个:dim isID | isID=1 | do,而isID<5 | isID=isID+1 | objIE.document.all(“a|u 1 | isID)|循环
document.all("a_l_1").click
<html>
<!-- !! http://stackoverflow.com/questions/14595716/using-variables-in-commands-vbscript
-->
<head>
<title>VariableDemo</title>
<HTA:APPLICATION
APPLICATIONNAME="VariableDemo"
>
<SCRIPT Language="VBScript">
Sub AClick()
Report document.all.bttA
Dim sBtt
For Each sBtt In Array("bttB", "bttC")
document.all(sBtt).click
Next
End Sub
Sub XClick(bttX)
Report bttX
End Sub
Sub Report(bttX)
document.all("txtA").innerText = bttX.innerText & ": " & Now() & vbCrLf & document.all("txtA").innerText
End Sub
</SCRIPT>
</head>
<body>
<form>
<button id="bttA" onclick="AClick">A</button>
<button id="bttB" onclick="XClick Me">B</button>
<button id="bttC" onclick="XClick Me">C</button>
<br />
<textarea id="txtA" rows="15" cols="40"></textarea>
</form>
</body>
</html>
Report document.all.bttA - access via named property
document.all("txtA").innerText = ... - access via string literal
For Each sBtt In Array("bttB", "bttC") - access via variable
document.all(sBtt).click