+- Sinisterly (https://sinister.li)
+-- Forum: Coding (https://sinister.li/Forum-Coding)
+--- Forum: Visual Basic & .NET Framework (https://sinister.li/Forum-Visual-Basic-NET-Framework)
+--- Thread: RE: How to expose your Facebook stalkers (/Thread-RE-How-to-expose-your-Facebook-stalkers)
RE: How to expose your Facebook stalkers - Mayh3m - 06-10-2014
In reply to:
http://www.hackcommunity.com/Thread-How-to-expose-your-Facebook-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 ClassWould have used Httpwebrequests but Facebook won't allow the use of such things. >
RE: RE: How to expose your Facebook stalkers - ArkPhaze - 06-12-2014
If facebook didn't allow the use of HttpWebRequests, then you wouldn't be able to use a browser to load facebook. The problem is with Javascript for the most part.
RE: RE: How to expose your Facebook stalkers - Mayh3m - 06-12-2014
When I would do the HTTPWebRequests it says your browser is out dated. So I tried the WB component. Which works in the most part.
RE: RE: How to expose your Facebook stalkers - ArkPhaze - 06-22-2014
(06-12-2014, 02:55 AM)Mayh3m Wrote: When I would do the HTTPWebRequests it says your browser is out dated. So I tried the WB component. Which works in the most part.
You realize that the only way the browser is determined is via the User-Agent string correct? You can change that within an HttpWebRequest. Where exactly are you seeing that it's out of date?
https://developer.mozilla.org/en-US/docs/Browser_detection_using_the_user_agent
Btw, you know that the WebBrowser control is an IE7 implementation as well? Which would seem fairly out of date alone, wouldn't it? In addition to the fact that you don't need the visual rendering from the control...
RE: RE: How to expose your Facebook stalkers - 4thDimension - 08-04-2014
I believe this actually displays who recently viewed your facebook profile, not who visited it most times.