Imports System.Net
Imports System.Net.Sockets
Imports System.Threading
Imports System.Text
Public Class Form1
Private _IP As String = "127.0.0.1"
Private _Port As Integer = 6000
Private threadRecv As System.Threading.Thread = Nothing
Private ChatClient As Socket = Nothing
Private flag As Boolean = False
Private _state As ThreadState
Private icount As Integer
Enum ThreadState As Integer
Runing = 1 ''执行中
Paused = 2 ''暂停
Stoped = 3 ''结束
End Enum
Private Delegate Sub myDelegate1(ByVal inputC As Integer)
Private Delegate Sub myDelegate2(ByVal data As String)
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
btnSend.Enabled = False
Me._state = ThreadState.Stoped
End Sub
Private Sub Form1_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
' _state.workSocket.Shutdown(SocketShutdown.Both)
' _state.workSocket.Close()
If (threadRecv.IsAlive) Then
threadRecv.Abort()
End If
If (ChatClient.Connected) Then
ChatClient.Close()
End If
End Sub '自定义一个委托
Private Sub MainConnection(ByVal comData As Integer) '定义一个函数
Select Case comData
Case 1
Me.Lbltext1.Text = "已连接"
btnSend.Enabled = True
Case 2
