Сообщение об ошибке VBS - «Строка: 6, Столбец: 1, Ошибка: (ноль), Код: 800401E4, Источник: (ноль)»

Question

Я новичок в написании сценариев и наткнулся на AutoIt, который я хочу лично оценить (наряду с другими технологиями сценариев).Кто-нибудь видит какую-либо ошибку в этом коде (я не могу определить, является ли это ошибкой VBS или что-то, чего я не понимаю в AutoIt)?

Я использую редактор VbsEdit и получаю ошибкусообщение следующее: «Строка: 6, столбец: 1, ошибка: (ноль), код: 800401E4, источник: (ноль)» *

Вся помощь приветствуется.TIA

---

'Start AutoIt server script first

Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "h:\AutoItServer.exe" 

Set oAutoIt = GetObject("AutoIt.Application") ' the magic

WS_OVERLAPPEDWINDOW = &H00CF0000

hGui = oAutoIt.Call("GUICreate", "VBS AutoIt GUI test", -1, -1, -1, -1, WS_OVERLAPPEDWINDOW)
hButton = oAutoIt.Call("GUICtrlCreateButton", "Click", 100, 100, 100, 30)
hButton2 = oAutoIt.Call("GUICtrlCreateButton", "Click me too", 100, 300, 100, 30)

oAutoIt.Call "WinSetOnTop", "VBS AutoIt GUI test", "", 1

AW_FADE_IN  = &H00080000
oAutoIt.Call "DllCall", "user32.dll", "bool", "AnimateWindow", "hwnd", hGui, "dword", 1000, "dword", AW_FADE_IN

oAutoIt.Call "GUISetState"

Do
    Select Case oAutoIt.Call("GUIGetMsg")
        Case -3
            Exit Do
        Case hButton
            oAutoIt.Call "MsgBox", 262144+32+3, "Title", "Bzzz bzz bzzzz", 0, hGUI
        Case hButton2
            oAutoIt.Call "Beep", 500, 700
    End Select
    Wscript.Sleep(10)
Loop

oAutoIt.Call "GUIDelete"

If oAutoIt.Call("MsgBox", 4 + 48 + 262144, "?", "Kill server?") = 6 Then oAutoIt.Quit

Answer 1

Проблема в том, что вы пытаетесь получить объект до его полной инициализации. (на линии, где происходит волшебство)

Попробуйте WshShell.Run "h:\AutoItServer.exe", 1, true, это заставит скрипт ждать, пока автозапуск не запустится.