使用控件有:Winsock控件,CommandButton 控件,TextBox 控件
编程步骤如下:
1.声明变量
2.把如下代码加到Command1的Command1_Click事件:
Private Sub Command1_Click()
Winsock1.LocalPort = 0 '设置本地使用的端口
Winsock1.Protocol = sckTCPProtocol '设置Winsock控件使用的协议,TCP或UDP。
Winsock1.RemoteHost="smtp.21cn.com" '设置发送Email的服务器
Winsock1.RemotePort = 25 '设置要连接的远程端口号
Winsock1.Connect '返回与远程计算机的连接。
End Sub
这里要注意的是:Winsock1.RemotePort的值,80为HTTP,21为FTP,25为SMTP。
3.把如下代码加到Win...[ 查看全文 ]