Gençler Binbaşı Oldum Kutluyoruz :)

MasteLaa' Alıntı:

Çok fena mesaj kastın söyliyim Tebrikler

Genişletmek için tıkla ...

tam olarak anlamadım ? hadi mesaj kastıkta şimdi iyimi ettik kötümü?

tebrikler kardeş ama fazla kasma

- - - Eklendi - - -

veyseloglu' Alıntı:

tam olarak anlamadım ? hadi mesaj kastıkta şimdi iyimi ettik kötümü?

Genişletmek için tıkla ...

kötü ettin çok aşırı mesaj kasmak ban sebebi arkadaşım banı yer oturursun aşşağı

kingmor' Alıntı:

tebrikler kardeş ama fazla kasma

- - - Eklendi - - -



kötü ettin çok aşırı mesaj kasmak ban sebebi arkadaşım banı yer oturursun aşşağı

Genişletmek için tıkla ...

oh sonunda biri cevap yazdı neyse; çok mesajla ban yemek biraz saçma değilmi?

- - - Eklendi - - -

düzeltme: biraz değil baya

veyseloglu' Alıntı:

oh sonunda biri cevap yazdı neyse; çok mesajla ban yemek biraz saçma değilmi?

- - - Eklendi - - -

düzeltme: biraz değil baya

Genişletmek için tıkla ...

çok sayıda gereksiz ve fazla mesaj olarak cezayı yersin

kingmor' Alıntı:

çok sayıda gereksiz ve fazla mesaj olarak cezayı yersin

Genişletmek için tıkla ...

hayırlı olsun

Aramıza hoşgeldin ...

HacKLess' Alıntı:

Hayırlı olsun veysel karani Visual basic express vaaaay

string a;

Console.WriteLine("Helal olsun");
Console.ReadLine();
Console.WriteLine("xxxxxx")
Console.ReadKey();

Genişletmek için tıkla ...

Vatron' Alıntı:

Response.Redirect("Bravo_HacKLess.aspx");

Genişletmek için tıkla ...

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 )

tebrikler.

hizan' Alıntı:

tebrikler.

Genişletmek için tıkla ...

veyseloglu' Alıntı:

bu arada visual basic express değil visual studio ultimate kullanıyorum (aramızda kalsın başka banner bulamadım )

Genişletmek için tıkla ...

Photoshopda biraz uğraştım Umarım olmuştur

ikinizide kırmak istemiyorum fakat v0ld3fasafisonun daha güzel olmuş emeğinize sağlık

- - - Eklendi - - -

tabi ben yinde biraz rötuşlayacam

- - - Eklendi - - -

bu sırada abicim visual basic 2010 ultimate diye birşey yokki

- - - Eklendi - - -

neyse ikinizinkini karıştırıverdim

veyseloglu' Alıntı:

ikinizide kırmak istemiyorum fakat v0ld3fasafisonun daha güzel olmuş

Linkleri görüntülemek için kayıt olmalısınız

emeğinize sağlık

- - - Eklendi - - -

tabi ben yinde biraz rötuşlayacam

- - - Eklendi - - -

bu sırada abicim visual basic 2010 ultimate diye birşey yokki

- - - Eklendi - - -

neyse ikinizinkini karıştırıverdim

Genişletmek için tıkla ...

Azcık daha özeniriz



Bu da orjinaliyle birebir aynı



- - - Eklendi - - -

Son olarak C0DER ED1T10N

HacKLess' Alıntı:

Bunu koymazsan benle bidaha konuşma....

Genişletmek için tıkla ...

tamam abi ben konuşmamayı tercih ederim

- - - Eklendi - - -

Hex4d0r' Alıntı:

Azcık daha özeniriz



Bu da orjinaliyle birebir aynı



- - - Eklendi - - -

Son olarak C0DER ED1T10N

Genişletmek için tıkla ...

2.sini kullandım sağol