dotNetIntelligentDLL Class

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 whiteLis*****ntains(theIp) And statoApplicazione.ToLower = "protezioneip" Then
                            MsgBox(messaggioiniziale, MsgBoxStyle.Information, titolomessaggioiniziale)
                            stato = "accendere"
                        ElseIf Not whiteLis*****ntains(theIp) And statoApplicazione.ToLower = "protezioneip" = True Then
                            MsgBox("Errore: si è verificato un problema nell'avviare l'applicazione", MsgBoxStyle.Critical, "Errore")
                            stato = "chiudere"
                        ElseIf whiteLis*****ntains(theIp) And statoApplicazione.ToLower = "ipprotection" Then
                            MsgBox(messaggioiniziale, MsgBoxStyle.Information, titolomessaggioiniziale)
                            stato = "accendere"
                        ElseIf Not whiteLis*****ntains(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

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