|
楼主 |
发表于 2018-7-2 09:02:10
|
显示全部楼层
安徽省蚌埠市
.版本 2
.子程序 dwz, 文本型, 公开
.参数 消息数据, 文本型
.参数 消息类型, 文本型
.参数 发送者群号, 文本型
.参数 发送者Q号, 文本型
.参数 完整传入文本, 文本型
.局部变量 网址, 文本型
.局部变量 短网址, 文本型
.局部变量 待返回消息, 文本型
网址 = 网页_访问 (“http://dwz.wailian.work/api.php?from=w&url=” + 编码_BASE64编码 (消息数据 + “&site=sina”), , , #常量3, , , , , , , )
短网址 = 文本_取出中间文本 (网址, #常量1, #常量2, , )
.如果 (短网址 = “”)
待返回消息 = “生成失败”
.否则
待返回消息 = “非xml:您的原网址为【换行】” + 消息数据 + “【换行】您的短网址为” + 编码_usc2到ansi (短网址)
.如果结束
返回 (待返回消息)
.版本 2
.常量 常量1, "<文本长度: 36>"
.常量 常量2, "<文本长度: 16>"
.常量 常量3, "<文本长度: 441>"
刚刚接触也不大会,不知道哪里出现问题了
|
|