vb winsock问题

[aokjin]

我现在要做一个系统，我从linux系统接收数据，我自己是win2003，然后当收到信息时返回到linux系统！另外，我还要把接收到的数据发给另外的客户端！我永远都是处于被动状态！而且这些传输都是实时的！我现在一头雾水，不知道该怎么做，也不知道自己说清楚了没有，请大虾们给我指点，最好能够贴出代码，我将高分相送

[mymyal123]

我晕。

给出代码，

先谈谈价钱

[aokjin]

这还要钱？分不行的啊！这并不复杂啊，只是我对这个不熟而已啊！代码总长不会超过100行的吧！

[fcuandy]

很简单,不考滤linux

从linux发数据到win2003的某个端口时, 你的WINSOCK只需侦听此端口数据
而你发送数据到linux时,也只管往linux的接收端口发就行了.

至于linux上如何处理就不用管了.就是对winsock几个属性和方法的操作.

.RemotePort
.RemoteHost
.LocalIP
.LocalPort
.Connect
.SendData
.GetData

[aokjin]

这些我都做好了，但是剩下的我就不太清楚了啊！收到的数据应该是一个id对应一个值，而我还要把这两个值再传送给其他的客户端

[fcuandy]

那这就是简单的关于winsock的使用了.
或许真如2楼所言

[poron9]

首先重要的要确定你的数据包是传送什么数据格式，比如如下格式：
11 123 12345
这个数据包里有三项数据，数据与数据之间使用Tab做分隔符，数据包以回车做为分行符

至于怎么样传送倒不是问题，关键是多线程工作的问题，不建议用VB，建议用VC

[aokjin]

楼上的朋友，基本上就是你说的这种格式，能不能有这样的代码给小弟看看啊

[aokjin]

本机调试成功，就看明天服务器上了！谢谢各位，明天结贴

[poron9]

我没在VB下写过Socket应用，因为VB的多线程处理功能不理想
不过转贴一份坛子上一位兄弟的UDP应用代码，类似你要的吧。

Private Sub Command1_Click()
With Me.Winsock1
.Protocol = sckUDPProtocol
.Bind 8000, "127.0.0.1"
End With
End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim x
Me.Winsock1.GetData x
MsgBox x
End Sub

运行后，用如下xx.vbs文件测试
Set sock = CreateObject("MSWINSOCK.Winsock")
sock.Protocol = 1
sock.RemoteHost = "127.0.0.1"
sock.RemotePort = 8000
sock.SendData "123"