Visual Basic - actualizar proyecto de visual y/o .EXE

Life is soft - evento anual de software empresarial
 
Vista:
sin imagen de perfil
Val: 17
Ha disminuido su posición en 4 puestos en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

actualizar proyecto de visual y/o .EXE

Publicado por RICARDO (9 intervenciones) el 13/10/2018 03:40:27
Hola a todos

tengo un problema con un archivo .EXE lamentablemente no tengo el código fuente original del archivo, el problema es el siguiente:

en el proyecto de visual encontré lo siguiente:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Option Explicit
Public Sub MakeDir(DirPath As String)
On Error GoTo error
MkDir DirPath$
Exit Sub
error:  MsgBox Err.Description, vbExclamation, "Error"
End Sub
 
Private Sub Form_Load()
FActual = Format(Now, "dd_mm_yyyy_HH_MM")
Dim o As String, p As String, q As String, neo As String
o = "20": q = "18": p = "09"
neo = o & "/" & p & "/" & q
Dim A As Long, b As Long, c As Long
A = Format(Date, "#####"): b = (Format(o & "/" & p & "/" & q, "#####") + 900): c = Format(neo, "#####")
If A > b Then End
If A > c Then If A < (c + 3) Then End


la verdad no logro entender al 100 la logica de la macro, entiendo que el comando es para ingresar a mi .EXE y el numero 900 son los dias para actualizar el .EXE ya que si ejecuto el programa y cambio la fecha de mi ordenador cuando funcionaba el .EXE el programa funciona pero si actualizo de nuevo a la fecha actual no funciona.

como lo comente antes no cuento con el codigo original y completo del .EXE solo algunas partes ejemplo formularios algunos codigos pero al compilar el proyecto tengo varios errores y algunos formularios no funcionan.


alguien me podra ayudar si es necesario algun archivo para actualizar los dias del .EXE original ya que por lo que he investigado no se puede descompilar un .EXE ya he tratado con varios programas y ninguno me ha funcionado para descompilar.

espero poder contar con su ayuda

muchas gracias
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Andres Leonardo
Val: 3.117
Oro
Ha mantenido su posición en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

actualizar proyecto de visual y/o .EXE

Publicado por Andres Leonardo (1798 intervenciones) el 15/10/2018 15:58:52
Pues si hay un programa donde puedes cambiar el exe quizas en lenguaje ensamblador y cambiar el valor de 900 al que desees y que entre dentro del valor otra cosa que podrias hacer es cambiar el now...

saludos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar

actualizar proyecto de visual y/o .EXE

Publicado por omar (4 intervenciones) el 15/10/2018 16:16:05
Saludos
Si tienes parte del código. puedes codificar lo que falta viendo la lógica y lo que hace
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
sin imagen de perfil
Val: 250
Ha mantenido su posición en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

actualizar proyecto de visual y/o .EXE

Publicado por Cesar (123 intervenciones) el 16/10/2018 19:11:35
Hola.

Puedes emplear la herramienta RunAsDate.

https://www.nirsoft.net/utils/run_as_date.html

Esta herramienta te permite ejecutar tu programa, simulando una fecha anterior (sin cambiar la fecha del sistema operativo).

Por otro lado, si es posible decompilar programas de VB 6.0.

Si deseas, puedo intentar apoyarte. Solo enviame el EXE.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar
sin imagen de perfil
Val: 17
Ha disminuido su posición en 4 puestos en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

actualizar proyecto de visual y/o .EXE

Publicado por RICARDO (9 intervenciones) el 16/10/2018 19:31:56
Hola Cesar

Muchas gracias por la info, te envió el .EXE


De antemano muchas gracias por el apoyo
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar