VB.Net Tutorial/Socket Network/FTP Client — различия между версиями
Admin (обсуждение | вклад) м (1 версия) |
(нет различий)
|
Текущая версия на 15:55, 26 мая 2010
Ftp Client in VB.net
<source lang="vbnet">Imports System.Net Imports System.IO Imports System.Net.Sockets Imports System.Text Imports System.Windows.Forms public class FtpClientVB
public Shared Sub Main Application.Run(New Form1) End Sub
End class Public Class ftpCreate
Private ftpTcpClient As TcpClient Public ResponseStream As NetworkStream Public ReturnNameMessage As String Public ReturnPwdMessage As String Public Sub ftpLogin(ByVal strName As String, ByVal strPWD As String, ByVal strftpLogin As String) Try Dim strCommand As String Dim strReturnMessage As String Dim bteSendBytes() As Byte Dim bteRetruenBytes() As Byte Dim intReturnByteLength As Integer Dim ftpTcpClient As TcpClient = New TcpClient(strftpLogin, 21) ResponseStream = ftpTcpClient.GetStream strCommand = "USER " + strName + vbCrLf bteSendBytes = Encoding.ASCII.GetBytes(strCommand) ResponseStream.Write(bteSendBytes, 0, bteSendBytes.Length) intReturnByteLength = ftpTcpClient.ReceiveBufferSize ReDim bteRetruenBytes(intReturnByteLength) ResponseStream.Read(bteRetruenBytes, 0, intReturnByteLength) strReturnMessage = Encoding.ASCII.GetString(bteRetruenBytes) + "/ " ReturnNameMessage = strCommand + strReturnMessage strCommand = "PASS " + strPWD + vbCrLf Array.Clear(bteSendBytes, 0, bteSendBytes.Length) bteSendBytes = Encoding.ASCII.GetBytes(strCommand) ResponseStream.Write(bteSendBytes, 0, bteSendBytes.Length) intReturnByteLength = ftpTcpClient.ReceiveBufferSize ReDim bteRetruenBytes(intReturnByteLength) ResponseStream.Read(bteRetruenBytes, 0, intReturnByteLength) strReturnMessage = Encoding.ASCII.GetString(bteRetruenBytes) + "/ " ReturnPwdMessage = strCommand + strReturnMessage + vbCrLf Catch ex As SocketException ReturnPwdMessage = ex.Message End Try End Sub
End Class Public Class ftpClient
Dim ReturnNameMessage Dim ReturnPwdMessage Dim myftpCreate As ftpCreate Public Sub LogInFTP(ByVal strName As String, ByVal strPWD As String, ByVal strftpLogin As String) myftpCreate = New ftpCreate() myftpCreate.ftpLogin(strName, strPWD, strftpLogin) ReturnNameMessage = myftpCreate.ReturnNameMessage ReturnPwdMessage = myftpCreate.ReturnPwdMessage End Sub Public ReadOnly Property GetReturnNameMessage() As String Get Return ReturnNameMessage End Get End Property Public ReadOnly Property GetReturnPwdMessage() As String Get Return ReturnPwdMessage End Get End Property Public Sub FTPUpLoad(ByVal strFilePath As String, ByVal strFtpPath As String, ByRef pstrReturnMessage As String) Dim UPFile As New FileStream(strFilePath, FileMode.Open) Dim bytUPFile() As Byte Dim lngFileLength As Long Dim ftpStream As NetworkStream = myftpCreate.ResponseStream Dim returnMessage As String Dim UpLoadStream As NetworkStream Try lngFileLength = UPFile.Length ReDim bytUPFile(lngFileLength) UPFile.Read(bytUPFile, 0, lngFileLength) FTPCommands(ftpStream, "PASV", returnMessage) UpLoadStream = GetConnectTcpClient(returnMessage) FTPCommands(ftpStream, "TYPE I", returnMessage) FTPCommands(ftpStream, "STOR " + strFtpPath, returnMessage) pstrReturnMessage += returnMessage.TrimEnd UpLoadStream.Write(bytUPFile, 0, lngFileLength) UpLoadStream.Close() UPFile.Close() Catch ex As Exception pstrReturnMessage = ex.Message End Try End Sub Public Sub FTPDownLoad(ByVal strFilePath As String, ByVal strFtpPath As String, ByRef pstrReturnMessage As String) Dim UPFile As New FileStream(strFtpPath, FileMode.Create) Dim bytUPFile() As Byte Dim lngFileLength As Long Dim ftpStream As NetworkStream = myftpCreate.ResponseStream Dim returnMessage As String FTPCommands(ftpStream, "PASV", returnMessage) Dim DownloadStream As NetworkStream DownloadStream = GetConnectTcpClient(returnMessage) FTPCommands(ftpStream, "TYPE I", returnMessage) FTPCommands(ftpStream, "RETR " + strFilePath, returnMessage) pstrReturnMessage += returnMessage ReDim bytUPFile(1024) Do lngFileLength = DownloadStream.Read(bytUPFile, 0, 1024) UPFile.Write(bytUPFile, 0, lngFileLength) Loop While lngFileLength > 0 UPFile.Close() DownloadStream.Close() End Sub Private Function FTPCommands(ByVal ftpStream As NetworkStream, ByVal strCommand As String, ByRef strMessage As String) As Integer Dim bteCommand() As Byte bteCommand = Encoding.ASCII.GetBytes(strCommand + vbCrLf) ftpStream.Write(bteCommand, 0, bteCommand.Length) Dim b(360000) As Byte ftpStream.Read(b, 0, 360000) strMessage = Encoding.ASCII.GetString(b) End Function Private Function GetConnectTcpClient(ByVal respMessage As String) As NetworkStream Dim i As Integer Dim strIP As String Dim strIPs() As String Dim strAddress As String Dim intPort As Integer Try strIP = respMessage.Substring(respMessage.IndexOf("(")).Replace("(", "") strIPs = strIP.Split(",") strIP = "" For i = 0 To 3 strIP += strIPs(i) + "." Next strAddress = strIP.Substring(0, strIP.Length - 1) intPort = Integer.Parse(strIPs(4)) * 256 + _ Integer.Parse(strIPs(5).Substring(0, strIPs(5).IndexOf(")"))) Dim dataClient As New TcpClient() Dim cIPEP As New IPEndPoint(IPAddress.Parse(strAddress), intPort) dataClient.Connect(cIPEP) Return dataClient.GetStream Catch ex As Exception MessageBox.Show(ex.Message) End Try End Function Public Function CreateDir(ByVal strDirPath As String) As String Dim ftpStream As NetworkStream = myftpCreate.ResponseStream Dim returnMessage As String FTPCommands(ftpStream, "MKD " + strDirPath, returnMessage) returnMessage = "Creating Dir" + vbCrLf + returnMessage Return returnMessage ftpStream.Close() End Function Public Function DeleteDir(ByVal strDirPath As String) As String Dim ftpStream As NetworkStream = myftpCreate.ResponseStream Dim returnMessage As String FTPCommands(ftpStream, "RMD " + strDirPath, returnMessage) returnMessage = "Delete Dir" + vbCrLf + returnMessage Return returnMessage ftpStream.Close() End Function Public Function PrintDir() As String Dim ftpStream As NetworkStream = myftpCreate.ResponseStream Dim returnMessage As String FTPCommands(ftpStream, "PWD ", returnMessage) returnMessage = returnMessage Return returnMessage ftpStream.Close() End Function Public Function ChangeDir(ByVal strDirPath As String) As String Dim ftpStream As NetworkStream = myftpCreate.ResponseStream Dim returnMessage As String FTPCommands(ftpStream, "CWD " + strDirPath, returnMessage) returnMessage = returnMessage Return returnMessage ftpStream.Close() End Function Public Function DeleteFile(ByVal strFile As String) As String Dim ftpStream As NetworkStream = myftpCreate.ResponseStream Dim returnMessage As String FTPCommands(ftpStream, "DELE " + strFile, returnMessage) returnMessage = returnMessage Return returnMessage ftpStream.Close() End Function Public Function QuitFTP(ByVal strFile As String) As String Dim ftpStream As NetworkStream = myftpCreate.ResponseStream Dim returnMessage As String FTPCommands(ftpStream, "QUIT", returnMessage) returnMessage = returnMessage Return returnMessage ftpStream.Close() End Function
End Class
Public Class Form1
Inherits System.Windows.Forms.Form Public Sub New() MyBase.New() InitializeComponent() End Sub Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean) If disposing Then If Not (components Is Nothing) Then components.Dispose() End If End If MyBase.Dispose(disposing) End Sub Private components As System.ruponentModel.IContainer Friend WithEvents TabControl1 As System.Windows.Forms.TabControl Friend WithEvents loginPage As System.Windows.Forms.TabPage Friend WithEvents Label3 As System.Windows.Forms.Label Friend WithEvents Label2 As System.Windows.Forms.Label Friend WithEvents txtPassword As System.Windows.Forms.TextBox Friend WithEvents txtName As System.Windows.Forms.TextBox Friend WithEvents Label1 As System.Windows.Forms.Label Friend WithEvents ftpLoign As System.Windows.Forms.TextBox Friend WithEvents btnLogin As System.Windows.Forms.Button Friend WithEvents DownloadPage As System.Windows.Forms.TabPage Friend WithEvents Label4 As System.Windows.Forms.Label Friend WithEvents txtMessage As System.Windows.Forms.TextBox Friend WithEvents btnFTPUpLoad As System.Windows.Forms.Button Friend WithEvents UploadPage As System.Windows.Forms.TabPage Friend WithEvents txtFilePath As System.Windows.Forms.TextBox Friend WithEvents btnFTPDownLoad As System.Windows.Forms.Button Friend WithEvents txtFTPDownLoadPath As System.Windows.Forms.TextBox Friend WithEvents Label5 As System.Windows.Forms.Label Friend WithEvents Label7 As System.Windows.Forms.Label Friend WithEvents doFilePath As System.Windows.Forms.TextBox Friend WithEvents txtDestFile As System.Windows.Forms.TextBox Friend WithEvents Label8 As System.Windows.Forms.Label Friend WithEvents Label9 As System.Windows.Forms.Label Friend WithEvents btnDelete As System.Windows.Forms.Button Friend WithEvents Dir As System.Windows.Forms.TabPage Friend WithEvents Label6 As System.Windows.Forms.Label Friend WithEvents Button1 As System.Windows.Forms.Button Friend WithEvents Button2 As System.Windows.Forms.Button Friend WithEvents Button3 As System.Windows.Forms.Button Friend WithEvents txtDir As System.Windows.Forms.TextBox Friend WithEvents btnChange As System.Windows.Forms.Button Friend WithEvents btnQuit As System.Windows.Forms.Button <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent() Me.TabControl1 = New System.Windows.Forms.TabControl() Me.loginPage = New System.Windows.Forms.TabPage() Me.btnQuit = New System.Windows.Forms.Button() Me.Label3 = New System.Windows.Forms.Label() Me.Label2 = New System.Windows.Forms.Label() Me.txtPassword = New System.Windows.Forms.TextBox() Me.txtName = New System.Windows.Forms.TextBox() Me.Label1 = New System.Windows.Forms.Label() Me.ftpLoign = New System.Windows.Forms.TextBox() Me.btnLogin = New System.Windows.Forms.Button() Me.UploadPage = New System.Windows.Forms.TabPage() Me.Label9 = New System.Windows.Forms.Label() Me.Label5 = New System.Windows.Forms.Label() Me.txtDestFile = New System.Windows.Forms.TextBox() Me.txtFilePath = New System.Windows.Forms.TextBox() Me.btnFTPUpLoad = New System.Windows.Forms.Button() Me.DownloadPage = New System.Windows.Forms.TabPage() Me.btnDelete = New System.Windows.Forms.Button() Me.Label8 = New System.Windows.Forms.Label() Me.doFilePath = New System.Windows.Forms.TextBox() Me.Label7 = New System.Windows.Forms.Label() Me.txtFTPDownLoadPath = New System.Windows.Forms.TextBox() Me.btnFTPDownLoad = New System.Windows.Forms.Button() Me.Dir = New System.Windows.Forms.TabPage() Me.btnChange = New System.Windows.Forms.Button() Me.Button3 = New System.Windows.Forms.Button() Me.Button2 = New System.Windows.Forms.Button() Me.Label6 = New System.Windows.Forms.Label() Me.txtDir = New System.Windows.Forms.TextBox() Me.Button1 = New System.Windows.Forms.Button() Me.Label4 = New System.Windows.Forms.Label() Me.txtMessage = New System.Windows.Forms.TextBox() Me.TabControl1.SuspendLayout() Me.loginPage.SuspendLayout() Me.UploadPage.SuspendLayout() Me.DownloadPage.SuspendLayout() Me.Dir.SuspendLayout() Me.SuspendLayout() " "TabControl1 " Me.TabControl1.Controls.AddRange(New System.Windows.Forms.Control() {Me.loginPage, Me.DownloadPage, Me.UploadPage, Me.Dir}) Me.TabControl1.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte)) Me.TabControl1.Location = New System.Drawing.Point(31, 6) Me.TabControl1.Name = "TabControl1" Me.TabControl1.SelectedIndex = 0 Me.TabControl1.Size = New System.Drawing.Size(655, 122) Me.TabControl1.TabIndex = 12 " "loginPage " Me.loginPage.Controls.AddRange(New System.Windows.Forms.Control() {Me.btnQuit, Me.Label3, Me.Label2, Me.txtPassword, Me.txtName, Me.Label1, Me.ftpLoign, Me.btnLogin}) Me.loginPage.Location = New System.Drawing.Point(4, 25) Me.loginPage.Name = "loginPage" Me.loginPage.Size = New System.Drawing.Size(647, 93) Me.loginPage.TabIndex = 0 Me.loginPage.Text = "Login" " "btnQuit " Me.btnQuit.Location = New System.Drawing.Point(461, 8) Me.btnQuit.Name = "btnQuit" Me.btnQuit.Size = New System.Drawing.Size(112, 24) Me.btnQuit.TabIndex = 14 Me.btnQuit.Tag = "3" Me.btnQuit.Text = "Quit" " "Label3 " Me.Label3.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte)) Me.Label3.Location = New System.Drawing.Point(20, 40) Me.Label3.Name = "Label3" Me.Label3.Size = New System.Drawing.Size(93, 16) Me.Label3.TabIndex = 13 Me.Label3.Text = "Password" " "Label2 " Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte)) Me.Label2.Location = New System.Drawing.Point(20, 16) Me.Label2.Name = "Label2" Me.Label2.Size = New System.Drawing.Size(93, 16) Me.Label2.TabIndex = 12 Me.Label2.Text = "Account" " "txtPassword " Me.txtPassword.Location = New System.Drawing.Point(123, 32) Me.txtPassword.Name = "txtPassword" Me.txtPassword.PasswordChar = Microsoft.VisualBasic.ChrW(42) Me.txtPassword.Size = New System.Drawing.Size(205, 22) Me.txtPassword.TabIndex = 11 Me.txtPassword.Tag = "1" Me.txtPassword.Text = "1" " "txtName " Me.txtName.Location = New System.Drawing.Point(123, 8) Me.txtName.Name = "txtName" Me.txtName.Size = New System.Drawing.Size(205, 22) Me.txtName.TabIndex = 10 Me.txtName.Tag = "0" Me.txtName.Text = "Administrator" " "Label1 " Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte)) Me.Label1.Location = New System.Drawing.Point(10, 64) Me.Label1.Name = "Label1" Me.Label1.Size = New System.Drawing.Size(92, 16) Me.Label1.TabIndex = 9 Me.Label1.Text = "FTP Server" " "ftpLoign " Me.ftpLoign.Location = New System.Drawing.Point(123, 64) Me.ftpLoign.Name = "ftpLoign" Me.ftpLoign.Size = New System.Drawing.Size(502, 22) Me.ftpLoign.TabIndex = 8 Me.ftpLoign.Tag = "2" Me.ftpLoign.Text = "192.168.1.100" " "btnLogin " Me.btnLogin.Location = New System.Drawing.Point(338, 8) Me.btnLogin.Name = "btnLogin" Me.btnLogin.Size = New System.Drawing.Size(113, 24) Me.btnLogin.TabIndex = 7 Me.btnLogin.Tag = "3" Me.btnLogin.Text = "Login FTP" " "UploadPage " Me.UploadPage.Controls.AddRange(New System.Windows.Forms.Control() {Me.Label9, Me.Label5, Me.txtDestFile, Me.txtFilePath, Me.btnFTPUpLoad}) Me.UploadPage.Location = New System.Drawing.Point(4, 25) Me.UploadPage.Name = "UploadPage" Me.UploadPage.Size = New System.Drawing.Size(647, 93) Me.UploadPage.TabIndex = 1 Me.UploadPage.Text = "Upload" Me.UploadPage.Visible = False " "Label9 " Me.Label9.Location = New System.Drawing.Point(13, 62) Me.Label9.Name = "Label9" Me.Label9.Size = New System.Drawing.Size(82, 16) Me.Label9.TabIndex = 9 Me.Label9.Text = "FTP File" " "Label5 " Me.Label5.Location = New System.Drawing.Point(10, 29) Me.Label5.Name = "Label5" Me.Label5.Size = New System.Drawing.Size(82, 16) Me.Label5.TabIndex = 4 Me.Label5.Text = "Upload" " "txtDestFile " Me.txtDestFile.Location = New System.Drawing.Point(102, 56) Me.txtDestFile.Name = "txtDestFile" Me.txtDestFile.Size = New System.Drawing.Size(400, 22) Me.txtDestFile.TabIndex = 3 Me.txtDestFile.Text = "yourfile.txt" " "txtFilePath " Me.txtFilePath.Location = New System.Drawing.Point(102, 24) Me.txtFilePath.Name = "txtFilePath" Me.txtFilePath.Size = New System.Drawing.Size(400, 22) Me.txtFilePath.TabIndex = 1 Me.txtFilePath.Text = "c:\yourfile.txt" " "btnFTPUpLoad " Me.btnFTPUpLoad.Location = New System.Drawing.Point(513, 24) Me.btnFTPUpLoad.Name = "btnFTPUpLoad" Me.btnFTPUpLoad.Size = New System.Drawing.Size(113, 24) Me.btnFTPUpLoad.TabIndex = 0 Me.btnFTPUpLoad.Text = "Upload" " "DownloadPage " Me.DownloadPage.Controls.AddRange(New System.Windows.Forms.Control() {Me.btnDelete, Me.Label8, Me.doFilePath, Me.Label7, Me.txtFTPDownLoadPath, Me.btnFTPDownLoad}) Me.DownloadPage.Location = New System.Drawing.Point(4, 25) Me.DownloadPage.Name = "DownloadPage" Me.DownloadPage.Size = New System.Drawing.Size(647, 93) Me.DownloadPage.TabIndex = 2 Me.DownloadPage.Text = "Download" Me.DownloadPage.Visible = False " "btnDelete " Me.btnDelete.Location = New System.Drawing.Point(512, 56) Me.btnDelete.Name = "btnDelete" Me.btnDelete.Size = New System.Drawing.Size(113, 24) Me.btnDelete.TabIndex = 9 Me.btnDelete.Text = "Delete file" " "Label8 " Me.Label8.Location = New System.Drawing.Point(10, 30) Me.Label8.Name = "Label8" Me.Label8.Size = New System.Drawing.Size(82, 16) Me.Label8.TabIndex = 8 Me.Label8.Text = "FTP File" " "doFilePath " Me.doFilePath.Location = New System.Drawing.Point(92, 56) Me.doFilePath.Name = "doFilePath" Me.doFilePath.Size = New System.Drawing.Size(410, 22) Me.doFilePath.TabIndex = 7 Me.doFilePath.Text = "c:\yourfile.txt" " "Label7 " Me.Label7.Location = New System.Drawing.Point(10, 61) Me.Label7.Name = "Label7" Me.Label7.Size = New System.Drawing.Size(82, 16) Me.Label7.TabIndex = 6 Me.Label7.Text = "Target File" " "txtFTPDownLoadPath " Me.txtFTPDownLoadPath.Location = New System.Drawing.Point(92, 24) Me.txtFTPDownLoadPath.Name = "txtFTPDownLoadPath" Me.txtFTPDownLoadPath.Size = New System.Drawing.Size(410, 22) Me.txtFTPDownLoadPath.TabIndex = 4 Me.txtFTPDownLoadPath.Text = "yourfile.txt" " "btnFTPDownLoad " Me.btnFTPDownLoad.Location = New System.Drawing.Point(513, 24) Me.btnFTPDownLoad.Name = "btnFTPDownLoad" Me.btnFTPDownLoad.Size = New System.Drawing.Size(113, 24) Me.btnFTPDownLoad.TabIndex = 3 Me.btnFTPDownLoad.Text = "Download file" " "Dir " Me.Dir.Controls.AddRange(New System.Windows.Forms.Control() {Me.btnChange, Me.Button3, Me.Button2, Me.Label6, Me.txtDir, Me.Button1}) Me.Dir.Location = New System.Drawing.Point(4, 25) Me.Dir.Name = "Dir" Me.Dir.Size = New System.Drawing.Size(647, 93) Me.Dir.TabIndex = 3 Me.Dir.Text = "Dir" " "btnChange " Me.btnChange.Location = New System.Drawing.Point(522, 16) Me.btnChange.Name = "btnChange" Me.btnChange.Size = New System.Drawing.Size(113, 22) Me.btnChange.TabIndex = 10 Me.btnChange.Text = "Change Dir" " "Button3 " Me.Button3.Location = New System.Drawing.Point(399, 56) Me.Button3.Name = "Button3" Me.Button3.Size = New System.Drawing.Size(113, 22) Me.Button3.TabIndex = 9 Me.Button3.Text = "Current Folder" " "Button2 " Me.Button2.Location = New System.Drawing.Point(276, 56) Me.Button2.Name = "Button2" Me.Button2.Size = New System.Drawing.Size(113, 22) Me.Button2.TabIndex = 8 Me.Button2.Text = "Delete" " "Label6 " Me.Label6.Location = New System.Drawing.Point(20, 20) Me.Label6.Name = "Label6" Me.Label6.Size = New System.Drawing.Size(82, 16) Me.Label6.TabIndex = 7 Me.Label6.Text = "FTP Dir" " "txtDir " Me.txtDir.Location = New System.Drawing.Point(113, 16) Me.txtDir.Name = "txtDir" Me.txtDir.Size = New System.Drawing.Size(399, 22) Me.txtDir.TabIndex = 6 Me.txtDir.Text = "C" " "Button1 " Me.Button1.Location = New System.Drawing.Point(154, 56) Me.Button1.Name = "Button1" Me.Button1.Size = New System.Drawing.Size(112, 22) Me.Button1.TabIndex = 5 Me.Button1.Text = "New" " "Label4 " Me.Label4.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte)) Me.Label4.Location = New System.Drawing.Point(31, 136) Me.Label4.Name = "Label4" Me.Label4.Size = New System.Drawing.Size(70, 16) Me.Label4.TabIndex = 11 Me.Label4.Text = "Message" Me.Label4.TextAlign = System.Drawing.ContentAlignment.MiddleRight " "txtMessage " Me.txtMessage.Location = New System.Drawing.Point(31, 160) Me.txtMessage.MaxLength = 1048576 Me.txtMessage.Multiline = True Me.txtMessage.Name = "txtMessage" Me.txtMessage.ScrollBars = System.Windows.Forms.ScrollBars.Vertical Me.txtMessage.Size = New System.Drawing.Size(650, 192) Me.txtMessage.TabIndex = 10 Me.txtMessage.Text = "" " "Form1 " Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14) Me.ClientSize = New System.Drawing.Size(716, 365) Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.TabControl1, Me.Label4, Me.txtMessage}) Me.TabControl1.ResumeLayout(False) Me.loginPage.ResumeLayout(False) Me.UploadPage.ResumeLayout(False) Me.DownloadPage.ResumeLayout(False) Me.Dir.ResumeLayout(False) Me.ResumeLayout(False) End Sub Dim myftp As New ftpClient() Private Sub btnLogin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLogin.Click Dim strReturnFields As String = "" Dim strName As String Dim strPWD As String Dim strftpLogin As String FieldsChek(strReturnFields) If strReturnFields.Length > 0 Then MessageBox.Show(strReturnFields + " cannot be empty") Return End If "" «Ø strName = txtName.Text strPWD = txtPassword.Text strftpLogin = ftpLoign.Text myftp.LogInFTP(strName, strPWD, strftpLogin) txtMessage.Text = myftp.GetReturnNameMessage txtMessage.Text = txtMessage.Text + myftp.GetReturnPwdMessage End Sub Private Sub FieldsChek(ByRef strReturnFields As String) If txtName.Text.Length = 0 Then txtName.Focus() If txtPassword.Text.Length = 0 Then txtPassword.Focus() If ftpLoign.Text.Length = 0 Then ftpLoign.Focus() End Sub Private Sub btnFTPUpLoad_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnFTPUpLoad.Click Dim strUPFilePath As String Dim strFtpAddress As String Dim strMessage As String strUPFilePath = txtFilePath.Text strFtpAddress = txtDestFile.Text myftp.FTPUpLoad(strUPFilePath, strFtpAddress, strMessage) txtMessage.Text += vbCrLf + strMessage End Sub Private Sub btnFTPDownLoad_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnFTPDownLoad.Click Dim strFTPDownLoadPath As String Dim strFtpAddress As String Dim strMessage As String strFTPDownLoadPath = txtFTPDownLoadPath.Text strFtpAddress = doFilePath.Text myftp.FTPDownLoad(strFTPDownLoadPath, strFtpAddress, strMessage) txtMessage.Text += vbCrLf + strMessage End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim strDir As String = txtDir.Text Dim strReturnMessage As String strReturnMessage = myftp.CreateDir(strDir) txtMessage.Text += vbCrLf + strReturnMessage End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Dim strDir As String = txtDir.Text Dim strReturnMessage As String strReturnMessage = myftp.DeleteDir(strDir) txtMessage.Text += vbCrLf + strReturnMessage End Sub Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click Dim strDir As String = txtDir.Text Dim strReturnMessage As String strReturnMessage = myftp.PrintDir() txtMessage.Text += vbCrLf + strReturnMessage End Sub Private Sub btnChange_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnChange.Click Dim strDir As String = txtDir.Text Dim strReturnMessage As String strReturnMessage = myftp.ChangeDir(strDir) txtMessage.Text += vbCrLf + strReturnMessage End Sub
Private Sub btnDelete_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDelete.Click Dim strFile As String = txtFTPDownLoadPath.Text Dim strReturnMessage As String strReturnMessage = myftp.DeleteFile(strFile) txtMessage.Text += vbCrLf + strReturnMessage End Sub Private Sub btnQuit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnQuit.Click Dim strReturnMessage As String strReturnMessage = myftp.QuitFTP(strReturnMessage) txtMessage.Text += vbCrLf + strReturnMessage End Sub
End Class</source>