桌面邮件飞机源码——VB.NET网络编程简单实例

最近闲来无事，用VB.NET制作了一个快速发送邮件的小程序，关于界面的控件设计我就不再做过多的说明啦，关于VB.NET的新手来说，可以先学习一下控件的基本使用方法，然后对本代码进行修改和完善，希望大家都能改的愉快，改的开心，也希望大家给我提出意见或建议。

闲话少说，上代码：

Imports System.Net.Mail
Imports System.Net.SocketsPublic Class Form1'判断是否需要身份验证Private Sub CheckBox1_CheckedChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChangedIf CheckBox1.Checked = True ThentxtName.Enabled = TruetxtPassword.Enabled = TrueElsetxtName.Enabled = FalsetxtPassword.Enabled = FalseEnd IfEnd SubPrivate Sub btnSend_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnSend.ClickDim mail As New MailMessage()Trymail.From = New MailAddress(txtFrom.Text.ToString.Trim) '设置发件人mail.To.Add(txtTo.Text.ToString.Trim) '设置收件人Catch ex As ExceptionMsgBox(ex.Message, MsgBoxStyle.Critical, "貌似您的邮件没有发出去，您在试一下吧~如果还是不行，我们表示抱歉，我们将继续优化~")End Try'设置邮件内容mail.Subject = txtSubject.Textmail.Body = RichTextBox1.Text'发送附件If Txtattach.Text.Trim <> "" Thenmail.Attachments.Add(New Net.Mail.Attachment(Txtattach.Text))End If'设置邮件优先级别If ComboBox1.Text.Trim = "紧急" Thenmail.Priority = MailPriority.HighEnd IfIf ComboBox1.Text.Trim = "一般" Thenmail.Priority = MailPriority.NormalEnd IfIf ComboBox1.Text.Trim = "不着急" Thenmail.Priority = MailPriority.LowEnd IfDim smtp As New SmtpClient(txtSMTP.Text)'验证帐号与密码If CheckBox1.Checked = True Thensmtp.Credentials = New System.Net.NetworkCredential(txtName.Text, txtPassword.Text)End IfTrysmtp.Send(mail)MsgBox("恭喜您，您的邮件已经飞走了，即将到达指定位置。", MsgBoxStyle.Information, "桌面邮件飞机V1.0公测版")Catch ex As ExceptionMsgBox(ex.Message, MsgBoxStyle.Critical, "啊哦，貌似网络不通哦，检查一下网络，喝杯茶再试试吧~")End TryEnd SubPrivate Sub Butaddattach_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Butaddattach.Click'设置允许添加的附件类型OpenFileDialog1.filter = "文本文件 （*.txt）|*.txt|Word 文 档 (*.doc)|*.doc|图 像 文 件（*.BMP;*.JPG;*.GIF;*.PNG;*.JPEG)|*.BMP;*.JPG;*.GIF;*.PNG;*.JPEG|所有文件(*.*)|**"OpenFileDialog1.showDialog()Txtattach.Text = OpenFileDialog1.FileName.TrimEnd Sub'刚启动时候账号密码框不可用Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.LoadtxtName.Enabled = FalsetxtPassword.Enabled = FalseComboBox1.Items.Add("紧急")ComboBox1.Items.Add("一般")ComboBox1.Items.Add("不着急")End SubPrivate Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)End SubPrivate Sub Label8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label8.ClickEnd SubPrivate Sub 导入TXT文件IToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 导入TXT文件IToolStripMenuItem.ClickDim f As New OpenFileDialogIf f.ShowDialog <> Windows.Forms.DialogResult.OK ThenExit SubEnd IfDim Inputdata As StringOpenFileDialog2.FileName = "*.txt"OpenFileDialog2.InitialDirectory = "C:\ "OpenFileDialog2.Filter = " Text files(*.Txt)| *.* | All files(*.*)| *.* "OpenFileDialog2.FilterIndex = 2OpenFileDialog2.ShowDialog()FileOpen(1, OpenFileDialog2.FileName, OpenMode.Input)RichTextBox1.Text = ""Do While Not EOF(1)Inputdata = LineInput(1)RichTextBox1.Text = RichTextBox1.Text + Inputdata + vbCrLfLoopFileClose(1)End SubPrivate Sub 保存邮件草稿SToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 保存邮件草稿SToolStripMenuItem.ClickSaveFileDialog1.FileName = "DMFdefault.txt"SaveFileDialog1.DefaultExt = "txt"SaveFileDialog1.ShowDialog()FileOpen(1, SaveFileDialog1.FileName, OpenMode.Output)Print(1, RichTextBox1.Text)FileClose(1)End SubPrivate Sub 退出程序eToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 退出程序eToolStripMenuItem.ClickDim i As Integeri = MsgBox("您的最近编辑的邮件草稿未保存，是否保存？", 3, "友情提示")If i = 2 ThenElseIf i = 6 ThenSaveFileDialog1.FileName = "defalut.txt"SaveFileDialog1.DefaultExt = "txt"SaveFileDialog1.ShowDialog()FileOpen(1, SaveFileDialog1.FileName, OpenMode.Output)Print(1, RichTextBox1.Text)FileClose(1)EndElseIf i = 7 ThenEndEnd IfEnd SubPrivate Sub 复制CToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 复制CToolStripMenuItem.ClickRichTextBox1.Copy()End SubPrivate Sub 粘贴VToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 粘贴VToolStripMenuItem.ClickRichTextBox1.Paste()End SubPrivate Sub 剪切ZToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 剪切ZToolStripMenuItem.ClickRichTextBox1.Cut()End SubPrivate Sub 全选SToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 全选SToolStripMenuItem.ClickRichTextBox1.SelectAll()End SubPrivate Sub ContextMenuStrip1_Opening(sender As Object, e As System.ComponentModel.CancelEventArgs) Handles ContextMenuStrip1.OpeningEnd SubPrivate Sub 剪切XToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 剪切XToolStripMenuItem.ClickRichTextBox1.Cut()End SubPrivate Sub 复制CToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles 复制CToolStripMenuItem1.ClickRichTextBox1.Copy()End SubPrivate Sub 粘贴VToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles 粘贴VToolStripMenuItem1.ClickRichTextBox1.Paste()End SubPrivate Sub 全选SToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles 全选SToolStripMenuItem1.ClickRichTextBox1.SelectAll()End SubPrivate Sub 字体FToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 字体FToolStripMenuItem.ClickFontDialog1.ShowDialog()RichTextBox1.Font = FontDialog1.FontEnd SubPrivate Sub 字体ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 字体ToolStripMenuItem.ClickFontDialog1.ShowDialog()RichTextBox1.Font = FontDialog1.FontEnd SubPrivate Sub 关于我们AToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 关于我们AToolStripMenuItem.ClickAboutBox1.ShowDialog()End SubPrivate Sub 意见反馈LToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 意见反馈LToolStripMenuItem.ClickMsgBox("感谢您使用桌面邮件飞机V1.2正式版！在您的使用过程中, 如果您有问题, 想法, 意见或建议, 请您和我们取得联系!联系E -mail : lubianbianjibu@ 163.com 鸣谢:核心代码:阿丘；用户UI:昊洋；界面设计:林峰。感谢您的使用！ ", 1, "意见反馈")End SubPrivate Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.TickMe.ToolStripStatusLabel2.Text = "系统时间：" + TimeOfDayMe.ToolStripStatusLabel3.Text = "系统日期：" + System.DateTime.TodayEnd Sub
End Class

最近自己做了四集VB.NET的最为基础的任务驱动教程，对于VB.NET不是很熟悉，想快速切入的童鞋可以看看，希望对大家有些帮助：

任务一：http://v.youku.com/v_show/id_XNjc4NTk1NzYw.html

任务二：http://v.youku.com/v_show/id_XNjc4NjM3ODA0.html

任务三：http://v.youku.com/v_show/id_XNjgxNTQxMzY4.html

任务四：http://v.youku.com/v_show/id_XNjkyMjAwMzMy.html

欢迎大家提出各种意见和建议，谢谢大家！

桌面邮件飞机源码——VB.NET网络编程简单实例相关推荐

android网络编程终结者,小七论坛终结者V2.0升级版源码 - 源码下载|Internet/网络编程|远程控制编程|源代码 - 源码中国...
文件名大小更新时间小七论坛终结者V2.0升级版源码\Bin\Assist.dll409602018-05-16 小七论坛终结者V2.0升级版源码\Bin\bk.gif12232018-05-16 小 ...
android之http协议编程(源码ppt),Android网络编程（八）源码解析OkHttp中篇[复用连接池]...
1.引子在了解OkHttp的复用连接池之前,我们首先要了解几个概念. TCP三次握手通常我们进行HTTP连接网络的时候我们会进行TCP的三次握手,然后传输数据,然后再释放连接. TCP三次握手的过 ...
NET开发邮件发送功能的全面教程(含邮件组件源码)(
天,给大家分享的是如何在.NET平台中开发"邮件发送"功能.在网上搜的到的各种资料一般都介绍的比较简单,那今天我想比较细的整理介绍下. AD:2013云计算架构师峰会精彩课程曝光 ...
.NET开发邮件发送功能的全面教程(含邮件组件源码)
今天,给大家分享的是如何在.NET平台中开发"邮件发送"功能.在网上搜的到的各种资料一般都介绍的比较简单,那今天我想比较细的整理介绍下: 1) 邮件基础理论知识 2 ...
[转].NET开发邮件发送功能的全面教程(含邮件组件源码)
转载自http://www.cnblogs.com/heyuquan/p/net-batch-mail-send-async.html 今天,给大家分享的是如何在.NET平台中开发"邮件发送 ...
Android4.3 屏蔽HOME按键返回桌面详解(源码环境下)
点击打开链接首先声明我是做系统开发的(高通平台),所以下面介绍的方法并不适合应用开发者. 最经有个需求要屏蔽HOME按键返回桌面并且实现自己的功能,发现以前的方式报错用不了,上网搜索了一下,发现都是 ...
直播源码中有哪些网络协议需要注意？
在当今的直播平台中,对直播源码越来越注重.那么直播源码中有哪些网络协议需要注意的呢? 1.TCP:TCP为点对点的协议,虽然能保证了数据传输的可靠性,但是对服务器资源耗费较大,在数据流大的场合难以保证 ...
39 网络相关函数(七)——live555源码阅读(四)网络
39 网络相关函数(七)--live555源码阅读(四)网络 39 网络相关函数(七)--live555源码阅读(四)网络简介 14)readSocket从套接口读取数据 recv/recvfrom ...
Volley 源码解析之网络请求
Volley源码分析三部曲 Volley 源码解析之网络请求 Volley 源码解析之图片请求 Volley 源码解析之缓存机制 Volley 是 Google 推出的一款网络通信框架,非常适合数据量 ...

桌面邮件飞机源码——VB.NET网络编程简单实例

桌面邮件飞机源码——VB.NET网络编程简单实例相关推荐

最新文章

热门文章