|
5精币
.版本 2
.程序集 窗口程序集_启动窗口
.程序集变量 局_提交地址, 文本型
.程序集变量 局_提交数据, 文本型
.程序集变量 局_返回数据, 文本型
.程序集变量 tmp, 文本型
.子程序 _按钮1_被单击
tmp = 到文本 (彗星HTTP读文件 (“https://zozo.jp/_member/login.html”, “POST”, , “Content-Type:application/x-www-form-urlencoded”, ))
局_提交地址 = “https://zozo.jp/_member/login.html”
局_提交数据 = “https://zozo.jp/_member/login.html=” + 编辑框1.内容 + “&mempw=” + 编辑框2.内容 + “&autologin=1&pattern=”
局_返回数据 = 到文本 (网页_访问 (局_提交地址, 1, 局_提交数据, , , ))
.如果 (寻找文本 (“欢迎您回来”, 局_返回数据, , 真) = -1)
信息框 (“登录成功”, 0, , )
.否则
信息框 (“登录失败,请检查账号是否存在或是否正确”, 0, , )
怎么总是显示登入失败?我是新手,请高手指点下。
|
|