101.htm

vb功能实例介绍。详细、很好的实例说明。

<p>用Winsock控件发信Email</p>
<p></p>
<p>　　使用控件有：Winsock控件，CommandButton 控件，TextBox 控件</p>
<p>编程步骤如下：</p>
<p>1.声明变量</p>
<p>2.把如下代码加到Command1的Command1_Click事件：</p>
<p>Private Sub Command1_Click()</p>
<p>Winsock1.LocalPort = 0 '设置本地使用的端口</p>
<p>Winsock1.Protocol = sckTCPProtocol '设置Winsock控件使用的协议，TCP或UDP。</p>
<p>Winsock1.RemoteHost="smtp.21cn.com" '设置发送Email的服务器</p>
<p>Winsock1.RemotePort = 25 '设置要连接的远程端口号 </p>
<p>Winsock1.Connect '返回与远程计算机的连接。</p>
<p>End Sub</p>
<p>这里要注意的是：Winsock1.RemotePort的值，80为HTTP,21为FTP，25为SMTP。</p>
<p></p>
<p>3.把如下代码加到Winsock1的Connect事件：</p>
<p>Private Sub Winsock1_Connect() ''当一个 Connect 操作完成时发生</p>
<p>first = "mail from:" + Chr(32) + "[e-mail]" + vbCrLf '发信人地址</p>
<p>Second = "rcpt to:" + Chr(32) + "[e-mail]" + vbCrLf '收信人地址</p>
<p>DateNow = Format(Date, "Ddd") & ", " & Format(Date, "dd Mmm YYYY") & " " & Format(Time, "hh:mm:ss") & "" & " -0600"</p>
<p>Third = "Date:" + Chr(32) + DateNow + vbCrLf '开始发信时间</p>
<p>Fourth = "From:" + Chr(32) + "VB 小园" + vbCrLf '发信人姓名</p>
<p>Fifth = "To:" + Chr(32) + "Jimven"+ vbCrLf '收信人姓名</p>
<p>Sixth = "Subject:" + Chr(32) +"VB 小园更新通知" + vbCrLf '发信的主题</p>
<p>Seventh = "VB 小园已经更新" + vbCrLf '发信的内容</p>
<p>Ninth = "X-Mailer: EBT Reporter v 2.x" + vbCrLf</p>
<p>Eighth = Fourth + Third + Ninth + Fifth + Sixth </p>
<p>Winsock1.SendData ("HELO www.21cn.com" + vbCrLf) '开始发送</p>
<p>Winsock1.SendData (first) </p>
<p>Winsock1.SendData (Second)</p>
<p>Winsock1.SendData ("data" + vbCrLf)</p>
<p>Winsock1.SendData (Eighth + vbCrLf)</p>
<p>Winsock1.SendData (Seventh + vbCrLf)</p>
<p>Winsock1.SendData ("." + vbCrLf)</p>
<p>Winsock1.SendData ("quit" + vbCrLf)</p>
<p>End Sub</p>
<p></p>
<p>4.把如下代码加到Winsock1的DataAmival事件：</p>
<p>Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long) '接受数据时产生</p>
<p>On Error Resume Next '在错误处理程序结束后，恢复原有的运行</p>
<p>Dim webData As String</p>
<p>Winsock1.GetData webData, vbString '取得发信后的反馈信息，可以检查是否错误</p>
<p>Text1.Text = Text1.Text + webData</p>
<p>'Debug.Print Text1.Text</p>
<p>End Sub </p>
<p></p>
<p>　</p>
<p></p>