第九章网络编程和分布式开发.pptVIP

第九章 网络编程和分布式开发 本章学习要点 使用SMTP服务 通过阅读程序实例了解邮件发送程序的设计 熟悉网络编程的有关知识 通过实例了解使用Socket获取数据的方法 了解Client/Server通讯程序的编写方法 掌握使用消息队列发送消息及从消息队列中获取消息 了解Web Service 9.1 使用SMTP服务 使用SMTP服务,必须确保你的电脑安装了IIS里的SMTP服务。 在“默认SMTP虚拟服务器”上单击鼠标右键，在弹出菜单中选择[属性]，弹出“属性 ”对话框。选择[访问]选项卡，单击[中继…]按钮；在弹出的“中继限制”对话框中，选中“仅以下列表除外”，并确保所用的计算机没有出现在下面的“计算机”列表中。 单击[确定]保存设置。这时，计算机就可以利用系统的SMTP服务来传送电子邮件了。 9.2 设计邮件发送程序 9.2 设计邮件发送程序 9.2 设计邮件发送程序 SMTPemail代码如下： Imports System.Text Imports System.Net.Mail Public Class Form1 Inherits System.Windows.Forms.Form Private Sub btnSend_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnSend.Click If CheckFieldsBlank()=False Then Exit Sub SendMail() End Sub 9.2 设计邮件发送程序 Private Sub SendMail() Dim strTo As String=txtTO.Text Dim StrFrom As String=txtFrom.Text Dim strSubject As String=txtSubject.Text Dim strContent As String=txtContent.Text Dim SmtpClient As New SmtpClient(“localhost”,25) SmtpClient.Send(strForm, strTo, strSubject, strContent) MessageBox.Show(“邮件发送成功！！”, “消息”,MessageBoxButtons.OK, MessageBoxIcon.Information) End Sub 9.2 设计邮件发送程序 Private Function CheckFieldsBland() As Boolean Dim strMessage As String=“ ” If Not txtFrom.Text.Length0 Then strMessage=“寄件人” If Not txtTO.Text.Length0 Then strMessage=strMessage+“收件人” If Not txtSubject.Text.Length0 Then strMessage=strMesssage+“主题” If Not txtContent.Text.Length0 Then strMessage=strMessage+“内容” If strMessage.Length0 Then MessageBox.Show(“字段：”+strMessage+“必须有值！！”, “消息”,MessageBoxButtons.OK, _MessageBoxIcon.Warning) 9.2 设计邮件发送程序 CheckFieldsBlank=False Else CheckFieldsBlank=True End If End Function End Class 9.3 网络编程 .NET提供一整组功能相当丰富的类,专门支持.NET语言开发网络服务功能的应用程序。这些类大部分集中在System.Net和System.Net.Sockets两个命名空间中，其中的System.Net.Sockets提供Socket网络程序所需的Window Socket接口，System.Net则是提供一个通用、简单的网络模型架构，网络程序开发人员在此通用的架构之下，可以快速且方便地进行各种专属协议的网络程序开发。 9.3.1 网络类 System.Net命名空间包含相当多的类，这些类以各种通信开发网络程序所需的基础功能，开发人员出除了利用相关类进行网络程序的开发，同时可以运用其方便扩充的特性提供以专属协议为基础而开发