测试源
<head>
<title>HTA Test</title>
<HTA:APPLICATION `enter code here`
APPLICATIONNAME="HTA Test"
SCROLL="yes"
SINGLEINSTANCE="yes"
WINDOWSTATE="maximize">
</head>
<script language="VBScript">
Sub TestSub
Msgbox "Testing 1-2-3."
End Sub
</script>
<body>
<input type="button" value="Run Script" name="run_button" onClick="TestSub">
</body>
例如
在运行的html应用程序中（标题：HTA测试）
（name = "run_button"）获得VBA（document.getelementsby）的价值
我想来问问这是否可能。
HTA文件中的命名元素可以通过其名称引用。
run_button.value
当多于1个元素共享同一名称时，该名称将返回元素集合。
run_buttons（1）。价值
<input type="button" value="Run Script" name="run_buttons" onClick="TestSub">
<head>
<title>HTA Test</title>
<HTA:APPLICATION `enter code here`
APPLICATIONNAME="HTA Test"
SCROLL="yes"
SINGLEINSTANCE="yes"
WINDOWSTATE="maximize">
</head>
<script language="VBScript">
Sub TestSub
Msgbox run_button.value
End Sub
</script>
<body>
<input type="button" value="Run Script" name="run_button" onClick="TestSub">
</body>
另一种技术是使用Me将元素的引用传递给子例程。
<head>
<title>HTA Test</title>
<HTA:APPLICATION `enter code here`
APPLICATIONNAME="HTA Test"
SCROLL="yes"
SINGLEINSTANCE="yes"
WINDOWSTATE="maximize">
</head>
<script language="VBScript">
Sub TestSub(ele)
Msgbox ele.value
End Sub
</script>
<body>
<input type="button" value="Run Script" name="run_buttons" onClick="TestSub(Me)">
</body>
当我写HTA或VBS文件时，我分别使用HTAEdit和Vbsedit。你可以在这里找到VBEdit.com。