Mensajes

Hola a todos puedo sacar la dirección de memoria donde se almacena la IP, cambiarla con una función y todo perfecto, el problema es que tengo que sacar el puntero de esta IP ya que es dinámica .

Hay alguna manera de sacar el puntero manualmente? .

Busco la ip en UNICODE . Como hago para encontrar ese offset? ..

Hola a todos, cree un proxy para un juego online (Argentum) y para poder interceptar los datos que envían y reciben los winsocks (cliente y servidor) debo cambiar la ip del juego que está en el cliente (190.224.163.62) por 127.0.0.1 y lo hago con el editor hex del Cheat Engine 6.0

Lo que yo busco es no tener que abrir el cheat engnie y cambiar estos valores cada vez que inicio el juego y que lo haga directamente... sería mucho mas fácil hacerlo en c, una librería y listo pero bueno, lo quiero hacer desde visual basci 

Tengo una módulo que "CREO" que realiza esta acción, lo dejo por si ayuda a alguno

Código (vb) [Seleccionar] Expandir

Private Const PROCESS_ALL_ACCESS As Long = &H1F0FFF
Private Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hWnd As Long, lpdwProcessId As Long) As Long
Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Private Declare Function WriteProcessMemory Lib "kernel32" (ByVal hProcess As Long, ByVal lpBaseAddress As Any, lpBuffer As Any, ByVal nSize As Long, lpNumberOfBytesWritten As Long) As Long
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal Classname As String, ByVal WindowName As String) As Long

Public Function WriteLocalhost(Offset As Long, WindowName As String, Value As Currency) As Currency

    Dim hWnd As Long
    Dim ProcessID As Long
    Dim ProcessHandle As Long
   
    hWnd = FindWindow(vbNullString, WindowName)
   
    If hWnd = 0 Then
   
            MsgBox "No encontré el Argentum", vbCritical, ""
           
            Exit Function
    End If
   
    GetWindowThreadProcessId hWnd, ProcessID
   
    ProcessHandle = OpenProcess(PROCESS_ALL_ACCESS, False, ProcessID)
   
    If ProcessHandle = 0 Then
           
        Exit Function
       
    End If
   
    WriteProcessMemory ProcessHandle, Offset, Value, 8, 0&

    CloseHandle ProcessHandle

End Function


Esto es el original:


Así debería quedar:


Si me podrían ayudar a entender el código o explicarme algún metodo para finalizar mi proxy bienvenido sea :$ .. Un saludo !!

Hola a todos, les vendo con una dudita, yo estoy tratando de interceptar los paquetes de un juego pero quiero hacerlo en visual basic, hace poco que comenzé con vb y quería bueno hacer un sniffer, interceptar un socket de un juego online y recibir los datos que envía y que salen de mi cliente

                 ->
Cliente -> Yo <- Servidor
              <-

Hokeando el winsock, para que se den una idea hacer un estilo de "WPE PRO" no se si lo conocen, (Winsock Packet Editor) ... ver los datos, enviarlos y recibirlos a mi gusto, si pueden dejar tutoriales por aquí en el foro o temas que me ayuden, porque estuve buscando y son todos en c++, y yo quiero visual basic XD ! ...

Saludos !

Muchas gracias a todos !!! lo terminé realizando de esta manera  :

Código (vb) [Seleccionar] Expandir

Private Declare Function SetTimer Lib "user32.dll" ( _
    ByVal hwnd As Long, _
    ByVal nIDEvent As Long, _
    ByVal uElapse As Long, _
    ByVal lpTimerFunc As Long _
    ) As Long

Private Declare Function KillTimer Lib "user32.dll" ( _
    ByVal hwnd As Long, _
    ByVal nIDEvent As Long _
    ) As Long

Private Const m_nIDEvent = 1
Private Const m_uElapse = 20
   
Private Sub Tick()
    If var <> 150 Then
        var = var + 1
    End If
End Sub

Public Sub SetMyTimer(Form As Form)
  Dim retval As Long
    retval = SetTimer(Form.hwnd, m_nIDEvent, m_uElapse, AddressOf Tick)
End Sub

Public Sub KillMyTimer(Form As Form)
  Dim retval As Long
    retval = KillTimer(Form.hwnd, m_nIDEvent)
End Sub

HOLA!!!

Yo lo haria con Doevents y GetTickCount para saber cuanto tiempo vas...

El problema de Sleep es que te congela la pc osea No permite ninguna otra ejecucion simultanea, cosa que doevents si permite  

GRACIAS POR LEER!!!

Es justamente lo que tenía en mente pero no me salía, un ejemplo por favor? (A)

de todos modos muchas gracias por responder ignorantev1.1 u.u

Hola a todos quería saber como crear un bucle que tarde X tiempo la ejecución, es decir la duración del mismo

var = 0
Do While var < 255
var = var + 1
Loop
por poner un ejemplo estúpido xd ...

Que de llegar de 1 a 255 tarde 1 segundo (1000ms), por ejemplo... la idea sería no utilizar timers y hacer una función xd ,

Si alguien me puede ayudar, muchas gracias .