Make(cnet) ver(4.04 build 185) Add(EntryPoint,2953706,70,35) { Width=370 Height=323 } Add(Inline,8048431,182,133) { WorkPoints=#5:doRun| EventPoints=#8:onResult| DataPoints=#4:Data|4:arg1|4:arg2| Code="private void doWork(object data, int index) {\r\n string scriptCode = sys.Data;\r\n mScript script = new mScript();\r\n script.addScriptInput("arg1", Int32.Parse(sys.arg1));\r\n script.addScriptInput("arg2", Int32.Parse(sys.arg2));\r\n script.setScript(scriptCode);\r\n Hashtable rValues = script.runScript();\r\n string returned = "";\r\n foreach (string rVar in rValues.Keys) {\r\n returned += rVar + " = " + rValues[rVar] + Environment.NewLine;\r\n }\r\n sys.onResult(returned);\r\n}\r\n\r\n" link(onResult,10981850:doText,[]) link(Data,1627602:Text,[]) link(arg1,9072031:Text,[(195,121)(237,121)]) link(arg2,9374347:Text,[(202,126)(286,126)]) } Add(Button,514144,133,133) { Left=30 Top=45 Text="Run" Data=Integer(10) Point(onClick) link(onClick,8048431:doRun,[]) } Add(TextBox,1627602,182,77) { Left=110 Top=45 Width=200 Height=155 Text="Dim arg1, arg2\r\narg1 = iv("arg1")\r\narg2 = iv("arg2")\r\nDim value\r\nvalue = (arg1 * arg2) + 1\r\nMsgBox "Hello from VBScript!"\r\nreturn "result", value\r\nreturn "hello", "Hello from VBScript!"" Lines=[] Multiline=0 Point(doText) Point(Text) Point(Data) } Add(TextBox,10981850,231,133) { Left=110 Top=205 Width=200 Height=75 Text="Result" Lines=[] Multiline=0 Point(doText) Point(Text) Point(Data) } Add(TextBox,9072031,231,77) { Left=110 Top=20 Text="2" Lines=[] Point(doText) Point(Text) Point(Data) } Add(TextBox,9374347,280,77) { Left=210 Top=20 Text="3" Lines=[] Point(doText) Point(Text) Point(Data) } Add(Label,8097133,231,35) { Left=110 Top=5 Text="arg1" Point(doText) Point(onClick) } Add(Label,5269292,280,35) { Left=210 Top=5 Text="arg2" Point(doText) Point(onClick) } Add(Using,16740491,133,77) { List="System.Collections\r\nmScriptable" } Add(AssemblyInfo,3835221,133,35) { @Hint=#12:AssemblyInfo| References=#15:mScriptable.dll| } Add(LinkTip,1053468,28,7) { Link="http://www.codeproject.com/Articles/15741/Scripting-NET-applications-with-VBScript" Font=[MS Sans Serif,8,0,16711680,1] }