Imports System.IO
Imports System.Text.RegularExpressions
Public Class Main
#Region "Notepad"
Private Sub Save_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Save.Click
SaveFileDialog1.Filter = "txt files (*.txt)|*.txt|All files (*.*)|*.*"
SaveFileDialog1.FilterIndex = 2
SaveFileDialog1.RestoreDirectory = True
SaveFileDialog1.ShowDialog()
If Not SaveFileDialog1.FileName = "" Then
Dim oWrite As StreamWriter
oWrite = File.CreateText(SaveFileDialog1.FileName)
oWrite.WriteLine(Notebox.Text)
oWrite.Close()
End If
End Sub
Private Sub Loadtxt_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Loadtxt.Click
OpenFileDialog1.Filter = "txt files (*.txt)|*.txt|All files (*.*)|*.*"
OpenFileDialog1.FilterIndex = 2
OpenFileDialog1.RestoreDirectory = True
OpenFileDialog1.ShowDialog()
If Not OpenFileDialog1.FileName = "" Then
Notebox.Text = File.ReadAllText(OpenFileDialog1.FileName)
End If
End Sub
#End Region
#Region "Size"
Private Sub Sizecontrols(ByVal page As Control)
Dim screenheight As Integer = Screen.PrimaryScreen.Bounds.Height
Dim screenwidth As Integer = Screen.PrimaryScreen.Bounds.Width
For Each ctrl As Control In page.Controls
ctrl.Height = Convert.ToInt32(ctrl.Height / 768 * screenheight)
ctrl.Width = Convert.ToInt32(ctrl.Width / 1024 * screenwidth)
ctrl.Location = New Point(ctrl.Location.X / 1024 * screenwidth, ctrl.Location.Y / 768 * screenheight)
If ctrl.Controls.Count > 0 Then
Sizecontrols(ctrl)
End If
Next
End Sub
#End Region
#Region "Buttons"
Private Sub PlayRS_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PlayRS.Click
RuneScape.Navigate("http://runescape.com")
TabMain.SelectedIndex = 1
End Sub
Private Sub GoForums_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GoForums.Click
BsKForum.Navigate("http://bsk.ipbfree.com/")
TabMain.SelectedIndex = 0
End Sub
Private Sub ShowUtil_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ShowUtil.Click
If ShowUtil.Text = "Show other utilities" Then
TabControl2.Height = "150"
ShowUtil.Text = "Hide other utilities"
Else
TabControl2.Height = "0"
ShowUtil.Text = "Show other utilities"
End If
End Sub
Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged
If CheckBox1.Checked = True Then
Identify.Enabled = False
Register.Enabled = False
Options.Enabled = False
PlayRS.Enabled = False
GoForums.Enabled = False
ShowUtil.Enabled = False
ConnectIRC.Enabled = False
ElseIf CheckBox1.Checked = False Then
Identify.Enabled = True
Register.Enabled = True
Options.Enabled = True
PlayRS.Enabled = True
GoForums.Enabled = True
ShowUtil.Enabled = True
ConnectIRC.Enabled = True
End If
End Sub
Private Sub Main_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
TabControl2.Height = "0"
End Sub
#End Region
#Region "IRC"
Private Sub Connect_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ConnectIRC.Click
ws.RemotePort = 6667
ws.RemoteHost = "cookies.ca.us.swiftirc.net"
ws.Connect()
End Sub
Private Sub ws_ConnectEvent(ByVal sender As System.Object, ByVal e As System.EventArgs)
ws.SendData("USER " + TextBox1.Text + " x x " + TextBox1.Text + vbCrLf)
ws.SendData("NICK " + TextBox1.Text + vbCrLf)
End Sub
Private Sub ws_DataArrival(ByVal sender As System.Object, ByVal e As AxMSWinsockLib.DMSWinsockControlEvents_DataArrivalEvent) Handles ws.DataArrival
Dim data As String = ""
ws.GetData(data)
If data.Contains("justchat") Then
BsKMessages.Text = BsKMessages.Text + vbNewLine + "(" + TimeString + ")" + " <" + get_nick(data) + "> " + get_line(data)
ElseIf data.Contains("AUTH") Then
StatusMessages.Text = StatusMessages.Text + vbNewLine + "(" + TimeString + ")" + " <" + get_nick(data) + "> [MESSAGE]" + get_line(data)
ElseIf data.Contains("NOTICE") Then
PMMessages.Text = PMMessages.Text + vbNewLine + "(" + TimeString + ")" + " <" + get_nick(data) + "> [NOTICE]" + get_line(data)
ElseIf data.Contains("PRIVMSG " + TextBox1.Text) Then
PMMessages.Text = PMMessages.Text + vbNewLine + "(" + TimeString + ")" + " <" + get_nick(data) + "> [PM]" + get_line(data)
Else
StatusMessages.Text = StatusMessages.Text + vbNewLine + "(" + TimeString + ")" + " <" + get_nick(data) + "> " + get_line(data)
End If
If data.Contains("001") Then
ws.SendData("JOIN #justchat" + vbCrLf)
End If
Dim ping() As String = data.Split(" ")
If ping(0) = "PING" Then
ws.SendData("PONG :" + ping(1) + vbCrLf)
StatusMessages.Text = StatusMessages.Text + vbNewLine + ("PONG :" + ping(1) + vbCrLf)
End If
End Sub
Private Sub BsKToBeSent_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles BsKToBeSent.KeyDown
If e.KeyCode = Keys.Return Then
Dim what() As String = BsKToBeSent.Text.Split(" ")
If what(0) = "/notice" Then
ws.SendData("NOTICE " + Regex.Replace(BsKToBeSent.Text, what(0), ""))
BsKMessages.Text = BsKMessages.Text + vbNewLine + "(" + TimeString + ") " + "***Notice to " + Regex.Replace(BsKToBeSent.Text, what(0), "")
BsKToBeSent.Text = ""
ElseIf what(0) = "/msg" Then
ws.SendData("PRIVMSG " + Regex.Replace(BsKToBeSent.Text, what(0), ""))
BsKMessages.Text = BsKMessages.Text + vbNewLine + "(" + TimeString + ") " + "***PM to " + Regex.Replace(BsKToBeSent.Text, what(0), "")
BsKToBeSent.Text = ""
ElseIf what(0) = "/me" Then
ws.SendData("ACTION #clanbsk " + Regex.Replace(BsKToBeSent.Text, what(0), ""))
BsKMessages.Text = BsKMessages.Text + vbNewLine + "(" + TimeString + ") " + TextBox1.Text + Regex.Replace(BsKToBeSent.Text, what(0), "")
BsKToBeSent.Text = ""
Else
ws.SendData("PRIVMSG #Justchat " + BsKToBeSent.Text + vbCrLf)
BsKMessages.Text = BsKMessages.Text + vbNewLine + "(" + TimeString + ") " + "<" + TextBox1.Text + ">" + BsKToBeSent.Text
BsKToBeSent.Text = ""
End If
End If
End Sub
#End Region
#Region "Functions"
Function get_line(ByVal raw As String) As String
Dim a() As String = raw.Split(":")
Return a(2).Replace(vbCrLf, "")
End Function
Function get_nick(ByVal raw As String) As String
Dim b() As String = raw.Split(":")
Dim c() As String = b(1).Split("!")
Return c(0)
End Function
Function get_chan(ByVal raw As String) As String
Dim d() As String = raw.Split(" ")
Return d(2)
End Function
#End Region
End Class