2

私のコードは次のようになります

<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スクリプトを作成しています。

4

2 に答える 2

4

HTAファイルでVBScriptを使用してボタンをクリックする方法を参照してください

これはまさに私が必要としていたことをします

<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>
于 2012-06-12T15:22:19.220 に答える
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>

ボタンをクリックすると、「Clicked！」というテキストのアラートが表示されます。初期化。

于 2012-06-07T18:39:13.817 に答える