上传云速平台接码api模块附实例源码

json.清除 ()
json.置属性 (“message_type”, “D_DP_DL_001”)
json.置属性 (“user_name”, 账号)
json.置属性 (“password”, 密码)
json.置属性 (“developer”, 开发者)
ws.Send (真, #OPCODE_TEXT, 真, 到字节集 (json.取数据文本 ()))
.如果 (ws.Recv (fr))
调试输出 (编码_Utf8到Ansi (fr.payload_data))
json.清除 ()
json.解析 (编码_Utf8到Ansi (fr.payload_data))
token ＝ json.取通用属性 (“token”)
' 调试输出 (token)
.如果 (取文本长度 (token) ＝ 32)
返回信息 ＝ json.取通用属性 (“message”)
返回 (真)
.否则
返回信息 ＝ json.取通用属性 (“errmsg”)
返回 (假)
.如果结束

.否则
返回 (假)