Bebo Mass Username Scanner Source.

Needs To Be Made In VB6

Open vb6, Add 2 textbox's, 2 buttons, 1 listView, 1 label, HTTPWrapper, Winsck then paste this code

(Credits to SlayeR)

Put The code Behind Command1. This will Sign in & Collect the Id's Text1.text = Start ID + Text2.text = Finish Id

Code:

    Call Wrapper.GetWrapper("http://bebo.com/SignIn.jsp")
    strHTML = Wrapper.PostWrapper("http://bebo.com/SignIn.jsp", "FriendsMemberId=&FriendsChecksumNbr=&InviteRecipientId=&InviteChecksumNbr=&AppUrl=&Page=&QueryString=&api_key=&next=&canvas=null&v=&EmailUsername=IdlelA&Password=dudette&SignIn=Sign+In+%3E", "http://bebo.com/SignIn.jsp")
    meep:
    If Text1.Text = Text2.Text Then
    Label1.Caption = "Finshed Scanning!"
    Else
    Label1.Caption = "Scanning..."
    strHTML = Wrapper.GetWrapper("http://www.bebo.com/AddAsFriend.jsp?AddMemberId=" & Text1.Text)
    If InStr(strHTML, "Male") Then
    ListView1.ListItems.Add = GB(strHTML, "</b> &lt;", "&gt;")
    Text1.Text = Text1.Text + 1
    GoTo meep
    Else
    If InStr(strHTML, "Female") Then
    ListView1.ListItems.Add = GB(strHTML, "</b> &lt;", "&gt;")
    Text1.Text = Text1.Text + 1
    GoTo meep
    Else
    Text1.Text = Text1.Text + 1
    GoTo meep
    End If
    End If
    End If
    End Sub

Then this behind Command2 For saving the Collected Id's to a .txt file

Code:

    nFileNum = FreeFile
    Do Until ListView1.ListItems.Count = "0"
    Open App.Path & "/Scanned Usernames.txt" For Append As #nFileNum
    Print #nFileNum, ListView1.ListItems.Item(1)
    ListView1.ListItems.Remove (1)
    Close #nFileNum
    Loop
    Label1.Caption = "Saved Scanned Items!"

If you need HTTPWapper and Winsck Then Download Them Below.
Download Here