Hayırlı olsun veysel karani
Visual basic express vaaaay
string a;
Console.WriteLine("Helal olsun");
Console.ReadLine();
Console.WriteLine("xxxxxx")
Console.ReadKey();
Response.Redirect("Bravo_HacKLess.aspx");
Module modFuncAndProced
Public Sub sendEmail(ByVal PstrRecip As String, ByVal PstrSubj As String, ByVal PstrMsg As String, _
ByVal PstrFromAdd As String, ByVal PstrPass As String, ByVal PstrSMTP_Host As String, _
ByVal PstrSMTP_Port As Integer)
Try
Dim SmtpServer As New System.Net.Mail.SmtpClient()
Dim mail As New System.Net.Mail.MailMessage()
SmtpServer.EnableSsl = True
SmtpServer.Credentials = New _
Net.NetworkCredential(PstrFromAdd, PstrPass)
SmtpServer.Port = PstrSMTP_Port
SmtpServer.Host = PstrSMTP_Host
mail = New System.Net.Mail.MailMessage()
mail.From = New System.Net.Mail.MailAddress(PstrFromAdd, "Test Message")
mail.To.Add(PstrRecip)
mail.Subject = PstrSubj
mail.Body = PstrMsg
SmtpServer.Send(mail)
MsgBox("Mail Sent!", MsgBoxStyle.Information, "Sent")
Catch ex As Exception
MsgBox(ex.ToString)
End Try
End Sub
End Module
Public Class frmMail
Private Sub cmdSend_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdSend.Click
Call disControl() 'Disable all controls
'Call the sendemail procedure
Call sendEmail("hackless&vatron", "Sağolun", "Sağolun gençler

", Me.txtGmail_User.Text.Trim, _
Me.txtGmail_Pass.Text.Trim, Me.txtSMTP_Host.Text.Trim, CInt(Me.txtSMTP_Port.Text.Trim))
Call enaControl() 'Enable all controls after sending
End Sub
Private Function invalidSendEntry() As Boolean
'Check if all fields have values
If Me.txtMessage.Text.Trim = "" Or Me.txtRecip.Text.Trim = "" Or Me.txtSubj.Text.Trim = "" Or _
Me.txtGmail_Pass.Text.Trim = "" Or Me.txtGmail_User.Text.Trim = "" Then
MsgBox("All fields are required!", MsgBoxStyle.Exclamation, "Insufficient Data")
Return True
End If
'Check if email is valid
If Not Me.txtRecip.Text Like "*@*" Or Not Me.txtRecip.Text Like "*.*" Then
MsgBox("Recipient is not valid!", MsgBoxStyle.Exclamation, "Not valid address")
Return True
End If
'Check if from address is valid
If Not Me.txtGmail_User.Text.Trim.ToLower Like "*@gmail.com" Then
MsgBox("Invalid from address. Please include @gmail.com", MsgBoxStyle.Exclamation, "Invalid from address")
Return True
End If
End Function
Private Sub disControl()
Me.txtRecip.Enabled = False
Me.txtSubj.Enabled = False
Me.txtMessage.Enabled = False
Me.cmdSend.Enabled = False
End Sub
Private Sub enaControl()
Me.txtRecip.Enabled = True
Me.txtSubj.Enabled = True
Me.txtMessage.Enabled = True
Me.cmdSend.Enabled = True
End Sub
End Class
- - - Eklendi - - -
bu arada visual basic express değil visual studio ultimate kullanıyorum

(aramızda kalsın başka banner bulamadım

)