Public Sub ThreadPoolCallBack(ByVal state As Object)
Dim threadIndex As Integer = CType(state, Integer)
RaiseEvent ThreadStarted(threadIndex, state)
ScanPort(state)
 
If remainingWorkItems = 0 Then
ManualResetEvent.Set()
End If
End Sub
 
Private Sub ScanPort(ByVal state As Object)
Dim EPhost As New System.Net.IPEndPoint(_HostIP, state)
Dim mySocket As New System.Net.Sockets.Socket(System.Net.Sockets.AddressFamily.InterNetwork, System.Net.Sockets.SocketType.Stream, System.Net.Sockets.ProtocolType.Tcp)
Try
mySocket.Connect(EPhost)
If mySocket.Connected Then
RaiseEvent PortFound(state, portState.Open)
mySocket.Close()
Else
RaiseEvent PortFound(state, portState.closed)
mySocket.Close()
End If
 
Catch ex As Exception
RaiseEvent PortFound(state, portState.closed)
mySocket.Close()
End Try
 
remainingWorkItems -= 1
 
End Sub
 
Public Sub Start()
 
Dim objLock1 As Object = New Object
For i = _iStartPort To _iEndPort
SyncLock objLock1
remainingWorkItems += 1
End SyncLock
ThreadPool.QueueUserWorkItem(AddressOf ThreadPoolCallBack, i)
Next
 
ManualResetEvent.WaitOne()
 
End Sub

#!/bin/bash
 
echo "Deleting old source files..."
find ~/Path to Backup File/* -mtime +4 -exec rm {} \;
echo "Delete old source files DONE"
echo ""
 
echo "Back up begining..."
tar -zcvf ~/Path to Backup folder/`date +%Y-%m-%d`.tar.gz ~/Folder to back up
mysqldump -u user_name -h localhost password --all-databases | gzip > ~/Backup/Database/db-`date +%Y-%m-%d`.sql.gz

    Sub Main()
        For i = 0 To 100
            Dim PortHost As New System.Net.IPEndPoint(System.Net.Dns.GetHostEntry("127.0.0.1").AddressList(0), i) 'Setting up the IP address and the port
            Dim mySocket As New System.Net.Sockets.Socket(System.Net.Sockets.AddressFamily.InterNetwork, System.Net.Sockets.SocketType.Stream, System.Net.Sockets.ProtocolType.Tcp) 'Setting up the Socket to call the port from
            Try
                mySocket.Connect(PortHost) 'Calling the port through the socket
                'Handling the call back
                If mySocket.Connected Then
                    Console.WriteLine("Port {0} is Open", i)
                    mySocket.Close()
                Else
                    Console.WriteLine("Port {0} is Closed", i)
                    mySocket.Close()
                End If
            Catch ex As Exception
                Console.WriteLine("Port {0} is Closed", i)
                mySocket.Close()
            End Try
        Next
    End Sub

Imports System.Threading
 
Module Module1
 
    'Require to thread an application

    Sub Main()
 
        Dim ThreadingEvents(40) As ManualResetEvent
        Dim iCounter As Integer = 0
        For i = 50 To 90
            ThreadingEvents(iCounter) = New ManualResetEvent(False)
            ThreadPool.QueueUserWorkItem(AddressOf Scan, i)
            iCounter += 1
        Next
 
        ManualResetEvent.WaitAll(ThreadingEvents)
        Console.Read()
    End Sub
 
    Public Sub Scan(ByVal state As Object)
        Dim port As Integer = state
        Dim PortHost As New System.Net.IPEndPoint(System.Net.Dns.GetHostEntry("127.0.0.1").AddressList(0), port) 'Setting up the IP address and the port
        Dim mySocket As New System.Net.Sockets.Socket(System.Net.Sockets.AddressFamily.InterNetwork, System.Net.Sockets.SocketType.Stream, System.Net.Sockets.ProtocolType.Tcp) 'Setting up the Socket to call the port from
        Try
            mySocket.Connect(PortHost) 'Calling the port through the socket
            'Handling the call back
            If mySocket.Connected Then
                Console.WriteLine("Port {0} is Open", port)
                mySocket.Close()
            Else
                Console.WriteLine("Port {0} is Closed", port)
                mySocket.Close()
            End If
        Catch ex As Exception
            Console.WriteLine("Port {0} is Closed", port)
            mySocket.Close()
        End Try
    End Sub
 
End Module

Imports System.IO
 
Module Module1
 
    Sub Main()
        Dim iPrimeNumeberLimit As Long = 0
        Console.Write("What prime number do you wish to go upto: ")
        iPrimeNumeberLimit = Console.ReadLine()
        Using writer As StreamWriter = New StreamWriter("C:\Users\Jack\Desktop\PrimeNumbers.txt")
            For i As Long = 2 To iPrimeNumeberLimit
                If CheckPrimeNumber(i) = True Then
                    writer.WriteLine(iPrimeNom & " => " & i)
                    iPrimeNom += 1
                    Console.WriteLine(i)
                End If
            Next
        End Using
 
        Console.Read()
    End Sub
 
    Private Function CheckPrimeNumber(ByVal iNumber As Long) As Boolean
        Dim upper As Long = iNumber / 2
        For i As Long = 2 To upper
            If iNumber Mod i = 0 Then
                Return False
                Exit Function
            End If
        Next
        Return True
    End Function
 
End Module