.版本 2 .程序集 类_飞卢 .程序集变量 http, WinHttpW .程序集变量 ts, 文本型 .子程序 _初始化, , , 当基于本类的对象被创建后，此方法会被自动调用 http.Auto (真) http.AutoCookies (1) .子程序 _销毁, , , 当基于本类的对象被销毁前，此方法会被自动调用 .子程序 方法_init ts ＝ 文本_取出中间文本 (方法_get (“https://u.faloo.com/regist/Login.aspx”), “var time_stamp =”, “;//”, , ) .子程序 方法_getcookie, , 公开 方法_init () 方法_get (“https://flux.faloo.com/pvdata.aspx?faloo_ch_id=19&faloo_ref=”) .子程序 方法_get, 文本型 .参数 参数_网址, 文本型 http.Open (“get”, 参数_网址) http.Send (, , ) 返回 (http.GetResponseText ()) .子程序 方法_获得验证码, 字节集, 公开 .参数 user, 文本型 http.Open (“get”, “https://u.faloo.com/Common/ValidateImage.aspx?vt=login_code&lc=true&u=” ＋ user ＋ “&height=36&width=106&m=” ＋ GetTime (, )) http.Send (, , ) 返回 (http.GetResponseBody ()) .子程序 login_md5, 文本型, , WT-JS_DEBUG .参数 pwd, 文本型, , 参数1 .参数 datetime_num, 文本型, , 参数2 .局部变量 js, 对象 .局部变量 eval, 变体型 .局部变量 ret, 文本型 ' CoInitialize (0)‘线程中使用 加载COM js.创建 (“ScriptControl”, ) js.写属性 (“Language”, “JScript”) ' 如果调试结果与工具不符，有可能是编码问题，尝试加入： 【 编码_Utf8到Ansi (到字节集 (script)) 】 js.逻辑方法 (“AddCode”, #md5) eval ＝ js.通用方法 (“Eval”, “login_md5(” ＋ #引号 ＋ pwd ＋ #引号 ＋ “, ” ＋ #引号 ＋ datetime_num ＋ #引号 ＋ “)”) ret ＝ eval.取文本 () js.清除 () ' CoUninitialize () ‘线程中使用 卸载COM 返回 (ret) .子程序 方法_login, 文本型, 公开 .参数 user, 文本型 .参数 pwd, 文本型 .参数 vcode, 文本型 .局部变量 _pwd, 文本型 .局部变量 url, 文本型 .局部变量 登录结果, 文本型 _pwd ＝ login_md5 (pwd, ts) url ＝ “https://u.faloo.com/regist/Login.aspx?txtUserID=” ＋ user ＋ “&txtPwd=” ＋ _pwd ＋ “&txtPwd4temp=&verifyCode=” ＋ vcode ＋ “&ts=” ＋ ts ＋ “&t=2&dK537666=0920&backurl=http%3A%2F%2Fwww.faloo.com%2F” 登录结果 ＝ 文本_取出中间文本 (方法_get (url), “>alert('”, “');</script>”, , ) 返回 (登录结果)