Come creare un AutoPatcher in Visual Basic 2008.
Occorrente essenziale:
Microsoft NetFrammework 3.5
Microsoft Visual Basic - Download
Iniziamo con la guida:
Per quanto possa sembrare complessa in realtà se seguite passo passo è abbastanza semplice.
Apriamo Visual Basic 2008 e clicchiamo su "File,NewProject";
Adesso si aprirà una nuova finestra dove noi selezioneremo "Windows Froms Application" e inseriremo il nome al proggetto.
Adesso modifichiamo a nostro piacimento le dimensioni del From1.
Adesso nella ToolBox "la grossa finestra che si trova a sinistra" selezioniamo TextBox;
Adesso modifichiamo il nome del from e mettiamo il nome dell'autopatcher.
Adesso nella tool box selezioniamo Button, lo ingrandiamo a nostro piacimento e lo chiameremo "Inizia"
Adesso sempre dalla ToolBox inseriamo Progress Bar che ingrandiamo a nostro piacemento.
Adesso dalla ToolBox selezioniamo Label dove inseriremo "Stato di Caricamento" e lo modificheremo a nostro piacimento come abbiamo fatto prima.
Adesso vedremo come utilizzare la text box che abbiamo preso prima e abbiamo lasciato da parte.
Adesso possiamo inserire anche i nuovi pulsanti per renderlo più completo.
Aggiungiamo qualche immagine per renderlo più bello.
Clicchiamo su "..." e carichiamo un immagine dal nostro computer.
Infine verrà qualcosa simile a questa
Non osservate la grafica 
Bene, finita la parte grafica cominciamo la parte degli Script per far funzionare il nostro Patcher.
Per inserire lo script clicchiamo sul pulsante e si aprirà un editor di script.
Codice:
Button1.Enabled = False
Button1.Text = "Attendere, prego..."
TextBox1.Text = "Download cominciato."
ProgressBar1.Value = "1"
Timer1.Start()
Fatto ciò aggiungiamo un timer dalla tool box. Clicchiamoci due volte ed apriamo lo script dove inseriamo questi codici:
Codice:
ProgressBar1.Value = "2"
TextBox1.Text = "patch.txt è testato.."
If My.Computer.FileSystem.FileExists("patch.txt") Then My.Computer.FileSystem.DeleteFile("patch.txt")
TextBox1.Text = "patch.txt è stato cancellato."
End If
My.Computer.Network.DownloadFile("http://indirizzo web del patch.txt", "patch.txt")
TextBox1.Text = "Nuovo patch.txt downloddato."
ProgressBar1.Value = "3"
.
Ora arrivano i file effettivi di una patch quindi continuiamo a compilare lo script:
Codice:
-------------------------------------------LOCALE_IT.EIX----------------------------------------
TextBox1.Text = "locale_it.eix è stato testato."
If My.Computer.FileSystem.FileExists("pack/locale_it.eix") Then
My.Computer.FileSystem.DeleteFile("pack/locale_it.eix")
TextBox1.Text = "locale_it.eix è stato cancellato."
End If
ProgressBar1.Value = "4"
My.Computer.Network.DownloadFile("http://indirizzo web del vostro locale_it.eix", "pack/locale_it.eix")
TextBox1.Text = "Nuovo locale_it.eix downloddato."
Adesso dobbiamo avere i file aggiuntivi della patch come "locale_it.eix" come precedentemente i nomi devono essere corretti.
Concludiamo:
Codice:
TextBox1.Text = "Patch avviata"
ProgressBar1.Value = "100"
If My.Computer.FileSystem.FileExists("Metin2.exe") Then
Button1.Text = "Metin2 Start"
If Button1.Text = "Metin2 Start" Then
Shell("Metin2.exe")
End If
Else
Button1.Text = "Client aggiornato!"
TextBox1.Text = "Il client è stato aggiornato con successo... complimenti!"
End If
Timer1.Stop()
Il nostro autopatcher è pronto ci basterà salvarlo da tramite questo procedimento: File>Save>Inseriamo la destinazione. ATTENZIONE: nella destinazione del file c'è sia un file eseguibile (.exe) che un file contenente lo script dell'autopatcher.
Occorrente essenziale:
Microsoft NetFrammework 3.5
Microsoft Visual Basic - Download
Iniziamo con la guida:
Per quanto possa sembrare complessa in realtà se seguite passo passo è abbastanza semplice.
Apriamo Visual Basic 2008 e clicchiamo su "File,NewProject";
Adesso si aprirà una nuova finestra dove noi selezioneremo "Windows Froms Application" e inseriremo il nome al proggetto.
Adesso modifichiamo a nostro piacimento le dimensioni del From1.
Adesso nella ToolBox "la grossa finestra che si trova a sinistra" selezioniamo TextBox;
Adesso modifichiamo il nome del from e mettiamo il nome dell'autopatcher.
Adesso nella tool box selezioniamo Button, lo ingrandiamo a nostro piacimento e lo chiameremo "Inizia"
Adesso sempre dalla ToolBox inseriamo Progress Bar che ingrandiamo a nostro piacemento.
Adesso dalla ToolBox selezioniamo Label dove inseriremo "Stato di Caricamento" e lo modificheremo a nostro piacimento come abbiamo fatto prima.
Adesso vedremo come utilizzare la text box che abbiamo preso prima e abbiamo lasciato da parte.
Adesso possiamo inserire anche i nuovi pulsanti per renderlo più completo.
Aggiungiamo qualche immagine per renderlo più bello.
Clicchiamo su "..." e carichiamo un immagine dal nostro computer.
Infine verrà qualcosa simile a questa
Non osservate la grafica Bene, finita la parte grafica cominciamo la parte degli Script per far funzionare il nostro Patcher.
Per inserire lo script clicchiamo sul pulsante e si aprirà un editor di script.
Codice:
Button1.Enabled = False
Button1.Text = "Attendere, prego..."
TextBox1.Text = "Download cominciato."
ProgressBar1.Value = "1"
Timer1.Start()
Fatto ciò aggiungiamo un timer dalla tool box. Clicchiamoci due volte ed apriamo lo script dove inseriamo questi codici:
Codice:
ProgressBar1.Value = "2"
TextBox1.Text = "patch.txt è testato.."
If My.Computer.FileSystem.FileExists("patch.txt") Then My.Computer.FileSystem.DeleteFile("patch.txt")
TextBox1.Text = "patch.txt è stato cancellato."
End If
My.Computer.Network.DownloadFile("http://indirizzo web del patch.txt", "patch.txt")
TextBox1.Text = "Nuovo patch.txt downloddato."
ProgressBar1.Value = "3"
.
Ora arrivano i file effettivi di una patch quindi continuiamo a compilare lo script:
Codice:
-------------------------------------------LOCALE_IT.EIX----------------------------------------
TextBox1.Text = "locale_it.eix è stato testato."
If My.Computer.FileSystem.FileExists("pack/locale_it.eix") Then
My.Computer.FileSystem.DeleteFile("pack/locale_it.eix")
TextBox1.Text = "locale_it.eix è stato cancellato."
End If
ProgressBar1.Value = "4"
My.Computer.Network.DownloadFile("http://indirizzo web del vostro locale_it.eix", "pack/locale_it.eix")
TextBox1.Text = "Nuovo locale_it.eix downloddato."
Adesso dobbiamo avere i file aggiuntivi della patch come "locale_it.eix" come precedentemente i nomi devono essere corretti.
Concludiamo:
Codice:
TextBox1.Text = "Patch avviata"
ProgressBar1.Value = "100"
If My.Computer.FileSystem.FileExists("Metin2.exe") Then
Button1.Text = "Metin2 Start"
If Button1.Text = "Metin2 Start" Then
Shell("Metin2.exe")
End If
Else
Button1.Text = "Client aggiornato!"
TextBox1.Text = "Il client è stato aggiornato con successo... complimenti!"
End If
Timer1.Stop()
Il nostro autopatcher è pronto ci basterà salvarlo da tramite questo procedimento: File>Save>Inseriamo la destinazione. ATTENZIONE: nella destinazione del file c'è sia un file eseguibile (.exe) che un file contenente lo script dell'autopatcher.
