标题: 求：网页自动登录会自动刷新，2小时切换下一个账号 [打印本页]

---

作者: ednykissyou     时间: 2010-5-22 22:57    标题: 求：网页自动登录会自动刷新，2小时切换下一个账号

我想在www.5tu.cn这个网站上挂点积分，有积分了才能下载图（里边的图不错哟）

实现每天天机自动登录，然后每60秒刷新一次网页，到两个小时我换下一个账号挂（http://www.5tu.cn/logging.php?action=login好像我手动更换用户时总不让换哟，好像是锁定cokiee还是咋的）

我有看过相关的贴子参见：http://www.cn-dos.net/forum/viewthread.php?tid=42554
但不很懂，摸不着东西，还有一些我具体的新增功能，所以整不会，希望哪位能帮帮忙改一下

已经注册有账号：the123456 密：the123456

以下是例贴
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
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 '自己看情况要不要吧。什么意思自己看的懂。
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－

---

作者: ednykissyou     时间: 2010-5-23 10:34    标题: 求vbs：自动登录，70秒自动刷新，2小时换下一账号

'清除cookie
on error resume next
Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
fso.DeleteFile("C:\Documents and Settings\Administrator\Local Settings\History\*.*"),True
'fso.DeleteFile("C:\Documents and Settings\Administrator\Local Settings\Temp\*.*"),True
fso.DeleteFile("C:\Documents and Settings\Administrator\Local Settings\Temporary Internet Files\*.*"),True
fso.DeleteFile("C:\WINDOWS\Temp\Cookies\*.*"),True
fso.DeleteFile("C:\WINDOWS\Temp\History\*.*"),True
fso.DeleteFile("C:\Documents and Settings\Administrator\cookies\*.*"),True
fso.DeleteFile("C:\WINDOWS\Temp\Temporary Internet Files\*.*"),True



'登录
do
Set ie=WScript.CreateObject("InternetExplorer.Application")
ie.visible=true
ie.navigate "http://www.5tu.cn/logging.php?action=login"
Do
Wscript.Sleep 5000
loop Until ie.ReadyState=4
ie.document.getElementById("username").value="the123456"
ie.document.getElementById("password").value="the123456"
ie.document.getElementById("loginsubmit").click


'刷新
DIM IE
SET IE = CREATEOBJECT("INTERNETEXPLORER.APPLICATION")

IE.NAVIGATE("http://www.5tu.cn")
IE.VISIBLE=1
'1为显示IE窗口，0为不显示

SET IE = NOTHING

loop

........................
两小时以后再登另一个账号

---

作者: ednykissyou     时间: 2010-5-24 01:21    标题: 兄：不行啊，你试没有？

兄：不行啊，你试没有？要在同一页网同一先选项瞳刷新~