ACHTUNG : FTP - Wegen Passwort Sicherheit nur für Private Zwecke verwenden !
Suche nach einfachen FTP Browser .
ZB:
Spoiler anzeigen
Suche nach einfachen FTP Browser .
VB.NET-Quellcode
- Option Strict On
- Imports System.Text
- Imports System.Net
- Public Class Form1
- Dim ftp_pfad, username, password As String
- Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
- ftp_pfad = "xxxxxx/FRITZ/mediabox/Video_Streams/"
- username = "xxxxxx"
- password = "xxxx"
- ftp_ordner_auslesen()
- End Sub
- Dim selectet_listbox_eintrag As String
- Dim ausführbare_datei As String
- Dim builder As New StringBuilder
- Private Sub ListBox1_SelectedIndexChanged_1(sender As Object, e As EventArgs) Handles ListBox1.SelectedIndexChanged
- If Not ListBox1.SelectedItems.Count = Nothing AndAlso ListBox1.SelectedItem.ToString = "Verbindungsfehler !" Then
- ftp_ordner_auslesen()
- End If
- If Not ListBox1.SelectedItems.Count = Nothing AndAlso Not ListBox1.SelectedItem.ToString = "" AndAlso Not ListBox1.SelectedItem.ToString = "Verbindungsfehler !" Then
- If Not ListBox1.SelectedItem.ToString = "[ Übergeordnetes Verzeichnis ]" Then
- ausführbare_datei = IO.Path.GetExtension(ListBox1.SelectedItem.ToString)
- If ausführbare_datei = "" Then
- builder.Append(ListBox1.SelectedItem.ToString & "/").ToString()
- ftp_ordner_auslesen()
- End If
- 'vlc_play()
- Else
- Try
- Dim result As String = ""
- Dim ss As String = builder.ToString.Substring(0, builder.ToString.LastIndexOf("/"))
- builder.Clear()
- result = ss.Substring(0, ss.LastIndexOf("/")) & "/"
- builder.Append(result)
- Catch ex As Exception
- builder.Clear()
- End Try
- ftp_ordner_auslesen()
- End If
- End If
- End Sub
- Private Sub ftp_ordner_auslesen()
- If BackgroundWorker1.IsBusy = True Then
- BackgroundWorker1.CancelAsync()
- End If
- If BackgroundWorker1.IsBusy = False Then
- BackgroundWorker1.RunWorkerAsync()
- ListBox1.Items.Clear()
- ListBox1.Items.Add("Bitte warten ...")
- End If
- End Sub
- Dim list_ende As String
- Dim liste As New List(Of String)
- Private Sub BackgroundWorker1_DoWork(sender As Object, e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker1.DoWork
- liste.Clear()
- Try
- Dim Request As Net.FtpWebRequest = CType(Net.FtpWebRequest.Create(New Uri(ftp_pfad & builder.ToString)), FtpWebRequest)
- Request.Credentials = New NetworkCredential(username, password)
- Request.Method = Net.WebRequestMethods.Ftp.ListDirectory
- Dim Response As Net.FtpWebResponse = CType(Request.GetResponse(), FtpWebResponse)
- Using myReader As New IO.StreamReader(Response.GetResponseStream(), System.Text.Encoding.Default)
- Do While myReader.EndOfStream = False
- liste.Add(myReader.ReadLine())
- Loop
- End Using
- Catch ex As Exception
- If Not builder.ToString = "" AndAlso Not ex.Message.ToString = "Die Verbindung mit dem Remoteserver kann nicht hergestellt werden." Then
- list_ende = "[ Übergeordnetes Verzeichnis ]"
- End If
- If ex.Message.ToString = "Die Verbindung mit dem Remoteserver kann nicht hergestellt werden." Then
- list_ende = "Verbindungsfehler !"
- builder.Clear()
- End If
- End Try
- End Sub
- Private Sub BackgroundWorker1_RunWorkerCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles BackgroundWorker1.RunWorkerCompleted
- ListBox1.Items.Clear()
- liste.Sort()
- If Not liste.Count = Nothing Then
- If Not builder.ToString = "" Then
- ListBox1.Items.Add("[ Übergeordnetes Verzeichnis ]")
- End If
- For Each video_liste As String In liste
- ListBox1.Items.Add(video_liste)
- Next
- Else
- ListBox1.Items.Add(list_ende)
- End If
- End Sub
- End Class
ZB:
VB.NET-Quellcode
- Private Sub vlc_play()
- Select ausführbare_datei.ToLower
- Case ".mp4"
- Dim pr() As Process = Process.GetProcessesByName("vlc")
- If pr.Length > 0 Then
- pr(0).Kill()
- End If
- If My.Computer.FileSystem.FileExists("C:\Program Files (x86)\VideoLAN\VLC\vlc.exe") Then
- Using player As New Process()
- player.StartInfo.FileName = "C:\Program Files (x86)\VideoLAN\VLC\vlc.exe"
- player.StartInfo.Arguments = " -vvv " & ftp_pfad & builder.ToString & ListBox1.SelectedItem.ToString
- player.Start()
- End Using
- End Select
- End Sub
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „TVX“ ()