vc6.0调用vb脚本

2019-11-08 02:33:04

字体：大中小

来源：转载

供稿：网友

// testvb.cpp : Defines the entry point for the console application.//#import "msscript.ocx" no_namespace#include "stdafx.h"#include "tchar.h"#include "stdio.h"#include "iostream"using namespace std;int main(int argc, char* argv[]){ CoInitialize(NULL); try { HANDLE hFile = CreateFile( _T("c://checklen.vbs"), GENERIC_READ, FILE_SHARE_READ, NULL, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, NULL ); DWord dwFilesize = 0; DWORD dwActSize =0; dwFilesize = GetFileSize(hFile, NULL); BYTE *pBytes = new BYTE[dwFilesize+1]; memset(pBytes, 0, dwFilesize+1); ReadFile(hFile, pBytes, dwFilesize, &dwActSize,NULL); CloseHandle(hFile); _bstr_t bstrScriptBody = (LPCTSTR)pBytes; _variant_t vtResult; int nTimeout = 30; IScriptControlPtr ptrScript; ptrScript.CreateInstance(__uuidof(ScriptControl)); ptrScript->Timeout = 1000 * nTimeout; //超时设置 ptrScript->PutAllowUI( VARIANT_TRUE ); ptrScript->PutLanguage( _bstr_t(_T("VBScript")) ); //HRESULT hr = ptrScript->ExecuteStatement(bstrScriptBody); // ptrScript->AddCode( _bstr_t("Function GetValue()/r/n MsgBox /"Hello world/" /r/n GetValue = 5 /r/n End Function/r/n")); ptrScript->AddCode(bstrScriptBody); vtResult = ptrScript->Eval(_bstr_t("GetValue")); // ptrScript->Run(_bstr_t("GetValue"), &vtResult); ptrScript.Release(); delete[] pBytes; long lRet = vtResult.iVal; cout << "VBScript:GetValue->returnValue = " << lRet << std::endl; cin.get(); } catch(_com_error &e) { _bstr_t bstrSource(e.Source()); _bstr_t bstrDescription(e.Description()); std::cout<<"VBS Script Engine"<<std::endl; std::cout<<"COM error occurred, source:"<<(LPCTSTR)bstrSource<<std::endl; std::cout<<"Description:"<<(LPCTSTR)bstrDescription<<std::endl; cin.get(); } CoUninitialize(); return 0;}

vbs脚本为

Function GetValue() MsgBox "Hello world" GetValue = 5 End Function

上一篇：1086. Tree Traversals Again (25)[递归＋二叉树]

下一篇：大神养成之路上的经验教训，持续不定期更新ing(3)