|
kioskboy
初级用户
积分 153
发帖 103
注册 2008-3-27
状态 离线
|
『楼 主』:
curl登陆一个网站
http://www.netyi.net/是一个又大又好的 电子书下载网站，里面有很多网友上传的资料。但是下载东西一般要积分的（以前刚注册时花过十几块钱），可以发短信和登陆（每天一分）赚积分，所以我每天都要登陆http://www.netyi.net/jsLoginStatus.aspx一次
由于抓包后是post登陆
考虑了几天，还是登陆不了，不知道错在哪里
echo off
curl -c Cookie_netyi.txt "http://www.netyi.net/jsLoginStatus.aspx"
curl -H "Accept: image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, application/x-shockwave-flash, application/x-icq, application/vnd.ms-excel, application/vnd.ms-powerpoint, application/msword, */*" -d "Content-Type: application/x-www-form-urlencoded UserName=***&Password=***&Submit.x=0&Submit.y=0" -b Cookie_netyi.txt http://www.netyi.net/jsLoginStat ... c-b265-ed1df0c7114d >>netyi.htm
pause
[ Last edited by kioskboy on 2008-9-7 at 03:53 PM ]
|
|
 2008-8-28 19:41 |
|
|
kioskboy
初级用户
积分 153
发帖 103
注册 2008-3-27
状态 离线
|
『第
2 楼』:
如果curl实现不了，用vbs脚本行吗，双击就能够很快登陆的
|
|
|
2008-9-2 19:32 |
|
|
HAT
版主
积分 9023
发帖 5017
注册 2007-5-31
状态 离线
|
『第
3 楼』:
gxsanhen 兄在群里给出了一个autoit的解决方案。
不知能否用vbs实现，呼叫 slore 兄。
|
 |
|
|
2008-9-2 23:12 |
|
|
kioskboy
初级用户
积分 153
发帖 103
注册 2008-3-27
状态 离线
|
『第
4 楼』:
autoit 不错，不过还要编译
在没有办法情况下，我才会考虑sendkeys 等类似模拟登陆的方法
curl应该能行吧，有没有人能告诉我用curl到底能登陆这个网站吗，行还是不行啊
|
|
|
2008-9-3 07:43 |
|
|
ngd
中级用户
拟谷盗
积分 312
发帖 108
注册 2007-1-21
状态 离线
|
|
|
2008-9-3 20:29 |
|
|
slore
铂金会员
积分 5212
发帖 2478
注册 2007-2-8
状态 离线
|
『第
6 楼』:
Set ie = CreateObject("Internetexplorer.Application")
ie.Navigate "http://www.netyi.net/jsLoginStatus.aspx"
ie.Visible = True
While ie.Busy or ie.ReadyState <> 4
Wend
ie.Document.form2.UserName.value = "slore"
ie.Document.form2.Password.value = "slorelee"
ie.Document.form2.submit
为什么不好好搜索，我是懒的写，如此简单的代码不要告诉我看
不懂。我是按我说的关键字搜索了下点了第2个连接，改了改url，和窗体名而已
就能用，我不知道为什么这么多人喜欢拿来主义……希望不是单单只是和我一样
懒，而是自己可以写出来，起码知道思路可以实现，毕竟这类脚本不是通用的，
可用的地方太少，所以这种针对性的脚本请自己写，不懂就学会搜索……
|
S smile 微笑,L love 爱,O optimism 乐观,R relax 放松,E enthusiasm 热情...Slore |
|
|
2008-9-4 13:35 |
|
|
HAT
版主
积分 9023
发帖 5017
注册 2007-5-31
状态 离线
|
『第
7 楼』:
slore兄终于出手了，学习。
|
|
|
|
2008-9-4 13:45 |
|
|
HAT
版主
积分 9023
发帖 5017
注册 2007-5-31
状态 离线
|
『第
8 楼』:
Re 6楼
在登陆成功以后，能否再自动点一下“退出”？
我看了一下登陆后的网站代码，“退出”是一个超链接：
<td><img src="images/3003.gif" width="9" height="9"><a href="/quit.aspx?returnUrl=%2fjsLoginStatus.aspx%3fguid%3d0833ef28-c56b-411f-85a4-3ffdf4a81d56">退出</a></td>
|
|
|
|
2008-9-4 22:36 |
|
|
qwertl
中级用户
积分 461
发帖 243
注册 2007-10-14
状态 离线
|
『第
9 楼』:
这样是不是也可登陆些不需验证码的邮箱了??
|
|
|
2008-9-4 23:31 |
|
|
slore
铂金会员
积分 5212
发帖 2478
注册 2007-2-8
状态 离线
|
 『第
10 楼』:
Set ie = CreateObject("InternetExplorer.Application")
ie.Navigate "http://www.netyi.net/quit.aspx?returnUrl=%2fjsLoginStatus.aspx"
ie.Visible = True '这里设置这个IE对象是否可见。
While ie.Busy or ie.ReadyState <> 4:Wend
ie.Document.form2.UserName.value = "slore"
ie.Document.form2.Password.value = "slorelee"
ie.Document.form2.Submit
While ie.Busy or ie.ReadyState <> 4:Wend
WSH.Sleep 1000 '这句是叫你能看到登陆成功,没这个直接下面的那句就退出来了。
ie.Navigate "http://www.netyi.net/quit.aspx?returnUrl=%2fjsLoginStatus.aspx"
While ie.Busy or ie.ReadyState <> 4:Wend
ie.Quit '自己看情况要不要吧。什么意思自己看的懂。
此帖被 +14 点积分 点击查看详情 | 评分人：【 HAT 】 | 分数： +10 | 时间：2008-9-5 11:55 | | 评分人：【 kioskboy 】 | 分数： +2 | 时间：2008-9-7 14:54 | | 评分人：【 regvip2008 】 | 分数： +2 | 时间：2008-9-8 01:16 |
|
|
S smile 微笑,L love 爱,O optimism 乐观,R relax 放松,E enthusiasm 热情...Slore |
|
|
2008-9-5 11:33 |
|
|
HAT
版主
积分 9023
发帖 5017
注册 2007-5-31
状态 离线
|
『第
11 楼』:
学习了，非常感谢！
|
|
|
|
2008-9-5 11:54 |
|
|
kioskboy
初级用户
积分 153
发帖 103
注册 2008-3-27
状态 离线
|
|
|
2008-9-7 14:59 |
|
