9-1.doc-呼伦贝尔学院.docVIP

第九章 网络编程和分布式开发 教学目标：通过讲授和学生的动手练习，使学生了解网络编程的基本知识及方法。 教学类型：在多媒体教室直观讲授，引导学生进行程序设计操作。加深对本次课内容的理解。 教学内容：使用SMTP服务，设计邮件发送程序，初步网络编程、使用socket获取数据，编写一个Client/Server通信程序，使用消息队列发送、获取消息，Web Service简介。 9.1 使用SMTP服务 要使用SMTP服务，必须确保安装了IIS里的SMTP服务。如果没有安装，则插入系统光盘到[控制面板]选择 [添加或删除程序]再选择[添加/删除Windows组件]选择 [IIS]，单击[详细信息] 进行安装。 若不能确定是否安装有SMTP服务,请打开 “控制面板”→“管理工具”→“Internet信息服务”。如果看到有“默认SMTP虚拟服务器”项，说明SMTP服务已经安装。 确认已经安装了SMTP服务之后，在“默认SMTP虚拟服务器”上单击鼠标右键，在弹出菜单中选择[属性]，弹出“属性 ”对话框。选择[访问]选项卡，单击[中继…]按钮；在弹出的“中继限制”对话框中。选中“仅以下列表除外”，并确保所用的计算机没有出现在下面的“计算机”列表中（一般来说，这个列表都是空的）。 单击[确定]保存设置。这时，计算机就可以利用系统的SMTP服务来传送电子邮件了。 9.2设计邮件发送程序 新建一个Windows窗体应用程序SMTPemail。窗体布局如图9.4所示： 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 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 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) 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则是提供一个通用、简单的网络模型架构，网络程序开发人员在此通用的架构之下，可以快速且