dotNetIntelligentDLL Class

I made a DLL to protect your application, change the start-message when you want etc...
Read the code to learn more:

Code:

Imports System.Net
Public Class byHewoRaydenman

    Public Shared Function proteggiApplicazione(ByVal hosting As String, Optional ByVal ipsWhiteList As String = Nothing)
        Try
            Dim controlla As String = New WebClient().DownloadString(hosting)
            Dim dividi() As String
            dividi = controlla.Split("-")
            Dim messaggioiniziale As String = dividi(0)
            Dim titolomessaggioiniziale As String = dividi(1)
            Dim statoApplicazione As String = dividi(2)

            If statoApplicazione.ToLower = "appaccesa" Or statoApplicazione.ToLower = "appon" Then
                MsgBox(messaggioiniziale, MsgBoxStyle.Information, titolomessaggioiniziale)
                stato = "accendere"
            ElseIf statoApplicazione.ToLower = "appspenta" Or statoApplicazione.ToLower = "appoff" Then
                MsgBox(messaggioiniziale, MsgBoxStyle.Exclamation, titolomessaggioiniziale)
                stato = "chiudere"
            ElseIf statoApplicazione.ToLower = "protezioneip" Or statoApplicazione.ToLower = "ipprotection" Then
                If ipsWhiteList = Nothing Then
                    stato = "chiudere"
                Else
                    Try
                        Dim theIp As String = New WebClient().DownloadString("http://tools.feron.it/php/ip.php")
                        Dim whiteList As String = New WebClient().DownloadString(ipsWhiteList)

                        If whiteList.Contains(theIp) And statoApplicazione.ToLower = "protezioneip" Then
                            MsgBox(messaggioiniziale, MsgBoxStyle.Information, titolomessaggioiniziale)
                            stato = "accendere"
                        ElseIf Not whiteList.Contains(theIp) And statoApplicazione.ToLower = "protezioneip" = True Then
                            MsgBox("Errore: si è verificato un problema nell'avviare l'applicazione", MsgBoxStyle.Critical, "Errore")
                            stato = "chiudere"
                        ElseIf whiteList.Contains(theIp) And statoApplicazione.ToLower = "ipprotection" Then
                            MsgBox(messaggioiniziale, MsgBoxStyle.Information, titolomessaggioiniziale)
                            stato = "accendere"
                        ElseIf Not whiteList.Contains(theIp) And statoApplicazione.ToLower = "ipprotection" Then
                            MsgBox("Error: there is a problem to start the application", MsgBoxStyle.Critical, "Error")
                            stato = "chiudere"
                        Else
                            MsgBox("Error: there is a problem to start the application", MsgBoxStyle.Critical, "Error")
                            stato = "chiudere"
                        End If
                    Catch
                        MsgBox("Error: there is a problem to start the application", MsgBoxStyle.Critical, "Error")
                        stato = "chiudere"
                    End Try
                End If

            End If

        Catch
            MsgBox("Error: there is a problem to start the application", MsgBoxStyle.Critical, "Error")
            stato = "chiudere"
        End Try


        Return hosting + ipsWhiteList
    End Function
    Public Shared stato As String = Nothing
    Public Shared Function getStatus()
        Return stato
    End Function

    Public Sub mostraInformazioniITA()
        MsgBox("Sistema di protezione 2014 creato da: Hewo (Raydenman da MPGH.net)" & vbCrLf _
             & "Linguaggio di programmazione: VB.NET" & vbCrLf _
             & "La mia IDE: Microsoft Visual Basic 2010 Express", MsgBoxStyle.Information, "Informazione")
    End Sub

    Public Sub mostraInformazioniENG()
        MsgBox("Protetion System 2014 made by: Hewo (Raydenman from MPGH.net)" & vbCrLf _
             & "Programmation language: VB.NET" & vbCrLf _
             & "My IDE: Microsoft Visual Basic 2010 Express", MsgBoxStyle.Information, "Information")
    End Sub
End Class

How to use this?
You must make a new project and add the precedent class.
Add 1 timer on the project and on it add this code:

Code:

  Dim status As String = getStatus()
  If status = "chiudere" Then
    Close
  ElseIf status = "accendere" Then
    '//nothing
   Else
    '//nothing
   End if

On Form_Load add this code:
proteggiApplicazione(hosting, ipWhitelist.txt)
As we can see on the class that I posted, the application will download the string on "hosting" and will split the string.
Example: MessageOnStartUp-TitleOnStartUp-ApplicationStatus

Application Status:
"appon" - the users will be able to start your application.
"appoff" - the users won't be able to start your application.
"ipprotection" - if the user's ip is on the ipWhitelist he can start the application, else he can't.

Warning: crypt your application or it can be easily reversed and this protection system can be bypassed.
Warning2: ALL the .NET application can be revesed