China DOS Union

I want to idle for some points on www.5tu.cn. You need points there before you can download images (the images inside are pretty good, oh).

What I want is for the computer to log in automatically every day, then refresh the webpage once every 60 seconds, and after two hours I'll switch to the next account to idle there (http://www.5tu.cn/logging.php?action=login when I manually switch users it never seems to let me switch, like maybe it's locking the cokiee or something).

I've read a related post, see: http://www.cn-dos.net/forum/viewthread.php?tid=42554
But I don't really understand it, can't get the hang of it, and I also have some additional functions I specifically want, so I just can't get it done. Hope someone can help me modify it.

Already registered account: the123456 Pass: the123456

Example post below
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
Set ie = CreateObject("InternetExplorer.Application")
ie.Navigate "http://www.netyi.net/quit.aspx?returnUrl=%2fjsLoginStatus.aspx"

ie.Visible = True 'Set here whether this IE object is visible.

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 'This line is so you can see that the login succeeded. Without this, it will directly exit with the line below.
ie.Navigate "http://www.netyi.net/quit.aspx?returnUrl=%2fjsLoginStatus.aspx"

While ie.Busy or ie.ReadyState <> 4:Wend
ie.Quit 'See for yourself whether you want this or not. Figure out what it means yourself.
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－

'Clear cookies
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



'Log in
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


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

IE.NAVIGATE("http://www.5tu.cn")
IE.VISIBLE=1
'1 shows the IE window, 0 does not show it

SET IE = NOTHING

loop

........................
After two hours, log in with another account

Bro: it doesn't work. Did you try it? It has to refresh on the same webpage in the same tab~