Générateur de lots : 4 étapes

2024 Auteur: John Day | [email protected]. Dernière modifié: 2024-01-30 09:11

MISE À JOUR V2.0 MAINTENANT !!! TÉLÉCHARGER CI-DESSOUS Il s'agit d'un projet sur lequel je travaille depuis un petit moment. !!!!!!!! CECI NE FONCTIONNERA QUE SUR VISTA C'est parce que je l'ai fait sur Vista maintenant, quand je l'essaye sur une machine XP, un message d'erreur s'affiche.. désolé les gens. Je dois remercier TATcreator parce que même le sais ne le sait pas il m'a donné l'idée de faire ça.. lol.

Assurez-vous de regarder la première étape "installation" avant de télécharger !!!! J'espère vraiment que vous l'aimerez. commentez ce que vous en pensez et n'oubliez pas de noter =)

Étape 1: Installation

Pour installer, suivez les étapes et les images de près !!! 1) Suivez l'image 1 si vous obtenez juste une page avec beaucoup de texte lorsque vous cliquez sur le lien 2) Cliquez sur Enregistrer3) Assurez-vous que tous les bits rouges sont corrects !!! Enregistrer sous.exe Et assurez-vous de sauvegarder en tant que « Tous les fichiers » ou cela ne fonctionnera pas !!!!

Étape 2: Comment ça marche: Partie 1

La ComboBox

Comme je l'ai dit, je l'ai fait avec vb 2008, il n'y a donc pas de script par lots. textbox1change textbox1 text to 'Que voulez-vous qu'il dise ?'Ce qui s'avère comme:If ComboBox1. SelectedItem = ("Write") Then Label2. Text = ("Ecrivez un message - N'ajoutez pas l'écho!") TextBox1. Show() TextBox1. Text = ("Que voulez-vous qu'il dise ?") End IfJe devais continuer à le faire pour chaque élément de la liste déroulante.

Étape 3: Comment ça marche: Partie 2

Les boutons

Les boutons étaient l'une des choses les plus difficiles à faire, Le bouton d'ajoutPour que le bouton d'ajout fonctionne, j'ai dû faire beaucoup de codage, mais une fois que j'ai fait cela, le reste était assez simple… Une partie du code d'ajout: si 'Écrire' est Sélectionné dans la zone de liste déroulante puis ajoutez 'echo ' + contenu de textbox1endCe qui s'avère comme: If ComboBox1. SelectedItem = ("Write") Then ListBox1. Items. Add("echo " + TextBox1. Text) End Ifc'était principalement le même pour la plupart des les, comme indiqué sur la photo. Le bouton Supprimer est juste: Supprimer l'élément sélectionné de la liste qui est:. Clear() ListBox1. Items. Add("::Made With iRule Batch Maker") ListBox1. Items. Add("@echo off")et le code de déplacement vers le haut et vers le bas déplace simplement l'élément sélectionné vers le haut ou vers le bas:(code vers long à monter)

Étape 4: Comment ça marche: Partie3

La sauvegarde/chargement

L'enregistrement et le chargement étaient probablement la partie la plus difficile, c'est juste le code d'enregistrement: Dim sfdMain As New SaveFileDialog sfdMain. InitialDirectory = My. Computer. FileSystem. SpecialDirectories. MyDocuments Dim Result As DialogResult sfdMain. Filter = "Batch Files (*.bat)|*.bat| Fichiers CMD(*.cmd)|*.cmd" sfdMain. FilterIndex = 1 sfdMain. ValidateNames = True Result = sfdMain. ShowDialog If Result = Windows. Forms. DialogResult. OK Then Dim sw As New System. 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 Si vous comprenez vb, vous saurez ce que cela fait, mais si vous ne le faites pas: en gros, tout ce qu'il fait est d'afficher la boîte de dialogue de sauvegarde et il enregistre tout le contenu de la liste dans un fichier batch ou un fichier cmd