|
Dim x As New System.Net.Sockets.TcpClient("mail.95788.com", 110)
Dim cv As Byte()
Dim g As System.Net.Sockets.NetworkStream = x.GetStream
Dim z As String
z = "USER 212121"
cv = System.Text.Encoding.GetEncoding(936).GetBytes(z + vbCrLf)
g.Write(cv, 0, cv.Length)
z = "PASS jesus"
cv = System.Text.Encoding.GetEncoding(936).GetBytes(z + vbCrLf)
g.Write(cv, 0, cv.Length)
z = "STAT"
cv = System.Text.Encoding.GetEncoding(936).GetBytes(z + vbCrLf)
g.Write(cv, 0, cv.Length)
Dim vb2 As New System.IO.StreamReader(g)
TextBox2.Text = vb2.ReadLine
x.Close()
g.Close()
运行之后只会出现+OK incore system mail POP3 Server ready,而密码对错都不管,是什么问题 |
|