用户组 
易积分639
热心1
好评0

|
5易积分
过程 服务被创建() '当服务创建完毕时会调用此过程
'弹出提示("服务被创建")
结束 过程
过程 服务处理过程(参数 为 文本型) '请在此处输入您的后台服务代码,服务处理过程是多线程任务池式的,当多次启动服务时,服务会按照顺序依次进行处理,当处理完所有任务后将自动销毁
变量 类型 为 文本型
变量 地址 为 文本型
变量 源码 为 文本型
类型=子文本替换(参数," ","")
地址=取文本右边(类型,取文本长度(类型)-1)
类型=取文本左边(类型,1)
判断 类型
分支 "1"
取菜单源码(地址 )
分支"2"
取平台源码(地址 )
结束 判断
结束 过程
过程 取平台源码(地址 为 文本型)
变量 源码 为 文本型
变量 次数 为 整数型
判断循环首 源码=""
源码=取网页源码2(地址,"GBK",5000)
次数=次数+1
如果 次数>3 则
退出
结束 如果
判断循环尾
如果 源码="" 则
发送广播("平台",1,"")
退出
结束 如果
'源码=RC4解密(源码,公用模块.接口密码)
发送广播("平台",2,源码)
结束 过程
过程 取菜单源码(地址 为 文本型)
变量 源码 为 文本型
变量 次数 为 整数型
判断循环首 源码=""
源码=取网页源码2(地址,"GBK",5000)
次数=次数+1
如果 次数>3 则
退出
结束 如果
判断循环尾
如果 源码="" 则
发送广播("菜单",1,"")
退出
结束 如果
'源码=RC4解密(源码,公用模块.接口密码)
发送广播("菜单",2,源码)
结束 过程
过程 服务被销毁() '当服务即将销毁时会调用此过程
' 弹出提示("服务被销毁")
结束 过程
|
|