VB2005中如何使用SOCKET
小弟我最近想写个局域网管理软件 本想用VB6写的，但是发现有很多限制。于是研究NET。SOCKET 。
现在对SOCKET一点都不懂。谁有这方面的资料，或者给我发一个简单的TCP/IP C/S结构的程序，我将感激不尽.
以前是用VB6的WINSOCK控件写，现在主要是不知道如何用SOCKET连接和控制，像控件都有个事件，SOCKET的事件在哪...？？？
是vb2005的socket类资料
如果有需要发我QQ：767431339
结果满意分一定加上，觉得好另外在加分哦`
谢谢!
[解决办法]
刚刚帮别人写过这个类的：
Imports System.Net
Imports System.Net.Sockets
Imports System.IO
Public Class MCLNet
''' <summary>
''' 端口通讯
''' </summary>
''' <remarks> </remarks>
Public Class Socket
''' <summary>
''' 监听指定端口
''' </summary>
''' <remarks>
''' </remarks>
Public Class Listen
Private localAddr As IPAddress
Private Listenport As Integer
Private a As New System.Threading.Thread(AddressOf Listening)
Private listener As System.Net.Sockets.TcpListener
''' <summary>
''' 创建监听
''' </summary>
''' <param name="Intport">监听端口 </param>
''' <param name="strLocalIPAddress">本机IP，不指定为自动获取 </param>
''' <remarks> </remarks>
Sub New(ByVal Intport As Integer, Optional ByVal strLocalIPAddress As String = "")
If strLocalIPAddress <> "" Then
localAddr = IPAddress.Parse(strLocalIPAddress)
Else
localAddr = IPAddress.Parse(GetMyIPAddress())
End If
Listenport = Intport
End Sub
''' <summary>
''' 启动监听
''' </summary>
''' <remarks> </remarks>
Public Sub StartListen()
If Not a.IsAlive Then a.Start()
End Sub
''' <summary>
''' 终止监听
''' </summary>
''' <remarks> </remarks>
Public Sub CloseCon()
If a.IsAlive Then
a.Abort()
listener.Stop()
End If
End Sub
''' <summary>
''' 监听状态
''' </summary>
''' <value> </value>
''' <returns> </returns>
''' <remarks> </remarks>
Public ReadOnly Property ConState() As Boolean
Get
Return a.IsAlive
End Get
End Property
''' <summary>
''' 供开发者获得Sampe代码
''' </summary>
''' <value> </value>
''' <returns> </returns>
''' <remarks> </remarks>
Public ReadOnly Property SampleCode() As String
Get
Dim strSample As String
strSample = " Sample:" & vbCrLf
strSample &= " Dim WithEvents a As MyClassLibrary.MCLNet.Socket.Listen" & vbCrLf
strSample &= " Delegate Sub changeText(ByVal result As String)" & vbCrLf
strSample &= " Private Sub receiveMSG(ByVal strdata As String) Handles a.Receive" & vbCrLf
strSample &= " BeginInvoke(New changeText(AddressOf GetMessage), strdata)" & vbCrLf
strSample &= " End Sub" & vbCrLf
strSample &= " Public Sub GetMessage(ByVal strdata As String)" & vbCrLf
strSample &= " TextBox1.Text = strdata " & vbCrLf
strSample &= " End Sub" & vbCrLf
Return strSample
End Get
End Property
Private Sub Listening()
listener = New System.Net.Sockets.TcpListener(localAddr, Listenport)
listener.Start()
Dim bytes(1024) As Byte
Dim data As String = Nothing
While True
' Perform a blocking call to accept requests.
' You could also user server.AcceptSocket() here.
Dim client As TcpClient = listener.AcceptTcpClient()
data = Nothing
' Get a stream object for reading and writing
Dim stream As NetworkStream = client.GetStream()
Dim i As Int32
' Loop to receive all the data sent by the client.
i = stream.Read(bytes, 0, bytes.Length)
While (i <> 0)
' Translate data bytes to a ASCII string.
data = System.Text.Encoding.Unicode.GetString(bytes, 0, i)
'Console.WriteLine("Received: {0}", data)
RaiseEvent Receive(data)
i = 0
End While
client.Close()
End While
End Sub
Public Event Receive(ByVal strdata As String)
End Class
''' <summary>
''' 向指定的IP与端口发送消息
''' </summary>
''' <remarks> </remarks>
Class SendMsg
Dim ns As NetworkStream
Dim clientsocket As TcpClient
Private _strRemoteIPAddress As String
Private _intRemotePort As Integer
''' <summary>
''' 创建发送过程
''' </summary>
''' <param name="strRemoteIPAddress">远程IP地址 </param>
''' <param name="intRemotePort">远程端口 </param>
''' <remarks> </remarks>
Public Sub New(ByVal strRemoteIPAddress As String, ByVal intRemotePort As Integer)
_strRemoteIPAddress = strRemoteIPAddress
_intRemotePort = intRemotePort
End Sub
''' <summary>
''' 发送消息
''' </summary>
''' <param name="strMSG">消息内容 </param>
''' <remarks> </remarks>
Public Sub SendMessage(ByVal strMSG As String)
clientsocket = New TcpClient(_strRemoteIPAddress, _intRemotePort)
ns = clientsocket.GetStream()
Dim command As String = strMSG
Dim outbytes As Byte() = System.Text.Encoding.Unicode.GetBytes(command.ToCharArray())
ns.Write(outbytes, 0, outbytes.Length)
clientsocket.Close()
End Sub
End Class
End Class
End Class
