IScriptControlPtr :: GetProcedures() Not Working

[Gilbert2019]

Hello!
When I use tablacus scriptcontrol-1.2.3.0 x64, I want to get all the function names described in the program file.I use the following steps .

IScriptControlPtr m_ pScript;
IScriptProcedureCollectionPtr pIProcedures = m_ pScript->GetProcedures();

Every time the program aborts, I find the implementation file in tablacusscriptcontrol-1.2.3.0 x64
Here, the property iscriptprocedurecollectionptr:: procedures is passed through the method.

STDMETHODIMP CTScriptControl::get_ Procedures(struct IScriptProcedureCollection ** ppdispProcedures)
{
  return E_ NOTIMPL;
}

Here, there is no return method of S_ OK。 Can I get all the program names in other methods?

[tablacus]

How about using CodeObject?

var CodeObject = SC.CodeObject;
for (var n in CodeObject) {
    WScript.Echo(n);
}

sample1.js

var SC = new ActiveXObject("ScriptControl");
SC.Language = "JScript";
SC.AddCode('function fna(a,b,c){ }');
SC.AddCode('fnb = function (a,b,c){ }');
var CodeObject = SC.CodeObject;
for (var n in CodeObject) {
    WScript.Echo(n);
}

sample2.js

var SC = new ActiveXObject("ScriptControl");
SC.Language = "VBScript";
SC.AddCode('function vbInputBox(text, defaultText)\nvbInputBox = InputBox(GetText(text), TITLE, defaultText)\nend function');
var CodeObject = SC.CodeObject;
for (var n in CodeObject) {
    WScript.Echo(n);
}

Regards,

[Gilbert2019]

Hello!
In my project, the design purpose is to use VBScript to implement some temporary calculation tools in MFC. I use a class ( CScriptObject ) to manage the practical application of msscript . A variable iscriptcontrolptr m_Pscript is declared in the class CScriptObject;

public:
IScriptControlPtr m_pScript ;

in the constructor, call createinstance to create m_Pscript object:

HRESULT hr = m_pScript.CreateInstance(__uuidof(ScriptControl));
_com_util::CheckError(hr); ///< will throw an exception if failed
///< will not come here if exception
_tcscpy(m_szLanguage,LANGUAGE_DEFAULT);
m_pScript->PutAllowUI(VARIANT_FALSE);
m_pScript->put_Language(_bstr_t(m_szLanguage));

use the instantiated object to load the edited VBS file, cscriptobject:: loadscript.

bool CScriptObject::LoadScript(LPCTSTR szFilename, CString *pStr)
{
	HANDLE hFile = CreateFile(szFilename, GENERIC_READ, FILE_SHARE_READ, NULL, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, NULL);
	if(hFile != INVALID_HANDLE_VALUE)
	{
		DWORD dwSize = GetFileSize(hFile, NULL);
		if(0xFFFFFFFF != dwSize)
		{
			BYTE* pbytes = (BYTE *)GlobalAlloc(GPTR, dwSize+1);
			if(pbytes != NULL)
			{
				DWORD dwRead = 0;
				bool bResult = false;
				if(ReadFile(hFile, pbytes, dwSize, &dwRead, NULL))
				{
					try
					{
						if(m_pScript)
						{
							_bstr_t strCode = (LPCSTR)(pbytes);
							*pStr = strCode.GetBSTR();
							m_pScript->AddCode(strCode);
							GetMethodsName();///< 底层没实现需要自己写
							bResult = true;
						}
					}
					catch(...)
					{
						///< just catch the exception , call GetErrorString() to retreive last error
					}
					GlobalFree((HGLOBAL)pbytes);
					CloseHandle(hFile);
					return bResult;
				}
				GlobalFree((HGLOBAL)pbytes);
			}
		}

		CloseHandle(hFile);
		return false;
	}
	return false;
}

After loading successfully, you can access how many functions are defined in the VBS file. If so, use M_pscript-> procedures() property or M_Pscript->getprocedures() method; unfortunately, this function is not implemented. I've tested other functions and they've been successful.

The following two documents
Remove the txt suffix is the definition file of the class

ScriptObject.cpp.txt
ScriptObject.h.txt

BestRegard !

[GeertBellekens]

I too stumbled upon this issue.
I'm currently using the MSScriptControl.Procedures in my code to execute them individually.
Having to support 64 bit now as well I was hoping to use this scriptcontrol as an alternative.
In one of my classes I'm using the NumArgs property of procedure to get the number of arguments my function has.
I don't think I can get the same result using CodeObject.

Would be great if Procedures could be implemented as well.