Variablen als datei Speichern und Uploaden

  • VB.NET

Es gibt 10 Antworten in diesem Thema. Der letzte Beitrag () ist von Tsuyo.

    Variablen als datei Speichern und Uploaden

    aslo ich möchte ein programm schreiben das name und email als txt auf server speichert
    die txt könnte so ausehen

    name:name
    Email:m@m.de


    sowiet hier hab ich meine abfrage der daten

    VB.NET-Quellcode

    1. sub
    2. x = Inputbox("Gib deinen Namen ein")
    3. y = Inputbox("Gib deine Emailadresse ein")
    4. end sub

    und dsa soll jetzt auf einen server geschickt werden


    vielen dank schonmal im forraus

    Dann mach es doch einfach so :

    VB.NET-Quellcode

    1. My.Computer.FileSystem.WriteAllText(Pfad zur Datei mit endung,True oder false)

    und Lade sie mit :

    VB.NET-Quellcode

    1. 'Damit du den Uploadstatus anzeigen lassen kannst
    2. Dim WithEvents Client As New WebClient()

    VB.NET-Quellcode

    1. 'Der eigentliche UploadCode
    2. Dim serverUri As New Uri("Dein Server" + Dateiname)
    3. Client.Credentials = New Net.NetworkCredential("Dein Username", "Dein Passwort")
    4. Client.UploadFileAsync(serverUri, file)

    VB.NET-Quellcode

    1. 'Damit zeigst du den DownloadProgress in 3 Verschiedenen Sachen an
    2. Private Sub ProgessChanged(ByVal sender As Object, ByVal e As UploadProgressChangedEventArgs) Handles Client.UploadProgressChanged
    3. ProgressBar1.Value = e.ProgressPercentage ' Per Progressbar
    4. Label1.Text = e.ProgressPercentage & "%" ' Die Prozentzahl als Text
    5. Label2.Text = e.BytesSent & " von " & e.TotalBytesToSend & " Bytes gesendet." ' Und wieviele Bytes von wievielen gesendet wurden
    6. End Sub

    Nebenan gesagt:
    JEDER kann dein Passwort/Username mitsniffen. Den Fehler hat mcandy007 bei seinem VEZ auch gemacht. Du solltest lieber PHP verweden und die Daten Serverseiting verarbeiten. Ist sicherer.
    Von meinem iPhone gesendet

    Was habe ich Fasch gemacht

    hier mein Code

    VB.NET-Quellcode

    1. Public Class Form1
    3. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    5. x = Inputbox("Gib deinen Namen ein")
    6. y = Inputbox("Gib deine Emailadresse ein")
    8. My.Computer.FileSystem.WriteAllText(PW.txt)
    9. 'Damit du den Uploadstatus anzeigen lassen kannst
    10. Dim WithEvents Client As New WebClient()
    11. 'Der eigentliche UploadCode
    12. Dim serverUri As New Uri("Ftp://maxolbort.funpic.de" + MaximizeBox.txt)
    13. Client.Credentials = New Net.NetworkCredential("xxxxxxxx", "mein pw")
    14. Client.UploadFileAsync(serverUri, file)
    15. 'Damit zeigst du den DownloadProgress in 3 Verschiedenen Sachen an
    16. Private Sub ProgessChanged(ByVal sender As Object, ByVal e As UploadProgressChangedEventArgs) Handles Client.UploadProgressChanged
    17. ProgressBar1.Value = e.ProgressPercentage ' Per Progressbar
    18. Label1.Text = e.ProgressPercentage & "%" ' Die Prozentzahl als Text
    19. Label2.Text = e.BytesSent & " von " & e.TotalBytesToSend & " Bytes gesendet." ' Und wieviele Bytes von wievielen gesendet wurden
    20. End Sub
    21. End Class



    Bitte hELFEN

    ja ok habe das bearbeite aber es kommen folgende fehler
    Fehler 1 Der Name "x" wurde nicht deklariert.
    Fehler 2 Der Name "y" wurde nicht deklariert.
    Fehler 3 Der Name "PW" wurde nicht deklariert.
    Fehler 4 "WithEvents" ist bei der Deklaration von lokalen Variablen ungültig. C
    Fehler 5 Der Typ "WebClient" ist nicht definiert. C:\Dokumen
    Fehler 6 "txt" ist kein Member von "Boolean".
    Fehler 7 Der Name "file" wurde nicht deklariert.
    Fehler 8 Der Typ "UploadProgressChangedEventArgs" ist nicht definiert.
    Fehler 9 Die Handles-Klausel erfordert eine WithEvents-Variable, die im enthaltenden Typ oder einem seiner Basistypen definiert wird.
    Fehler 10 Der Name "ProgressBar1" wurde nicht deklariert.
    Fehler 11 Der Name "Label1" wurde nicht deklariert.
    Fehler 12 Der Name "Label2" wurde nicht deklariert.

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „oliboli“ ()

    Ich glaube du solltest mal die ein Buch über VB.Net zulegen.

    Oder du schaust im Internet nach. Aber kein C&P; daraus lernt man nicht!

    MFG

    PS: Schau dir mal den "Dim" Befehl an (Ohne "")

    Hi,

    also ich würde erstmal nen paar tuts auf Youtube oder so lesen...

    Da mir grade langweilig ist, erklär ich dir mal die Fehler ;)

    1. "x" deklarieren (Dim x As String)

    2. "y" deklarieren (Dim y As String)

    3. "PW" deklarieren (Dim PW As string)

    4. "Client" global deklarieren (eine Zeile unter "Public Class Form1")

    5. "WebClient" durch "Net.WebClient" ersetzten.

    6. Siehe Punkt 3

    7. Versteh ich nicht :P

    8-12. Du musst 2x Label,1x Progressbar auf die Form machen



    Greetz,

    viperkill

Facebook
Telefonspende