[Mayh3m]

In reply to:
http://www.hackcommunity.com/Thread-How-...stalkers-D

Source:

Code:

Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim a As String = RichTextBox1.Text Dim noQuotes As String = RichTextBox1.Text.Replace(ControlChars.Quote, "//\\") 'Gets rid of all the quotes for easy code Dim aA() As String = Split(noQuotes, "//\\InitialChatFriendsList//\\,[],{//\\list//\\:[") 'Used to isolate IDs Dim aAA() As String = Split(aA(1), "//\\]},26],[//\\BlackbirdUpsellConfig//\\,") 'Used to isolate IDs Dim reformatStr As String = aAA(0).Replace("//\\", "") 'Removes the //\\ Dim IDs() As String = Split(reformatStr, ",") 'Seperates all the IDs from into indecies for array 'ListBox1.Sorted = True 'Sorts them for easy use. For i = 0 To IDs.Length - 1 'Loops through the IDs Dim tempStr As String = IDs(i).Substring(0, IDs(i).Length - 2) 'Removes the useless characters after the ID If Not (ListBox1.Items.Contains(tempStr)) Then 'Checks for duplicates ListBox1.Items.Add(tempStr) 'Puts the IDs in a listbox End If Next MsgBox("Stalkers Found:" & ListBox1.Items.Count, MsgBoxStyle.OkOnly, "Stalkers Found :D") End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click WebBrowser1.Navigate("http://www.facebook.com/" & ListBox1.Items.Item(ListBox1.SelectedIndex)) End Sub End Class

Would have used Httpwebrequests but Facebook won't allow the use of such things. >