0

スクリプトタグを使用してhtmlにプラグインするだけで同じように実行できると考えて、実行して完全に機能するvbscriptを作成しました。そうではありません。ボタンを機能させるために何をする必要があるか教えてください。スクリプトとして、自動的にログインしてページに移動するため、Web ページでボタンが押されたときにそれが発生するようにしたいと考えています。

 <!doctype html>
    <html>
    <head>
    <meta charset="utf-8">
    <title>Add a Lead</title>
    <script type="text/vbscript">
    function Execute()
    {
    Dim IE
    Dim WRI
    Set IE = CreateObject("InternetExplorer.Application")
    IE.Visible = 1 
    IE.navigate "http://rentalapp.zillow.com/"
    Do While (IE.Busy)
    WScript.Sleep 10
     Loop
     Set WRI = IE.document.getElementByID("username")
     WRI.Value = "username"
     Set WRI = IE.document.getElementByID("password")
     WRI.Value = "password"
     Set WRI = IE.document.Forms(0)
     WRI.Submit
    WScript.Sleep 801
    IE.navigate "http://rentalapp.zillow.com/leads/add/"
    document.getElementById("field2").value=document.getElementById("field1").value; }    </script>    </head>

    <body>
    <button onclick="Execute()">Add A Lead</button>
    </body>
    </html>

助けてください

4

1 に答える 1

0

私は vbscript プログラマーではありませんが、問題は関数宣言にあると思います。これは、単純なアラートの例として、W3C が vbscript 関数を宣言する方法です。

<script type="text/vbscript">
    sub Execute()
        MsgBox("Hello world")
    end sub
</script>
<body>
    <button onClick="Execute()">Add A Lead</button>
</body>
于 2013-10-13T22:58:20.830 に答える