包装函数 advapi

包装函数:advapi_
返回值=advapi(参数一)	
参数一：高级API接口名和参数，例如 "v_getb,100,200"
描述：本函数包装 ks_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 ＝ ks_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"))