Ciao a tutti.

Ho bisogno di fare un programma che quando lo avvii cliccando due volte si avvia normalmente ma facciamo finta che il nostro computer ha un virus e siamo andati in modalità provvisoria e io ho la neccessità di avviare l'applicazione in modalita safe mode, come excel.

Io dovrei scrivere:

nomedelprogramma.exe /safe


putroppo il codice che ho scritto nn funziona.

per prima cosa ho creato un modulo che legge i parametri scritti:


codice:
Module Module1
    Sub main(ByVal args() As String)
        Dim ArgVal(UBound(args)) As String
        Dim i As Integer

        ' Leggo gli eventuali parametri passati da riga di comando
        For i = 0 To UBound(args)
            ArgVal(i) = args(i)
            Console.WriteLine(args(i))
        Next
        Application.Run(Form1)

    End Sub

End Module
poi ho settato che all'avvio deve avviare il modulo.

Poi ho fatto che all'avvio del form controlla se il programma è stato avviato in modalità safe:

codice:
Public Class Form1
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim param As String() = Environment.GetCommandLineArgs()

        If param(0) = "/safe" Then
            MsgBox("L'app è stata avviata in Safe Mode, alcune funzioni non saranno disponibili.")
        Else
        End If
    End Sub
End Class

Il codice non funziona, cioè quando scrivo noemdelprogramma.exe /safe non mi mostra la msgbox.

Non riesco a capire il problema.