Enviar emails con Visual Basic

Hola en este sencillo ejemplo enviaremos un email con las credenciales de gmail, aqui las capturas de la aplicacion:

Diseñamos un formulario parecido a este

y el resultado...


El codigo de la aplicacion:

Imports System.Net.Mail 'Libreria para el envio de emails
Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles enviar.Click
'creamos un nuevo mensaje de correo
Dim correo As New MailMessage
'De
correo.From = New MailAddress(Me.from.Text)
'Para
correo.To.Add(Me.ToAddress.Text)
'Asunto
correo.Subject = Subject.Text
'Cuerpo del correo
correo.Body = Body.Text
'Mostrar como HTML
correo.IsBodyHtml = False
'Prioridad de el correo
correo.Priority = MailPriority.Normal
'Usaremos por default a gmail y su puerto SMTP
Dim smtp As New SmtpClient()
smtp.Host = "smtp.gmail.com"
smtp.Port = 587
smtp.Credentials = New System.Net.NetworkCredential("cuenta@gmail.com", "password")
smtp.EnableSsl = True
Try
'enviamos el correo
smtp.Send(correo)
MsgBox("Mensaje enviado satisfactoriamente", MsgBoxStyle.Information, "Envio de Emails")
Catch ex As Exception
MsgBox("Ocurrio el siguiente Error:" & ex.Message, MsgBoxStyle.Critical, "Envio de Emails")
End Try
End Sub
End Class

Como observaran es necesario contar con credenciales reales de gmail, despues lo haremos con cualquier otra cuenta, Saludos!!!

Generar codigos de Barras en Visual Basic .Net

Imagen de la Aplicacion:

Resultado de la impresion:



Para generar codigos de barras instalaremos previamente la fuente:3 of 9 Barcode

y el codigo de la aplicacion a continuación...

Imports System.Drawing.Printing

Public Class Form1
Dim Contenido As PrintPageEventArgs
Dim WithEvents Documento As New PrintDocument
Dim impresora As New PrintDialog


Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Configurar()
Documento.Print()
End Sub

Private Sub Documento_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles Documento.PrintPage
Contenido = e
Contenido.Graphics.DrawString("*" & Me.TextBox1.Text & "*", New Font("3 of 9 Barcode", 14), Brushes.Black, 50, 300)
Contenido.Graphics.DrawString(Me.TextBox1.Text, New Font("Arial", 7), Brushes.Black, 90, 315)
Contenido.HasMorePages = False
End Sub

Private Sub Configurar()
impresora.Document = Documento
impresora.ShowDialog()
Documento.PrinterSettings = impresora.PrinterSettings
End Sub

End Class

PHP y Base de Datos

Bien si lo que les interesa es pasar rapidamente al trabajo con base de datos, aqui tienen un buen manual

Descargar Manual

Y bueno, si desean realizar sus practicas monten su servidor Apache, instalen el PHP y el MySQL, y como se hace todo eso??? pues sencillamente con este paquete que incluye los tres.

Descargar FoxServ

y me permito recomendar tambien en siguiente enlace:
Memorias de un aprendiz de PHP

Crear un Chat con Java

Bien este es un manual que explica las liberias java.net y java.io en el uso de una aplicacion para un chat, recomendado:

Descargar Manual

PHP Manual

El PHP es un lenguaje muy practico y muy potente, ademas que corre en servidores con software libre como linux, a continuacion un manual sobre este lenguaje:

Manual PHP 4

Espero les sea de utilidad