Visualizzazione dei risultati da 1 a 5 su 5
  1. #1

    [VB.NET] Avviare un programma con parametri

    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.

  2. #2
    Utente di HTML.it L'avatar di cassano
    Registrato dal
    Aug 2004
    Messaggi
    2,970
    prova senza / noemdelprogramma.exe safe

  3. #3
    Utente di HTML.it L'avatar di oregon
    Registrato dal
    Jul 2005
    residenza
    Roma
    Messaggi
    36,331
    Guarda che quello che cerchi sta in param(1)

    Studia meglio la documentazione
    No MP tecnici (non rispondo nemmeno!), usa il forum.

  4. #4
    Okay mi sono un pò studiato la documentazione.

    Ecco il risultato finale funzionante:

    codice:
            For Each arg As String In My.Application.CommandLineArgs
                Select Case Trim(LCase(arg))
                    Case "/safe"
                        MsgBox("L'app è stata avviata in Safe Mode, alcune funzioni non saranno disponibili.")
                        safe_or = "Yes"
                End Select
            Next

  5. #5
    Moderatore di Programmazione L'avatar di alka
    Registrato dal
    Oct 2001
    residenza
    Reggio Emilia
    Messaggi
    23,769
    Quote Originariamente inviata da Manu2020 Visualizza il messaggio
    Okay mi sono un pò studiato la documentazione.
    Studia anche il Regolamento, dato che è obbligatorio indicare il linguaggio nel titolo.

    Lo aggiungo io questa volta.

    Ciao!
    MARCO BREVEGLIERI
    Software and Web Developer, Teacher and Consultant

    Homepage | Blog | Delphi Podcast | Altri link...

Permessi di invio

  • Non puoi inserire discussioni
  • Non puoi inserire repliche
  • Non puoi inserire allegati
  • Non puoi modificare i tuoi messaggi
  •  
Powered by vBulletin® Version 4.2.1
Copyright © 2020 vBulletin Solutions, Inc. All rights reserved.