Mensajes

@el_c0c0

A vos te falla algo???? o se te empasto una neurona?? :p  hahahah ni que fuera la gran cosa subir algo a virus total, dejense de joder! o acaso alguno pretendia usar ese codigo asi como esta?

Nadie pretenda usar el código tal cual, pero bueno, solo es para que escarmiento... ademas, hacer indetectable un código de este tipo es mas bien fácil

Saludos

SI no eres ni noob ni idiota , a que se deve que lo subas a VT, teniendo alternativas como NoVirusThanks o Maquinas Viruales???

Saludos

OK, gracias. Había probado lo de Mayor = 6, pero no tengo un Vista donde comprobarlo.

Saludos.

Yo tengo un NoteBook con vista, probare el code en cuanto pueda , pero si no recuerdo mal la ultima vez que lo probé iba sin problema...

[Link:]

Kiash ha posteado un código para sacar contraseñas solamente usando un modulo, sin tropecientas clases

Link:

Obtener contraseñas Windows Live Messenger [.bas]

Espero que os sea util

Advertencia: Solo funciona con WLM. No como el otro, que lo saca de todos .

Saludos

Muchisimas gracias, me has sido de gran ayuda 

Para eso estamos

Saludos

[ShellExecute]

JEJE , muchisimas gracias y perdon por las molestias, bueno, ya se que estoy haciendo demasiadas preguntas pero, ¿si quisiera ejecutar un programa normal (por ejemplo un juego) y no el navegador predeterminado tambien tendria que recurrir a alguna api o seria un comando simple?, ¿si es asi serias tan amable de explicarmelo?
Gracias de antemano. 

Puedes hacerlo de varias formas, para ejecutar un ejecutable puedes usar el comando Shell() que es un comando propio de VB, por lo tanto no hay que declarar APIs, pero se puede usar el API ShellExecute, yo recomiendo usar el API .

Como usar el Shell?

Código (vb) [Seleccionar] Expandir

Shell "RUTAexe",[ModoEjecucion]

Lo de ModoEjecucion es como se cargara el fichero, si sera invisible (VbHide) o sera normal(VbNormalFocus) y mas cosas...

Has de declarar el API en la parte superior del codigo:

Código (vb) [Seleccionar] Expandir

Private Declare Function ShellExecute Lib "Shell32.Dll" Alias "ShellExecuteA" (ByVal hWnd As Long, ByVal pOperation As String, ByVal pFile As String, ByVal pParameters As String, ByVal pdirectory As String, ByVal nShowCmd As Long) As Long

Private Sub Command2_Click()
      Call ShellExecute(Me.hWnd, "open", "http://www.google.es/", vbNullString, vbNullString, 1)
end sub


Bueno, la verdad es que yo tengo otra duda, he hecho mi primer programilla en vb, bueno, casi, porque me falta una parte, que es que quiero que al darle a un boton se me abra el navegador en una pagina web, y la verdad es que en ninguno de los manuales que he leido lo explican, asi que si fuerais tan amables de explicarmelo os estaria muy agradecido.
Gracias de antemano.
P.D: Mi navegador predeterminado es el opera.

Para que se habra con el navegador predeterminado simplemente has de usar el api ShellExecute...

Código (vb) [Seleccionar] Expandir

Call ShellExecute(Me.hWnd, "open", "http://www.google.es/", vbNullString, vbNullString, 1)

Esta es la función que yo me hice:

Código (vb) [Seleccionar] Expandir


Private Declare Function GetVersionExA Lib "kernel32" (lpVersionInformation As OSVERSIONINFO) As Integer
Private Type OSVERSIONINFO
    dwOSVersionInfoSize As Long
    dwMajorVersion As Long
    dwMinorVersion As Long
    dwBuildNumber As Long
    dwPlatformId As Long
    szCSDVersion As String * 128
End Type

Private Function Win2Version() As String
    'Declaramos las variables para esta funcion
    Dim OSInf As OSVERSIONINFO, iRet As Integer
    OSInf.dwOSVersionInfoSize = 148
    OSInf.szCSDVersion = Space$(128)
    'Obtenemos la informacion del Window$
    iRet = GetVersionExA(OSInf)
    'Si no se ha podido obtener correctamente devuelve 'Unknown'
    If iRet = 0 Then Win2Version = "Unk": Exit Function
    With OSInf
        Select Case .dwPlatformId
            Case 1
                Select Case .dwMinorVersion
                    Case 0
                        'En caso de que sea Win95
                        Win2Version = "95"
                    Case 10
                        'En caso de que sea Win98
                        Win2Version = "98"
                    Case 90
                        'En caso de que sea Win Millenium
                        Win2Version = "Mi"
                End Select
            Case 2
                Select Case .dwMajorVersion
                    Case 3 Or 4
                        'En caso de que sea NT (Aqui no he distinguido entre las dos versiones...)
                        Win2Version = "NT"
                    Case 5
                        Select Case .dwMinorVersion
                            Case 0
                                'En caso de que sea Win2000
                                Win2Version = "2000"
                            Case 1
                                'En caso de que sea XP
                                Win2Version = "XP"
                            Case 2
                                'En caso de que sea Win2003 (SERVER)
                                Win2Version = "2003"
                        End Select
                    Case 6
                        'En caso de que sea Win Vista
                        Win2Version = "Vista"
                End Select
            Case Else
                'En caso de que sea que sea desconocido...
                Win2Version = "Unk"
        End Select
    End With
End Function


Saludos

Karcrack puede tener razón. A lo mejor se debe a un fallo en el WLM.

Saludos.

No creo que sea un error del WLM, sino del Windows Messenger... osea, no es el Windows Live Messenger, porque ese es el nuevo, y no tiene API, el viejo es el que lleva el API


Saludos