最新下载
热门教程
- 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("在这输入邮件服务器名称", "用户名", "密码")
相关文章
- qkpay钱包2024官网下载手机版 05-02
- 人人矿场最新2024 05-02
- 欧意交易中心app下载官网版 05-02
- upay钱包app下载安卓版 05-02
- 火币网app官网苹果版 05-02
- cgpay钱包下载手机版 05-02