Batch Maker: 4 passaggi

2024 Autore: John Day | [email protected]. Ultima modifica: 2024-01-30 10:05

AGGIORNAMENTO V2.0 ORA DISPONIBILE!!! SCARICA QUI SOTTOQuesto è un progetto a cui sto lavorando da un po'..è realizzato con vb.net 2008 e rende semplice fare un batch per i neofiti…!!!!!!!!NOTA BENE!!!!! !!!!!!!! QUESTO FUNZIONA SOLO SU VISTA è perché l'ho fatto su Vista ora quando lo provo su una macchina XP viene visualizzato un messaggio di errore.. scusate gente. Devo ringraziare TATcreator perché lo so non lo sa mi ha dato l'idea di fare questo.. lol.

Assicurati di dare un'occhiata al primo passaggio "Installazione" prima di scaricare!!!! Spero davvero che ti piaccia.. e se riscontri problemi per favore lascia un commento o scrivimi in privato così posso risolverli e ripubblicarlo … per favore commenta ciò che pensi e non dimenticare di votarlo =)

Passaggio 1: installazione

Per installare segui attentamente i passaggi e le immagini !!! 1) Segui la foto 1 se ottieni una pagina con molto testo quando fai clic sul collegamento 2) Fai clic su Salva3) Assicurati di avere tutti i bit rossi corretti !!! Salva con nome.exe e assicurati di salvare come "Tutti i file" o non funzionerà!!!!!

Passaggio 2: come funziona: parte 1

Il ComboBox

Come ho detto, l'ho fatto con vb 2008 quindi non c'è scripting batch. Per farlo, tutto ciò che dovevo fare era: se 'write' è selezionato in comboboxchange label2 in 'Write a message - Non aggiungere l'eco!'show textbox1change textbox1 text in 'Cosa vuoi che dica?'Che risulta come: If ComboBox1. SelectedItem = ("Write") Then Label2. Text = ("Scrivi un messaggio - Non aggiungere l'eco!") TextBox1. Show() TextBox1. Text = ("Cosa vuoi che dica?") Fine Se dovessi continuare a farlo per ogni elemento della casella combinata.

Passaggio 3: come funziona: parte 2

I pulsanti

I pulsanti erano una delle cose più difficili da fare, il pulsante Aggiungi Per far funzionare il pulsante Aggiungi ho dovuto fare molta codifica, ma una volta che l'ho fatto il resto è stato abbastanza semplice… Parte del codice di aggiunta: se 'Scrivi' è Selezionato nella casella combinata quindi aggiungi 'echo ' + contenuto di textbox1endChe risulta come: If ComboBox1. SelectedItem = ("Write") Then ListBox1. Items. Add("echo " + TextBox1. Text) End Ifit era più o meno lo stesso per la maggior parte di li, come mostrato nella foto. Il pulsante di rimozione è solo: Rimuovi l'elemento selezionato dall'elenco che è: ListBox1. Items. RemoveAt (ListBox1. SelectedIndex) il pulsante di cancellazione cancella semplicemente l'intero elenco, quindi aggiunge di nuovo le prime due righe: ListBox1. Items. Clear() ListBox1. Items. Add("::Made With iRule Batch Maker") ListBox1. Items. Add("@echo off")e il codice di spostamento su e giù sposta semplicemente l'elemento selezionato in alto o in basso:(code to lungo da montare)

Passaggio 4: come funziona: parte 3

Il salvataggio/caricamento

Il salvataggio e il caricamento sono stati probabilmente la parte più difficile, questo è solo il codice di salvataggio: Dim sfdMain As New SaveFileDialog sfdMain. InitialDirectory = My. Computer. FileSystem. SpecialDirectories. MyDocuments Dim Result As DialogResult sfdMain. Filter = "File batch (*.bat)|*.bat| File CMD (*.cmd)|*.cmd" sfdMain. FilterIndex = 1 sfdMain. ValidateNames = True Risultato = sfdMain. ShowDialog If Risultato = Windows. Forms. DialogResult. OK Quindi Dim sw come nuovo sistema. IO. StreamWriter(sfdMain. FileName) For i As Integer = 0 To ListBox1. Items. Count - 1 sw. WriteLine(ListBox1. Items. Item(i)) Next sw. Close() sw. Dispose() Else Exit Sub End Se capisci vb saprai cosa fa ma se non lo fai: in pratica, tutto ciò che fa è mostrare la finestra di dialogo di salvataggio e salva tutto il contenuto dell'elenco in un file batch o in un file cmd