703
社区成员
发帖
与我相关
我的任务
分享
function callSubmit(){
;
}
TStringList *ss=new TStringList;
ss->LoadFromFile("js.txt");
WideString js=ss->Text;
delete ss;
Variant vScript;
ShowMessage("1");
vScript=CreateOleObject("MSScriptControl.ScriptControl.1");
ShowMessage("2");
vScript.OlePropertySet("Language", "JavaScript");
ShowMessage("3");
vScript.OleFunction("AddCode",js);
ShowMessage("4");
vScript.OleFunction("callSubmit");
ShowMessage("5");