Ahoj, jsem totální amatér všech amatéru v programování, ale rád se odrážím od video tutoriálů na webu. Nyní programuji aplikaci ve VisualStudiu (VisualBasic - WindowsForm), dnes jsem přidával emailový feedback podle tohoto videa
https://www.youtube.com/watch?v=hX58BKFSL6c&t=92skód:
mports System.Net.Mail
Public Class Form1
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
Dim MyMessage As New MailMessage
Try
MyMessage.From = New MailAddress(-example@gmail.com-)
MyMessage.To.Add(-example@gmail.com-)
MyMessage.Subject = TextBox3.Text
MyMessage.Body = TextBox1.Text
Dim SMTP As New SmtpClient(-smtp.gmail.com-)
SMTP.Port = 587
SMTP.EnableSsl = True
SMTP.Credentials = New System.Net.NetworkCredential(-example@gmail.com-, -email password-)
SMTP.Send(MyMessage)
Catch ex As Exception
Me.Hide()
Form2.Show()
End Try
End Sub
Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
Dim ask As MsgBoxResult
ask = MsgBox(-Are you sure you want to clear out your form?-, MsgBoxStyle.YesNoCancel, -Clearing The Form-)
If ask = MsgBoxResult.Yes Then
MsgBox(-You have decided to clear the form.-)
TextBox1.Clear()
TextBox2.Clear()
TextBox3.Clear()
TextBox4.Clear()
ElseIf ask = MsgBoxResult.No Then
MsgBox(-You have decided to cancel.-)
End If
End Sub
End Class
A po spuštění ve Win mi začal Eset hlásit tenhle trojan
MSIL/PSW.Agent.QNKVůbec si s tím nevím rady, jak se dostat do takové fáze, aby jsem měl kód čistý, aniž by si Eset myslel, že se jedná o trojana. Poradíte? Pomůžete? Jedná se jen o spustitelnou aplikaci.
Díky moc!
A omlouvám se za nevývojářskou mluvu