关于对象GetObject问题

KD飞飞

GetObject("GUI")在vbs脚本中运行正常
但是使用对象.获取（"GUI"）就失败，找了一圈说是：
在易语言中，获取对象方法对应的是VBScript中的GetObject函数。根据您提供的VBScript脚本，它使用的是GetObject("GUI")，而在易语言中，您尝试使用获取对象("GUI")。但是，根据之前的尝试，您发现多个ProgID都失败了。
然而，请注意，在VBScript中，GetObject("GUI")实际上是从运行对象表（ROT）中获取名为"SAPGUI"的对象。在易语言中，使用获取对象方法时，它默认是通过ProgID来获取对象，而不是通过ROT中的显示名称。
因此，我们需要在易语言中模拟VBScript的GetObject函数的行为，即从运行对象表（ROT）中获取对象。在易语言中，我们可以通过创建ROT对象，然后枚举ROT中的对象，找到名为"GUI"的对象。


现在就是不知所措~

l88i

把你在vbs中能用的代码发出来

KD飞飞

l88i 发表于 2025-12-15 18:43
把你在vbs中能用的代码发出来

代码其实不重要
Option Explicit

On Error Resume Next

Dim SapGuiAuto, application, connection, session

Set SapGuiAuto = GetObject("SAPGUI")
If Err.Number <> 0 Then
    WScript.Quit 1
End If

Set application = SapGuiAuto.GetScriptingEngine
If Err.Number <> 0 Then
    WScript.Quit 1
End If

Set connection = application.Children(0)
If connection.Children.Count = 0 Then
    WScript.Quit 1
End If

Set session = connection.Children(0)

session.findById("wnd[0]/tbar[0]/okcd").Text = "/ncs03"
session.findById("wnd[0]").sendVKey 0

Set session = Nothing
Set connection = Nothing
Set application = Nothing
Set SapGuiAuto = Nothing