[Erlang] 纯文本查看 复制代码
.版本 2
.支持库 spec
.程序集 窗口程序集_启动窗口
.子程序 __启动窗口_创建完毕
.局部变量 json, 类_json
.局部变量 a, 文本型
.局部变量 b, 文本型
.局部变量 c, 文本型
json.解析 (网页_访问S (“http://106.54.175.123/u!captcha.htm?version=107&imei=861143973188226&imeimsg=PCRT00%3B7.1.2&sign=0&stoken=221f315e844df1d0e4927ead16b69882&time=1663127367”, , , , , , , , , , , , , , , , , , , , ), , )
a = json.取通用属性 (“imgdata”, )
b = 文本_取右边 (a, “data:image/png;base64,”, , )
c = 子文本替换 (b, “\n”, “”, , , 真)
图片框1.图片 = 编码_BASE64解码 (c, )
调试输出 (c)
.子程序 _图片框1_鼠标左键被按下, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型
__启动窗口_创建完毕 ()