[VB.NET]Problema eseguire eseguibile

[rikard88]

Ciao a tutti questo sarà il secondo post che pubblico sul forum più bello di programmazione.

Durante la creazione di un programma in visual basic cioè sarebbe un autopatcher che esegue il controllo md5 sui files, se corrotti o non esistenti li sostituisce.

Mi son trovato davanti a un problema che l'eseguibile ilu15.dll si avviava solamente se lo rinominavo ilu15.exe (in eseguibile)

Poi ho aggiunto una stringa che evidenzio nello screen e ora riesco ad avviarlo qualunque sia l'estensione. Purtroppo non mi effettua più il controllo md5 ma passa direttamente ad aprire l'eseguibile. Come risolvo? Grazie infinite

[SPOILER]

[/SPOILER]

[rikard88]

Ho capito, esegue prima ilu15.dll poi fa tutto il resto. Come far partire prima il check???

[oregon]

Beh, se esegui prima la Shell, ovviamente prima esegue ...

(ma l'hai scritto tu il codice)?


P.S. Posta solamente il codice non l'immagine ...

[rikard88]

Imports LibMyAutopatcher Public Class Form1 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Const MD5_Text_File As String = "http://warlongju.altervista.org/downloads/md5.txt" 'Modificare con il proprio file md5.txt Const Report_File As String = "http://warlongju.altervista.org/downloads/report.php" 'Modificare con la propria pagina di report Const SiteDownloadFile As String = "http://warlongju.altervista.org/downloads/" 'Modificare con il proprio percorso del client Const Eseguibile As String = "ilu15.dll" Try Shell(Eseguibile, AppWinStyle.NormalFocus) Me.Close() Catch ex As Exception MsgBox("Impossibile continuare! File non trovato.") End Try Dim ProgressBar1 As ProgressBar = singolo 'Modificare PB_Single con il nome della ProgressBar1 Dim ProgressBar2 As ProgressBar = totale 'Modificare PB_Total con il nome della ProgressBar2 Dim Status As Label = aggiorna 'Modificare lbl_status con il nome del label da utilizzare per stampare lo status MyAutopatcher.CheckerStart(MD5_Text_File, Report_File, SiteDownloadFile, Eseguibile, _ ProgressBar1, ProgressBar2, Status) End Sub Private Sub totale_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles totale.Click End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) End Sub Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click Process.Start("http://warlongju.tk/index.php?s=register") End Sub Private Sub Button2_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Shell("config.exe") End Sub Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) End Sub Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click End End Sub Private Sub Label4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) End Sub Private Sub PictureBox1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) End Sub Private Function Eseguibile() As String Throw New NotImplementedException End Function End Class

[oregon]

Non si capisce la tua risposta ...