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!
Subscribe
Login
0 Comments