Объект не поддерживает этот метод - PullRequest
Новая
       11

Объект не поддерживает этот метод

0 голосов
/ 11 апреля 2019

Я получаю

Объект не поддерживает этот метод

когда я нажимаю кнопку запуска. Там написано: 

<input type="button" name="btnStart" id="btnStart" value="Start" onclick="Start_Button">

Я полагаю, что на самом деле это может быть где-то в моем VBScript. Когда я нажимаю на кнопку «Пуск», это зависит от того, введен ли strPath и установлен ли флажок, он должен запустить программу для установки или сказать, что мне нужно ввести strPath или установить флажок. 

<!DOCTYPE html>
<html lang="en">
<head>
    <title>Tombstone USD #1 - Software Installer</title>

    <HTA:APPLICATION
        APPLICATIONNAME = "Software Installer"
        ICON = "images\districtlogo.ico"
        ID = "NAME"
        BORDER = "thick"        
        CAPTION = "yes"
        SHOWINTASKBAR = "yes"
        SINGLEINSTANCE = "yes"
        SYSMENU = "yes"
        WINDOWSTATE="normal"
        SCROLL = "no"
        VERSION = "1.0"
        INNERBORDER = "yes"
        SELECTION = "yes"
        MAXIMIZEBUTTON = "no"
        MINIMIZEBUTTON = "no"
        NAVIGABLE = "no"
        CONTEXTMENU = "yes"
        BORDERSTYLE = "normal"
    />

    <script type="text/javascript">
    <!--Resolution//-->
        window.resizeTo(600,750);
    </script>

    <script language="VBScript">
        Sub Start_Button()

            Dim strAnswer,strPath, objNetwork
            Set objNetwork = CreateObject("WScript.Network")
            strAnswer = ""
            strPath=""

            If chkEset.Checked Then strAnswer = "Eset"

            'If strPath is empty then nothing was checked.
            If strPath = "" Then 
                Window.Alert "Please input Path location!"
            End If

            'If strAnswer is empty then nothing was checked.
            If strAnswer = "" Then 
                Window.Alert "Please Make an Selection!"
                Exit Sub
            End If

            Window.Alert "Done!"
        End Sub
    </script>   

</head>

<body style="background-color:#E6E6FA">
    <center>
        <img src="images\districtlogo.png" alt="Logo" height="100" width="100"/>
        <h1>Software Installer</h1>
    </center>

    <form name="MainMenu" action="" method="">
        <label for="sPath">Drive Letter or File Path:</label><input type="text" size="60" id="sPath" name="sPath"></td>
        <br />
        <label for="Eset">ESet AntiVirus</label></td><input type="checkbox" id="Eset" name="chkEset">
        <br />
        <input type="button" name="btnStart" id="btnStart" value="Start" onclick="Start_Button"> 
        <br />
        <input type="reset" value="Reset">

    </form>

</body>

</html>

В настоящее время я просто пытаюсь запустить эту программу с одной программой. Это подтверждение концепции теста.

1 Ответ

0 голосов
/ 12 апреля 2019

Хорошо, так как я понял это, я думал, что добавлю законченный сценарий ниже.Все, что нужно сделать, это проверить, заполнен ли strPath и установлен ли флажок.Следующим шагом является запуск программы, соответствующей флажку.

То, как я это исправил, было изменено с <input type="button" name="btnStart" id="btnStart" value="Start" onclick="Start_Button"> на <input type="button" name="btnStart" id="btnStart" value="Start" onclick="Start_Button()">.

. Я также понял, чтоФорма фактически не присваивала значения скрипту и создала значение TheForm и присвоила его форме MainMenu.Затем мне пришлось добавить это значение ко всем существующим значениям. 

<!DOCTYPE html>
<html lang="en">
<head>
    <title>Tombstone USD #1 - Software Installer</title>

    <HTA:APPLICATION
        APPLICATIONNAME = "Software Installer"
        ICON = "images\districtlogo.ico"
        ID = "NAME"
        BORDER = "thick"        
        CAPTION = "yes"
        SHOWINTASKBAR = "yes"
        SINGLEINSTANCE = "yes"
        SYSMENU = "yes"
        WINDOWSTATE="normal"
        SCROLL = "no"
        VERSION = "1.0"
        INNERBORDER = "yes"
        SELECTION = "yes"
        MAXIMIZEBUTTON = "no"
        MINIMIZEBUTTON = "no"
        NAVIGABLE = "no"
        CONTEXTMENU = "yes"
        BORDERSTYLE = "normal"
    />

    <script type="text/javascript">
    <!--Resolution//-->
        window.resizeTo(600,750);
    </script>

    <script language="VBScript">
        Sub Start_Button()

            Dim strAnswer,strPath, objNetwork,TheForm
            Set objNetwork = CreateObject("WScript.Network")
            Set TheForm = Document.MainMenu
            strAnswer = ""
            strPath = ""

            If TheForm.chkEset.Checked Then strAnswer = "Eset"            

           'If strPath is empty then nothing was checked.
            If TheForm.strPath = "" Then 
                Window.Alert "Please input Path location!"
                Exit Sub            
            End If

            'If strAnswer is empty then nothing was checked.
            If strAnswer = "" Then 
                Window.Alert "Please Make an Selection!"
                Exit Sub
            End If

            Window.Alert "Done!"
        End Sub
    </script>   

</head>

<body style="background-color:#E6E6FA">
    <center>
        <img src="images\districtlogo.png" alt="Logo" height="100" width="100"/>
        <h1>Software Installer</h1>
    </center>

    <form name="MainMenu" action="" method="">
        <label for="Path">Drive Letter or File Path:</label><input type="text" size="60" id="Path" name="strPath"></td>
        <br />
        <label for="Eset">ESet AntiVirus</label></td><input type="checkbox" id="Eset" name="chkEset">
        <br />
        <input type="button" name="btnStart" id="btnStart" value="Start" onclick="Start_Button()"> 
        <br />
        <input type="reset" value="Reset">

    </form>

</body>

</html>
...