Menú

Mostrar Mensajes

Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.

Mostrar Mensajes Menú

Mensajes - abdiel2475

#21
Cita de: RON06 en 18 Enero 2011, 12:45 PM
En efecto el bug ya está corregido.
Ahora el e-mail alternativo está cifrado.
Ahora la pregunta sería como desencriptarlo??  :P

Saludos!!   ;D

Gracias :)

Cita de: Sagrini en 18 Enero 2011, 20:23 PM
Pues sencillamente es crearte una cuenta, poner de alternativo AAAAAAAAAAAAA@AAAAAAAAAA.AAA e ir probando no?

Es cierto :D hay que intentarlo
#22
Si es cierto :D que escojan a otro nuevo moderador! :D
#23
Al parecer ya lo corrigieron :/
o me equivoco? alguien qe me pueda corregir?
#24
muchas gracias por contestr :)
trate y trate y no pude hacer nada

amm me podrias dar un ejemplo :(
gracias

PD: tengo este codigo pero pss nose no me funciona ya lo modifiqe y todo
pero no me cambia el address solo lo suma :/ y no sale lo qe espero


Public Function ReadLongPointer(Address As Long, Offset As Long, WindowName As String) As Long

    Dim hwnd As Long
    Dim ProcessID As Long
    Dim ProcessHandle As Long
    Dim Valueofpointer As Long
    Dim valueX As String
    Dim Addy As String
    Dim Value As String
    hwnd = FindWindow("could not be fetched", vbNullString)


    If hwnd = 0 Then
        MsgBox "Could Not find process window!", vbCritical, "Read error"
        Exit Function
    End If

    GetWindowThreadProcessId hwnd, ProcessID
    ProcessHandle = OpenProcess(PROCESS_ALL_ACCESS, False, ProcessID)


    If ProcessHandle = 0 Then
        MsgBox "Could Not Get a process handle!", vbCritical, "Read error"
        Exit Function
    End If

    ReadProcessMem ProcessHandle, Address, Valueofpointer, 4, 0& 'Change the Four To two If you want For two bytes
    ' WriteLongPointer = Value
    valueX = Val(Valueofpointer) + Val(Offset)
    Decnum = valueX
    HexNum = ""

Dim valueX2 As String
Dim valueX3 As String

valueX2 = valueX + Val(140)
valueX3 = valueX2 + Val(60)

MsgBox valueX3

    While Decnum <> 0
    NextHexDigit = Decnum - (Int(Decnum / 16) * 16)


    If NextHexDigit < 10 Then
        HexNum = Chr(Asc(NextHexDigit)) & HexNum
    Else
        HexNum = Chr(Asc("A") + NextHexDigit - 10) & HexNum
    End If

    Decnum = Int(Decnum / 16)
Wend

If HexNum = "" Then HexNum = "0"
valueX = HexNum
Addy = "&H" + valueX3
Exit Function
ReadProcessMemory ProcessHandle, Addy, Value, 4, 0& 'Change the Four To two If you want For two bytes
ReadLongPointer = Value
CloseHandle ProcessHandle
End Function
#25
Hola amm tengo una duda como puedo leer un pointer con offset y todo eso D:

me gustaria leer una address de un juego pero el juego tiene multi lvl pointers
y pss me gustaria como leer un pointer en vb6
el pointer ya lo encontre solo nesesito saber como leer el value D:



Gracias :)
#26
Todo lo qe acaban de decir es cierto visual basic puede que ya no funcione muy bien
con los nuevos S.O ya que hay varios ocxs o dlls que no funcionan en win vista y menos en win 7 :/ pero se pueden buscar otras formas
yo antes utilizaba una oxcs para leer ini vbini.ocx jaja esqe no sabia todavia mucho de las apis y todo eso.. bueno y pues ami me gustaba mucho mi programa :)
y pues se lo pase a varios amigos y no les funcionaba por que wins vista ni 7
reconocian esa ocxs y su contenido y que nose qe :S y pss me awite mepuse a pensar
si esto de las dlls que ya no son compatibles con los nuevos S.O va a pasar
con la mayoria de dlls antiguos y todo eso pero pss :P para eso hay APIs :D y me salvaron la vida y aun sigo amando visualbasic  6 :D y si es cierto creo uno de los mayores lenguages de programacion :P ya por eso hay bastantes codigos de gente
ya en la actualidad si tienes algun problema un error qe tengas solamente la buscas en google y ya a mas de 100 jentes le paso lo mismo :)

Larga Vida A VB6!! :D
#27
No entendi mucho para que sirve tu codigo
pero si no es nesesario poner mas de 7 caracteres
por que no pones un numero maximo de letras que le quepan al texbox?
asi como que el maximo de caracteres sean 6
o amm afuersas tienen qe ser mas de 7? :s
esqe no se me ocurre otra y pss me gustaria ayudarte
#28
muchas gracias a todos :P
ya porfin me qedo y lo pude solucionar y pss se me iso mas facil
y pss nose eficiente el codigo de 79~ y muchas gracias black pero jaja no le entendi
casi a ese osea si pero pss nose pq me daba ese jale :S
:P

pero ahora ya qedo bn

en un timer pongo esto

If GetAsyncKeyState(vbKeyF1) Or GetAsyncKeyState(vbKeyF2) Or GetAsyncKeyState(vbKeyF3) Or GetAsyncKeyState(vbKeyF4) Or GetAsyncKeyState(vbKeyF5) Or GetAsyncKeyState(vbKeyF6) Or GetAsyncKeyState(vbKeyF7) Or GetAsyncKeyState(vbKeyF8) Or GetAsyncKeyState(vbKeyF9) Or GetAsyncKeyState(vbKeyF10) Or GetAsyncKeyState(vbKeyF11) Or GetAsyncKeyState(vbKeyF12) Then
subDelay 1 'segundo
Set f_cHook = New cHook                                     'Create the hook class
    Call f_cHook.Hook(Me, WH_KEYBOARD_LL, False)
subDelay NPDelay.Text
Set f_cHook = Nothing
End If

y pss ya jala conmadres :p solo una cosita
alguna forma qe cuando oprima digamos el F1 y pss la persona lo deja oprimido
qe el programa lo qite? osea qe digamos fisicamente va a estar oprimido
pero virtualmente no :p saben como??

aver si me entienden :p

uso el codigo este pss para qe no puedan oprimir algun hotkey mientras
ya aigan oprimido uno (y asi reducirian el exaustion en un juego mmorpg)
pero hay gente qe pss nose lo deja apranado y pss (el character se exaustea y ps no puede hacer magias) y asi pss me gustaria una api qe desoprima virtualmente la tecla qe tan oprmiendo o todas mas bien :p y asi :D

y muchas gracias por la ayuda enserio :D
crei qe pss nose nunca iva a hacer esto :p
#29
a muchas gracias 79137913 :p
aorita lo ando viendo

PD: el Setwindowshookex nose yo nesesito
un timer qe tiene interval de 100 y
detecte si oprime un hotkey mas o menos asi
es el codigoqe uso

If GetAsyncKeyState(vbKeyF1) Or GetAsyncKeyState(vbKeyF2) Or GetAsyncKeyState(vbKeyF3) Or GetAsyncKeyState(vbKeyF4) Or GetAsyncKeyState(vbKeyF5) Or GetAsyncKeyState(vbKeyF6) Or GetAsyncKeyState(vbKeyF7) Or GetAsyncKeyState(vbKeyF8) Or GetAsyncKeyState(vbKeyF9) Or GetAsyncKeyState(vbKeyF10) Or GetAsyncKeyState(vbKeyF11) Or GetAsyncKeyState(vbKeyF12) Then
subDelay 1 'segundo
Call IniciarHook(Me.hwnd)
subDelay NPDelay.Text
Call FinalizarHook(Me.hwnd)
End If


el subdelay es un tipo de espera asi como el "Sleep" y el NPDelay.text su valor es de 1 = 1 segundo
y pss nose pq se trava osea se mueven las cosas y luego se dejan oprimido el shift y nose pq en mi codigo no tiene nadaqever con shift :/ y pss :D
calare el de 79137913 :p


Edit: affs oye 79137913 as usado alguna vez ese? :/
acabo de pasar el cHook.cls a mi projecto y pss ya lo copio
todo igual y nose pq me sale un error affs :S
dice qe
No se ha definido el tipo definido por el usuario.
y me da error en:
Public Function Hook(ByVal Owner As WinSubHook2.iHook, ByVal HookType As WinSubHook2.eHookType, Optional ByVal bThread As Boolean = True) As Boolean

affs pero nose pq si lo copie todo igual al mio osea qe onda :S

Edit2: ya lo resolvi era pq nesesitaba la referencia de WinSubHook2.tlb
amm si se lo paso a un amigo mi programa ya compilado tbm nesesita tener el WinSubHook2.tlb?
#30
muchas gracias por las respuestas :)
y por cierto black el getparent me imagino qe es como el findwindow no? :o
bueno buscare el setwindowshookex :D gracias