I2um1, из vb.net переписывал на c#, не очень вышло...
| C# | 1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
| using System;
using System.Text;
using System.Windows.Forms;
using System.Net.Security;
using System.Net.Sockets;
using System.IO;
namespace EmailCheck
{
public partial class Form1 : Form
{
public Form1()
{
InitializeComponent();
}
string PopHost = null;
string UserName = null;
string Password = null;
int PortNm = 0;
TcpClient POP3 = new TcpClient();
StreamReader Read_Stream = default(StreamReader);
NetworkStream Network_Stream = default(NetworkStream);
SslStream m_sslStream = default(SslStream);
string server_Command;
int ret_Val = 0;
byte[] m_buffer = null;
string StatResp = null;
string[] server_Stat = new string[3];
int Index_Num = 0;
//string StrRetr = null;
//string Server_Response = null;
private void label10_Click(object sender, EventArgs e)
{
Application.Exit();
}
public string SendCommand(SslStream sslStream, string Server_Command)
{
Server_Command = Server_Command + "\r\n";
m_buffer = Encoding.ASCII.GetBytes(Server_Command.ToCharArray());
m_sslStream.Write(m_buffer, 0, m_buffer.Length);
Read_Stream = new StreamReader(m_sslStream);
var Server_Reponse = Read_Stream.ReadLine();
return Server_Reponse;
}
private void CmdDownload_Click(object sender, EventArgs e)
{
if (POP3.Connected)
{
CloseServer();
POP3 = new TcpClient(PopHost, int.Parse(TxtPort.Text));
ret_Val = 0;
}
else
{
string Server_Command = null;
PopHost = TxtHost.Text;
UserName = TxtUsrNm.Text;
Password = TxtPass.Text;
PortNm = int.Parse(TxtPort.Text);
Cursor = Cursors.WaitCursor;
POP3 = new TcpClient(PopHost, int.Parse(TxtPort.Text));
Network_Stream = POP3.GetStream();
m_sslStream = new SslStream(Network_Stream);
m_sslStream.AuthenticateAsClient(PopHost);
Read_Stream = new StreamReader(m_sslStream);
listBox1.Items.Add(Read_Stream.ReadLine());
server_Command = "USER" + UserName + "\r\n";
m_buffer = System.Text.Encoding.ASCII.GetBytes(Server_Command.ToCharArray());
m_sslStream.Write(m_buffer, 0, m_buffer.Length);
listBox1.Items.Add(Read_Stream.ReadLine());
server_Command = "PASS" + Password + "\r\n";
m_buffer = System.Text.Encoding.ASCII.GetBytes(server_Command.ToCharArray());
m_sslStream.Write(m_buffer, 0, m_buffer.Length);
listBox1.Items.Add(Read_Stream.ReadLine());
server_Command = "STAT" + "\r\n";
m_buffer = System.Text.Encoding.ASCII.GetBytes(server_Command.ToCharArray());
m_sslStream.Write(m_buffer, 0, m_buffer.Length);
listBox1.Items.Add(Read_Stream.ReadLine());
}
Cursor = Cursors.WaitCursor;
CmdClose.Enabled = true;
CmdDownload.Enabled = false;
label7.Enabled = true;
//StatResp = listBox1.Items(listBox1.Items.Count - 1);
server_Stat = StatResp.Split();
MsgCount.Text = server_Stat[2];
ret_Val = 1;
if (ret_Val == 0)
listBox2.Items.Add("ur not connected");
}
public void getMesgs(int Num_Emails)
{
string List_Resp = null;
Cursor = Cursors.WaitCursor;
List_Resp = SendCommand(m_sslStream, "LIST");
listBox2.Items.Add(List_Resp);
}
public void CloseServer()
{
StatResp = SendCommand(m_sslStream, "QUIT");
listBox1.Items.Add(StatResp);
listBox2.Items.Clear();
richTextBox1.Text = string.Empty;
MsgCount.Clear();
POP3.Close();
ret_Val = 0;
}
private void CmdClose_Click(object sender, EventArgs e)
{
Cursor = Cursors.Default;
CmdClose.Enabled = false;
CmdDownload.Enabled = true;
label7.Enabled = false;
TxtHost.Text = "";
TxtPass.Text = "";
TxtPort.Text = "";
TxtUsrNm.Text = "";
CloseServer();
}
private void label8_Click(object sender, EventArgs e)
{
Form2 form = new Form2();
form.Show();
}
private void Form1_Load(object sender, EventArgs e)
{
string ProfileName = Interaction.GetSetting("EmailProfiles", "Selected", "Name");
TxtHost.Text = Interaction.GetSetting("EmailProfiles", ProfileName, "HostName");
TxtUsrNm.Text = Interaction.GetSetting("EmailProfiles", ProfileName, "userName");
TxtPass.Text = Interaction.GetSetting("EmailProfiles", ProfileName, "password");
TxtPort.Text = Interaction.GetSetting("EmailProfiles", ProfileName, "portNo");
}
private void label7_Click(object sender, EventArgs e)
{
getMesgs(MsgCount.Text);
}
private void listBox2_SelectedIndexChanged(object sender, EventArgs e)
{
string XX = null;
string sZTMP = null;
Cursor.Current = Cursors.WaitCursor;
try
{
richTextBox1.Clear();
Index_Num = (listBox2.SelectedIndex + 1);//.ToString();
XX = ("RETR" + Index_Num.ToString() + "\r\n");
m_buffer = System.Text.Encoding.ASCII.GetBytes(XX.ToCharArray());
m_sslStream.Write(m_buffer, 0, m_buffer.Length);
Read_Stream = new StreamReader(m_sslStream);
Read_Stream.ReadLine();
sZTMP = Read_Stream.ReadLine() + "\r\n";
do
{
sZTMP = Read_Stream.ReadLine() + "\r\n";
richTextBox1.Text += sZTMP;
}
while (Read_Stream.Peek() != -1);
Cursor.Current = Cursors.Default;
}
catch (Exception ex)
{
MessageBox.Show(ex.Message);
}
}
}
} |
|
| VB.NET | 1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
| Imports System.IO
Imports System.Net.Sockets
Imports System.Text
Imports System.Net.Security
Imports System.Net
Class Form1
Dim PopHost As String
Dim UserName As String
Dim Password As String
Dim PortNm As Integer
Dim POP3 As New TcpClient
Dim Read_Stream As StreamReader
Dim NetworkS_tream As NetworkStream
Dim m_sslStream As SslStream
Dim server_Command As String
Dim ret_Val As Integer
Dim m_buffer() As Byte
Dim StatResp As String
Dim server_Stat(2) As String
Dim Index_Num As Integer
Dim StrRetr As String
Dim Server_Reponse As String
Private Sub Label10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label10.Click
Application.Exit()
End Sub
Function SendCommand(ByVal SslStrem As SslStream, ByVal Server_Command As String) As String
Server_Command = Server_Command & vbCrLf
m_buffer = System.Text.Encoding.ASCII.GetBytes(Server_Command.ToCharArray())
m_sslStream.Write(m_buffer, 0, m_buffer.Length)
Read_Stream = New StreamReader(m_sslStream)
Server_Reponse = Read_Stream.ReadLine()
Return Server_Reponse
End Function
Private Sub CmdDownload_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmdDownload.Click
If POP3.Connected = True Then
CloseServer()
POP3 = New TcpClient(PopHost, Integer.Parse(TxtPort.Text))
ret_Val = 0
Exit Sub
Else
PopHost = TxtHost.Text
UserName = TxtUsrNm.Text
Password = TxtPass.Text
PortNm = Integer.Parse(TxtPort.Text)
Cursor = Cursors.WaitCursor
POP3 = New TcpClient(PopHost, Integer.Parse(TxtPort.Text))
NetworkS_tream = POP3.GetStream()
m_sslStream = New SslStream(NetworkS_tream)
m_sslStream.AuthenticateAsClient(PopHost)
Read_Stream = New StreamReader(m_sslStream)
ListBox1.Items.Add(Read_Stream.ReadLine())
server_Command = "USER " + UserName + vbCrLf
m_buffer = System.Text.Encoding.ASCII.GetBytes(server_Command.ToCharArray())
m_sslStream.Write(m_buffer, 0, m_buffer.Length)
ListBox1.Items.Add(Read_Stream.ReadLine())
server_Command = "PASS " + Password + vbCrLf
m_buffer = System.Text.Encoding.ASCII.GetBytes(server_Command.ToCharArray())
m_sslStream.Write(m_buffer, 0, m_buffer.Length)
ListBox1.Items.Add(Read_Stream.ReadLine())
'Send STAT command to get information ie: number of mail and size
server_Command = "STAT " + vbCrLf
m_buffer = System.Text.Encoding.ASCII.GetBytes(server_Command.ToCharArray())
m_sslStream.Write(m_buffer, 0, m_buffer.Length)
ListBox1.Items.Add(Read_Stream.ReadLine())
End If
Cursor = Cursors.Default
CmdClose.Enabled = True
CmdDownload.Enabled = False
Label8.Enabled = True
'Get Messages count
StatResp = ListBox1.Items(ListBox1.Items.Count - 1)
server_Stat = StatResp.Split(" ")
MsgCount.Text = server_Stat(1)
ret_Val = 1
'Get list of E-mails, where E-mail count = msgcount.text (3-Oct-2012)
If ret_Val = 0 Then
ListBox2.Items.Add("You are not connected, please connect")
Exit Sub
Else
End If
End Sub
Private Sub MinimizeToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MinimizeToolStripMenuItem.Click
If Me.WindowState = FormWindowState.Normal Then
Me.WindowState = FormWindowState.Minimized
End If
End Sub
Private Sub Form1_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseClick
If e.Button = Windows.Forms.MouseButtons.Right Then
ContextMenuStrip1.Show(Me, e.Location)
End If
End Sub
Sub getMesgs(ByVal Num_Emails As Integer)
Dim List_Resp As String
Dim I As Integer
Cursor = Cursors.WaitCursor
ProgressBar1.Value = 0
ProgressBar1.Maximum = Num_Emails
ProgressBar1.Step = 1
Cursor = Cursors.WaitCursor
For I = 1 To Num_Emails
ProgressBar1.PerformStep()
List_Resp = SendCommand(m_sslStream, "LIST " & I.ToString)
ListBox2.Items.Add(List_Resp)
Next I
ProgressBar1.Value = 0
Label8.Enabled = False
Cursor = Cursors.Default
End Sub
Sub CloseServer()
StatResp = SendCommand(m_sslStream, "QUIT ") & vbCrLf
ListBox1.Items.Add(StatResp)
ListBox2.Items.Clear()
TextBox1.Text = String.Empty
MsgCount.Clear()
POP3.Close()
ret_Val = 0
End Sub
Private Sub CmdClose_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmdClose.Click
Cursor = Cursors.Default
CmdClose.Enabled = False
CmdDownload.Enabled = True
Label8.Enabled = False
TxtHost.Text = ""
TxtPass.Text = ""
TxtPort.Text = ""
TxtUsrNm.Text = ""
CloseServer()
End Sub
Private Sub Label9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label9.Click
_Settings.Show()
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
On Error Resume Next
'Load last profile selected.
Dim ProfileName As String = GetSetting("EmailProfiles", "Selected", "Name")
TxtHost.Text = GetSetting("EmailProfiles", ProfileName, "HostName")
TxtUsrNm.Text = GetSetting("EmailProfiles", ProfileName, "username")
TxtPass.Text = GetSetting("EmailProfiles", ProfileName, "password")
TxtPort.Text = GetSetting("EmailProfiles", ProfileName, "PortNo")
End Sub
Private Sub Label8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label8.Click
If Not IsNumeric(MsgCount.Text) Then
MsgCount.Text = "error : Restart App."
Exit Sub
End If
getMesgs(MsgCount.Text)
End Sub
Private Sub ListBox2_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox2.SelectedIndexChanged
'Retrieve E-mails by Index
Dim XX As String
Dim sZTMP As String
Cursor.Current = Cursors.WaitCursor
Try
TextBox1.Clear()
Index_Num = (ListBox2.SelectedIndex + 1).ToString
XX = ("RETR " + Index_Num.ToString & vbCrLf)
m_buffer = System.Text.Encoding.ASCII.GetBytes(XX.ToCharArray())
m_sslStream.Write(m_buffer, 0, m_buffer.Length)
Read_Stream = New StreamReader(m_sslStream)
Read_Stream.ReadLine()
sZTMP = Read_Stream.ReadLine + vbCrLf
Do While Read_Stream.Peek <> -1
sZTMP = Read_Stream.ReadLine + vbCrLf
TextBox1.Text += (sZTMP)
Loop
Cursor.Current = Cursors.Default
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
End Class
'End here |
|
0
|
(
Сообщение от New Life
