Mensajes

[MSGBOX " HASTA AK LEE "]

Muchas GrAcias!!

no lo pude hacer Andar y entiendo Nada de ese codigo xD

Me Tira Error Despues de esta Liena

... va no tira erro en esa linea... perro hast ahi Es donde Sale El MsgBox... si lo pongo mas abajo Salta El error Run time...

Código [Seleccionar] Expandir

Public Sub GetFormLabels(hwnd As Long)
   Dim sClass As String
   Dim lRet As Long
   Dim pid As Long
   Dim lFormCaptionHeapAddress As Long

   Dim lpMem As Long
   Dim lLenMBI As Long
   Dim lBytesRead As Long
   Dim mbi As MEMORY_BASIC_INFORMATION

   'Make sure we are working with a VB Form hWnd
   sClass = Space(256)
   lRet = GetClassName(hwnd, sClass, 255)
   sClass = Left(sClass, lRet)
   If Not sClass = "ThunderRT6FormDC" Then
       MsgBox "Solo funciona compilado a .exe", vbInformation
       Exit Sub
   End If

   'Now get the internal heap address of the form caption.  All that we need can be found in this heap (hopefully!)
   'This is done with a little undocumented SendMessage magic
   lFormCaptionHeapAddress = SendMessage(hwnd, VBM_WINDOWTITLEADDR, ByVal 0&, ByVal 0&)

   'Get a handle on the process with required access
   lRet = GetWindowThreadProcessId(hwnd, pid)
   If pid = 0 Then
       MsgBox "No se pudo obtener el PID", vbExclamation
       Exit Sub
   End If
   hProcess = OpenProcess(PROCESS_READ_WRITE_QUERY, False, pid)

   'Get the Heap at the caption point
   lLenMBI = Len(mbi)
   lpMem = lFormCaptionHeapAddress
   mbi.AllocationBase = lpMem
   mbi.BaseAddress = lpMem
   lRet = VirtualQueryEx(hProcess, ByVal lpMem, mbi, lLenMBI)
   If lRet <> lLenMBI Then GoTo Finished

   'Now go back and get the entire heap
   lBaseAddress = mbi.AllocationBase
   lpMem = lBaseAddress
   mbi.BaseAddress = lBaseAddress
   mbi.RegionSize = 0
   lRet = VirtualQueryEx(hProcess, ByVal lpMem, mbi, lLenMBI)
   If lRet <> lLenMBI Then GoTo Finished

   'A couple of sanity checks, just to be safe
   If Not ((mbi.lType = MEM_PRIVATE) And (mbi.State = MEM_COMMIT) And mbi.RegionSize > 0) Then
       MsgBox "Unexpected Heap Type, State, or Size."
       GoTo Finished
   End If

    'Allocate a buffer and read it in
   ReDim abBuffer(mbi.AllocationBase To mbi.AllocationBase + mbi.RegionSize - 1)
   ReadProcessMemory hProcess, ByVal mbi.BaseAddress, abBuffer(LBound(abBuffer)), mbi.RegionSize, lBytesRead

   'So far, so good.  Things get messy from here.  We have to
   'do some manual parsing of the buffer to get what we are after.  To
   'make things easier, I'll will get every label on every form in the
   'exe.  Otherwise, you will need to first find the form that is
   'reference the caption.  Then find every label between it and the next
   'form.
 
MSGBOX " HASTA AK LEE "
 

Código [Seleccionar] Expandir

 Dim iCnt As Integer
   Dim al() As Long
 
   'Print all of the label captions
   If EnumVBObjectPtrs("VB.Label", 44, al) > 0 Then
       For iCnt = LBound(al) To UBound(al)
            MsgBox "Hit at: " & al(iCnt) + 44 & vbNewLine & "Object At: " & al(iCnt) & vbNewLine & "Texto Del Label: " & GetLabelCaption(al(iCnt)) & vbNewLine & "Nombre del Label: " & GetLabelName(al(iCnt)), vbInformation
       Next iCnt
   End If

Finished:
   CloseHandle hProcess
   abBuffer() = ""
End Sub


y desp tira un error...
run-time error 9 : subscript out of eange

Buenas Gente!!
   Tengo una Duda.. es Posible Capturar el Label.caption de una aplicacion creada en vb6 ...??

yo uso la api FindWindowEx para Enviar Pulsaciones a button y otra coass...
pero no se como acceder con lo labels..

Muchas Gracias!!

Si, Ya Me los estoy Imprimiendo

Cualquier cosa Las Consultas Las Agrego a este post??, o creo otro destinado a eso??

Vahh, Sigo Teniendo Problemas... miren esto.
Despues el programa abre pero antes de saltar el cartel sigue tirando Access Violation

Hola Gente, Estoy tratando de aprender con Ollydbg y cuando quiero correr la aplicacion con f9 me tira un error dice "paused". Pero en otro ordenador, con los mismo files... lo ejecuta de 10.

Ak dejo foto:


tienen idea de que puede ser?

Desde ya, Muchas Gracias.

uhh mankie feo ak borren este post XD mil sorrys

Jo jo o... muchisimas gracias XD pero es 1 codigo re complicado para mi  = te agradezco....

vos me podrias sakar de que registro lo saca?

Hola. ya hay módulos para sacar y descifrar los passwords que se almacenan en el registro tanto para el msn como para firefox. Por cierto Cobein, desarrollo una para firefox y esta a unos cuantos post más abajo. Buscala está muy buena. Saludos 

x lo del msn lei unos cuantos q estaba en Hkey_Current_User/Software/Microsoft/MessengerService/PasswordMSN Messenger Service   pero la verdad q no lo encontre.
voy a buscar lo q me dijiste y comento
muchas gracias



{EDIT}
Copadisimo ya encontre Lo de firefox

Código [Seleccionar] Expandir

"C:\Documents and Settings\Administrador\Datos de programa\Mozilla\Firefox\Profiles\4w5vyzbe.default"

Grax Cobein por el programa, y a vos ssccaann43!!

y la verdad que lo del msn no lo encontre... me das 1 mano.. plz

Olas Gente... miren quiero hacer 1 programilla con el cual al activar 1 boton me carge las contraseñas y users q tengo guardadas (de un backup * ) .... pero cuando toko otro boton se borran

como pensaba hacer eso...

abrir todas las webs logearlas y q keden en cookies.Luego copiar estos en una carpeta "x".
despues al tokar ese Boton me copia este backup en donde deberian estar los cooks q carga firefox...  (PERO NO SE DONDE SE GUARDAN)

y lo mismo keria hacer con el msn... pero ya me pasee x todo el registro y no encuentro XD lo que queria hacer con este era... cuando toko el boton "1" q escriba el registro adecuado para que aparezca mi mail con pass... y con el "2" boton q borro ese registro... o si es x archivo es mas facil.

y ya estuve viendo un par de programas como el "messenpass" q  encuentran todo  y no entiendo como.

plzz HELP ME!

desde ya, Muchas Gracias

Copado Muchas Gracias
Desp Les Comento