Det er måske lidt uoverskueligt dette. Men dette er min kode
Imports System.Net
Public Class Form1
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Try
Dim client As New Net.WebClient
'Downloader TXT filen til chatten
client.Credentials = New Net.NetworkCredential("XXXXXXXX", "XXXXXXXX")
RichTextBox1.Text = client.DownloadString("
ftp://computer-teknologi.dk/test/chat.txt")
If RichTextBox1.Text = RichTextBox1.Text Then
Else : RichTextBox1.Text = RichTextBox1.Text
End If
Catch ex As Exception
End Try
'Uploader txt fil til FTP Server
Dim name As String
name = TextBox1.Text
Try
Dim client As New Net.WebClient
client.Credentials = New Net.NetworkCredential("XXXXXXXXX", "XXXXXXXX")
client.UploadString("
ftp://computer-teknologi.dk/test/chat.txt", RichTextBox1.Text & "" & name & ": " & RichTextBox2.Text & vbNewLine)
RichTextBox2.Clear()
Catch ex As Exception
MsgBox("fejl denne fejl tager vi os af.", MsgBoxStyle.Critical, "Fejl!")
End Try
Try
'Downloader TXT filen til chatten
Dim client As New Net.WebClient
client.Credentials = New Net.NetworkCredential("XXXXXXXX", "XXXXXXXXX")
RichTextBox1.Text = client.DownloadString("
ftp://computer-teknologi.dk/test/chat.txt")
If RichTextBox1.Text = RichTextBox1.Text Then
Else : RichTextBox1.Text = RichTextBox1.Text
End If
Catch ex As Exception
End Try
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
'Refresh txt filen fra FTP server til Knap nr 2
Try
Dim client As New Net.WebClient
client.Credentials = New Net.NetworkCredential("XXXXXXXX", "XXXXXXXX")
RichTextBox1.Text = client.DownloadString("
ftp://computer-teknologi.dk/test/chat.txt")
If RichTextBox1.Text = RichTextBox1.Text Then
Else : RichTextBox1.Text = RichTextBox1.Text
End If
Catch ex As Exception
End Try
End Sub
Private Sub RichTextBox1_TextChanged(sender As Object, e As EventArgs) Handles RichTextBox1.TextChanged
'Refresh txt filen fra FTP server til Knap nr 2
Try
Dim client As New Net.WebClient
client.Credentials = New Net.NetworkCredential("XXXXXXXXX", "XXXXXXXX")
RichTextBox1.Text = client.DownloadString("
ftp://computer-teknologi.dk/test/chat.txt")
If RichTextBox1.Text = RichTextBox1.Text Then
Else : RichTextBox1.Text = RichTextBox1.Text
End If
Catch ex As Exception
End Try
'Sørger for at Scrollbaren holdes ned
Me.RichTextBox1.SelectionStart = Me.RichTextBox1.Text.Length - 1
Me.RichTextBox1.SelectionLength = 1
Me.RichTextBox1.ScrollToCaret()
End Sub
Private Sub Form1_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
'Husker brugernavn
My.Settings.remember = TextBox1.Text
My.Settings.Save()
End Sub
Private Sub Form1_Load(sender As Object, ByVal e As EventArgs) Handles MyBase.Load
'Refresh txt filen fra FTP server
Try
Dim client As New Net.WebClient
client.Credentials = New Net.NetworkCredential("XXXXXXXX", "XXXXXXXX")
RichTextBox1.Text = client.DownloadString("
ftp://computer-teknologi.dk/test/chat.txt")
If RichTextBox1.Text = RichTextBox1.Text Then
Else : RichTextBox1.Text = RichTextBox1.Text
End If
Catch ex As Exception
End Try
'Huster ens brugernavn
TextBox1.Text = My.Settings.remember
'Tjekker om Textbox1 har et brugernavn
If TextBox1.Text.Trim().Length = 0 Then
MsgBox("Skriv brugernavn tak!")
Else
TextBox1.Enabled = False
End If
End Sub
Private Sub RichTextBox2_TextChanged(sender As Object, e As EventArgs) Handles RichTextBox2.TextChanged
'Gøre det muligt at Trykke ENTER
AcceptButton = Button1
End Sub
Private Sub Timer1_Tick(sender As Object, e As EventArgs)
RichTextBox1.Refresh()
'Refresh txt filen fra FTP server til Knap nr 2
Try
Dim client As New Net.WebClient
client.Credentials = New Net.NetworkCredential("XXXXXXXXX", "XXXXXXXX")
RichTextBox1.Text = client.DownloadString("
ftp://computer-teknologi.dk/test/chat.txt")
If RichTextBox1.Text = RichTextBox1.Text Then
Else : RichTextBox1.Text = RichTextBox1.Text
End If
Catch ex As Exception
End Try
End Sub
Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged
End Sub
End Class
Det kan godt være at koden kan sættes pænere op. og muligvis sættes op så det kan arbejde hurtigere? Men jeg har fjernet auto opdateringen da jeg ikke kunne bruge den. uden at det irriteret en.
