Internet explorer 在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 因此,不需要执

我有以下代码:

但我想这样做:

这就是你想要的。它允许您以字符串形式计算VBScript,然后当然允许您按照自己的意愿创建该字符串。例如:

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