Mensajes

aca tenes mas facil:

lo que hace eso es comprobar si en una variable ya esta el index de la carta.. esto es parte de un juego de truco que una vez habia empezado a hacer.. por eso son 6 repeticiones y 40 cartas..

Código (vb) [Seleccionar] Expandir


Dim iPete As Integer
Dim sPT As String
Dim sResult As String
Dim irnd As Integer
For iPete = 0 To 5
   
recheck:    irnd = Rnd * 39
    If InStr(sPT, irnd) = 0 Then
        sPT = sPT & "," & irnd
        List1.AddItem irnd
    Else
        GoTo recheck
    End If
Next iPete



se va casi a 100 el micro cuando le paso el mouse sobre (compilado igual)

tambien se pueden sacar otros nombres de procedimientos no? por lo que vi haces un for y si el procedimiento q buscas es igual al item del array entonces es ese..
no?

saludos

¿Y los keyloggers como lo hacen? Ya que los keyloggers si que lo pillan todo ala perfección.

con hooks..

Estaba al pedo, como siempre y se me ocurrio esto..
No es muy util que digamos, pero siempre puede hacer falta.

En fin, la cosa es asi:
El programa lista los usuarios en un combo box, y muestra la imagen del usuario seleccionado en el mismo. Se usa el control Alpha image de LaVolpe para cargar mejor las imagenes PNG que se suelen usar para estos casos.

La funcion la arme yo, en si no es nada dificil, solo investigar un poco el registro.
Aca se puede bajar el proyecto: http://santiagohssl.googlepages.com/UserImage.rar

Espero que les sirva, saludos!

Falta un archivo, bolian aer war.frx (el que contiene los datos de los controles del formulario)...

saludos.

Esta bueno cobein, para boludear si podes, podes poner el codigo ASM que representa todo eso? para entender un poco mas como es la movida del ASM..

en fin, funciona lindo.. saludos!

le hice una pequeña modificacion para que haga 2 cosas:
1- usa las teclas W A S D como cualquier juego.
2- corre (o camina mas rapido) con shift

Modifiquen este Sub: CheckInput()

Código [Seleccionar] Expandir

Public Sub CheckInput()
Control.Mouse_RotateCamera Camera

    If Control.CheckKBKeyPressed(iR_Key_A) Then Camera.MoveSide Movement
    If Control.CheckKBKeyPressed(iR_Key_D) Then Camera.MoveSide -Movement
   
    If Control.CheckKBKeyPressed(iR_Key_W) Then
        If (GetKeyState(VK_SHIFT) And &HF0000000) Then
            Camera.MoveForward (Movement * 2.5)
        Else
            Camera.MoveForward Movement
        End If
    End If
       
    If Control.CheckKBKeyPressed(iR_Key_S) Then Camera.MoveForward -Movement
End Sub
Y agreguen estas declaraciones arriba:

Código [Seleccionar] Expandir

Private Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer
Private Const VK_SHIFT = &H10


saludos!

esta muy bueno.. los mapas y modelos son al estilo half life 1.. jeje

saludos

nose si genera un .exe corrupto.. estuve analizando y el .exe no tiene sentido.. parece estar cifrado, y esperando que algun tipo de stub lo desencripte y lo parsee.. "supongo".. en fin, no me fije bien que hace el programa a la hora de "compilar".

saludos