从 C# 回调 VBScript

Question

我想知道是否可以从 C# 调用 VBScript 中的函数。 让我试着澄清一下。 我正在使用一个应用程序（Quick Test Professional 或“QTP”）来自动化另一个应用程序，主要使用 VBScript。 通过加载模型，可以通过将加载项写入作为 .NET 程序集的测试应用程序 (QTP) 来扩展测试功能。 基本工作流程是 VBScript 测试自动化测试应用程序，并且可以调用程序集中的可扩展性添加中的类上的方法来执行更复杂的操作。 这部分工作正常。

我想知道的是我的 C# 代码（在扩展性添加程序集中）是否可以回调 VBScript 中的函数。 我不认为测试应用程序框架（QTP）明确支持这一点，所以我想知道是否有任何方法可以使用标准互操作技术来做到这一点。 我正在考虑使用 GetRef() 来获取对感兴趣的 VBScript 函数的引用，将其作为参数传递给我在可扩展性插件中调用的方法（我怀疑即使在这一点上我也会遇到编组问题？）然后在我的可扩展性添加的 C# 代码中，以某种方式调用该对象的方法； 这是我完全迷失的地方（因为如果没有反射中通常使用的必要类型信息，我不知道如何做到这一点）。

我认为这可能是不可能的，但如果是这样的话，希望得到确认。

谢谢你！

Answer 1

最后并不难，但发现更难
在 vbscript 中设置 a=getref
在 C# 中将 ref 声明为对象
https://community.saas.hpe.com/t5/Unified-Functional-Testing/C-compile-on-the-fly-thru-dotnetfactory/mp/1611299#M22811

private object _UFTCallBackFunction = null;

 public int callMeBack2()
 {
 string[] retParts = {"Yep this is value 1"};
 _UFTCallBackFunction.GetType().InvokeMember("", 
  System.Reflection.BindingFlags.InvokeMethod, null, 
_UFTCallBackFunction, retParts);
 return 0;
 }

 public void InitUFTCallBack(object UFTCallBackFunction)
 {
 _UFTCallBackFunction = UFTCallBackFunction;
 }

然后在vbs中

Set oCallMe = GetRef("CallMeBackWithAParameter")
oTestCom.InitUFTCallBack(oCallMe)
oTestCom.callMeBack2()
Function callMeBackWithAParameter(P1)
 print "I wass called back from C# having value " & P1
End Function

Answer 2

VBScript如何调用C#代码？ 我怀疑它真的是调用QTP，而QTP调用的是C#代码。 在这种情况下，只有 QTP 才可能回调 VBScript。

你的C#代码在什么情况下会回调？ 我怀疑VBScript是否可以异步回调。

Answer 3

那是个硬汉。

您可能想要尝试在 VBScript 端为 .NET 组件编写一个事件处理程序，并在您希望调用该函数时在 .NET 端引发一个事件。

请注意，它甚至可能不起作用，因为它实际上取决于 QTP 的脚本引擎。 即使应该这样做，如果它变成了一种挫败感的练习，也不要感到惊讶。

请参阅有关 WSH 和事件处理的示例 http://msdn.microsoft.com/en -us/library/ms974564.aspx 同样，这可能不适用于 QTP，但它可以让您了解解决问题的潜在方法。

编辑：附加链接可能有帮助，也可能没有帮助！

http://www.west-wind.com/presentations/dotnetfromVfp/DotNetFromVfp_EventHandling。 ASP