:| Fuck you LOOP!

Imports System.Net
Imports System.Net.Sockets
Imports System.IO

Public Class FriendInvoke

    Private lis As New TcpListener(10030)

    Public ReadOnly Property RequestedBytes As Byte()
        Get
            Dim req As HttpWebRequest = WebRequest.Create("http://whatismyip.com/automation/n09230945.asp")
            Dim res As HttpWebResponse = req.GetResponse()
            Dim Stream As Stream = res.GetResponseStream()
            Dim sr As StreamReader = New StreamReader(Stream)
            Dim xp As String = (sr.ReadToEnd) & " | ComeIn"
            Dim b() As Byte = Text.ASCIIEncoding.ASCII.GetBytes(xp)
            Return b
        End Get
    End Property

    Public Sub SendReq(ByVal ip As String)
        Dim x As New TcpClient(ip, 10030)
        Dim sr As Stream = x.GetStream()
        sr.Write(RequestedBytes, 0, RequestedBytes.Length)
    End Sub

    Dim x As New mes()

    Public Sub sRun()
        lis.AllowNatTraversal(True)
        While (True)
            lis.Start()
            Dim s As Socket = lis.AcceptSocket()
            Dim c As TcpClient = lis.AcceptTcpClient()
            Dim sr As Stream = c.GetStream()
            Dim rB(100) As Byte
            sr.Read(rB, 0, rB.Length)
            Dim str As String = Text.ASCIIEncoding.ASCII.GetString(rB)
            If str.Contains(" | ComeIn") Then
                Dim ip As String = str.Replace(" | ComeIn", "")
                x.Label1.Text = x.Label1.Text.Replace("%%%", ip)
                x.Show()
                If x.Accepted = 1 Then
                    Process.Start("aiw://connect " & ip)
                Else
                    s.Disconnect(False)
                    c.Close()
                End If
            End If
        End While
    End Sub

    Public Sub Run()
        Dim a As New Threading.Thread(AddressOf sRun)
        a.Start()
    End Sub

End Class