Add 2 Buttons
Add 1 textbox
Add 3 Labels
And 1 webbrowser
Add 1 Status bar
Add 1 Progress Bar
Add 1 timer(optional)

Now Change the text of one button to start and one to stop

***Label Work You Can Do of your own from the project

---

Double Click On The Form and after "Public forrm1"
type
Dim uid As Integer = 1
Dim join As Integer = 0
Dim sec As Integer
Dim over As Boolean
Dim status As Integer = 0
Dim start As Boolean = False

---

---

Double Click On the Web browser and type

If start = True Then
Select Case status
Case 0
web1.Navigate("http://www.orkut.com/Community.aspx?cmm=" & uid)
status = 1
Case 1
status = 2
Case 2
web1.Navigate("javascript:mr=document.forms[1]; mr.action='CommunityJoin.aspx?Action.join&'+location.href.match(/cmm=\d*/gi); mr.submit(); void (0)")
status = 3
join = join + 1
Label3.Text = join & " Comminities joined in " & sec & " sec"
Case 3
uid = uid + 1
status = 0
End Select
End If
TextBox1.Text = uid

---

---

Double Click On textbox and type

uid = Val(TextBox1.Text)

---

---

Double Click On "Start" button and type

start = True
web1.Navigate("http://www.orkut.com")
time.Enabled = True

---

---

Double Click On "Stop" button and type

start = False
time.Enabled = False

---

Optional Service

---

double Click on timer and type

sec = sec + 1
Label3.Text = join & " Comminities joined in " & sec & " sec"

---

Add One Statuslabel and name it as "status1"
Select "Status Text Changed " Event From web browser
TYPE

status1.Text = web1.StatusText

---

Select "ProgressChanged" event from web browser
and type

ProgressBar1.Value = e.CurrentProgress

---

*********************************************************
NOTE:Change The name Of the webbrowser1 to web1

*********************************************************

whole project link
http://sunilpalon.110mb.com/mass_comm_joiner.zip

Credits:Xtreme Coder a.k.a Chetan Mendhe