.版本 2
.支持库 EThread
.支持库 spec
.程序集 窗口程序集_启动窗口
.子程序 __启动窗口_创建完毕
启动线程 (&子程序1, , )
.子程序 子程序1
.局部变量 user, 文本型
.局部变量 pwd, 文本型
.局部变量 passwd, 文本型
.局部变量 js, JScript
.局部变量 http, WinHttp
.局部变量 result, 文本型
.局部变量 key, 文本型
user ＝ “nliger2015”
pwd ＝ “a123654”
http.Open (“GET”, “//www.skxox.com/login.ashx”)
http.Send ()
result ＝ http.GetResponseText2 ()
key ＝ 文本_取中间 (result, “(!1,'”, “')”)
调试输出 (key)
http.Open (“GET”, “//www.skxox.com/rand.ashx?head=login&key=” ＋ key)
http.Send ()
验证码图片框.图片 ＝ http.GetResponseBody ()
.循环判断首 ()
延时 (100)
.循环判断尾 (登录按钮.禁止 ＝ 假)
js.ExecuteStatement (#密码加密JS)
passwd ＝ js.Run_Str (“getPass”, user, pwd, 验证码编辑框.内容, key)
调试输出 (passwd)
http.Open (“POST”, “//www.skxox.com/login.ashx?ex=check”)
http.Send (“name=” ＋ user ＋ “&pass=” ＋ passwd ＋ “&rand=” ＋ 验证码编辑框.内容)
result ＝ http.GetResponseText2 ()
调试输出 (result, http.GetResponseCookies ())
' 开始运行被调试程序
' * “7e9820e0e9a14807fa01a358de1f6c51”
' * “080f5c5d085a525f010043140451050106540c0d53515401570b5202020e05025255”
' * “okcfe161ee308e234805a7961c03db378a4f6433d993014b698e9983348cbf25d1nliger2015” | “skxoxplayer=cfe161ee308e234805a7961c03db378a4f6433d993014b698e9983348cbf25d1nliger2015”
' 被调试易程序运行完毕
.子程序 _登录按钮_被单击
登录按钮.禁止 ＝ 真