vb.NET Sohbet Programı Nasıl Yapılır

Kaisys' Alıntı:

---LOGIN FORM---
Public Class Form2
Dim richtextbox As New RichTextBox
Dim wc As New Net.WebClient
Dim passwort As String = "DEIN FTP PASSWORT" 'ACHTUNG ! AUF GROß UND KLEINSCHREIBUNG ACHTEN
Dim benutzername As String = "DEIN FTP BENUTZERNAME" 'ACHTUNG ! AUF GROß UND KLEINSCHREIBUNG ACHTEN

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If Not TextBox1.Text.Length < 5 Then
If TextBox1.Text = "" Then
MsgBox("Benutzername eingeben")
Else
wc.Credentials = New Net.NetworkCredential(benutzername, passwort)
richtextbox.Text = wc.DownloadString("ftp://deinftpserver.co.de/www/Benutzer.txt") 'ACHTUNG ! AUF GROß UND KLEINSCHREIBUNG ACHTEN
If richtextbox.Text.Contains(TextBox1.Text) Then
MsgBox("Benutzername bereits vergeben")
Else
wc.UploadString("ftp://deinftpserver.co.de/www/Benutzer.txt", richtextbox.Text & vbCrLf & TextBox1.Text) 'ACHTUNG ! AUF GROß UND KLEINSCHREIBUNG ACHTEN
Form1.Show()
Me.Hide()
End If
End If
End If
End Sub
End Class



---CHAT FORM---
Public Class Form1
Dim wc As New Net.WebClient
Dim passwort As String = "DEIN FTP PASSWORT" 'ACHTUNG ! AUF GROß UND KLEINSCHREIBUNG ACHTEN
Dim benutzername As String = "DEIN FTP BENUTZERNAME" 'ACHTUNG ! AUF GROß UND KLEINSCHREIBUNG ACHTEN
Dim userliste As New RichTextBox

Private Sub Admin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Admin.Click
Me.Width = 850
End Sub

Private Sub Admin_close_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Admin_close.Click
Me.Width = 700
End Sub

Private Sub Einstellungen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Einstellungen.Click
Me.Width = 700
End Sub

Private Sub einstellungenhide_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles einstellungenhide.Click
Me.Width = 570
End Sub

Private Sub Downloader_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Downloader.Tick
wc.Credentials = New Net.NetworkCredential(benutzername, passwort)
Anzeigefeld.Text = wc.DownloadString("Ftp://deinftpserver.co.de/www/Chat.txt") 'ACHTUNG ! AUF GROß UND KLEINSCHREIBUNG ACHTEN
End Sub

Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
User.Items.Clear()
wc.Credentials = New Net.NetworkCredential(benutzername, passwort)
Dim neuedaten As New RichTextBox
neuedaten.Text = wc.DownloadString("Ftp://deinftpserver.co.de/www/Benutzer.txt") 'ACHTUNG ! AUF GROß UND KLEINSCHREIBUNG ACHTEN
neuedaten.Text = neuedaten.Text.Replace(Form2.TextBox1.Text, "")
wc.UploadString("Ftp://deinftpserver.co.de/www/Benutzer.txt", neuedaten.Text) 'ACHTUNG ! AUF GROß UND KLEINSCHREIBUNG ACHTEN
End
End Sub

Private Sub Senden_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Senden.Click
wc.Credentials = New Net.NetworkCredential(benutzername, passwort)
wc.UploadString("Ftp://deinftpserver.co.de/www/Chat.txt", Anzeigefeld.Text & vbCrLf & Form2.TextBox1.Text & ": " & Eingabefeld.Text) 'ACHTUNG ! AUF GROß UND KLEINSCHREIBUNG ACHTEN'ACHTUNG ! AUF GROß UND KLEINSCHREIBUNG ACHTEN
Anzeigefeld.Text = ""
End Sub

Private Sub Userlist_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Userlist.Tick
User.Items.Clear()
wc.Credentials = New Net.NetworkCredential(benutzername, passwort)
userliste.Text = wc.DownloadString("Ftp://deinftpserver.co.de/www/Benutzer.txt") 'ACHTUNG ! AUF GROß UND KLEINSCHREIBUNG ACHTEN
For Each line In userliste.Lines
User.Items.Add(line)
For i As Integer = User.Items.Count - 1 To 0 Step 1
If User.Items(i) = String.Empty Then
User.Items.Remove(String.Empty)
End If
Next
Next

If Form2.TextBox1.Text = wc.DownloadString("Ftp://deinftpserver.co.de/www/Kick.txt") Then 'ACHTUNG ! AUF GROß UND KLEINSCHREIBUNG ACHTEN'ACHTUNG ! AUF GROß UND KLEINSCHREIBUNG ACHTEN
Senden.Enabled = False
wc.UploadString("Ftp://deinftpserver.co.de/www/Kick.txt", "") 'ACHTUNG ! AUF GROß UND KLEINSCHREIBUNG ACHTEN
Downloader.Stop()

User.Items.Clear()
wc.Credentials = New Net.NetworkCredential(benutzername, passwort)
Dim neuedaten As New RichTextBox
neuedaten.Text = wc.DownloadString("Ftp://deinftpserver.co.de/www/Benutzer.txt") 'ACHTUNG ! AUF GROß UND KLEINSCHREIBUNG ACHTEN
neuedaten.Text = neuedaten.Text.Replace(Form2.TextBox1.Text, "")
wc.UploadString("Ftp://deinftpserver.co.de/www/Benutzer.txt", neuedaten.Text) 'ACHTUNG ! AUF GROß UND KLEINSCHREIBUNG ACHTEN
MsgBox("Sie wurden gekickt")
End

End If
End Sub

Private Sub Kick_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Kick.Click
wc.Credentials = New Net.NetworkCredential(benutzername, passwort)
wc.UploadString("Ftp://deinftpserver.co.de/www/Kick.txt", TextBox1.Text) 'ACHTUNG ! AUF GROß UND KLEINSCHREIBUNG ACHTEN
End Sub

Private Sub Chatverlauf_löschen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Chatverlauf_löschen.Click
wc.Credentials = New Net.NetworkCredential(benutzername, passwort)
wc.UploadString("Ftp://deinftpserver.co.de/www/Chat.txt", "") 'ACHTUNG ! AUF GROß UND KLEINSCHREIBUNG ACHTEN
End Sub

Private Sub TrackBar1_Scroll(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TrackBar1.Scroll
If TrackBar1.Value = 0 Then
Me.Opacity = 1
End If
If TrackBar1.Value = 1 Then
Me.Opacity = 0.8
End If
If TrackBar1.Value = 2 Then
Me.Opacity = 0.5
End If
End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
wc.Credentials = New Net.NetworkCredential(benutzername, passwort)
Anzeigefeld.Text = wc.DownloadString("Ftp://deinftpserver.co.de/www/Chat.txt") 'ACHTUNG ! AUF GROß UND KLEINSCHREIBUNG ACHTEN
Me.BackColor = My.Settings.Hintergrundfarbe
Anzeigefeld.BackColor = My.Settings.Textfeldfarbe
Eingabefeld.BackColor = My.Settings.Textfeldfarbe
User.BackColor = My.Settings.Textfeldfarbe

Senden.BackColor = My.Settings.buttonfarbe
Einstellungen.BackColor = My.Settings.buttonfarbe
einstellungenhide.BackColor = My.Settings.buttonfarbe
Admin.BackColor = My.Settings.buttonfarbe
End Sub

Private Sub Hintergrundfarbe_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Hintergrundfarbe.Click
ColorDialog1.ShowDialog()
Me.BackColor = ColorDialog1.Color
My.Settings.Hintergrundfarbe = Me.BackColor
My.Settings.Save()
End Sub

Private Sub Textfeldfarbe_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Textfeldfarbe.Click
ColorDialog1.ShowDialog()
Anzeigefeld.BackColor = ColorDialog1.Color
Eingabefeld.BackColor = ColorDialog1.Color
User.BackColor = ColorDialog1.Color
My.Settings.Textfeldfarbe = Anzeigefeld.BackColor
My.Settings.Save()
End Sub

Private Sub Buttonfarbe_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Buttonfarbe.Click
ColorDialog1.ShowDialog()
Senden.BackColor = ColorDialog1.Color
Einstellungen.BackColor = ColorDialog1.Color
Admin.BackColor = ColorDialog1.Color
einstellungenhide.BackColor = ColorDialog1.Color
My.Settings.buttonfarbe = ColorDialog1.Color
End Sub
End Class

Denemedim ama kodu burada iyi günler buda videolu anlatım Visual Basic 2010 Tutorial Ftp Chat + Download - YouTube

Genişletmek için tıkla ...