Ошибка псевдонима в VBS

Question

Как использовать псевдоним в VBScript? Я пытаюсь следующий код:

AliasesExample 
Sub AliasesExample 
    Dim AliasObj 
    ' Obtains the object that corresponds to the Notepad main window 
    Set AliasObj = Aliases.notepad.wndNotepad 
    ' Checks whether the specified window exists 
    If AliasObj.Exists Then 
    ' Enters text in the Notepad editor 
    AliasObj.Keys("Hello, world.") 
    Else 
    Log.Error("Notepad is not running.") 
    End If 
End Sub 

но получаю следующее сообщение об ошибке:

object required: 'Aliases' 

Answer 1

VBScript и Windows Script хоста не поддерживает вызова DLL и Windows API функции, но вы некоторые возможные решения:

• Вы можете вызвать DLL функции, которые подвергаются воздействию через COM-объекты:

  Set obj = CreateObject("Foo.Bar") 
  Call obj.Method(Param1, Param2) 
  

• вас может быть возможность вызывать некоторые функции DLL с помощью rundll32 если DLL и функции встречаются certain requirements.

  ' Open "Programs and Features" using the Control_RunDLL function from shell32.dll 
  Set oShell = CreateObject("WScript.Shell") 
  oShell.Run "rundll32.exe shell32.dll Control_RunDLL appwiz.cpl,,0" 
  

Кроме того, вы не повезло.

Как правило, вам нужна COM-вызывающая оболочка для вашей DLL-функции, чтобы использовать ее из VBScript.