|
Imports System.Net.Sockets
Imports System.IO
Imports System.Text
Public Class Form1
Private Sub 実行_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles 実行.Click
' TCP/IP 処理のクラスインスタンスを作成
Dim ftp As TcpClient = New TcpClient()
' 接続( エラー処理無し )
ftp.Connect(Me.ホスト名.Text, 21)
' FTP にアクセスする為のハンドルを作成
Dim ftp_access As NetworkStream = ftp.GetStream()
' データ読み込み用のインターフェイスを作成
Dim reader As StreamReader = New StreamReader(ftp_access)
' データ書き込み用のインターフェイスを作成
Dim writer As StreamWriter = New StreamWriter(ftp_access)
writer.AutoFlush = True
' 接続の応答コードを表示する
If ftp.Connected Then
MessageBox.Show(reader.ReadLine())
End If
' ////////////////////////////////////////////
' コマンド処理
' ////////////////////////////////////////////
' ユーザ名を送出
writer.WriteLine("USER " + Me.ユーザ名.Text)
' 応答コードを表示する
MessageBox.Show(reader.ReadLine())
' パスワードを送出
writer.WriteLine("PASS " + Me.パスワード.Text)
' 応答コードを表示する
MessageBox.Show(reader.ReadLine())
' ここでは必要無いが必要な場合はここで実行する
writer.WriteLine("PASV")
' 応答コードを表示する
MessageBox.Show(reader.ReadLine())
' コマンド送出
writer.WriteLine("SITE CHMOD 777 /public_html/info.php")
' 応答コードを表示する
MessageBox.Show(reader.ReadLine())
' ////////////////////////////////////////////
' コマンド処理の終了
' ////////////////////////////////////////////
' 接続解除
ftp.Close()
End Sub
End Class
| |