如何在 HTA 文件中使用 VBScript 单击按钮答案

【问题标题】：How to click a button using VBScript in an HTA file如何在 HTA 文件中使用 VBScript 单击按钮
【发布时间】：2012-06-11 20:05:38
【问题描述】：

我的代码看起来像

<html>
<head>
<title>My HTML application</title>
<HTA:APPLICATION 
    id="frames" 
    border="thin" 
    caption="yes" 
    icon="http://www.google.com/favicon.ico" 
    showintaskbar="yes" 
    singleinstance="yes" 
    sysmenu="yes" 
    navigable="yes" 
    contextmenu="no" 
    innerborder="no" 
    scroll="auto" 
    scrollflat="yes" 
    selection="yes" 
    windowstate="normal" />
</head>

<script language="VBScript">

Sub Window_OnLoad
  'This method will be called when the application loads
  'Add your code here
  GetUserName
End Sub

Sub GetUserName() 
    Set objNetwork = CreateObject("WScript.Network")
    linkTo("http://servername/nph-psf.exe?HOSTID=AD&ALIAS=" & objNetwork.UserName)
    Set objNetwork = Nothing 
End Sub

Sub linkTo(strLink) 
    Document.getElementById("psyncLink").src = strLink
End Sub

Sub checkInputPage
    Document.theforms.name
End Sub

</script>        
    </head> 
    <frameset rows="60px, *"> 
        <frame src="topo.htm" name="topo" id="topo" application="yes" /> 
        <frame src="http://servername/nph-psf.exe?HOSTID=AD&ALIAS=" name="conteudo" id="psyncLink" application="yes" /> 
    </frameset> 
</html>

页面加载了 2 个按钮，如何以编程方式执行点击操作？

<INPUT border=0 type=image alt="Use a password" name="SUBMIT-password.pss" src="docs/pics/en-us/useapassword_button.jpg">

请注意，我无法更改从中加载的任何代码因为我没有对该目录的写入权限。我正在创建一个 HTA 脚本，它可以以编程方式单击该页面上的按钮和链接，以帮助我们的用户更改密码

【问题讨论】：

见stackoverflow.com/questions/10937398/… 这正是我所需要的

标签： html vba vbscript forms hta

【解决方案1】：

见How to click a button using VBScript in an HTA file

这正是我所需要的

<script type="text/javascript"> 
function doClick(fr) { 
    var btn = fr.contentWindow.document.getElementsByName("SUBMIT-password.pss"); 
    if (btn.length == 0) { 
        alert("no button!"); 
        return; 
    } else { 
        btn[0].click(); 
    } 
} 
</script>

【讨论】：

【解决方案2】：

只是一个例子

<INPUT border=0 type=image alt="Use a password" name="cmdBtn" src="docs/pics/en-us/useapassword_button.jpg" onclick="cmdBtn_Click">

VB 脚本

<script language="vbscript">
   sub cmdBtn_Click()
       msgbox("Clicked !") 
   end sub
</script>

或

<INPUT type="Button" value="Click Me" name="cmdBtn" />

VBSCRIPT

<SCRIPT LANGUAGE="VBSCRIPT" EVENT="OnClick" FOR="cmdBtn">
    msgbox("Clicked !")
</script>

如果您单击该按钮，它将显示带有文本“已单击！”的警报在里面。

【讨论】：

如何以编程方式执行点击操作。
我无法更改正在加载的页面上的 HTML。我无权将
您可以使用输入名称<SCRIPT LANGUAGE="VBSCRIPT" EVENT="OnClick" FOR="cmdBtn">来使用第二个示例
该代码如何导致按钮以编程方式被单击？看起来用户必须单击按钮并引发事件处理程序然后执行代码
哦！我真的没有明白这一点，也许他本可以提到他想触发一个事件，但无论如何，你解决了它。这是一个误会。谢谢。 +1。