Come utilizzare ExitWindowsExec() in Visual Basic per eseguire il file batch MS-DOS

Il presente articolo è stato tradotto tramite il software di traduzione automatica di Microsoft e non da una persona. Microsoft offre sia articoli tradotti da persone fisiche sia articoli tradotti automaticamente da un software, in modo da rendere disponibili tutti gli articoli presenti nella nostra Knowledge Base nella lingua madre dell’utente. Tuttavia, un articolo tradotto in modo automatico non è sempre perfetto. Potrebbe contenere errori di sintassi, di grammatica o di utilizzo dei vocaboli, più o meno allo stesso modo di come una persona straniera potrebbe commettere degli errori parlando una lingua che non è la sua. Microsoft non è responsabile di alcuna imprecisione, errore o danno cagionato da qualsiasi traduzione non corretta dei contenuti o dell’utilizzo degli stessi fatto dai propri clienti. Microsoft, inoltre, aggiorna frequentemente il software di traduzione automatica.

147806
Questo articolo è stato archiviato. L’articolo, quindi, viene offerto “così come è” e non verrà più aggiornato.
Sommario
La funzione ExitWindowsExec() termina di Windows, esegue un'applicazione MS-DOS specificata e riavvia Windows. Le informazioni contenute in questo articolo viene illustrato come chiamare questa funzione da Visual Basic.
Informazioni
La funzione di ExitWindowsExec() viene in genere utilizzata dai programmi di installazione per sostituire i componenti di Windows che sono attivi quando Windows è in esecuzione. In genere, è opportuno eseguire un file batch MS-DOS che esegue il file copia mentre Windows è temporaneamente interrotto. La dichiarazione per ExitWindowsExec() è come indicato di seguito:
   ' Place the following declaration on one, single line:  Private Declare Function ExitWindowsExec Lib "User" (ByVal lpszExe As String,      ByVal lpszParams As Any) As Integer				

Primo parametro: $ lpszExe

Il primo parametro per ExitWindowsExec(), $ lpszExe, deve di essere una stringa contenente il percorso completo del file eseguibile che si desidera eseguire. Questa stringa deve contenere più di 127 caratteri. Per i file batch, è necessario specificare il file--C:\DOS\COMMAND.COM Command.com. Per ottenere il percorso completo in Visual Basic per Command.com, puoi utilizzare la funzione di $ Environ:
   lpszExe$ = Environ$("COMSPEC")				

Per ulteriori informazioni sulla funzione Environ $, fare riferimento ai Microsoft Visual Basic Language Reference (dal menu?.

Secondo parametro: $ lpszParams

Il secondo parametro per ExitWindowsExec(), $ lpszParams, deve essere di essere una stringa contenente i parametri necessari per il file eseguibile. Se non sono parametri necessari, passare un valore long integer 0, ad esempio 0 &.

Per eseguire un file batch, tuttavia, questa è in cui specificare il percorso del file batch e i parametri che necessari. Inoltre, è necessario far precedere la stringa con il parametro /c che indica di MS-DOS per richiamare una copia di Command.com. Di seguito è riportato un esempio:
   lpszParams$ = "/C C:\DIRNAME\GENERIC.BAT  PARAMETER1 PARAMETER2"				

Il valore restituito di questa funzione è false quando la funzione ha esito negativo.

Procedura di esempio

  1. Utilizzando blocco note in Windows o la modifica in MS-DOS, creare un file batch nella directory principale del disco rigido è chiamato C:\RUNIT.BAT. Assegnare il seguente contenuto:
       @echo off   echo Making Backup of autoexec.bat   copy c:\autoexec.bat c:\*.bak   echo Done						
  2. Avviare un nuovo progetto in Visual Basic (ALT, F, N). In base all'impostazione predefinita, viene creato il progetto Form1.
  3. Aggiungere la seguente dichiarazione alla sezione General Declarations del modulo:
       ' Place the following declaration on one, single line:   Private Declare Function ExitWindowsExec Lib "User" (ByVal lpszExe As String, _      ByVal lpszParams As Any) As Integer						
  4. Aggiungere un pulsante di comando (Command1) al form e inserire il codice riportato di seguito nell'evento Click().
       Private Sub Command1_Click ()      sComspec$ = Environ$("COMSPEC")      ret% = ExitWindowsExec(sComspec$,  "/c c:\runit.bat")   End Sub						
  5. Salvare il progetto (ALT, F, V). Quindi premere F5 per eseguire il programma. Fare clic sul pulsante comando per uscire da Windows ed eseguire il file batch, quindi riavviare Windows.
vbwin vb416 4.00

Avviso: questo articolo è stato tradotto automaticamente

Proprietà

ID articolo: 147806 - Ultima revisione: 01/24/2014 03:13:31 - Revisione: 1.1

  • Microsoft Visual Basic 4.0 Professional Edition
  • Microsoft Visual Basic 4.0 a 16 bit Enterprise Edition
  • kbnosurvey kbarchive kbmt kbwndw KB147806 KbMtit
Feedback