百度POST登录协议源码

.版本 2
.支持库 EThread

.程序集 窗口程序集_窗口1
.程序集变量 code_true, 逻辑型
.程序集变量 Baidu, BaiDu

.子程序 _按钮1_被单击

启动线程 (&Login, , )

.子程序 Login
.局部变量 sta, 整数型
.局部变量 user, 文本型
.局部变量 pass, 文本型

sta ＝ Baidu.Login (编辑框1.内容, 编辑框2.内容)
.判断循环首 (sta ＝ 3)
    图片框1.图片 ＝ Baidu.GetImg ()
    .判断循环首 (取文本长度 (编辑框3.内容) ≠ 4)
        处理事件 ()
    .判断循环尾 ()
    sta ＝ Baidu.Login (编辑框1.内容, 编辑框2.内容, 编辑框3.内容)
    图片框1.图片 ＝ {  }
    编辑框3.内容 ＝ “”
.判断循环尾 ()
.判断开始 (sta ＝ 1)
    信息框 (“登录成功，Cookie：” ＋ Baidu.GetCookie (), 64, “登录：”, )
.判断 (sta ＝ 2)
    信息框 (“登录失败，密码错误！”, 64, “登录：”, )
.默认
    信息框 (“登录失败，未知错误！”, 64, “登录：”, )
.判断结束


.子程序 _窗口1_创建完毕

@靳刑天