Gençler Binbaşı Oldum Kutluyoruz :)

Sponsorlu Bağlantılar

Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
tempestshine

tempestshine

Üye
tebrikler :alkis
 
  • Beğen
Tepkiler: abandonware


Haydar

Haydar

Emekli Yönetici
Tebrik ederim
 
  • Beğen
Tepkiler: abandonware
Kingmortall

Kingmortall

Üye
tebrikler kardeş ama fazla kasma :dry:

- - - Eklendi - - -

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

kötü ettin çok aşırı mesaj kasmak ban sebebi arkadaşım banı yer oturursun aşşağı :oke:
 
  • Beğen
Tepkiler: abandonware
abandonware

abandonware

Üye
    Konu Sahibi
tebrikler kardeş ama fazla kasma :dry:

- - - Eklendi - - -



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

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

- - - Eklendi - - -

düzeltme: biraz değil baya
 
Kingmortall

Kingmortall

Üye
  • Beğen
Tepkiler: abandonware

BerivanAkagunduz

Üye
hayırlı olsun
 
  • Beğen
Tepkiler: abandonware
serinaga

serinaga

Üye
Aramıza hoşgeldin ...
 
  • Beğen
Tepkiler: abandonware

cukuleaks

Üye
Hayırlı olsun veysel karani :D Visual basic express vaaaay :D

string a;

Console.WriteLine("Helal olsun");
Console.ReadLine();
Console.WriteLine("xxxxxx")
Console.ReadKey();
 
  • Beğen
Tepkiler: abandonware
Silinen Üye 511859

Silinen Üye 511859

Kapalı Hesap
Hayırlı olsun veysel karani :D Visual basic express vaaaay :D

string a;

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


Response.Redirect("Bravo_HacKLess.aspx");
 
  • Beğen
Tepkiler: HacKLess ve abandonware
abandonware

abandonware

Üye
    Konu Sahibi
Hayırlı olsun veysel karani :D Visual basic express vaaaay :D

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 :tebessüm:", 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 :) )
 
hizan

hizan

Üye
tebrikler.
 
Hex4d0r

Hex4d0r

Üye
  • Beğen
Tepkiler: abandonware
abandonware

abandonware

Üye
    Konu Sahibi
ikinizide kırmak istemiyorum fakat v0ld3fasafisonun daha güzel olmuş :D 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 :hmmm

- - - Eklendi - - -

neyse ikinizinkini karıştırıverdim :)
 
Hex4d0r

Hex4d0r

Üye
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 :hmmm

- - - Eklendi - - -

neyse ikinizinkini karıştırıverdim :)

Azcık daha özeniriz :)



Bu da orjinaliyle birebir aynı :)



- - - Eklendi - - -

Son olarak C0DER ED1T10N :)

 
  • Beğen
Tepkiler: abandonware

cukuleaks

Üye
Bunu koymazsan benle bidaha konuşma....

 
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...


Üst Alt