包装函数 advapi

录入时间:2017/2/12 22:05:29      最后更新:2017/2/13 14:18:36

包装函数:advapi_
返回值=advapi(参数一)	
参数一:高级API接口名和参数,例如 "v_getb,100,200"
描述:本函数包装 tt_cmd("check", "<randomstr>*******</randomstr><advapi>v_***,*</advapi>"),减少代码书写量   
	  建议作者对该代码进行适当的效验修改



调用方式:	
	apiData=advapi("v_geta")
	
	apiData=advapi("v_getb,100,200")
	
	

易语言例子中advapi子程序源码(在SoftXLic_公用程序集里)
子程序名返回值类型公开备注
advapi 文本型   建议里边加上一些数据效验
参数名类型参考可空数组备注
advapicmd 文本型
nomsgbox 整数型 
  
变量名类型静态数组备注
randomstr 文本型 
sData 文本型 
errinfo 文本型 
Srandomstr 文本型 
randomstr = 到文本 (取启动时间 ())
sData = tt_cmd ("check""<randomstr>" + randomstr + "</randomstr><advapi>" + advapicmd + "</advapi>")
FD_ (sData)
如果真 (GD_ (sData, "state") ≠ "100")
    errinfo = GD_ (sData, "message")
    errinfo = errinfo + #换行符 + GD_ (sData, "webdata")
    如果真 (是否为空 (nomsgbox) 或 nomsgbox = 0)
        信息框 (errinfo, 48, "ADVAPI出错")
    如果真结束
    返回 (errinfo)
如果真结束
' 取数据成功,效验一下返回的randomstr单元的值是不是和传入值相同,返回值还有其它单元,具体请看SDK说明档
Srandomstr = GD_ (sData, "randomstr")
如果真 (randomstr ≠ Srandomstr)  '  效验没通过,关闭程序
    freeYZDLL ()
    结束 ()
如果真结束
返回 (GD_ (sData, "advapi"))

 Copyright 2013-2018 土默特左旗灵盾网络工作室 图图网络验证系统
     蒙ICP备15001097号