Hi Com!
Ich arbeite gerade an einem Multitool, in dem man die Farben und Button/Textboxstile verändern kann. Jetzt wollte ich, dass man die Daten online speichern kann, falls man z.b. von seinem 2. PC oder Freund sich anmeldet, das gleiche Design hat. Ein und Auslesen funktioniert schon, nur mit dem uploaden auf meinen Ftp habe ich Probleme... Ich habe hier im Forum schon viel dazu gesucht und gefunden, ausprobiert - doch bis jetzt hat nichts funktioniert
Mein Code:
Bei der nicht ausgeklammerten Version hab ich einen FTP-Account angelegt, der direkt im Verzeichnis ist, aber es geht trotzdem nicht
Wäre cool, falls mir jemand helfen könnte!
Ich arbeite gerade an einem Multitool, in dem man die Farben und Button/Textboxstile verändern kann. Jetzt wollte ich, dass man die Daten online speichern kann, falls man z.b. von seinem 2. PC oder Freund sich anmeldet, das gleiche Design hat. Ein und Auslesen funktioniert schon, nur mit dem uploaden auf meinen Ftp habe ich Probleme... Ich habe hier im Forum schon viel dazu gesucht und gefunden, ausprobiert - doch bis jetzt hat nichts funktioniert
Mein Code:
VB.NET-Quellcode
- Imports System.Net
- Public Class uploadsettings
- Dim WithEvents Uploader As New WebClient
- Dim WithEvents Downloader As New WebClient
- Dim speicherort As String
- Dim URL As String = "http://meineseite.de/data/epvp/ultigame%20multitool/settings/" & My.Settings.USERNAME & ".mmt"
- Private Sub hochladen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
- Dim Dateipfad As String
- OpenFileDialog1.ShowDialog()
- Dateipfad = OpenFileDialog1.FileName
- TextBox1.Text = Dateipfad
- speicherort = Dateipfad
- Upload()
- End Sub
- Sub Upload()
- Try
- Dim Client As New Net.WebClient
- Client.Credentials = New Net.NetworkCredential("user", "pw")
- Client.UploadString("ftp://meineseite.de/", speicherort)
- 'My.Computer.Network.UploadFile(Application.StartupPath & My.Settings.USERNAME & ".mmt", "ftp://meineseite.de/data/epvp/ultigame%20multitool/settings/", "user", "pw")
- 'Dim client As New Net.WebClient
- 'client.Credentials = New NetworkCredential("user", "pw")
- 'client.UploadFileAsync(New Uri("ftp://meineseite.de/data/epvp/ultigame%20multitool/settings/" & My.Settings.USERNAME & ".mmt"), speicherort)
- 'MsgBox("Erfolgreich hochgeladen!", MsgBoxStyle.Information, "")
- Catch ex As Exception
- MsgBox(ex.Message, MsgBoxStyle.Critical, "")
- End Try
- End Sub
Bei der nicht ausgeklammerten Version hab ich einen FTP-Account angelegt, der direkt im Verzeichnis ist, aber es geht trotzdem nicht
Wäre cool, falls mir jemand helfen könnte!