.版本 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)