程序创建WinHttp对象,调用API函数实现百度空间操作。
.版本 2
.子程序 _按钮1_被单击
.局部变量 http, http
.局部变量 返回文本, 文本型
.局部变量 url, 文本型
url = 子文本替换 (子文本替换 (“username={user}&password={pass}&mem_pass=on”, “{user}”, 编辑框_用户名.内容, , , 真), “{pass}”, 编辑框_密码.内容, , , 真)
返回文本 = 到文本 (http.读网页 (“https://passport.baidu.com/?login”, “post”, url, , cookie))
.如果 (寻找文本 (返回文本, “用户登录”, , 假) ≠ -1) ' 登陆百度空间
信息框 (“登陆成功”, 0, )
.否则
信息框 (“登陆失败”, 0, )