TC调用VB语言_C语言_python语言文件_nodejs语言_Perl语言_实例

panba

//TC调用VB语言_C语言_python语言文件_nodejs语言_Perl语言_实例

function button2_click()
        //TC调用C语句
        //前提是本机内要安装TCC的C编译器,我的TCC是安装在c:\tcc

        var Ccmd = "tcc -run c:\\hello.c" //C文件放在指定路径,这方式更通用
        //var Ccmd = "tcc -run hello.c" //C文件指定在TC.exe应用程序所在的安装路径之下; 这方式不通用

        编辑框设置文本("edit0",Ccmd)
        变量 命令文本=编辑框获取文本("edit0")        //
        var ret =dllcall("qs.dll","char *","Tcmd","char *",命令文本)        //运行DOS命令并将显示内容回传
        //var ret =dllcall("qs.dll","char *","Tcmd","char *",cmdstr)
        //要将qs.dll放置在"生成"的文件夹里,即该dll要放在跟本应用程序同一层内

        编辑框设置文本("edit1",ret)

        return 编辑框获取文本("edit1") //return ret
end

功能 runvbscmd(code)
   //运行vbs的一条命令
   var sc = com("ScriptControl")
    sc.Language = "VBScript"
    //var s = "Now"
    //var ret = sc.Eval(s)
    var ret = sc.Eval(code)        //运行vbs代码
    sc = null
        return ret
        //调试输出(ret)
结束

功能 runvbscmds()
    //运行vbs的一个功能函数
        var code
        code = code & "Function add(c):" //每一行的冒号:用于连接每一行
        code = code & "Dim MyVar:"
        code = code & "MyVar = c * c:"
        code = code & "add = MyVar:" // 等价于 return MyVar;只有这样设置,才能正确返回函数的值
        code = code & "End Function"
          
        var ret = RunVBFun(code,"add",3)
        调试输出(code)
        //调试输出(RunVBFun(code,"add",3))
        return ret
结束

function button2_click()
        //TC调用nodeJS语句


        var Ccmd = "node c:\\hello.js" //js文件放在指定路径,这方式更通用

        编辑框设置文本("edit0",Ccmd)
        变量 命令文本=编辑框获取文本("edit0")        //
        var ret =dllcall("qs.dll","char *","Tcmd","char *",命令文本)        //运行DOS命令并将显示内容回传
        //var ret =dllcall("qs.dll","char *","Tcmd","char *",cmdstr)
        //要将qs.dll放置在"生成"的文件夹里,即该dll要放在跟本应用程序同一层内

        编辑框设置文本("edit1",ret)

        return 编辑框获取文本("edit1") //return ret
end

function button2_click()
        //TC调用Perl语句
        //前提是本机内要安装TCC的C编译器,我的TCC是安装在c:\tcc

        var Ccmd = "Perl c:\\hello.pl" //pl文件放在指定路径,这方式更通用

        编辑框设置文本("edit0",Ccmd)
        变量 命令文本=编辑框获取文本("edit0")        //
        var ret =dllcall("qs.dll","char *","Tcmd","char *",命令文本)        //运行DOS命令并将显示内容回传
        //var ret =dllcall("qs.dll","char *","Tcmd","char *",cmdstr)
        //要将qs.dll放置在"生成"的文件夹里,即该dll要放在跟本应用程序同一层内

        编辑框设置文本("edit1",ret)

        return 编辑框获取文本("edit1") //return ret
end

itsok

666666666666666666

moyo

学习

jldhzqb

受用

a3836229

qs.dll  这是什么？ 这么获取

qpzp8950406

能不能发个源码  我研究下 调用node.js