Generador de lotes: 4 pasos

2024 Autor: John Day | [email protected]. Última modificación: 2024-01-30 08:45

ACTUALIZAR V2.0 AHORA! DESCARGAR ABAJO Este es un proyecto en el que he estado trabajando durante un tiempo … está hecho con vb.net 2008 y hace que hacer un lote sea simple para los novatos … !!!!!!!! !!!!!!!! ESTO SOLO FUNCIONARÁ EN VISTA Es porque hice esto en Vista ahora cuando lo pruebo en una máquina XP aparece un mensaje de error.. lo siento gente. Tengo que agradecer a TATcreator porque incluso lo sé no lo sabe me dio la idea de hacer esto.. jajaja.

¡Asegúrate de mirar el primer paso de 'instalación' antes de descargar! Realmente espero que te guste … y si encuentras algún problema con él, déjanos un comentario o envíanos un mensaje de correo electrónico para que pueda solucionarlos y volver a publicarlo … por favor comenta lo que piensas y no olvides calificarlo =)

Paso 1: instalación

Para instalar, siga los pasos y las fotos de cerca. 1) Siga la imagen 1 si solo obtiene una página con mucho texto cuando hace clic en el enlace 2) Haga clic en guardar 3) ¡Asegúrese de obtener todos los bits rojos correctamente!.exe y asegúrese de guardar como 'Todos los archivos' o no funcionará !!!!!

Paso 2: Cómo funciona: Parte 1

El ComboBox

Como dije, lo hice con vb 2008, por lo que no hay secuencias de comandos por lotes. Para hacerlo, todo lo que realmente tuve que hacer fue: si se selecciona 'escribir' en el cuadro combinado, cambie la etiqueta2 a 'Escribir un mensaje - ¡No agregue el eco!' Mostrar cuadro de texto1cambia el texto del cuadro de texto1 a '¿Qué quieres que diga?' Lo que resulta como: If ComboBox1. SelectedItem = ("Escribir") Entonces Label2. Text = ("Escribe un mensaje - ¡No agregue el eco!") TextBox1. Show () TextBox1. Text = ("¿Qué quieres que diga?") Fin Si tuviera que seguir haciendo esto para cada elemento del cuadro combinado.

Paso 3: Cómo funciona: Parte 2

Los botones

Los botones eran una de las cosas más difíciles de hacer, el botón Agregar Para que el botón agregar funcionara, tuve que codificar mucho, pero una vez que lo hice, el resto fue bastante simple … Parte del código de adición: si 'Escribir' es Seleccionado en el cuadro combinado, luego agregue 'echo' + contenido de textbox1end Lo que resulta como: If ComboBox1. SelectedItem = ("Write") Then ListBox1. Items. Add ("echo" + TextBox1. Text) End Ifit era prácticamente el mismo para la mayoría de El botón eliminar es simplemente: Eliminar el elemento seleccionado de la lista que es: ListBox1. Items. RemoveAt (ListBox1. SelectedIndex) el botón borrar simplemente borra toda la lista y luego agrega las dos primeras líneas nuevamente: ListBox1. Items. Clear () ListBox1. Items. Add (":: Hecho con iRule Batch Maker") ListBox1. Items. Add ("@ echo off") y el código de movimiento hacia arriba y hacia abajo simplemente mueve el elemento seleccionado hacia arriba o hacia abajo: (código para mucho para aguantar)

Paso 4: Cómo funciona: Parte 3

Guardar / cargar

Guardar y cargar fue probablemente la parte más difícil. Este es solo el código de guardado: Dim sfdMain As New SaveFileDialog sfdMain. InitialDirectory = My. Computer. FileSystem. SpecialDirectories. MyDocuments Dim Result As DialogResult sfdMain. Filter = "Batch Files (*.) | *.bat | Archivos CMD (*. cmd) | *.cmd "sfdMain. FilterIndex = 1 sfdMain. ValidateNames = True Result = sfdMain. ShowDialog Si Result = Windows. Forms. DialogResult. OK Entonces Dim sw como nuevo sistema. IO. StreamWriter (sfdMain. FileName) For i As Integer = 0 To ListBox1. Items. Count - 1 sw. WriteLine (ListBox1. Items. Item (i)) Siguiente sw. Close () sw. Dispose () Else Exit Sub End Si entiende vb, sabrá lo que hace, pero si no lo hace: básicamente, todo lo que hace es mostrar el cuadro de diálogo de guardar y guarda todo el contenido de la lista en un archivo por lotes o archivo cmd