Mensajes

mi codigo tiene mas  fallas que la ... , ya quede ultimo  T_T   ,felicitaciones a quienes ya lograron hacer un codigo eficiente y sin fallas, el lunes veremos quien sale ganador de este reto.
saludos.

Código (vb) [Seleccionar] Expandir

Option Explicit


Private Sub Command1_Click()
   Dim Dato As String
   Dato = Text1.Text
   MsgBox IsNumeric_Alx(Dato)
End Sub

Public Function IsNumeric_Alx(byval Dato As Variant) As Boolean
   Dim Temporal As String, X As Long
   Temporal = Dato
   For X = 0 To 9
       Temporal = Replace(Temporal, X, "")
   Next X
   If Len(Temporal) = 0 Then IsNumeric_Alx = True
End Function


podrias hacer que se descargue otro archivo que contendria la version.

claro, en los temas que encontre eso del hooking era para interceptar llamadas a api , pero ese no es mi objetivo, sino solo cambiar el resultado del hilo de ejecucion para que se salte esa comparacion que puse, ya encontre como detener el hilo y hacerlo continuar, ahora lo que me falta es encontrar una api que me de la direccion donde se estaba ejecutando el hilo para sobreescribirlo y otra api para hacer que el hilo continue en otra parte.

usa delphi sera mas sencillo.

dudo que funcione eso de enviar pulsaciones a un juego, quise hacer algo igual a un juego , intente varias cosas pero no da resultado, pero prueba el codigo de Hasseds kizas funcione (aunque dudo), lo que se me ocurre es que hagas una DLL en otro lenguaje y lo inyectes al juego.

prueba agregandole a los archivos un numero de version , el programa deberia verificar la version de los archivos que tiene entu pc con la que hay disponible para descargar, si son la misma no hace nada, pero si la version a descargar es superior pues descarga esa nueva version.

cuelga el codigo fuente para ver el error y te puedan ayudar.

aki en el foro tambien karcrack hizo algo parecido a lo de blackzero, el titulo del post era "llamar apis sin declararlos", tambien puede servirte.

quizas porque a la funcion SetWindowTextA se le esta pasando 4 parametros (Me.hWnd, "Hello !", ByVal 0&, ByVal 0&)  en lugar de 2 (HWND + titulo), cambie el codigo, en vez de llamar a SetWindowTextA llama a MessageBoxA y funciona (este si tiene 4 parametros):

Código (vb) [Seleccionar] Expandir

Private Declare Function FreeLibrary Lib "kernel32" (ByVal hLibModule As Long) As Long
Private Declare Function LoadLibrary Lib "kernel32" Alias "LoadLibraryA" (ByVal lpLibFileName As String) As Long
Private Declare Function GetProcAddress Lib "kernel32" (ByVal hModule As Long, ByVal lpProcName As String) As Long
Private Declare Function CallWindowProc Lib "user32" Alias "CallWindowProcA" (ByVal lpPrevWndFunc As Long, ByVal hWnd As Long, ByVal Msg As Any, ByVal wParam As Any, ByVal lParam As Any) As Long
Private Sub Form_Load()
   On Error Resume Next
   Dim Icono As Long
   Icono = 48
   'KPD-Team 1999
   'URL: http://www.allapi.net/
   'E-Mail: KPDTeam@Allapi.net
   'We're going to call an API-function, without declaring it!
   Dim lb As Long, pa As Long
   'map 'user32' into the address space of the calling process.
   lb = LoadLibrary("user32")
   'retrieve the address of 'SetWindowTextA'
   pa = GetProcAddress(lb, "MessageBoxA")
   'Call the SetWindowTextA-function
   CallWindowProc pa, Me.hWnd, "Hello !", "titulo", Icono
   'unmap the library's address
   FreeLibrary lb
End Sub