Hola, quería saber si se podía leer una variable de la memoria a partir del Adress.

Por ejemplo, en una aplicación llamada 'Pepito' hay una variable llamada 'Posición'. Bien, supongamos que el Address de 'Posición' es '674110', entonces... ¿Hay forma de obtener el valor de la variable 'Posición' partiendo desde el Address?

Desde ya Muchas Gracias.

Hola, resulta que quiero enviar un sms al 27777 pero me descuenta como $7 de mi celular (Argentinos). Investigué y hay páginas web para enviar mensajes de texto gratuitamente, pero ninguna de las que probé funcionó para enviar al 27777. ¿Conocen alguna manera para enviar sms a números cortos gratuitamente?

Desde ya, Muchas Gracias

- Sebah97

Bien... el problema es el siguiente, Determinado programa, usa GetKeyState (Lo comprobe bajandome el codigo fuente)... ¿Hay alguna manera de interrumpir el GetKeyState SOLO para Una aplicación que yo le pase como parámetro ? (Como Títutlo, hwnd, eso no importa)

Gracias de Antemano

Hola,

Hice este Tema para preguntar si es posible lo siguiente...

Una función, un sub o lo que sea que busque un píxel ... ¿Cómo?

A la función , o sub o lo que sea XD, le paso un determinado color y si existe, me devuelve las coordenadas de ese píxel (X,Y).

En el caso que sea posible... ¿Me darían una pista de cómo hacerlo?

Espero que me puedan ayudar.

Gracias

Hola, mi pregunta es ¿Cómo Puedo descifrar MD5string? Yo ya tengo la Función para cifrar, pero quisiera saber como descifrar una cadena ya cifrada, ¿Alguna Ayuda?

Acá les dejo la función para cifrar.

Private Declare Sub MDFile Lib "aamd532.dll" (ByVal f As String, ByVal R As String)
Private Declare Sub MDStringFix Lib "aamd532.dll" (ByVal f As String, ByVal T As Long, ByVal R As String)
 
Private Function MD5String(P As String) As String
 
    Dim R As String * 32, T As Long
    R = Space(32)
    T = Len(P)
    MDStringFix P, T, R
    MD5String = R
 
End Function
 
 

Gracias de Antemano.

Hola Gente, me encontraba haciendo una aplicación que obtiene el link del juego de Minijuegos.

Con La referencia Microsoft HTML Object library, logré conseguir otros datos, como el link de la imagen por ejemplo.

Pero no puedo obtener el Link del Juego (El Swf)

Les dejo el código de la página aver si me pueden ayudar.

<script type="text/javascript"> 
		   var cms_id ='10877';
		   var cms_titulo ='Cricket Invasion';
		   var swf_url_juego ='http://www.minijuegosgratis.com/flash1234/no_hotlink/cricketinvasion.swf';
		   var swf_url_ancho =640;
		   var swf_url_alto =480;
		   var have_prev_ad = false;
		   var final_bkg_body ='';
		   var final_bkg_color ='';
		</script> 

Como verán lo que quiero obtener es 'swf_url_juego' pero la verdad que nose como y tampoco se nada de html ni javascript, asi que nose que significa 'Var'.

Ojalá me puedan ayudar o darme otra forma de hacerlo, porque no puedo hacerlo andar con la Referencia!!!

Gracias de Antemano.

hola bueno, queria preguntarles como hacer para obtener el text de un richtextbox.



como pueden ver en la imagen, en la consola (RichTextBox) de arriba una linea en blanco dice ' Debes tipear el comando /CENTINELA tdsf ' 

bien si no lo escribo, el servidor automaticamente me baneara.

mi duda es como obtener la ultima linea del richtextbox, asi yo, cada X tiempo compruebo cual fue la ultima linea y si es Debes tipear el comando /CENTINELA xxx, con un sendkeys lo puedo hacer, bueno gracias de antemano

Bueno antes que nada pongo "MI" jueguito porque en realidad yo solo toke una parte xd.

bueno, vamos al grano:

miren, ya no recuerdo de donde, baje el codigo de un laberinto, y como me gusto mucho la idea,lo modifique:

Miren el original:

Option Explicit
 
' The maze information.
Private NumRows As Integer
Private NumCols As Integer
Private LegalMove() As Boolean
 
' The size of a square.
Private Const SQUARE_WID = 20
Private Const SQUARE_HGT = 20
 
' The player's position.
Private PlayerR As Integer
Private PlayerC As Integer
 
' The end position.
Private RFinish As Integer
Private CFinish As Integer
 
Private StartTime As Single
 
' Look for movement keys.
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Dim r As Integer
Dim c As Integer
 
    r = PlayerR
    c = PlayerC
    Select Case KeyCode
        Case vbKeyLeft
            c = PlayerC - 1
        Case vbKeyRight
            c = PlayerC + 1
        Case vbKeyDown
            r = PlayerR + 1
        Case vbKeyUp
            r = PlayerR - 1
        Case Else
            Exit Sub
    End Select
 
    If LegalMove(r, c) Then PositionPlayer r, c
End Sub
 
' Initialize the maze and player.
Private Sub Form_Load()
    ScaleMode = vbPixels
    AutoRedraw = True
    picPlayer.Visible = False
 
    ' Initialize the maze.
    LoadMaze
End Sub
 
' Draw the maze.
Private Sub DrawMaze()
Dim r As Integer
Dim c As Integer
Dim clr As Long
 
    ' Start from scratch.
    Cls
 
    For r = 1 To NumRows
        For c = 1 To NumCols
            If LegalMove(r, c) Then
                If r = RFinish And c = CFinish Then
                    clr = vbYellow
                Else
                    clr = vbWhite
                End If
            Else
                clr = RGB(128, 128, 128)
            End If
            Line (c * SQUARE_WID, r * SQUARE_HGT)-Step(-SQUARE_WID, -SQUARE_HGT), clr, BF
        Next c
    Next r
End Sub
 
 
' Initialize the maze.
Private Sub LoadMaze()
Dim fnum As Integer
Dim r As Integer
Dim c As Integer
Dim ch As String
Dim row_info As String
 
    ' Open the maze file.
    fnum = FreeFile
    Open App.Path & "\maze.dat" For Input As #fnum
 
    ' Read the number of rows and columns.
    Input #fnum, NumRows, NumCols
    ReDim LegalMove(1 To NumRows, 1 To NumCols)
 
    ' Read the data.
    For r = 1 To NumRows
        Line Input #fnum, row_info
        For c = 1 To NumCols
            ch = Mid$(row_info, c, 1)
            LegalMove(r, c) = (ch <> "#")
            If LCase$(ch) = "s" Then
                ' It's the start.
                PlayerR = r
                PlayerC = c
            ElseIf LCase$(ch) = "f" Then
                ' It's the finish.
                RFinish = r
                CFinish = c
            End If
        Next c
    Next r
 
    ' Close the file.
    Close #fnum
 
    ' Size the form.
    Width = ScaleX(SQUARE_WID * NumCols, ScaleMode, vbTwips) + _
        Width - ScaleX(ScaleWidth, ScaleMode, vbTwips)
    Height = ScaleY(SQUARE_HGT * NumRows, ScaleMode, vbTwips) + _
        Height - ScaleY(ScaleHeight, ScaleMode, vbTwips)
 
    ' Draw the maze.
    DrawMaze
 
    ' Position the player.
    PositionPlayer PlayerR, PlayerC
 
    ' Save the start time.
    StartTime = Timer
End Sub
 
' Draw the player.
Private Sub PositionPlayer(r As Integer, c As Integer)
Dim x As Single
Dim y As Single
 
    ' Erase the player's old position.
    If PlayerR > 0 Then
        x = (PlayerC - 1) * SQUARE_WID + (SQUARE_WID - picPlayer.Width) / 2
        y = (PlayerR - 1) * SQUARE_HGT + (SQUARE_HGT - picPlayer.Height) / 2
        Line (x - 1, y - 1)-Step(picPlayer.Width, picPlayer.Height), vbWhite, BF
    End If
 
    ' Move the player.
    PlayerR = r
    PlayerC = c
 
    ' Draw the player.
    x = (c - 1) * SQUARE_WID + (SQUARE_WID - picPlayer.Width) / 2
    y = (r - 1) * SQUARE_HGT + (SQUARE_HGT - picPlayer.Height) / 2
    PaintPicture picPlayer.Picture, x, y
 
    ' See if the player reached the finish.
    If r = RFinish And c = CFinish Then
        If MsgBox("You finished in " & _
            Int(Timer - StartTime) & " seconds." & _
            vbCrLf & "Play again?", vbYesNo, _
            "Congratulations") = vbYes _
        Then
            Form_Load
        Else
            Unload Me
        End If
    End If
End Sub
 
 

Version sebah97

Option Explicit
 
' The maze information.
Private NumRows As Integer
Private NumCols As Integer
Private LegalMove() As Boolean
 
' The size of a square.
Private Const SQUARE_WID = 20
Private Const SQUARE_HGT = 20
 
' The player's position.
Private PlayerR As Integer
Private PlayerC As Integer
 
' The end position.
Private RFinish As Integer
Private CFinish As Integer
 
Private StartTime As Single
Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
Dim r As Integer
Dim c As Integer
 
    r = PlayerR
    c = PlayerC
    Select Case KeyCode
        Case vbKeyLeft
            c = PlayerC - 1
        Case vbKeyRight
            c = PlayerC + 1
        Case vbKeyDown
            r = PlayerR + 1
        Case vbKeyUp
            r = PlayerR - 1
        Case Else
            Exit Sub
    End Select
 
    If LegalMove(r, c) Then PositionPlayer r, c
End Sub
 
' Initialize the maze and player.
Private Sub Form_Load()
    ScaleMode = vbPixels
    AutoRedraw = True
    picPlayer.Visible = False
 
    ' Initialize the maze.
    LoadMaze
End Sub
 
' Draw the maze.
Private Sub DrawMaze()
Dim r As Integer
Dim c As Integer
Dim Tile As String
 
    ' Start from scratch.
    Cls
 
    For r = 1 To NumRows
        For c = 1 To NumCols
            If LegalMove(r, c) Then
                If r = RFinish And c = CFinish Then
                    EsLlegada c * SQUARE_HGT, r * SQUARE_WID
                Else
                     EsCamino c * SQUARE_HGT, r * SQUARE_WID
                End If
            Else
                 EsPared c * SQUARE_HGT, r * SQUARE_WID
            End If
 
        Next c
    Next r
End Sub
 
 
' Initialize the maze.
Private Sub LoadMaze()
Dim fnum As Integer
Dim r As Integer
Dim c As Integer
Dim ch As String
Dim row_info As String
 
    ' Open the maze file.
    fnum = FreeFile
    Open App.Path & "\maze.dat" For Input As #fnum
 
    ' Read the number of rows and columns.
    Input #fnum, NumRows, NumCols
    ReDim LegalMove(1 To NumRows, 1 To NumCols)
 
    ' Read the data.
    For r = 1 To NumRows
        Line Input #fnum, row_info
        For c = 1 To NumCols
            ch = Mid$(row_info, c, 1)
            LegalMove(r, c) = (ch <> "#")
            If LCase$(ch) = "s" Then
                ' It's the start.
                PlayerR = r
                PlayerC = c
            ElseIf LCase$(ch) = "f" Then
                ' It's the finish.
                RFinish = r
                CFinish = c
            End If
        Next c
    Next r
 
    ' Close the file.
    Close #fnum
 
    ' Size the form.
    Width = ScaleX(SQUARE_WID * NumCols, ScaleMode, vbTwips) + _
        Width - ScaleX(ScaleWidth, ScaleMode, vbTwips)
    Height = ScaleY(SQUARE_HGT * NumRows, ScaleMode, vbTwips) + _
        Height - ScaleY(ScaleHeight, ScaleMode, vbTwips)
 
    ' Draw the maze.
    DrawMaze
 
    ' Position the player.
    PositionPlayer PlayerR, PlayerC
 
    ' Save the start time.
    StartTime = Timer
End Sub
 
' Draw the player.
Private Sub PositionPlayer(r As Integer, c As Integer)
Dim x As Single
Dim y As Single
 
    ' Erase the player's old position.
    If PlayerR > 0 Then
        x = (PlayerC - 1) * SQUARE_WID + (SQUARE_WID - picPlayer.Width) / 2
        y = (PlayerR - 1) * SQUARE_HGT + (SQUARE_HGT - picPlayer.Height) / 2
        Actualizar
    End If
 
    ' Move the player.
    PlayerR = r
    PlayerC = c
 
    ' Draw the player.
    x = (c - 1) * SQUARE_WID + (SQUARE_WID - picPlayer.Width) / 2
    y = (r - 1) * SQUARE_HGT + (SQUARE_HGT - picPlayer.Height) / 2
    PaintPicture picPlayer.Picture, x, y
 
    ' See if the player reached the finish.
    If r = RFinish And c = CFinish Then
        If MsgBox("You finished in " & _
            Int(Timer - StartTime) & " seconds." & _
            vbCrLf & "Play again?", vbYesNo, _
            "Congratulations") = vbYes _
        Then
            Form_Load
        Else
            Unload Me
        End If
    End If
End Sub
 
Sub EsCamino(x, y)
Me.PaintPicture Picture1, x, y, 20, 20
End Sub
Sub EsLlegada(x, y)
   Me.PaintPicture Picture3, x, y, 20, 20
End Sub
Sub EsPared(x, y)
   Me.PaintPicture Picture2, x, y, 20, 20
End Sub
 
Sub Actualizar()
Form1.Cls
DrawMaze
End Sub
 
 

Si se dan cuenta, cambié, que en vez de que el camino sea un cuadradito blanco, y la pared sea un cuadrado gris, cambie para que con PaintPicture, dibuje texturas, bien eso funciona a la perfección.

pero el problema está en que están "corridas" las texturas.Por ejemplo, en la fila 2 hay camino y en la fila 1 hay pared,pero al momento de jugar el personaje se ve caminando sobre la fila 1, pero enrealidad esta caminando en la fila 2....


ojala que me puedan entender y ayudar...

Saludos y Gracias de Antemano

Hola, bueno como dice el título.. Algien me podria ayudar??

Lo que quiero hacer es crear una mira para el Counter Strike (Seguramente lo Conocen),y al dibujar el punto que no moleste en NADA, osea como si fuera una manchita en el monitor (a lo que me refiero es que puedas cliquear x la zona donde está el punto).

Espero que me puedan ayudar.... Gracias de antemano

sebah97

Como dice el título, eh buscado, pero solamente dice para mostrar en el MSN lo que estoy haciendo yo, osea un ej:

Si Tengo el form1 habierto que en el msn diga "FOrmulario 1 Abierto" o algo asi xD.

Pero lo que quiero yo es en MI formulario mostrar lo que se está escuchando, x ejemplo con el Ares, winamp, etc