Sharing, Teaching and Supporting coders of all ages and levels since 2009
https://www.codenstuff.com/forum/
If RichTextBox2.Text <> RichTextBox1.Text Then RichTextBox1.Text = RichTextBox2.TextIf RichTextBox2.Text = RichTextBox1.Text Then Else : RichTextBox1.Text = RichTextBox2.Text Dim client As New Net.WebClient
Dim iscommand As New Boolean
Dim name1 As New String(My.Settings.nick)
Dim privs As String
Dim kick As String
Dim clear As String
Dim admin As String
Dim subrank As String
Dim rank As System.Drawing.Color
Public Sub checkcommands(ByVal input As System.String)
If (input.StartsWith("/")) Then
iscommand = True
Else
iscommand = False
End If
End Sub
Public Sub processcommand(ByVal command As System.String)
If command.StartsWith("/nick") Then
Dim oldname As String
oldname = name1
My.Settings.nick = command.Substring(6)
name1 = My.Settings.nick
Dim users As String
client.Credentials = New Net.NetworkCredential("root", "***")
users = client.DownloadString("ftp://127.0.0.1/server.users")
users = users.Replace(oldname, name1)
client.UploadString("ftp://127.0.0.1/server.users", users)
getprivs(name1)
End If
If command = "/cls" And clear = "1" Then
client.Credentials = New Net.NetworkCredential("root", "***")
client.UploadString("ftp://127.0.0.1/server.messages", name1 + " Cleared the chat log")
MsgBox("DONE!")
ElseIf command = "/cls" And clear = "0" Then
MsgBox("Your not permitted to do this! DEBUG INFO: Required Permission value: 1 | Your Value: " & clear)
End If
If command = "/sanick" And admin = "1" Then
client.Credentials = New Net.NetworkCredential("root", "***")
Dim oldname As String
Dim newname As String
Dim strarray As Array
strarray = command.Split(" ")
oldname = strarray.GetValue(0)
newname = strarray.GetValue(1)
Dim str As String
str = client.DownloadString("ftp://127.0.0.1/server.users")
str = str.Replace(oldname, newname)
client.UploadString("ftp://127.0.0.1/server.users", str)
End If
End Sub
Private Sub TextBox1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyDown
If e.KeyCode = Keys.Enter Then
Button1.PerformClick()
End If
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
name1 = My.Settings.nick
checkcommands(TextBox1.Text)
If iscommand = True Then
processcommand(TextBox1.Text)
TextBox1.Clear()
Exit Sub
End If
Try
client.Credentials = New Net.NetworkCredential("root", "***")
client.UploadString("ftp://127.0.0.1/server.messages", "[" & TimeOfDay & "] " & name1 & ": " & TextBox1.Text & vbNewLine & RichTextBox2.Text & vbNewLine)
RichTextBox2.Clear()
Catch ex As Exception
MsgBox("Error, this error is being taken care of.", MsgBoxStyle.Critical, "Error!")
End Try
Try
client.Credentials = New Net.NetworkCredential("root", "***")
RichTextBox2.Text = client.DownloadString("ftp://127.0.0.1/server.messages")
If RichTextBox2.Text = RichTextBox1.Text Then Else : RichTextBox1.Text = RichTextBox2.Text
Catch ex As Exception
End Try
TextBox1.Text = ""
End Sub
Sub getprivs(ByVal name As String)
client.Credentials = New Net.NetworkCredential("root", "***")
Dim one As String
Dim onearray As Array
one = client.DownloadString("ftp://127.0.0.1/server.privs")
onearray = one.Split(" ")
For Each one In onearray
If one.StartsWith(name) Then
Dim split As Array
split = one.Split(",")
kick = split.GetValue(1)
clear = split.GetValue(2)
admin = split.GetValue(3)
subrank = split.GetValue(4)
Select Case subrank
Case 1
rank = Color.Red
Case 2
rank = Color.Blue
Case 3
rank = Color.Green
Case Else
rank = Color.Black
End Select
End If
Next
End Sub