javier_007

Private Sub Command1_Click() Dim o, f As Integer On Error Resume Next ERRO1.Caption = "" ERRO1.Visible = False ERRO1.ForeColor = vbRed For f = 0 To 26 For o = f + 1 To 27 If Data(o).Text = Data(f).Text Then Data(o).Text = "" Data(o).SetFocus...

Uf encriptaciones hay infinitas, como a ti se te ocurra puedes encriptar un texto e incluso ese señor pudo haber encriptado algo ya encriptado. Ahora si el programa se encuentra abierto (posees el códifo fuente) entonces puedes hacer el método...

Prueba con esto: - Click derecho en la barra de herramientas superior - Click "customize" - Click "standard" y presiona en reset. Y listo a ver si con esto te resulta...

lo que puedes hacer es insertar un filelistbox, en sus prpiedades le das en "PATTERN=*.exe" despues en el form load o en un boton puedes colocar lo sgte: File1. Path="C:\" <--- esto es la direccion que quieres que te muestre los archivos .exe Y bueno...

Crea un botón: Private Sub Command1_Click() 'esto lo copias y pegas según los PC a actualizar FileCopy App.Path & "\" & "NombreDeArchivo.exe", "\\192.168.1.1\DireccionDeLosPCEnRed)\CarpetaCompartida\NombreDeArchivo.exe" '--- End Sub A todo esto las...