'************************************************************' Check Mail Example 'Author: wgscd' qq 153964481 '*********** ************* Imports System.Netimports System.Net. Socketsimports System.io
Public class form1 inherits system.windows.Forms.form
#Region "Windows Form Designer Generated Code"
Public Sub new () mybase.new ()
'This call is required for the Windows Form Designer. InitializeComponent ()
'Add any initialization after INITIALIZECOMPONENT ()
End Sub
'Form rewriting Dispose to clean up the list of components. Protected overloads overrides sub dispose (byval disposing as boolean) ing disponation kiln (Components Is Nothing) Then components.dispose () end if endiffs) End sub
'Windows Form Designer Supply Private Components as System.comPonentModel.icontainer
'Note: The following procedure is necessary to use the Windows Form Designer to modify this process using the Windows Form Designer. 'Don't modify it using the code editor.
Friend WithEvents Button1 As System.Windows.Forms.Button Friend WithEvents Timer1 As System.Windows.Forms.Timer Friend WithEvents ListBox1 As System.Windows.Forms.ListBox
System.drawing.color.fromargb (ctype (192, byte), ctype (192, byte), ctype (255, byte) me.drawing.size (146, 182) Me.Controls.add ( Me.ListBox1) Me.controls.add (me.button1) me.formborderstyle = system.windows.forms.formorderstyle.fixedToolWindow me.name = "form1" me.text = "msg ------ by wgscd" ME .ResumeLayout (false) End Sub
#End region
Sub checkMail () Dim ip As IPAddress = Dns.GetHostByName (Dns.GetHostName.ToString) .AddressList (0) Dim ipe As New IPEndPoint (ip, 2345) Me.Text = ip.ToString Dim tcpc As New TcpClient (ipe) tcpc .Connect (Dns.GetHostByName ( "pop3.126.com"). HostName, 110) Dim ntstream As NetworkStream Dim sr As StreamReader Dim sw As StreamWriter ntstream = tcpc.GetStream Me.ListBox1.Items.Add (ReadFromNetStream (ntstream)) WriteToNetStream (ntstream, "user wgscd") Me.ListBox1.Items.Add (ReadFromNetStream (ntstream)) WriteToNetStream (ntstream, "pass yourpassword") Dim msg As String = ReadFromNetStream (ntstream) If msg Like " OK 0 message *" Then MsgBox ( "No Mail Right now!") Me.ListBox1.Items.Add (ReadFromNetStream (ntstream)) Else MsgBox (msg) WriteToNetStream (ntstream, "list") Me.ListBox1.Items.Add (ReadFromNetStream (ntstream)) END IF WRI TetonetStream (NTSTREAM, "Quit") me.listbox1.items.add (ReadFromnetStream (NtStream) TCPC.Close () end SUB
Function ReadFromNetStream (ByRef NetStream As NetworkStream) As String Dim bb As Byte () = New Byte (521) {} NetStream.Read (bb, 0, bb.Length) Dim read As String = System.Text.Encoding.UTF8.GetString (bb) Return read End Function Function WriteToNetStream (ByRef NetStream As NetworkStream, ByVal command As String) As String Dim stringToSend As String = command & vbCrLf Dim arrayToSend As Byte () = System.Text.Encoding.UTF8.GetBytes (stringToSend.ToCharArray ) NetStream.Write (arrayToSend, 0, arrayToSend.Length) 'written to the stream, do not return values End FunctionPrivate Sub Button1_Click (ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim t As New Threading. Thread (Addressof Checkmail) T.Start ()
End Sub
Private Sub Form1_Load (Byval E AS System.Object, Byval E AS System.Eventargs) Handles MyBase.Load
End Subend Class
