中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --

联盟域名：www.cn-dos.net 论坛域名：www.cn-dos.net/forum
DOS，代表着自由开放与发展，我们努力起来，学习FreeDOS和Linux的自由开放与GNU精神，共同创造和发展美好的自由与GNU GPL世界吧！

游客: 注册 | 登录 | 命令行 | 会员 | 搜索 | 上传 | 帮助 »

中国DOS联盟论坛 » DOS批处理 & 脚本技术（批处理室） » 求：网页自动登录会自动刷新，2小时切换下一个账号

ednykissyou
初级用户

积分 182
发帖 88
注册 2005-11-29
状态离线

『楼主』: 求：网页自动登录会自动刷新，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 '自己看情况要不要吧。什么意思自己看的懂。
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－

2010-5-22 22:57

ednykissyou
初级用户

积分 182
发帖 88
注册 2005-11-29
状态离线

『第 2 楼』: 求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

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

2010-5-23 10:34

ednykissyou
初级用户

积分 182
发帖 88
注册 2005-11-29
状态离线

『第 3 楼』: 兄：不行啊，你试没有？

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

2010-5-24 01:21

请注意：您目前尚未注册或登录，请您注册或登录以使用论坛的各项功能，例如发表和回复帖子等。

可打印版本 | 推荐给朋友 | 订阅主题 | 收藏主题

论坛跳转: