贪玩蓝月登录源码

.版本 2
.支持库 spec

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

.子程序 __启动窗口_创建完毕

登录 (“xguagq”, “510140”)

.子程序 登录
.参数 user, 文本型
.参数 pass, 文本型
.局部变量 url, 文本型
.局部变量 jspass, 文本型
.局部变量 res, 文本型
.局部变量 cookies, 文本型

jspass ＝ JS_td (pass)
url ＝ “https://www.tanwan.com/api/check_login_user.php?act=login&login_user=” ＋ user ＋ “&login_pwd=” ＋ jspass ＋ “&password_type=1&callback=jQuery112003266778768478029_1583234113802&_=1583234113806”
res ＝ 编码_usc2到ansi (到文本 (网页_访问_对象 (url, , , cookies, , #协议头, , , 真)))
调试输出 (res)

.子程序 JS_td, 文本型, 公开
.参数 a, 文本型
.局部变量 Js, 对象
.局部变量 return, 文本型

线程_初始化COM库 ()  ' 线程中请初始化COM  否则会出错
Js.创建 (“ScriptControl”, )
Js.写属性 (“Language”, “JavaScript”)
Js.数值方法 (“AddCode”, #常量_Js)  ' 请在常量_Js中放入调试成功的JS代码段
return ＝ Js.通用方法 (“eval”, “td” ＋ “('” ＋ a ＋ “')”).取文本 ()
线程_取消COM库 ()
返回 (return)

@h6435749