VBS错误消息 - “行:6,列:1,错误:(null),代码:800401E4,来源:(null)”

问题描述:

我是新手脚本,并且偶然发现了AutoIt,我想亲自评估以及其他脚本技术)。有没有人看到此代码中的任何错误(我无法确定这是VBS错误还是某些我不了解AutoIt)?VBS错误消息 - “行:6,列:1,错误:(null),代码:800401E4,来源:(null)”

我使用称为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 
+0

@ Mr47:编辑摘要足以描述您的编辑。您无需再将其放入内容中。 – BoltClock 2011-05-18 10:16:23

+0

看起来你正在使用[这里]的示例(http://www.autoitscript.com/forum/topic/128627-access-autoit/)。我会在该线程中发布,而不是在这里,因为它是一个非常具体的问题,AutoIt社区在stackoverflow上很小/不存在。 – Matt 2011-05-18 10:24:06

+0

尝试在本地光盘(如C:)上运行它,而不是(可能)网络或外部光盘H: – 2011-05-18 11:33:53

的问题是,你正在试图获取对象之前完成初始化。 (在发生奇迹的线上)

尝试WshShell.Run "h:\AutoItServer.exe", 1, true这会使脚本等待,直到启动autoitserver。

+1

通过AutoIt论坛的trancexx回复示例脚本(AutoItServer的生产者,该脚本提供了使用其他脚本语言的AutoIt功能的方法...),请参阅: http://www.autoitscript.com/forum/topic/128627 -access-的AutoIt/page__st__20 – isjones 2011-05-18 16:17:42