Ʌüsal Konu tarihi: 4 Ağustos 2011 Paylaş Konu tarihi: 4 Ağustos 2011 Yeni Form yaradın.Forma 6 ədəd TextBox, 2 ədəd Button, 9 ədəd Label, 1 ədəd ComboBox əlavə edin.Ən son olaarqda 1 ədəd Timer əlavə edin. 1. Timer1-ə klik edin və aşağıdakı kodu daxil edin. Dim smtpserver As New SmtpClient Dim mail As New MailMessage smtpserver.Credentials = New Net.NetworkCredential(TextBox1.Text, TextBox2.Text) smtpserver.Host = ComboBox1.Text smtpserver.Port = TextBox3.Text mail = New MailMessage mail.From = New MailAddress(TextBox1.Text) mail.To.Add(TextBox4.Text) mail.Subject = TextBox5.Text mail.Body = TextBox6.Text smtpserver.EnableSsl = True Try smtpserver.Send(mail) Catch ex As Exception MsgBox("Ola bilsin hardasa yanlisqli var...") Timer1.Stop() Label8.Text = 0 End Try Label9.Text() = Label9.Text + 1 2. Button1-ə klik edin və kodu daxil edin Timer1.Start() 3. Button2-yə klik edin və kodu daxil edin. Timer1.Stop() Label9.Text() = 0 4. forma klik edin və kodu daxil edin.Public Class Form1 kodundan yuxarıya General bölməsinə aşağıdakı kodu daxil edin. Imports System.Net.Mail Qeyd: Labe-lləri bə Buttonları yuxarıdakı şəkildə kimi adlandıra bilərsiniz. Uğurlar... Alıntı - Laptop ve Desktop Anakartlarin temiri - BIOS yazilmasi - Sifreli SuperUser BIOS-larin silinmesi - Kicik chiplerin deyisidrilmesi - BGA Chiplerin deyisdirilmesi (GPU/CPU/FCH/PCH/HM ve s) Link to comment Share on other sites More sharing options...
Guest Musa_ Mesaj tarihi: 4 Ağustos 2011 Paylaş Mesaj tarihi: 4 Ağustos 2011 Çox sağ ol.Delphi 7 və ya VB 6.0 üçün də qoya bilərsən? Alıntı Link to comment Share on other sites More sharing options...
Ʌüsal Mesaj tarihi: 4 Ağustos 2011 mövzunu açan Paylaş Mesaj tarihi: 4 Ağustos 2011 vaxtim olsa yerlesdirerem... Alıntı - Laptop ve Desktop Anakartlarin temiri - BIOS yazilmasi - Sifreli SuperUser BIOS-larin silinmesi - Kicik chiplerin deyisidrilmesi - BGA Chiplerin deyisdirilmesi (GPU/CPU/FCH/PCH/HM ve s) Link to comment Share on other sites More sharing options...
Guest Musa_ Mesaj tarihi: 4 Ağustos 2011 Paylaş Mesaj tarihi: 4 Ağustos 2011 Çox sağ ol... Alıntı Link to comment Share on other sites More sharing options...
Ʌüsal Mesaj tarihi: 4 Ağustos 2011 mövzunu açan Paylaş Mesaj tarihi: 4 Ağustos 2011 deymez... Alıntı - Laptop ve Desktop Anakartlarin temiri - BIOS yazilmasi - Sifreli SuperUser BIOS-larin silinmesi - Kicik chiplerin deyisidrilmesi - BGA Chiplerin deyisdirilmesi (GPU/CPU/FCH/PCH/HM ve s) Link to comment Share on other sites More sharing options...
sahin666 Mesaj tarihi: 5 Ağustos 2011 Paylaş Mesaj tarihi: 5 Ağustos 2011 Alinmadi mende bibrde label 9 orda neyi gosterir.Timer e yazanda error lar gelir 4 eded Alıntı Link to comment Share on other sites More sharing options...
Ʌüsal Mesaj tarihi: 5 Ağustos 2011 mövzunu açan Paylaş Mesaj tarihi: 5 Ağustos 2011 Label1- Email Label2- Sifre Label3.- SMTP Server Label4- SMTP Port Label5- Kime Labell6- Movzu Label7- Mesaj Label8- Email sayi Label9- 0 Alıntı - Laptop ve Desktop Anakartlarin temiri - BIOS yazilmasi - Sifreli SuperUser BIOS-larin silinmesi - Kicik chiplerin deyisidrilmesi - BGA Chiplerin deyisdirilmesi (GPU/CPU/FCH/PCH/HM ve s) Link to comment Share on other sites More sharing options...
Recommended Posts
Sohbete katıl
Şimdi mesajını gönderebilir ve daha sonra kayıt olabilirsin. Bir hesabın varsa, hesabınla göndermek için şimdi oturum aç.