精易模块3.43的网页_访问()……

PC狂人

官方疑问区发出来被删帖，只能发到这里了


今天从早上一直纠结到现在，http://bbs.125.la/thread-13667732-1-1.html，不管提交什么，cookie，协议头都带上，返回都还是为空

用精易模块写的代码：

[e]
.版本 2

.子程序 _______扫正确密码, 逻辑型
.参数 参_用户名, 文本型
.参数 参_密码, 文本型

.如果 (寻找文本 (到文本 (网页_访问 (“https://secure.witmart.com/user/sign/inzbj”, 1, “username=” ＋ 参_用户名 ＋ “&userpwd=” ＋ 参_密码 ＋ “&isjs=1”, , , “Content-Type:application/x-www-form-urlencoded”)), “backurl”, , 假) ≠ -1)
    返回 (真)
.否则
    返回 (假)
[/e]

后来我又换成:网页_访问_对象(),网页_访问s()，结果都是为空……一遍一遍抓取封包，到最后依然如此……

纠结中……

……

………



刚刚不知道从哪里冒出念头，自己用对象写网页访问，但却可以正常访问……

下面是我用winhttp对象写的网页访问的源码


[e]
.版本 2

.子程序 扫正确密码, 逻辑型
.参数 参_用户名, 文本型
.参数 参_密码, 文本型
.局部变量 局_http, 对象
.局部变量 局_返回, 变体型

线程_初始化COM库 ()
局_http.创建 (“WinHttp.WinHttpRequest.5.1”, )
局_http.方法 (“Open”, “POST”, “https://secure.witmart.com/user/sign/inzbj”)
局_http.方法 (“SetRequestHeader”, “Content-Type”, “application/x-www-form-urlencoded”)
局_http.方法 (“SetTimeouts”, 5000, 5000, 5000, 5000)
局_http.方法 (“Send”, “username=” ＋ 参_用户名 ＋ “&userpwd=” ＋ 参_密码 ＋ “&isjs=1”)
局_返回 ＝ 局_http.读属性 (“responseBody”, )
线程_取消COM库 ()
.如果 (寻找文本 (到文本 (局_返回.取字节集 ()), “backurl”, , 假) ≠ -1)
    返回 (真)
.否则
    返回 (假)

[/e]



没想到只要设置数据和协议头Content-type就能正常……

郁闷…………

求解……

lvliangshan

看看了学习

小磊

请用最新版模块

发信人浩

厉害！很喜欢！

六道·仙人

试试http://bbs.125.la/thread-13662242-1-1.html

蟋蟀

http://bbs.125.la/forum-195-1.html