云外归鸟工作室网站

标题: vbs 例子 [打印本页]

作者: kjgmj 时间: 2011-1-19 11:11
标题: vbs 例子
本帖最后由 kjgmj 于 2011-1-19 11:49 编辑

使用了[attach]376[/attach]请在此下载

#定义 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)

欢迎光临云外归鸟工作室网站 (http://www.ywgn.net/)