vc6.0調用vb腳本

2019-11-08 02:33:04

字體：大中小

來源：轉載

供稿：網友

// testvb.cpp : Defines the entry point for the console application.//#import "msscrWord 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)