Mensajes

[EDIT: Muchas gracias me funciono de 10.]

VB6 no hace DLLs "nativas", solo ActiveX.

Vas a tener que utilizar otro lenguaje para hacer una DLL de esas caracteristicas.

Saludos!

Si tenia entendido que lo mas indicado para esto era c++

Es posible
http://www.vb-helper.com/howto_make_standard_dll.html

Em, muchas gracias ahora probare y te cuento como me va.

EDIT: Muchas gracias me funciono de 10.

¿Como hacer una dll inyectable en vb6?, tengo inyector todo..
pero mi pregunta es como seria la dll para que cumpla alguna funcion en un exe inyectado.

HOLA!!!

Osea, queres editar el valor en memoria de la ip con la que se conecta un exe...

Si, es posible, pero automatizarlo es muy dificil, un humano puede encontrar la direccion de memoria en la que se encuentra un ip (puede estar cifrada lo que te dificultaria mas las cosas pero siempre se "podria llegar a encontrar")  pero una pc, es muy dificil que tenga la IA suficiente para disernir que es ip y que no...

Por ejemplo suponete que armas un programa que cambie todos los strings que quepan en este patron: "000.000.000.000" Si el programa en algun sitio dice " conectando a... " diria 127.0.0.1 lo cual te delataria, aparte de poder romper algoritmos internos del programa o comprobaciones de validez que realice para ver si es el ip correcto o no. Imagina que tiene 2 strings el primero  : "1.2.3.4" y el segundo "4.3.2.1" luego los comprueba con StrRev. tu codigo cambiaria ambos por 127.0.0.1 y la comprobacion no seria correcta.

El metodo mas prolijo siempre es Archivo de Hosts por que el programa siempre cree que se conecta con el IP que el quiere.

GRACIAS POR LEER!!!

Por host no me sirve porque es un proxy que lee paquetes..
osea la ip del juego es 193.49.123.4:1033
el proxy conecta a esa ip y el juego tendría que estar en 127.0.0.1:1033 para que conecte el proxy.

si lo hago por archivo de hosts me redirreciona el proxy a 127.0.0.1:1033 y no me sirve.

por eso.

si alguien podria explicarme como sacar el offset de una ip por cheat engine o lo que sea para editar la memoria de la ip.

HOLA!!!

Si, podes, Archivos de hosts.

GRACIAS POR LEER!!!

Estoy buscando algo que sea por codigo en visual basic, leyendo un proceso..
pense que se podria hacer por memoria..

Código (vb) [Seleccionar] Expandir

Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Long) As Long
Declare Function EnumWindows Lib "user32" (ByVal wndenmprc As Long, ByVal lParam As Long) As Long
Declare Function GetWindowText Lib "user32.dll" Alias "GetWindowTextA" (ByVal hWnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
Declare Function GetClassName Lib "user32.dll" Alias "GetClassNameA" (ByVal hWnd As Long, ByVal lpClassName As String, ByVal nMaxCount As Long) As Long
Private Const ProAcceall 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 ReadProcessMemory Lib "kernel32" (ByVal hProcess As Long, ByVal lpBaseox As Any, lpBuffer As Any, ByVal nSize As Long, lpNumberOfBytesWritten As Long) As Long
Private Declare Function WriteString Lib "kernel32" Alias "WriteProcessMemory" (ByVal hProcess As Long, ByVal lpBaseox As Any, ByVal lpBuffer As Any, ByVal nSize As Long, ByVal lpNumberOfBytesWritten As Long) As Long
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long

Dim NombreVentana As String, TexoRm As String, TexoOriginal As String, Direccion As Long 'variables para utilzar con la memoria
Public Sub Started(Nom As String, t As String, d As String, p As Long) 'funcion que inicia la secuenia
NombreVentana = Nom 'nombre de la ventana a buscar o parte de ella
TexoRm = t 'texto a introducir
TexoOriginal = d 'texto original
Direccion = p 'direccionn de memoria
   Call EnumWindows(AddressOf EnumCallback, 0) 'almacena  los nombres obtenidos de ventanas ejecucion
End Sub


Private Function EnumCallback(ByVal A_hwnd As Long, ByVal param As Long) As Long
              Dim Size_buffer As Long, buffer As String * 256
Dim str As String
Size_buffer = GetWindowText(A_hwnd, buffer, Len(buffer))

If InStr(1, Left$(buffer, Size_buffer), NombreVentana) > 0 Then


   str = ReadMem(A_hwnd, Direccion, LenB(TexoOriginal), TexoRm)


Exit Function
End If

   EnumCallback = 1
End Function


Private Function ReadMem(hWnd As Long, Ox As Long, Bytes As Long, Optional Rempla As String) As String

   On Error Resume Next
   Dim Id As Long, sHandle As Long, bytValue As Long, i As Long, Text As String


   GetWindowThreadProcessId hWnd, Id


   sHandle = OpenProcess(ProAcceall, False, Id)

   If (sHandle = 0) Then

        Exit Function
   End If
   If Ox = 0 Then Exit Function

   For i = 1 To Bytes Step 2

      ReadProcessMemory sHandle, Ox + i - 1, bytValue, 1, 0&

      ReadMem = ReadMem & Chr$(bytValue)
   Next

   If LenB(Rempla) <> 0 Then

       WriteString sHandle, Ox, StrPtr(Rempla), LenB(Rempla), 0&
   End If

   CloseHandle sHandle
End Function


usando esto pero no tengo la minima ideá de como sacar el offset de la ip con cheat engine, si alguien podria tirarme una mano..

buenas, queria saber como puedo redireccionar la ip de un proceso..
yo lo redirecciono con rpe filter ejemplo la ip 190.234.543.2:10300 la redirecciono a 127.0.0.0.1:10300 queria saber si se puede hacer por codigos en vb6.

cree un text en un form.. lo que no me detecta es el class en el text cuando le paso el mouse por arriva si alguien podria ayudarme porfavor.

Código (vb) [Seleccionar] Expandir

Private Type POINTAPI
   X As Long
   Y As Long
End Type

Private Declare Function GetClassName Lib "user32" Alias _
"GetClassNameA" ( _
ByVal hwnd As Long, _
ByVal lpClassName As String, _
ByVal nMaxCount As Long) As Long
 
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
 
Dim Mouse As POINTAPI

en un timer interval 100

Código (vb) [Seleccionar] Expandir

Private Sub Timer1_Timer()
 
    Dim sClass As String * 255
       Dim lhWnd As Long
            Dim lRetVal As Long
            Dim classdettect As String

   Call GetCursorPos(Mouse)

     lRetVal = GetClassName(lhWnd, sClass, 255)

   Me.Cls
   Text1.Text = sClass
   Me.Print "Posicion del cursor :"

   Me.Print "X:" + Str$(Mouse.X) + vbCrLf + "Y:" + Str$(Mouse.Y)
end sub

realmente ese codigo no se que es :s si dices que no hay nada y la palabra no es relacionada con el programa, te tocara hacer ing inversa para descompilar el programa y ver que hace....

--------

pega capturas y lo que sale, la gente no va a querer descargarlo... a demas, que un av diga que no tiene virus, no es gran cosa (mira el foro de malware)

listo, perdon no sabia no me dedico a eso, puse imagenes.

cierren

Alguien me ayuda a crear un cheat para cod2? con aimbot y esas cosas.