#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 + Multi-Zitat Zitieren
#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. + Multi-Zitat Zitieren
#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? + Multi-Zitat Zitieren
#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. + Multi-Zitat Zitieren
#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:] + Multi-Zitat Zitieren
#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. + Multi-Zitat Zitieren
#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 ... + Multi-Zitat Zitieren
#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. + Multi-Zitat Zitieren
#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 + Multi-Zitat Zitieren