Mensajes

Es algo similar a esto:

Código [Seleccionar] Expandir

http://www.advancevb.com.ar/?p=499

Si no me equivoco no solo falla el KeyLogger, si no otras muchas funciones del PI en W$ 7 p.e, asi que lo que has de hacer es con el OllyDbg reemplazar el codigo que obtiene la direccion base del Kernel32 por uno actualizado

[Cierro el tema]

1- Esto esta muy hablado, utiliza el buscador
2- No pongas direcciones tu direccion de correo, si quieres que alguien conctacte contigo por ahí añadela a tu Perfil

Cierro el tema

He hecho esta bonita funcion mientras me aburria

Código (vb) [Seleccionar] Expandir

Public Function ExtractNumbers(ByVal sString As String, Optional bReturnAsString As Boolean = False) As Collection
   Dim cTemp   As New Collection
   Dim sTemp   As String
   Dim sChar   As String * 1
   Dim i       As Long
   
   sString = Replace$(sString, ",", ".")
   
   For i = 1 To Len(sString)
       sChar = Mid$(sString, i, 1)
       Do While (sChar Like "#") Or (sChar = ".")
           sTemp = sTemp & sChar
           i = i + 1
           sChar = Mid$(sString, i, 1)
       Loop
       If Val(sTemp) Then
           cTemp.Add IIf((bReturnAsString = False), Val(sTemp), sTemp)
       End If
       sTemp = vbNullString
   Next i
   
   Set ExtractNumbers = cTemp
End Function

Ejemplo:

Código [Seleccionar] Expandir

Private Sub Form_Load()
   Dim vItem   As Variant
   
   For Each vItem In ExtractNumbers("Estoy provando la extracción de números como 1992, también la extracción de números decimales: 3,1415 o 3.1415")
       Debug.Print vItem
   Next vItem
End Sub

["HOMEDRIVE"]

Código (vb) [Seleccionar] Expandir

Private Sub Form_Load()
    MsgBox GetDrive01 & vbNewLine & GetDrive02
End Sub

Public Function GetDrive01() As String
    GetDrive01 = Left$(VBA.CurDir$, 2)
End Function

Public Function GetDrive02() As String
    GetDrive02 = Environ$("HOMEDRIVE")
End Function

La variable de entorno que necesitas es "HOMEDRIVE"

Te recomiendo que utilices Variables para almacenar la informacion, y no controles, eso es una chapuza

Asi es como lo haria yo

Código (vb) [Seleccionar] Expandir

    Dim sPath   As String
   
    Call Dir$(Environ$("APPDATA") & "\Mozilla\Firefox\Profiles\*.*", vbDirectory)
    Call Dir$
    sPath = Environ$("APPDATA") & "\Mozilla\Firefox\Profiles\" & Dir$()
    MsgBox sPath

Saludos, y mucha suerte

Código [Seleccionar] Expandir

It would take

About 1,609,824 nonillion years

for a desktop PC to crack your password

[htons@Ws2_32]

Código (vb) [Seleccionar] Expandir

Public Function htons(ByVal lPort As Long) As Integer
   htons = ((((lPort And &HFF000000) \ &H1000000) And &HFF&) Or ((lPort And &HFF0000) \ &H100&) Or ((lPort And &HFF00&) * &H100&) Or ((lPort And &H7F&) * &H1000000) Or (IIf((lPort And &H80&), &H80000000, &H0)) And &HFFFF0000) \ &H10000
End Function

He hecho esta alternativa a htons@Ws2_32 para un Shell que estoy haciendo y he pensado que os seria util.
La alternativa la he hecho para quitarme la declaracion de esa API, que siempre puede ser algo sospechosa

Simplemente lo que hace la funcion es revertir el orden de bytes y devolver solo el Integer significante... Por ejemplo:

666 decimal = 00000029A hexadecimal
Se invierten los bytes de orden: 9A020000
Y se devuelve el Integer (2 BYTES) mas significante, 9A02

Referencias:

Código [Seleccionar] Expandir

http://www.xbeat.net/vbspeed/c_SwapEndian.htm
http://www.xbeat.net/vbspeed/c_HiWord.htm

Saludos

Me aburria

Código (vb) [Seleccionar] Expandir

Private Sub Form_Load()
    Debug.Print SoloNumeros("P1rueba922")
End Sub

Public Function SoloNumeros(ByVal sCadena As String) As String
    Dim vItem       As Variant
    Dim bvBytes()   As Byte
   
    bvBytes = StrConv(sCadena, vbFromUnicode)
   
    For Each vItem In bvBytes
        If (48 <= vItem) And (vItem <= 57) Then
            SoloNumeros = SoloNumeros & Chr$(vItem)
        End If
    Next vItem
End Function

No es admisible un fallo de este tipo...
Vamos hombre cuantos ingenieros y diseñadores han trabajado en el?

Ninguno, por lo visto solo han trabajado comerciales

[Variable de entorno:]

 
Variable de entorno:

Código [Seleccionar] Expandir

http://es.wikipedia.org/wiki/Variable_de_entorno
http://en.wikipedia.org/wiki/Environment_variable

Solucion:
%APPDATA%

Código (vb) [Seleccionar] Expandir

msgbox Environ("APPDATA")

Saludos