[Visual Basic] FTP Chat

Dieses Thema im Forum "Programmierung & Entwicklung" wurde erstellt von uLtr4, 6. Juni 2012 .

Schlagworte:
  1. 6. Juni 2012
    FTP Chat

    HI, Ja Ich weis ftp chats sind scheise und total unsicher aber das weis ich schon?

    Bin auch vb noobi....

    code1) PrivateNachricht

    Code:
    Public Class PrivateNachricht
    
     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
     Dim Name As String = Me.TextBox1.Text
     Dim Message As String = Me.TextBox2.Text
    
     Dim Messagestring As String = AktuelleZeit() & " - " & Name & ": " & Message
     My.Computer.FileSystem.WriteAllText(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "/user_message/" & Name & "_upload.txt", Messagestring, False)
     My.Computer.Network.UploadFile(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "/user_message/" & Name & "_upload.txt", "ftp://192.168.1.50/user message/" & Name & ".txt", "test", ":mad:you36", False, 60000)
     End Sub
    
     Private Function AktuelleZeit()
     Dim AktuelleZeitString As String
     AktuelleZeitString = Now.Day & "." & Now.Month & "." & Now.Year & "." & Now.Hour & "." & Now.Second
     Return AktuelleZeitString
     End Function
    End Class
    Code2) Form1

    Code:
    Public Class Form1
    
     Private Property AktuelleZeitString As String
    
     Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
     Dim Chatroom As String = Me.TextBox1.Text
     Try
     My.Computer.Network.DownloadFile("ftp://192.168.1.50/" & Chatroom & ".txt", Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\chat-ordner\" & Chatroom & ".txt", "test", ":mad:you36", False, 60000, True)
     Dim ChatProtokoll As String = My.Computer.FileSystem.ReadAllText(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\chat-ordner\" & Chatroom & ".txt")
     Me.TextBoxProtokoll.Text = ChatProtokoll
     Catch
     End Try
     End Sub
    
     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
     Dim Chatroom As String = Me.TextBox1.Text
     Try
     Dim Nachricht As String = AktuelleZeit() & " _ " & Me.TextBoxName.Text & ": " & Me.TextBoxNachricht.Text
     Dim ChatProtokoll As String
     Try
     ChatProtokoll = My.Computer.FileSystem.ReadAllText(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\chat-ordner\" & Chatroom & ".txt")
     Catch
     ChatProtokoll = ""
     End Try
     Dim UploadString As String = ChatProtokoll & vbNewLine & Nachricht
     My.Computer.FileSystem.WriteAllText(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\chat-ordner\" & Chatroom & "_upload.txt", UploadString, False)
     My.Computer.Network.UploadFile(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\chat-ordner\" & Chatroom & "_upload.txt", "ftp://192.168.1.50/", "test", ":mad:you36")
     Catch
     End Try
     End Sub
    
    
     Private Function AktuelleZeit()
     Dim AktuelleZeitString As String
     AktuelleZeitString = Now.Day & "." & Now.Month & "." & Now.Year & "." & Now.Hour & "." & Now.Second
     Return AktuelleZeitString
     End Function
    
     
    
     Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click
    
     End Sub
    
     Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
     If Me.Button2.Text = "Beitreten" Then
     Me.Button2.Text = "Verlassen"
     Me.Button1.Enabled = True
     Me.Timer1.Enabled = True
     Me.TextBox1.Enabled = False
     Me.Timer2.Enabled = True
     'BETRETEN
     Else
     Me.Button2.Text = "Betreten"
     Me.Button1.Enabled = False
     Me.Timer1.Enabled = False
     Me.TextBox1.Enabled = True
     Me.Timer2.Enabled = False
     'VERLASSEN
     End If
     End Sub
    
     Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
     PrivateNachricht.Show()
     End Sub
    
     Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
     Dim Name As String = Me.TextBoxName.Text
     My.Computer.Network.DownloadFile("ftp://192.168.1.50/" & Name & ".txt", Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "user_message/" & Name & ".txt", "test", ":mad:you36", False, 60000, True)
     Dim Message As String = My.Computer.FileSystem.ReadAllText(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "user_message/" & Name & ".txt")
     Dim TMP() As String = Split(Message, " _ ")
     Dim AktuelleZeit As String = TMP(0)
     Dim TMP2() As String = Split(TMP(1), ": ")
     Dim AbsenderName As String = TMP2(0)
     Message = Message.Replace(AktuelleZeit & " - " & Name & ": ", "")
    
     My.Computer.FileSystem.WriteAllText(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "user_message/" & Name & ".txt", "", False)
     My.Computer.Network.UploadFile(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "user_message/" & Name & ".txt", "ftp://192.168.1.50/user_message/" & Name & ".txt", "test", ":mad:you36", False, 60000)
    
     MsgBox("Sie Haben um " & AktuelleZeit & " eine neue Nachricht von " & Name & " erhalten:" & vbNewLine & Message, vbInformation, "Sie haben eine Nachricht erhalten")
     End Sub
    
     Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
     PrivateNachricht.Show()
     End Sub
    End Class
    

    So das ist der code

    Und wen ich dan auf chat beitreten gehe kommt der fehler X(

    http://s14.directupload.net/file/d/2913/x65fl3l3_jpg.htm

    plz kann mir jemand sagen was ich falsch mache? ?(
    danke schon mal super super RR team


    mfg ultr4
     
  2. 6. Juni 2012
    Zuletzt bearbeitet: 6. Juni 2012
    AW: FTP Chat

    Code:
     
    Dim Message As String = My.Computer.FileSystem.ReadAllText(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "user_message/" & Name & ".txt")
    Dim TMP() As String = Split(Message, " _ ")
    Dim AktuelleZeit As String = TMP(0)
    Dim TMP2() As String = Split(TMP(1), ": ")
    
    Sieht aus als würde er bei TMP() nicht richtig splitten und da den kompletten String nehmen, dann ist TMP(1) leer bzw. null und er wirft die Exception.

    Kannst ja einfach mal debuggen oder den Inhalt der STrings ausgeben und gucken was in den Variablen steckt.
     
  3. 6. Juni 2012
    AW: FTP Chat


    wie gesagt bin etwas newbii
    könntest du mir den code schreiben wo was ich falsch gehmacht habe oder evl mal per teamviwer drüber blicken?
     
  4. 6. Juni 2012
    AW: FTP Chat

    Wieso setzt du nicht einfach einen Breakpoint und schaust mittels Debugger, was nach dem Split in deiner Variablen steht? Mit den Debugging Werkzeugen musst du dich früher oder Später eh auseinander setzten.
     
  5. 7. Juni 2012
    AW: FTP Chat

    ja du hast recht bin halt recht neu und hab mehr oder weniger nach ein tut gehandelt wenn jemmand so freundlich wer mal den code zu testen und dan mir ihn gefixst klar machen könnte wer echt super is mir zimmlich wichtig

    danke guys:]
     
  6. 7. Juni 2012
    AW: FTP Chat

    Wenn du vor hast die Sprache zu lernen ist dies definitiv der falsche Weg. Schmeiß den Debugger an und auf gehts.
     
  7. 7. Juni 2012
    AW: FTP Chat

    ohne schies das würde ich gerne wen machen wen ich das kapieren würde

    allso wen ich den debugger an schmeise bekomme ich kein fehler meldung nur wen ich dan mein program starte und den fehler hatte ich gepost ...
     
  8. 7. Juni 2012
    AW: FTP Chat

    Ach ich zitiere mich ja so gerne
    Du musst schon nen Breakpoint an passender Stelle setzten, sonst ist der Debugger wenig hilfreich.
    Hier gibt eine Hilfestellung dazu: Mastering Debugging in Visual Studio 2010 - A Beginners Guide - CodeProject (ich bin mal davon ausgegangen, dass du mit VS codest)
    Hab nur kurz drüber geschaut aber sieht ganz gut aus.
     
  9. 7. Juni 2012
    AW: FTP Chat

    jaa wie gesagt ich kenne mich halt wenig will sogar meine fast garnicht mit coden aus aber danke für deine tips ich schau mir mal das an und meld mich dan

    lg
     
  10. Video Script

    Videos zum Themenbereich

    * gefundene Videos auf YouTube, anhand der Überschrift.