vbs 例子

kjgmj

使用了请在此下载

#定义 UNICODE
#引用 "disphelper/disphelper.bi"
'' **************************************************************************
'' RunScript:
''   Run a script using the MSScriptControl. Optionally return a result.
''
子程序 RunScript ( 传值 szRetIdentifier 为 LPWSTR, _
    传值 pResult 为 LPVOID, _
    传值 szScript 为 LPWSTR, _
    传值 szLanguage 为 LPWSTR )
DISPATCH_OBJ(scrCtl)
如果( SUCCEEDED( dhCreateObject( "MSScriptControl.ScriptControl", NULL, @scrCtl )  ) ) 则
  如果( SUCCEEDED( dhPutValue( scrCtl, ".Language = %T", szLanguage ) ) ) 则
   dhPutValue(scrCtl, ".AllowUI = %b", TRUE)
   dhPutValue(scrCtl, ".UseSafeSubset = %b", FALSE)
   如果( pResult = FALSE ) 则
    dhCallMethod( scrCtl, ".Eval(%T)", szScript )
            否则
    dhGetValue( szRetIdentifier, pResult, scrCtl, ".Eval(%T)", szScript )
            结束 如果
        结束 如果
    结束 如果
SAFE_RELEASE( scrCtl )

结束 子程序
变量 为 整数型 nResult
dhInitialize( TRUE )
dhToggleExceptions( TRUE )
'' VBScript sample
RunScript( NULL, NULL, !"MsgBox(\"This is a VBScript test.\" & vbcrlf & \"It worked!\",64 or 3)", "VBScript" )
'' JScript sample
RunScript( "%d", @nResult, "Math.round(Math.pow(5, 2) * Math.PI)", "JScript" )
输出 "结果 ="; nResult
输出 "按下任意键退出..."
延时
dhUninitialize(TRUE)