sksxox云同盟登录例子源码

.版本 2
.支持库 EThread
.支持库 spec

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

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

启动线程 (&子程序1, , )


.子程序 子程序1
.局部变量 user, 文本型
.局部变量 pwd, 文本型
.局部变量 passwd, 文本型
.局部变量 js, JScript
.局部变量 http, WinHttp
.局部变量 result, 文本型
.局部变量 key, 文本型

user ＝ “nliger2015”
pwd ＝ “a123654”

http.Open (“GET”, “http://www.skxox.com/login.ashx”)
http.Send ()
result ＝ http.GetResponseText2 ()
key ＝ 文本_取中间 (result, “(!1,'”, “')”)
调试输出 (key)

http.Open (“GET”, “http://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”, “http://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”
' 被调试易程序运行完毕


.子程序 _登录按钮_被单击

登录按钮.禁止 ＝ 真

@nliger2015