Html 我以为我的vbscript按钮会执行，但我可能遗漏了什么_Html_Vbscript

Html 我以为我的vbscript按钮会执行，但我可能遗漏了什么

html vbscript

Html 我以为我的vbscript按钮会执行，但我可能遗漏了什么,html,vbscript,Html,Vbscript,我制作了一个运行和工作完美的vbscript，我想我可以将它插入带有脚本标记的html中，它也会执行相同的操作。不是真的，请告诉我需要做什么才能让按钮工作。作为一个脚本，它将自动登录并导航到一个页面，我希望在按下网页上的按钮时发生这种情况 <!doctype html> <html> <head> <meta charset="utf-8"> <title>Add a Lead</title>

我制作了一个运行和工作完美的vbscript，我想我可以将它插入带有脚本标记的html中，它也会执行相同的操作。不是真的，请告诉我需要做什么才能让按钮工作。作为一个脚本，它将自动登录并导航到一个页面，我希望在按下网页上的按钮时发生这种情况

 <!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>


添加线索
函数Execute（）
{
暗淡的
暗淡的手腕
设置IE=CreateObject（“InternetExplorer.Application”）
即可见=1
即“导航”http://rentalapp.zillow.com/"
趁忙
WScript.Sleep 10
环
Set WRI=IE.document.getElementByID（“用户名”）
WRI.Value=“用户名”
设置WRI=IE.document.getElementByID（“密码”）
WRI.Value=“密码”
Set WRI=IE.document.Forms（0）
提交
WScript.Sleep 801
即“导航”http://rentalapp.zillow.com/leads/add/"
document.getElementById（“field2”）.value=document.getElementById（“field1”）.value；}
添加线索

请帮助

我不是vbscript程序员，但我认为问题在于函数声明。以下是W3C为简单警报声明vbscript函数的方式：


子执行（）
MsgBox（“你好，世界”）
端接头
添加线索

OK，这样可以工作，但仍然不会输入登录信息。我再次提醒您，它可以作为vbscript工作，但在html中它会消失，但至少您让我进入下一步，为此我感谢您。以前我甚至无法让按钮做出反应，但现在它会弹出另一个窗口，显示我指定的url地址。是的，很抱歉，我无法深入研究代码。但这听起来像是一个兼容性问题。您知道Visual Basic for Applications、VBScript和Visual Basic之间的区别吗？在VBScript中，花括号和分号不是有效的语法元素。此外，“不起作用”是一个不充分的问题描述。它究竟如何“不起作用”？你有错误吗？

<script type="text/vbscript">
    sub Execute()
        MsgBox("Hello world")
    end sub
</script>
<body>
    <button onClick="Execute()">Add A Lead</button>
</body>