BCB中的程序怎么加入VBScript或JScript脚本来控制。我试过，不好用。哪个帮帮忙，可以再加分

[houzh]

我想用脚本控件让自己的程序可以由BVScript 或者JScript控制。但怎么也不行
BCB下使用MSScript控件运行脚本程序
TScriptControl *sc=new TScriptControl(this);
TVariant v;
sc->Reset();
sc->AddCode(code);
sc->Run((wchar_t*)"Hello",v.pparray);//运行到这里老是错
//=========
code如下：
Sub Hello()
MsgBox "Hello"
End Sub
TScriptControl::ExecuteStatement方法执行单个VB语句没问题

[JWhiteHorse]

up

[JWhiteHorse]

up

[JWhiteHorse]

up

[houzh]

在VB里面调用MSScript控件是没问题的
可以随时输入一个函数或表达式。
并马上让脚本控件执行它。如果是表达式可以算出结果
不用自己编写表达式计算函数

[HUANG_JH]

WideString temp;
temp="hello";
sc->Run(temp,v.pparray);

看看

[houzh]

楼上的，这样怎么可能得分呢。我又不是什么编译错误

[houzh]

拜托各位，既然来了哪怕是跟着UP一下也行。灌水也可。不要让难题无解

大家应该知道Word Excel Access等都可以通过VBScript控制。
我也想用VBScript控制自己的程序。从而使程序更有利于扩展和维护

[大大怪老张]

推一下好了

[houzh]

怎么没人知道

[hhhappy]

我的总体感觉是很无奈.

[Cbfan]

这个简单，请参考：

QuickForm->Lines->Append("<SCRIPT LANGUAGE=\"JavaScript\" defer>");
QuickForm->Lines->Append("var parentwin=external.menuArguments;");
QuickForm->Lines->Append("var doc=parentwin.document;");
QuickForm->Lines->Append("var sel=doc.selection;");
QuickForm->Lines->Append("var rng=sel.createRange();");
QuickForm->Lines->Append("if (doc.activeElement.type==\"text\"||doc.activeElement.type==\"textarea\"||doc.activeElement.type==\"password\")");
QuickForm->Lines->Append("rng.text=\""+ Edit1->Text +"\"");
QuickForm->Lines->Append("</SCRIPT>");
QuickForm->Lines->SaveToFile("QuickForm01.html");

┏━━━━━━ 〓☆★☆★☆〓.............................
┃CTO【首席技术官】 〓☆★☆★☆〓....................
┃ 〓☆★☆★☆〓............
┃▂▃▅▆讨论◆大印▆▅▃▂ 〓☆★☆★☆〓...
┗━━━━━━━━━━━━━━━━━━━━━

[houzh]

楼上的，这算什么东西