Advertisement
Guest User

The VB Helper/Tex

a guest
Jul 31st, 2010
1,487
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
VB.NET 9.49 KB | None | 0 0
  1. Imports System.Net.Sockets
  2. Imports System.Text
  3. Public Class Form1
  4.     Dim sr As IO.StringReader
  5.     Dim users As String = Nothing
  6.     Dim refresh1 As String = Nothing
  7.     Dim formNo As String = Nothing
  8.     Dim poruka As String = Nothing
  9.     Dim br As String = Nothing
  10.  
  11.     Public Sub findForm1()
  12.  
  13.         If Trim(Mid(My.Forms.Private1.Text, My.Forms.Private1.Text.Length - 2)) = formNo Then
  14.             My.Forms.Private1.RichTextBox1.Text = My.Forms.Private1.RichTextBox1.Text & poruka + vbCrLf
  15.  
  16.         ElseIf Trim(Mid(My.Forms.Private2.Text, My.Forms.Private2.Text.Length - 2)) = formNo Then
  17.             My.Forms.Private2.RichTextBox1.Text = My.Forms.Private2.RichTextBox1.Text & poruka + vbCrLf
  18.         Else
  19.             If My.Forms.Private1.Visible = False Then
  20.                 Dim name As String
  21.                 For i As Integer = 1 To poruka.Length
  22.                     If Mid(poruka, i, 2) = ": " Then
  23.                         Exit For
  24.                     End If
  25.                     name = name & Mid(poruka, i, 1)
  26.                 Next
  27.                 My.Forms.Private1.Show()
  28.                 My.Forms.Private1.Text = Trim(name) & "   " & br
  29.                 My.Forms.Private1.RichTextBox1.Text = My.Forms.Private1.RichTextBox1.Text & poruka + vbCrLf
  30.             Else
  31.                 Dim name As String
  32.                 For i As Integer = 1 To poruka.Length
  33.                     If Mid(poruka, i, 2) = ": " Then
  34.                         Exit For
  35.                     End If
  36.                     name = name & Mid(poruka, i, 1)
  37.                 Next
  38.                 My.Forms.Private2.Show()
  39.                 My.Forms.Private2.Text = Trim(name) & "   " & br
  40.                 My.Forms.Private2.RichTextBox1.Text = My.Forms.Private2.RichTextBox1.Text & poruka + vbCrLf
  41.             End If
  42.         End If
  43.  
  44.         formNo = Nothing
  45.         poruka = Nothing
  46.  
  47.     End Sub
  48.     Public Sub addUsers()
  49.         sr = New IO.StringReader(users)
  50.         Do Until sr.Peek < 0
  51.             ListBox1.Items.Add(sr.ReadLine)
  52.         Loop
  53.         users = Nothing
  54.     End Sub
  55.     Public Sub refUsers()
  56.         ListBox1.Items.Clear()
  57.         sr = New IO.StringReader(refresh1)
  58.         Do Until sr.Peek < 0
  59.             ListBox1.Items.Add(sr.ReadLine)
  60.  
  61.         Loop
  62.         refresh1 = Nothing
  63.     End Sub
  64. #Region "Client Code"
  65.     Private Client As socketClient
  66.  
  67.     Private Sub clientLogMessage(ByVal Message As String)
  68.         Delegates.RichTextBoxes.appendText(Me, rtbClient, vbCrLf & Message)
  69.     End Sub
  70.  
  71.     Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
  72.         Try
  73.             If Client.isConnected Then
  74.                 Client.Send("@code1842@" & txtClientName.Text)
  75.                 clientLogMessage("Odlogirani ste!")
  76.                 txtClientSend.Text = ""
  77.             End If
  78.         Catch ex As Exception
  79.  
  80.         End Try
  81.         Try
  82.             Client.Disconnect()
  83.         Catch ex As Exception
  84.  
  85.         End Try
  86.     End Sub
  87.     Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  88.  
  89.     End Sub
  90.  
  91.     Private Sub btnClientConnect_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClientConnect.Click
  92.         If InStr(txtClientName.Text, "@code1843@") > 0 Then
  93.             MsgBox("Nickname  is taken!")
  94.         ElseIf InStr(txtClientName.Text, " ") > 0 Then
  95.             MsgBox("Nickname cannot include spaces.")
  96.         ElseIf txtClientName.Text = "" Then
  97.             MsgBox("You must choose a nickname")
  98.         Else
  99.             btnClientConnect.Enabled = False
  100.             btnClientDisconnect.Enabled = True
  101.             Client = New socketClient()
  102.  
  103.             AddHandler Client.Connected, AddressOf handleClientConnected
  104.             AddHandler Client.ConnectionError, AddressOf handleClientConnectionError
  105.             AddHandler Client.Disconnected, AddressOf handleClientDisconnected
  106.             AddHandler Client.DisconnectError, AddressOf handleClientDisconnectError
  107.             AddHandler Client.IncomingData, AddressOf handleClientIncomingData
  108.             AddHandler Client.IncomingDataError, AddressOf handleClientIncomingDataError
  109.             AddHandler Client.SendDataError, AddressOf handleClientSendDataError
  110.  
  111.             Client.Connect(txtClientIP.Text, txtClientPort.Text)
  112.             '#################################### information about new user ###########################
  113.             If Client.isConnected Then
  114.                 Client.Send("@code1843@" & txtClientName.Text)
  115.                 clientLogMessage(txtClientName.Text)
  116.                 txtClientSend.Text = ""
  117.  
  118.                 txtClientIP.Enabled = False
  119.                 txtClientName.Enabled = False
  120.                 txtClientPort.Enabled = False
  121.             End If
  122.             '###########################################################################################
  123.  
  124.         End If
  125.     End Sub
  126.     '************************************************************
  127.     'Primary Socket Functionality
  128.     '************************************************************
  129.     Private Sub handleClientConnected()
  130.         clientLogMessage("Connected as " & txtClientName.Text & ".")
  131.     End Sub
  132.  
  133.     Private Sub handleClientDisconnected()
  134.         clientLogMessage("Disconnected!")
  135.     End Sub
  136.  
  137.     Private Sub handleClientIncomingData(ByRef Data As String)
  138.         If InStr(Data, "@code1841@") > 0 And Data.Length > 0 Then
  139.             Data$ = Replace(Data$, "@code1841@", "")
  140.             users = Data
  141.         ElseIf InStr(Data, "@code1840@") > 0 And Data.Length > 0 Then
  142.             Data$ = Replace(Data$, "@code1840@", "")
  143.             refresh1 = Data
  144.         ElseIf InStr(Data, "@code1847@") > 0 And Data.Length > 0 Then
  145.             Data$ = Replace(Data$, "@code1847@", "")
  146.             formNo = Trim(Mid(Data, Data.Length - 2))
  147.             poruka = Mid(Data, 1, Data.Length - 2)
  148.             br = Trim(Mid(Data, Data.Length - 2))
  149.         Else
  150.             If Data.Length > 0 Then
  151.                 clientLogMessage(Data)
  152.             End If
  153.         End If
  154.     End Sub
  155.  
  156.  
  157.     '************************************************************
  158.     'Functional Error Reporting (Below)
  159.     '************************************************************
  160.     Private Sub handleClientConnectionError(ByVal Message As String)
  161.         clientLogMessage(Message)
  162.     End Sub
  163.  
  164.     Private Sub handleClientDisconnectError(ByVal Message As String)
  165.         clientLogMessage(Message)
  166.     End Sub
  167.  
  168.     Private Sub handleClientIncomingDataError(ByVal Message As String)
  169.         clientLogMessage(Message)
  170.     End Sub
  171.  
  172.     Private Sub handleClientSendDataError(ByVal Message As String)
  173.         clientLogMessage(Message)
  174.     End Sub
  175. #End Region
  176.  
  177.     Private Sub btnClientDisconnect_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClientDisconnect.Click
  178.         Try
  179.             If Client.isConnected Then
  180.                 Client.Send("@code1842@" & txtClientName.Text)
  181.                 txtClientSend.Text = ""
  182.             End If
  183.         Catch ex As Exception
  184.  
  185.         End Try
  186.  
  187.         btnClientConnect.Enabled = True
  188.         btnClientDisconnect.Enabled = False
  189.         Client.Disconnect()
  190.  
  191.         Try
  192.             txtClientIP.Enabled = True
  193.             txtClientName.Enabled = True
  194.             txtClientPort.Enabled = True
  195.         Catch ex As Exception
  196.  
  197.         End Try
  198.         ListBox1.Items.Clear()
  199.     End Sub
  200.  
  201.     Private Sub txtClientSend_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtClientSend.KeyPress
  202.         If e.KeyChar = Chr(Keys.Enter) Then
  203.             If Client IsNot Nothing Then
  204.                 If Client.isConnected Then
  205.  
  206.                     Client.Send(txtClientName.Text & ":  " & txtClientSend.Text)
  207.                     clientLogMessage(txtClientName.Text & ":  " & txtClientSend.Text)
  208.                     txtClientSend.Text = ""
  209.  
  210.                 End If
  211.             End If
  212.         End If
  213.     End Sub
  214.  
  215.     Private Sub txtClientSend_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtClientSend.TextChanged
  216.  
  217.     End Sub
  218.  
  219.     Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
  220.         If users <> Nothing Then
  221.             addUsers()
  222.         End If
  223.         If refresh1 <> Nothing Then
  224.             refUsers()
  225.         End If
  226.         If poruka <> Nothing Then
  227.             findForm1()
  228.         End If
  229.     End Sub
  230.  
  231.     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
  232.         Try
  233.             If Client.isConnected = True And ListBox1.SelectedItem.ToString <> Nothing Then
  234.                 If Private1.Visible = False Then
  235.                     Private1.Text = ListBox1.SelectedItem.ToString
  236.                     Private1.Show()
  237.                 Else
  238.                     Private2.Text = ListBox1.SelectedItem.ToString
  239.                     Private2.Show()
  240.                 End If
  241.             End If
  242.         Catch ex As Exception
  243.  
  244.         End Try
  245.     End Sub
  246.  
  247.     Public Sub privatno1(ByVal br As String)
  248.  
  249.         Client.Send("@code1839@" & txtClientName.Text & ": " & Private1.TextBox1.Text & "   " & br)
  250.  
  251.         Private1.TextBox1.Text = ""
  252.  
  253.     End Sub
  254.     Public Sub privatno2(ByVal br As String)
  255.  
  256.         Client.Send("@code1839@" & txtClientName.Text & ": " & Private2.TextBox1.Text & "   " & br)
  257.  
  258.         Private2.TextBox1.Text = ""
  259.  
  260.     End Sub
  261. End Class
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement