Preguntas sencillas sobre la programación en VB

Configure Comando1 y Texto1 (que indican la ruta de lanzamiento) y luego agregue el código:

Const Lp = 20480

Subcomando privado 1_Click()

Atenuar temperatura como bytes, ExeN es una cadena, Ep es un entero largo

ExeN = App. Caminos y caminos. " \ " & ampApp. EXEName & amp".exe "

Ep = FileLen(ExeN)

Abrir archivo binario ExeN como #1

Abrir Texto1. como texto binario de #1

Para i = Lp a Ep

Obtener #1,I,temporal

Cambiar #2,i - Lp + 1, Temperatura

Siguiente I

Cerrar #1, #2

Cuadro de mensajes "¡Listo!"

Conexiones finales

donde Lp es el tamaño del programa compilado (número de bytes), generalmente alrededor de 2 m.

Luego compila el programa (como C:\Project1.exe), luego abre cmd.exe y ejecuta:

copiar/b C:\ proyecto 1. exe+C: \ test 1. txt C:\sfx.exe

Donde test1.exe es un archivo ejecutable (como otro programa), luego ejecute C:\SFX.exe e ingrese E:\release en Texto1. exe y luego haga clic en Comando1 para liberar test1.exe (ya en su propio programa).

Si hay algo que no queda claro, contáctanos nuevamente (contacta hola)