Orkut Profile Maker Without TIMERs

Posted by Kunal Pradhan

Posting Projects seem to be Dumb , so i am posting the full tut ...1st download VB express edition 2008 then open new project and then from toolbar draw following -:
7 Textboxes
1 Button
1 Webbrowser

name these Textboxes From Their Properties windows as -:

vik-->the textbox to make string ..and set its visible value to hidden
fn--> First name
ln-->last name
no-->number
e1-->email
e2-->d

omain
pass--> password

and then change there text properties respectively

To navigate to the signup page , Double click on the button and Put this Code --> WebBrowser1.Navigate("https://www.google.com/accounts/NewAccount?continue=http%3A%2F%2Fwww.orkut.com%2FRedirLogin.aspx%3Fmsg%3D1&service=orkut&hl=en")

This will take us to the sign up page by clicking the button

..now the coding part of how to fill the form .. For that , Double Click on the Webbrowser and Write this Code -->

vik.Text = WebBrowser1.Url.ToString()
If vik.Text = "https://www.google.com/accounts/NewAccount?continue=http://www.orkut.com/RedirLogin.aspx?msg=1&service=orkut&amp;hl=en" Then
WebBrowser1.Navigate("javascript:va

r vik=document.forms[0].elements;vik[1].value='" + fn.Text + no.Text + "';vik[2].value='" + ln.Text + "';vik[3].value='" + e1.Text + no.Text + e2.Text + "';vik[4].value='" + p.Text + "';vik[5].value='" + p.Text + "';vik[14].focus();void(0);&quot;)
End If
If vik.Text = "https://www.google.com/accounts/CreateAccount?continue=http://www.orkut.com/RedirLogin.aspx?msg=1&service=orkut&hl=en" Then
WebBrowser1.Navigate("https://www.google.com/accounts/ServiceLogin?continue=http%3A%2F%2Fwww.orkut.com%2FRedirLogin.aspx%3Fmsg%3D1&service=orkut&hl=en&t=null&passive=true&skipvpage=true&sendvemail=false")
End If

If vik.Text = "http://www.orkut.com/Terms.aspx?mode=signup" Then
My.Computer.FileSystem.WriteAllText(&amp

;quot;ids.txt", e1.Text + no.Text + e2.Text + vbNewLine, True)
My.Computer.FileSystem.WriteAllText(&quot;password.txt", p.Text + vbNewLine, True)
no.Text += 1
WebBrowser1.Navigate("javascript:document.getElementById('birthYear&#39;).value= '1980';document.getElementById(&#39;terms').checked= 'true' ;_submitForm(document.forms[0], 'acceptTerms', '')
end if
if vik.Text = "http://www.orkut.com/EditSummary.aspx" Then
WeBrowser1.Navigate("javascript:document.getElementById('gender0').click();javascript:document.getElementById('country').value='91';_submitForm(document.forms[2], 'update', '');void(0)")
end if

if vik.Text = "http://www.orkut.com/Home.aspx&quot; Then
WeBrowser1.Navigate("http://www.orkut.com/Home.aspx")
end if
if vik.Text = "http://www.orkut.com/Home.aspx&quot; Then
Webbrowser1.Navigate("https://www.google.com/accounts/NewAccount?continue=http%3A%2F%2Fwww.orkut.com%2FRedirLogin.aspx%3Fmsg%3D1&service=orkut&hl=en")
End If

the first code will make a string of the textbox with the url of the webbrowser so that the soft can execute a js on a particular link

U R done With The Coding Part

now build the app and close and save the project ..

then go to the location where the project is saved and then bin --> Release and See there the .exe app lies

thats ur app

njoi .

credits vix

This entry was posted on Friday, June 27, 2008 and is filed under Orkut, profile maker, tutorial, vb .net . You can leave a response and follow any responses to this entry through the Subscribe to: Post Comments (Atom) .

Filed under Orkut, profile maker, tutorial, vb .net