最新下载
热门教程
- 1
- 2
- 3
- 4
- 5
- 6
- 7
- 8
- 9
- 10
在VB.NET中检测有没有新邮件
时间:2022-07-02 11:14:15 编辑:袖梨 来源:一聚教程网
Imports System.IO
Imports System.Net
Imports System.Net.Sockets
……
Private Function Connect(ByVal strServer As String, ByVal strUser As String, ByVal strPwd As String) As NetworkStream
Dim Sender As New TcpClient(strServer, 110)
Dim OutBytes As Byte()
Dim input As String
Dim Ns As NetworkStream = Nothing
Try
Ns = Sender.GetStream()
Dim sr As New StreamReader(Ns)
input = "user " & strUser & vbCrLf
outbytes = System.Text.Encoding.ASCII.GetBytes(input)
Ns.Write(OutBytes, 0, OutBytes.Length)
Console.WriteLine(sr.ReadLine())
input = "pass " & strPwd & vbCrLf
OutBytes = System.Text.Encoding.ASCII.GetBytes(input)
Ns.Write(OutBytes, 0, OutBytes.Length)
Console.WriteLine(sr.ReadLine())
Console.WriteLine("==========================================================")
Return Ns
Catch ex As Exception
MsgBox("无法连接到服务器", MsgBoxStyle.Critical)
Return Ns
End Try
End Function
Private Function GetNumberOfNewMessages() As Integer
Dim OutBytes As Byte()
Dim input As String
Dim strTemp As String
GetNumberOfNewMessages = -1
Try
Dim Ns As NetworkStream = Connect("在这输入邮件服务器名称", "用户名", "密码")
Imports System.Net
Imports System.Net.Sockets
……
Private Function Connect(ByVal strServer As String, ByVal strUser As String, ByVal strPwd As String) As NetworkStream
Dim Sender As New TcpClient(strServer, 110)
Dim OutBytes As Byte()
Dim input As String
Dim Ns As NetworkStream = Nothing
Try
Ns = Sender.GetStream()
Dim sr As New StreamReader(Ns)
input = "user " & strUser & vbCrLf
outbytes = System.Text.Encoding.ASCII.GetBytes(input)
Ns.Write(OutBytes, 0, OutBytes.Length)
Console.WriteLine(sr.ReadLine())
input = "pass " & strPwd & vbCrLf
OutBytes = System.Text.Encoding.ASCII.GetBytes(input)
Ns.Write(OutBytes, 0, OutBytes.Length)
Console.WriteLine(sr.ReadLine())
Console.WriteLine("==========================================================")
Return Ns
Catch ex As Exception
MsgBox("无法连接到服务器", MsgBoxStyle.Critical)
Return Ns
End Try
End Function
Private Function GetNumberOfNewMessages() As Integer
Dim OutBytes As Byte()
Dim input As String
Dim strTemp As String
GetNumberOfNewMessages = -1
Try
Dim Ns As NetworkStream = Connect("在这输入邮件服务器名称", "用户名", "密码")
相关文章
- 银与绯吉尔兰技能怎么样 吉尔兰战斗特性解析 07-14
- 异环异象管理局局长是谁 艾尔菲德角色详细介绍 07-14
- 欧意易ok官网下载版 欧意易app下载 07-14
- 迷你世界马车怎么做 马车制作方法介绍 07-14
- 碳碳岛许愿池有什么作用 许愿池建造方法介绍 07-14
- 最终幻想14水晶世界怎么招募雇员 招募雇员方法介绍 07-14