PowerBuilder Function Call VBScript gf_call_vbscript
1 2 3 4 5 6 7 8 9 10 11 12 13 | // Function Name : gf_call_vbscript // Argument Name : (None) // Return Type : (None) OleObject ole_wsh Integer li_connect ole_wsh = Create OleObject li_connect = ole_wsh.ConnectToNewObject("MSScriptControl.ScriptControl") ole_wsh.language = "vbscript" ole_wsh.addcode("function retfnc (s) retfnc=s end function") ole_wsh.executestatement('if 1 > 1 then msgbox retfnc("true") else msgbox retfnc("false") end if') |
Good Luck!
Users Today : 86
Users Yesterday : 98
This Month : 960
This Year : 960
Total Users : 221054
Views Today : 216
Total views : 916040
Who's Online : 1