ok my project is going to be able to add friends to my myspace group i got it adding the people and everything but i want it to bypass accounts that require email lastname or captcha entrys how would i go about doing this? here is my code so far if you can correct or improve it any feel free to do so


Code:
Sub Addem(BrowSerA As WebBrowser, List As ListBox)
On Error GoTo Error:
Dim i As Integer
For i = 0 To List.ListCount - 1
BrowSerA.Navigate2 "http://friends.myspace.com/index.cfm?fuseaction=invite.addfriend_verify&friendId=" & List.List(i)
Do Until BrowSerA.ReadyState = 4
DoEvents
Form1.Text3.Text = BrowSerA.Document.documentelement.innerhtml

Loop
BrowSerA.Document.All("ctl00_ctl00_ctl00_cpMain_cpMain_cpfMainBody_AddFriendRequestButtons_btnAddToFriends").Click
Form1.Label1.Caption = Form1.Label1.Caption + 1
pause 1
Do Until BrowSerA.LocationURL = ("http://friends.myspace.com/index.cfm?fuseaction=invite.addfriend_confirm&statusCD=0&friendId=") & List.List(i)

DoEvents

Loop
Next
Error:
List.ListIndex = List.ListIndex + 1
BrowSerA.Navigate "http://friends.myspace.com/index.cfm?fuseaction=invite.addfriend_verify&friendId=" & List.List(i)
End Sub