趣约会易语言算法源码

.版本 2
.支持库 spec

.程序集 窗口程序集_启动窗口

.子程序 _按钮1_被单击
.局部变量 str, 文本型
.局部变量 url, 文本型
.局部变量 ua, 文本型
.局部变量 小数字, 文本型

ua ＝ JavaScriptua (#常量1)
调试输出 (ua)
小数字 ＝ JavaScript (#常量2, “^CE%JUm#r3w&)”, “1.0.0” ＋ ua)
调试输出 (小数字)
url ＝ “https://api.quyuehui.com/account/getSmsCode.do?mobile=18888888789&type=2&_=” ＋ 时间_取现行时间戳 (假) ＋ “&ua=h5%2F1.0.0%2F2%2F0%2F0%2F0%2F0%2F0%2F%2F0%2F0%2F” ＋ ua ＋ “%2F0%2F0%2F” ＋ 小数字
str ＝ 到文本 (网页_访问_对象 (url, 0, , , , #常量3, , , , , , , , , , , ))
str ＝ 编码_URL解码 (str, 真)
调试输出 (str)

.子程序 JavaScriptua, 文本型, , WT-JS_DEBUG
.参数 script, 文本型, , 常量JS脚本
.局部变量 js, 对象
.局部变量 eval, 变体型
.局部变量 ret, 文本型

' CoInitialize (0)‘线程中使用 加载COM
js.创建 (“ScriptControl”, )
js.写属性 (“Language”, “JScript”)
' 如果调试结果与工具不符，有可能是编码问题，尝试加入： 【 编码_Utf8到Ansi (到字节集 (script)) 】
js.逻辑方法 (“AddCode”, script)
eval ＝ js.通用方法 (“Eval”, “r()”)
ret ＝ eval.取文本 ()
js.清除 ()
' CoUninitialize () ‘线程中使用 卸载COM
返回 (ret)

.子程序 JavaScript, 文本型, , WT-JS_DEBUG
.参数 script, 文本型, , 常量JS脚本
.参数 e, 文本型, , 参数1
.参数 t, 文本型, , 参数2
.局部变量 js, 对象
.局部变量 eval, 变体型
.局部变量 ret, 文本型

' CoInitialize (0)‘线程中使用 加载COM
js.创建 (“ScriptControl”, )
js.写属性 (“Language”, “JScript”)
' 如果调试结果与工具不符，有可能是编码问题，尝试加入： 【 编码_Utf8到Ansi (到字节集 (script)) 】
js.逻辑方法 (“AddCode”, script)
eval ＝ js.通用方法 (“Eval”, “aa(” ＋ #引号 ＋ e ＋ #引号 ＋ “, ” ＋ #引号 ＋ t ＋ #引号 ＋ “)”)
ret ＝ eval.取文本 ()
js.清除 ()
' CoUninitialize () ‘线程中使用 卸载COM
返回 (ret)

@965085575