Question

用vb.net实现网络通信

就是在一个局域网里的两台电脑之间的通信怎么实现.要详细过程~~~

Answer 1

用 vb.net socket通信

Dim th As Threading.Thread
2 Dim tcpl As System.Net.Sockets.TcpListener
3
4 Private Sub Form1_Load()Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
5 th = New System.Threading.Thread(New System.Threading.ThreadStart(AddressOf MyListen))
6 th.Start()
7 End Sub
8
9 Public Sub SendMessage()Sub SendMessage(ByVal IP As String, ByVal SendMsg As String)
10 Try
11 If IP <> "" Then
12 Dim tcpc As New System.Net.Sockets.TcpClient(IP, 5656)
13 Dim tcpStream As Net.Sockets.NetworkStream = tcpc.GetStream
14 Dim reqStream As New IO.StreamWriter(tcpStream)
15 reqStream.Write(SendMsg)
16 reqStream.Flush()
17 tcpStream.Close()
18 tcpc.Close()
19 End If
20 Catch ex As Exception
21 MsgBox(ex.Message.ToString)
22 End Try
23 End Sub
24 Private Sub MyListen()Sub MyListen()
25 Try
26 Dim ipAddress As System.Net.IPAddress = System.Net.Dns.Resolve(System.Net.Dns.GetHostName).AddressList(0)
27 tcpl = New System.Net.Sockets.TcpListener(ipAddress, 5656)
28 tcpl.Start()
29 While True
30 Dim s As System.Net.Sockets.Socket = tcpl.AcceptSocket()
31 Dim MyBuffer(1024) As Byte
32 Dim i As Integer
33 i = s.Receive(MyBuffer)
34 If i > 0 Then
35 Dim lstrRec As String
36 Dim j As Integer
37 For j = 0 To i - 1
38 TextBox1.Text += Chr(MyBuffer(j)) & ","
39 Next
40 End If
41 End While
42 Catch ex As Exception
43 MsgBox(ex.Message.ToString)
44 End Try
45 End Sub
46
47 Private Sub Button1_Click()Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
48 SendMessage("192.168.0.61", TextBox2.Text)
49 End Sub

Answer 2

一个问题：只要你想的到，现在一般的都可以实现。就像你说的那个是可以实现的。
二个问题：我觉的不用装2000，因为XP是2000的升级版本，由于XP版本做的花稍，所以用的人不是很多很多。用2000系统稳定点。
三个问题：不管你用什么东西连接，只要三台机器的网卡插口连接上了就可以了，路由器是绝对的可以。我觉的最好A用一张双网卡然后连到其他的两台机器上，这样只有一台机器上网其他的都可以上网了，但是缺点就是只要A电脑不开的话，其他的两台是上不了网的。
其实象你说的条件，完全可以在为难感上随便一个地方下载一个局域网查看器和一个转数据的软件，如果你想让传的数据自己的汇总的话，那么你就必须自己去编一个VB的数据库软件才行。
上面只是个人理解，不具有权威行