1

我是脚本新手，偶然发现了我想亲自评估的 AutoIt（以及其他脚本技术）。是否有人在此代码中看到任何错误（我无法确定这是 VBS 错误还是我对 AutoIt 不了解的一些问题）？

我正在使用一个名为 VbsEdit 的编辑器，我收到如下错误消息：“Line:6, Column:1, Error:(null), Code:800401E4, Source:(null)”

所有帮助表示赞赏。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
4

1 回答 1

1

问题是您试图在对象完全初始化之前获取它。（在魔法发生的那一行）

试试WshShell.Run "h:\AutoItServer.exe", 1, true这个，让脚本等到 autoitserver 启动。

于 2011-05-18T14:16:56.553 回答