■■■看到一个软件，他的窗体上的按钮的功能是可以通过VBS脚本自定义的，比如说：向窗口发送消息，启动其他程序等等。这是如何做到的？

Question

■■■看到一个软件，他的窗体上的按钮的功能是可以通过VBS脚本自定义的，比如说：向窗口发送消息，启动其他程序等等。这是如何做到的？
 
请给个具体的例子，谢谢！

Answer 1

用winexec就可以启动其它程序啊？如：winexec('notepad.exe',SW_SHOW);不明白楼主的意思？

Answer 2

给你一个参考:
procedure TFrmGZB.POPCalcClick(Sender: TObject);
var 
  vScript: Variant;
  AValue:Double;
begin
  Try
    vScript:=CreateOleObject('ScriptControl');
    vScript.Language := 'VBScript';
    AValue:=vScript.Eval(Calc('3+5*4'));
  except
    Messagedlg('计算公式数据出现错误!',mtError,[mbOK],0);
  end;
end;

Answer 3

应该通过OLE实现的可能性比较大

Answer 4

■■■
to:xixuemao(俺可是㊣②㈧经儿滴人)
我要的不光是启动其他程序我看到一个用VB写的程序做到了这些功能,真郁闷!
可以通过VBS脚本自定义，比如说：向窗口发送任意消息，发送给指定窗体按键消息,启动其他程序等等

Answer 5

sdzeng(大头鸟) 和chenylin(陈SIR) 都提到了，用MsScript.ocx 可以，这个控件负责解析 vbs 脚本，脚本可以实现的功能是很强大的。具体的脚本实现可以参考徽软出的脚本方面的书

Answer 6

看这里，看这里，看这里.....嘿嘿
http://61.186.252.131/Expert/topic/1818/1818477.xml?temp=.9442865

Answer 7

delphi 本身的控件也支持js,vbs啊

Answer 8

MsScript.ocx 控件是正解，配置VBS脚本用MsScript.ocx执行即可