接口问题求大佬指点一二 - 精易论坛

窗口程序集名	保留	保留	备注
窗口程序集_主窗口

子程序名	返回值类型	公开	备注
__启动窗口_创建完毕

.局部变量登录按钮, 整数型
.局部变量用户名编辑框, 整数型
.局部变量密码编辑框, 整数型
.局部变量状态标签, 整数型
.局部变量 token, 文本型
' 创建控件
登录按钮＝创建按钮 (“登录”, , , 120, 30, 200, 50)
用户名编辑框＝创建编辑框 (“”, , , 120, 30, 200, 30)
密码编辑框＝创建密码框 (“”, , , 120, 80, 200, 30)
状态标签＝创建标签 (“”, , , 120, 130, 200, 30)
' 设置控件位置
设置控件位置 (登录按钮, , 真, 120, 180)
' 添加登录按钮点击事件
登录按钮.被单击事件＝子程序 (_登录按钮_被单击)
' 全局变量保存token
全局变量_设置 (“token”, “”)

子程序名	返回值类型	公开	备注
_登录按钮_被单击

.局部变量用户名, 文本型
.局部变量密码, 文本型
.局部变量响应文本, 文本型
.局部变量登录结果, 文本型
' 获取用户名和密码
用户名＝编辑框_取内容 (用户名编辑框)
密码＝密码框_取内容 (密码编辑框)
' 调用登录接口
登录结果＝ _http_get (“http://114.67.222.10:7000/api/sign/username=” ＋用户名＋ “&password=” ＋密码)
' 解析登录结果
如果 (取文本左边 (登录结果, 1) ＝ “1”)
' 登录成功，获取token
token ＝取文本右边 (登录结果, 2)
全局变量_设置 (“token”, token)
标签_置标题 (状态标签, “登录成功，token: ” ＋ token)
否则
' 登录失败，显示错误信息
标签_置标题 (状态标签, “登录失败: ” ＋取文本右边 (登录结果, 2))
结束
' 其他子程序，如获取号码、获取短信和释放号码，可以类似地实现，
' 通过调用相应的接口，并传入必要的参数（包括从全局变量中获取的token）。
' 示例：获取号码子程序

子程序名	返回值类型	公开	备注
_获取号码

.局部变量 itemid, 文本型
.局部变量 phonetype, 文本型
.局部变量 province, 文本型
.局部变量 phone, 文本型
.局部变量获取号码结果, 文本型
' 从界面获取参数（这里为了简化，直接从变量赋值）
itemid ＝ “你的项目ID”
phonetype ＝ “0”
province ＝ “44”
phone ＝ “” ' 如果需要指定号码则赋值
' 调用获取号码接口
获取号码结果＝ _http_get (“http://接口地址/api/jm_hqhm2/token=” ＋全局变量_取 (“token”) ＋ “&itemid=” ＋ itemid ＋ “&phonetype=” ＋ phonetype ＋ “&Province=” ＋ province ＋ “&phone=” ＋ phone)
' 解析和显示获取号码结果
' ... (这里根据返回信息的格式进行解析和显示)
结束子程序
' 注意：_http_get 是一个假设存在的函数，用于发送HTTP GET请求。
' 在E语言中，你可能需要使用Internet支持库中的相关函数（如“网页_取内容”等）来实现这一功能。
' 你可能还需要编写额外的函数来解析HTTP响应内容，并根据API的返回格式提取所需信息。

i支持库列表	支持库注释
internet	互联网支持库

.版本 2<br />
<br />
.支持库 internet<br />
<br />
.程序集 窗口程序集_主窗口<br />
<br />
.子程序 __启动窗口_创建完毕<br />
    .局部变量 登录按钮, 整数型<br />
    .局部变量 用户名编辑框, 整数型<br />
    .局部变量 密码编辑框, 整数型<br />
    .局部变量 状态标签, 整数型<br />
    .局部变量 token, 文本型<br />
<br />
    ' 创建控件<br />
    登录按钮 ＝ 创建按钮 (“登录”, , , 120, 30, 200, 50)<br />
    用户名编辑框 ＝ 创建编辑框 (“”, , , 120, 30, 200, 30)<br />
    密码编辑框 ＝ 创建密码框 (“”, , , 120, 80, 200, 30)<br />
    状态标签 ＝ 创建标签 (“”, , , 120, 130, 200, 30)<br />
<br />
    ' 设置控件位置<br />
    设置控件位置 (登录按钮, , 真, 120, 180)<br />
<br />
    ' 添加登录按钮点击事件<br />
    登录按钮.被单击事件 ＝ 子程序(_登录按钮_被单击)<br />
<br />
    ' 全局变量保存token<br />
    全局变量_设置 (“token”, “”)<br />
<br />
.子程序 _登录按钮_被单击<br />
    .局部变量 用户名, 文本型<br />
    .局部变量 密码, 文本型<br />
    .局部变量 响应文本, 文本型<br />
    .局部变量 登录结果, 文本型<br />
<br />
    ' 获取用户名和密码<br />
    用户名 ＝ 编辑框_取内容 (用户名编辑框)<br />
    密码 ＝ 密码框_取内容 (密码编辑框)<br />
<br />
    ' 调用登录接口<br />
    登录结果 ＝ _http_get (“http://114.67.222.10:7000/api/sign/username=” ＋ 用户名 ＋ “&password=” ＋ 密码)<br />
<br />
    ' 解析登录结果<br />
    如果 (取文本左边 (登录结果, 1) ＝ “1”)<br />
        ' 登录成功，获取token<br />
        token ＝ 取文本右边 (登录结果, 2)<br />
        全局变量_设置 (“token”, token)<br />
        标签_置标题 (状态标签, “登录成功，token: ” ＋ token)<br />
    否则<br />
        ' 登录失败，显示错误信息<br />
        标签_置标题 (状态标签, “登录失败: ” ＋ 取文本右边 (登录结果, 2))<br />
    结束<br />
<br />
' 其他子程序，如获取号码、获取短信和释放号码，可以类似地实现，<br />
' 通过调用相应的接口，并传入必要的参数（包括从全局变量中获取的token）。<br />
<br />
' 示例：获取号码子程序<br />
.子程序 _获取号码<br />
    .局部变量 itemid, 文本型<br />
    .局部变量 phonetype, 文本型<br />
    .局部变量 province, 文本型<br />
    .局部变量 phone, 文本型<br />
    .局部变量 获取号码结果, 文本型<br />
<br />
    ' 从界面获取参数（这里为了简化，直接从变量赋值）<br />
    itemid ＝ “你的项目ID”<br />
    phonetype ＝ “0”<br />
    province ＝ “44”<br />
    phone ＝ “” ' 如果需要指定号码则赋值<br />
<br />
    ' 调用获取号码接口<br />
    获取号码结果 ＝ _http_get (“http://接口地址/api/jm_hqhm2/token=” ＋ 全局变量_取 (“token”) ＋ “&itemid=” ＋ itemid ＋ “&phonetype=” ＋ phonetype ＋ “&Province=” ＋ province ＋ “&phone=” ＋ phone)<br />
<br />
    ' 解析和显示获取号码结果<br />
    ' ... (这里根据返回信息的格式进行解析和显示)<br />
结束 子程序<br />
<br />
' 注意：_http_get 是一个假设存在的函数，用于发送HTTP GET请求。<br />
' 在E语言中，你可能需要使用Internet支持库中的相关函数（如“网页_取内容”等）来实现这一功能。<br />
' 你可能还需要编写额外的函数来解析HTTP响应内容，并根据API的返回格式提取所需信息。

' 全局变量用于存储token和其他必要信息

全局变量名	类型	数组	公开	备注
token	文本型
projectId	文本型 ' 项目ID，用于后续操作
phoneNum	文本型 ' 手机号，用于后续操作
orderId	文本型 ' 订单编号，用于后续操作

' 登录子程序

子程序名	返回值类型	公开	备注
_登录

DLL命令名	返回值类型	公开	备注
(暂未填写DLL命令名)
DLL库文件名:
(未填写库文件名)
在DLL库中对应命令名:
(未填写命令名)
参数名	类型	传址	数组	备注
username	文本型
password	文本型

.局部变量 loginResult, 文本型
.局部变量 responseParts, 文本型数组
' 发送登录请求
loginResult ＝ _http_get (“http://114.67.222.10:7000/api/sign/username=” ＋用户名到URL编码 (username) ＋ “&password=” ＋密码到URL编码 (password))
' 解析登录响应
responseParts ＝文本到数组 (loginResult, “|”)
如果 (取数组元素 (responseParts, 1) ＝ “1”)
' 登录成功，保存token
token ＝取数组元素 (responseParts, 2)
信息框 (“登录成功，token: ” ＋ token, 0, )
返回 (真)
否则
' 登录失败，显示错误信息
信息框 (“登录失败: ” ＋取数组元素 (responseParts, 2), 0, )
返回 (假)
结束
' 获取号码子程序

子程序名	返回值类型	公开	备注
_获取号码

DLL命令名	返回值类型	公开	备注
(暂未填写DLL命令名)
DLL库文件名:
(未填写库文件名)
在DLL库中对应命令名:
(未填写命令名)
参数名	类型	传址	数组	备注
itemId	文本型
phoneType	整数型 ' 号码类型，0为不限制，1为虚拟，2为实卡
province	文本型 ' 省份代码，可选
specificPhone	文本型 ' 指定号码，可选

.局部变量 getResult, 文本型
.局部变量 resultParts, 文本型数组
' 发送获取号码请求
getResult ＝ _http_get (“http://接口地址/api/jm_hqhm2/token=” ＋ token ＋ “&itemid=” ＋ itemId ＋ “&phonetype=” ＋到文本 (phoneType) ＋ “&Province=” �� (如果 (province ＝ “”, “”, province) ＋ “&phone=” �� (如果 (specificPhone ＝ “”, “”, specificPhone)))
' 解析获取号码响应
resultParts ＝文本到数组 (getResult, “|”)
如果 (取数组元素 (resultParts, 1) ＝ “获取成功”)
' 保存项目ID、手机号和订单编号
projectId ＝取数组元素 (resultParts, 2)
phoneNum ＝取数组元素 (resultParts, 3)
orderId ＝取数组元素 (resultParts, 4)
信息框 (“获取号码成功，项目ID: ” ＋ projectId ＋ “，手机号: ” ＋ phoneNum ＋ “，订单编号: ” ＋ orderId, 0, )
返回 (真)
否则
' 获取号码失败，显示错误信息
信息框 (“获取号码失败: ” ＋取数组元素 (resultParts, 2), 0, )
返回 (假)
结束
' 获取短信子程序

子程序名	返回值类型	公开	备注
_获取短信

.局部变量 getMessageResult, 文本型
.局部变量 messageParts, 文本型数组
' 发送获取短信请求
getMessageResult ＝ _http_get (“http://接口地址/api/qm_xm2/token=” ＋ token ＋ “&project_id=” ＋ projectId ＋ “&phone_num=” ＋ phoneNum ＋ “&order=” ＋ orderId)
' 解析获取短信响应
messageParts ＝文本到数组 (getMessageResult, “|”)
如果 (取数组元素 (messageParts, 1) ＝ “获取成功”)
' 显示短信内容
信息框 (“短信内容: ” ＋取数组元素 (messageParts, 2), 0, )
返回 (真)
否则
' 获取短信失败，显示错误信息
信息框 (“获取短信失败: ” ＋取数组元素 (messageParts, 2), 0, )
返回 (假)
结束
' 释放号码子程序

子程序名	返回值类型	公开	备注
_释放号码

.局部变量 releaseResult, 文本型
' 发送释放号码请求
releaseResult ＝ _http_get (“http://接口地址/api/jm_sfhm2/token=” ＋ token ＋ “&project_id=” ＋ projectId ＋ “&phone_num=” ＋ phoneNum)
' 解析释放号码响应
如果 (取文本左边 (releaseResult, 5) ＝ “释放成功”)
' 释放成功，无需进一步操作
信息框 (“释放号码成功”, 0, )
返回 (真)
否则
' 释放失败，显示错误信息
信息框 (“释放号码失败: ” ＋释放结果中的错误信息 (releaseResult), 0, ) ' 假设有一个函数来从response中提取错误信息
返回 (假)
结束
' 辅助函数：将文本转换为URL编码

子程序名	返回值类型	公开	备注
用户名到URL编码	文本型

DLL命令名	返回值类型	公开	备注
(暂未填写DLL命令名)
DLL库文件名:
(未填写库文件名)
在DLL库中对应命令名:
(未填写命令名)
参数名	类型	传址	数组	备注
原始文本	文本型

.局部变量编码后文本, 文本型
' 这里需要实现URL编码的逻辑，由于E语言可能没有内置函数，你可能需要自定义实现
' ...（省略实现细节）
返回 (编码后文本)
' 辅助函数：从释放结果中提取错误信息（假设实现）

子程序名	返回值类型	公开	备注
释放结果中的错误信息	文本型

DLL命令名	返回值类型	公开	备注
(暂未填写DLL命令名)
DLL库文件名:
(未填写库文件名)
在DLL库中对应命令名:
(未填写命令名)
参数名	类型	传址	数组	备注
释放结果	文本型

' 根据实际的API响应格式提取错误信息
' ...（省略实现细节）
返回 (“未知错误”) ' 如果无法提取，则返回默认错误信息
' 注意：_http_get 函数是一个假设存在的函数，用于发送HTTP GET请求。
' 在E语言中，你需要使用Internet支持库中的函数（如“网页_取内容”或类似的函数）来实现这一功能。
' 你还需要根据实际的API响应格式来解析和处理返回的数据。

i支持库列表	支持库注释
internet ' 确保已添加Internet支持库以支持网络请求	(未知支持库)

.版本 2<br />
<br />
.支持库 internet  ' 确保已添加Internet支持库以支持网络请求<br />
<br />
' 全局变量用于存储token和其他必要信息<br />
.全局变量 token, 文本型<br />
.全局变量 projectId, 文本型  ' 项目ID，用于后续操作<br />
.全局变量 phoneNum, 文本型  ' 手机号，用于后续操作<br />
.全局变量 orderId, 文本型  ' 订单编号，用于后续操作<br />
<br />
' 登录子程序<br />
.子程序 _登录<br />
    .参数 username, 文本型<br />
    .参数 password, 文本型<br />
    .局部变量 loginResult, 文本型<br />
    .局部变量 responseParts, 文本型数组<br />
<br />
    ' 发送登录请求<br />
    loginResult ＝ _http_get (“http://114.67.222.10:7000/api/sign/username=” ＋ 用户名到URL编码(username) ＋ “&password=” ＋ 密码到URL编码(password))<br />
<br />
    ' 解析登录响应<br />
    responseParts ＝ 文本到数组 (loginResult, “|”)<br />
    如果 (取数组元素 (responseParts, 1) ＝ “1”)<br />
        ' 登录成功，保存token<br />
        token ＝ 取数组元素 (responseParts, 2)<br />
        信息框 (“登录成功，token: ” ＋ token, 0, )<br />
        返回 (真)<br />
    否则<br />
        ' 登录失败，显示错误信息<br />
        信息框 (“登录失败: ” ＋ 取数组元素 (responseParts, 2), 0, )<br />
        返回 (假)<br />
    结束<br />
<br />
' 获取号码子程序<br />
.子程序 _获取号码<br />
    .参数 itemId, 文本型<br />
    .参数 phoneType, 整数型  ' 号码类型，0为不限制，1为虚拟，2为实卡<br />
    .参数 province, 文本型  ' 省份代码，可选<br />
    .参数 specificPhone, 文本型  ' 指定号码，可选<br />
    .局部变量 getResult, 文本型<br />
    .局部变量 resultParts, 文本型数组<br />
<br />
    ' 发送获取号码请求<br />
    getResult ＝ _http_get (“http://接口地址/api/jm_hqhm2/token=” ＋ token ＋ “&itemid=” ＋ itemId ＋ “&phonetype=” ＋ 到文本(phoneType) ＋ “&Province=” ＋ (如果(province ＝ “”, “”, province) ＋ “&phone=” ＋ (如果(specificPhone ＝ “”, “”, specificPhone)))<br />
<br />
    ' 解析获取号码响应<br />
    resultParts ＝ 文本到数组 (getResult, “|”)<br />
    如果 (取数组元素 (resultParts, 1) ＝ “获取成功”)<br />
        ' 保存项目ID、手机号和订单编号<br />
        projectId ＝ 取数组元素 (resultParts, 2)<br />
        phoneNum ＝ 取数组元素 (resultParts, 3)<br />
        orderId ＝ 取数组元素 (resultParts, 4)<br />
        信息框 (“获取号码成功，项目ID: ” ＋ projectId ＋ “，手机号: ” ＋ phoneNum ＋ “，订单编号: ” ＋ orderId, 0, )<br />
        返回 (真)<br />
    否则<br />
        ' 获取号码失败，显示错误信息<br />
        信息框 (“获取号码失败: ” ＋ 取数组元素 (resultParts, 2), 0, )<br />
        返回 (假)<br />
    结束<br />
<br />
' 获取短信子程序<br />
.子程序 _获取短信<br />
    .局部变量 getMessageResult, 文本型<br />
    .局部变量 messageParts, 文本型数组<br />
<br />
    ' 发送获取短信请求<br />
    getMessageResult ＝ _http_get (“http://接口地址/api/qm_xm2/token=” ＋ token ＋ “&project_id=” ＋ projectId ＋ “&phone_num=” ＋ phoneNum ＋ “&order=” ＋ orderId)<br />
<br />
    ' 解析获取短信响应<br />
    messageParts ＝ 文本到数组 (getMessageResult, “|”)<br />
    如果 (取数组元素 (messageParts, 1) ＝ “获取成功”)<br />
        ' 显示短信内容<br />
        信息框 (“短信内容: ” ＋ 取数组元素 (messageParts, 2), 0, )<br />
        返回 (真)<br />
    否则<br />
        ' 获取短信失败，显示错误信息<br />
        信息框 (“获取短信失败: ” ＋ 取数组元素 (messageParts, 2), 0, )<br />
        返回 (假)<br />
    结束<br />
<br />
' 释放号码子程序<br />
.子程序 _释放号码<br />
    .局部变量 releaseResult, 文本型<br />
<br />
    ' 发送释放号码请求<br />
    releaseResult ＝ _http_get (“http://接口地址/api/jm_sfhm2/token=” ＋ token ＋ “&project_id=” ＋ projectId ＋ “&phone_num=” ＋ phoneNum)<br />
<br />
    ' 解析释放号码响应<br />
    如果 (取文本左边 (releaseResult, 5) ＝ “释放成功”)<br />
        ' 释放成功，无需进一步操作<br />
        信息框 (“释放号码成功”, 0, )<br />
        返回 (真)<br />
    否则<br />
        ' 释放失败，显示错误信息<br />
        信息框 (“释放号码失败: ” ＋ 释放结果中的错误信息(releaseResult), 0, )  ' 假设有一个函数来从response中提取错误信息<br />
        返回 (假)<br />
    结束<br />
<br />
' 辅助函数：将文本转换为URL编码<br />
.子程序 用户名到URL编码, 文本型<br />
    .参数 原始文本, 文本型<br />
    .局部变量 编码后文本, 文本型<br />
    ' 这里需要实现URL编码的逻辑，由于E语言可能没有内置函数，你可能需要自定义实现<br />
    ' ...（省略实现细节）<br />
    返回 (编码后文本)<br />
<br />
' 辅助函数：从释放结果中提取错误信息（假设实现）<br />
.子程序 释放结果中的错误信息, 文本型<br />
    .参数 释放结果, 文本型<br />
    ' 根据实际的API响应格式提取错误信息<br />
    ' ...（省略实现细节）<br />
    返回 (“未知错误”)  ' 如果无法提取，则返回默认错误信息<br />
<br />
' 注意：_http_get 函数是一个假设存在的函数，用于发送HTTP GET请求。<br />
' 在E语言中，你需要使用Internet支持库中的函数（如“网页_取内容”或类似的函数）来实现这一功能。<br />
' 你还需要根据实际的API响应格式来解析和处理返回的数据。