病情分析：
让客户满意是我们工作的目标，不断超越客户的期望值来自于我们对这个行业的热爱。我们立志把好的技术通过有效、简单的方式提供给客户，将通过不懈努力成为客户在信息化领域值得信任、有价值的长期合作伙伴，公司提供的服务项目有：主机域名、网站空间、营销软件、网站建设、城中网站维护、网站推广。
考虑为感冒的可能，可以采用小儿氨酚黄那敏颗粒治疗，
指导意见：
多喝开水，注意保暖很重要，必要时可以采用输液进行治疗的。
病情分析：
你好，谢谢你的咨询，感冒初期可以吃点牛磺酸颗粒，药店可以买到，是非处方药。同时补充大量维C。感冒药可以吃但只能缓解感冒症状而不能治疗感冒。
指导意见：
如果流鼻涕比较多，或者有点热度，可以吃一点消炎药，但是消炎药最好少吃。感冒一般一个星期自愈。症状如果加重就要去医院。
病情分析：
您好，根据您的情况分析宝宝可能是受凉引起的感冒。
指导意见：
建议您在平时让宝宝多喝水，同时您也要给宝宝吃点感冒药，注意保暖，在饮食上少吃冷凉的食物，这样宝宝慢慢会好的。
病情分析：
你好，七个月宝宝感冒鼻子不通气，考虑是感冒导致的鼻炎。吃点哎畅等抗感冒药就可以了。
指导意见：
平时多喝水，易消化饮食，保持室内空气流通，注意休息。
病情分析：
你好，你所说的这种症状是炎症的表现，是机体感染病菌的结果，应该在就医治疗的同时做好调整防护。
指导意见：
合理喂养，避免受凉，适当的增加衣物，减少易感人群的接触和各种不良刺激，从各方面进行调整，逐渐的减轻恢复正常。
病情分析：
小儿上呼吸道感染，多为病毒引起，应早期应用病毒唑颗粒等，辅以对症及支持治疗即可
指导意见：
日常应合理饮食，多饮水，加强护理，避免不良刺激，鼻塞等可应用扑尔敏，配合局部热敷，滴用麻黄碱滴剂等，具体应遵循临床医师的指导，
病情分析：
根据描述，考虑上呼吸道感染。
指导意见：
可以用点双黄连口服液。多喂水，注意保暖。
Private Sub Form_Load()
With Winsock1
.RemoteHost = "124.135.13.106" '对方的IP
.RemotePort = 1002 ' 对方的端口号
.Bind 1001 ' 本机的端口号
End With
End Sub
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim strData As String
Winsock1.GetData strData '接收字节
List1.AddItem strData
End Sub
这个用UDP进行连接的。只不过是对单个机器进行的。
用 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
用VB5 Winsock控件创建TCP/IP通讯程序 随着Windows 95中文版和Windows NT Server 4.0中文版的流行， Microsoft公司推出了相应平台上的开发软件: Visual Basic 5.0 中文企业 版。它为Windows环境下的网络开发提供了强大的工具，Winsock控件就是其中之一。 Winsock控件建立在TCP、UDP协议的基础上，完成与远程计算机的通信。即使对TCP/IP不太熟悉的用户，使用该控件也可以在十几分钟内创建一个简单的客户机/服务器程序。下面我们对Winsock控件的事件、方法、属性按其在程序中出现的顺序分别作详细的介绍，以便更好地理解程序源代码。
端口不NAT，两个子网中的两端之间不可能通信。至少要有一方处在公网下或有路由端口映射，不必双方都映射。
建议题主找本计算机网络的书研读一下子网划分这块儿。
