如何導入一個DLL到MSScriptControl.ScriptControl

Question

我有一個關於MS腳本控制的查詢，我有一個VB6程序，它使用MSScript控件來允許用戶在應用程序中寫入宏。

我的問題是如何將一個DLL導入到MSScriptControl.ScriptControl類型的對象。

Answer 1

你的意思是加載一個scriptControl對象嗎？

在VBScript：

set x = createobject("msscriptcontrol.scriptcontrol") 
x.language = "vbscript" 
x.executestatement "a = 12" 

在vb6：

Public Sub class_initialize() 
Set Script = CreateObject("ScriptControl") 
Script.Language = "VBScript" 
Script.Reset 
Script.ExecuteStatement "abc = 123" 
End Sub