VB6.0怎么建立服务端与客户端的连接

tcpserverAccept requestID
这句话要写在 Private Sub tcpserver_ConnectionRequest(ByVal requestID As Long)
这个过程里面才有用
还有就是,Listen的winsock和Accept 的winsock最好是分开的,别用一个

自己定义一个结构体发字节流过去不就可以了。建议把字节流封包传输
如：
第1个字节 &HB1 表示包头开始标志
第2个字节 &H01 表示发送数据命令
第3-4个字节 &H0005 表示数据长度为5个字节
第5个字节 &H00 具体的数据第1个字节内容
第6个字节 &H00 具体的数据第2个字节内容
第7个字节 &H00 具体的数据第3个字节内容
第8个字节 &H00 具体的数据第4个字节内容
第9个字节 &H00 具体的数据第5个字节内容
第10个字节 &HB5 从包头开始逐个进行异或运算的“异或校检码”，校检数据的完整性用
第11个字节 &HB2 表示包尾
上面这个包主要由6个部分组成
1、包头 用来进行包的初始化识别
2、命令 扩展包协议用，如传输语句、传输控制指令、移动记录等
3、数据长度 我这里的例子是用两个字节表示长度，即最多一个包传输65536个字节的数据
4、数据区域 具体要传输的数据段落
5、异或校检码 为了检测数据的完整性，也可以用CRC16或CRC32等算法进行数据校检
6、包尾 用来完整识别一个包内容的结束标志
通过上面这个包结构，可以在数据包里放置小于65536个字节的内容进行传输
在处理传输数据时可以这么做：
Type SendReport
sr_head As Byte ' 固定为 &HB1
sr_cmd As Byte ' 命令
sr_size As Integer ' 数据大小
sr_data() As Byte ' 数据内容
sr_xor As Byte ' 异或校检码
sr_end As Byte ' 固定为 &HB2
End Type
Type SendRF
rs_type As Integer ' 字段类型
rs_NameSize As Integer ' 字段名称字节数
rs_name() As Byte ' 字段名称内容
rs_size As Integer ' 字段数据大小
rs_data() As Byte ' 字段数据内容
End Type
Type SendRS
rs_fcount As Integer ' 字段数量
rs_data() As SendRF ' 字段数据
End Type

然后把数据集的数据赋值到上面的机构体里，再把结构体的数据格式化到一个字节数组中，便可把这个字节数组发送出去，接收端只要根据格式提取出相关数据到结构体，就可以实现数据的还原过程。在过程里只要善用 CopyMemory API 就可以很容易实现这种过程的处理，如
Dim SR As SendReport
Dim SentBytes() as Byte
Dim i As Long
SRsr_head = &HB1:SRsr_xor = SRsr_head
SRsr_cmd = &H01:SRsr_xor = SRsr_xor xor SRsr_cmd
SRsr_size = &H05:SRsr_xor = SRsr_xor xor SRsr_size
Redim SRsr_data(4)
for i=0 to ubound(SRsr_data)
SRsr_xor = SRsr_xor xor SRsr_data(i)
next i
SRsr_end = &HB2
Redim SentBytes(10)
CopyMemory SentBytes(0),SRsr_head,1
CopyMemory SentBytes(1),SRsr_cmd,1
CopyMemory SentBytes(2),SRsr_size,2
CopyMemory SentBytes(4),SRsr_data(0),5
SentBytes(Ubound(SentBytes)-1) = SRsr_xor
SentBytes(Ubound(SentBytes)) = SRsr_end
Winsock1SendData SentBytes
当然上面只是封包的过程，没有设置具体的数据集数据，不过原理也差不多，也就是读写SendRF和SendRS结构的问题。具体的自己做做看吧。

首先，php应该没有这个权限直接放问你硬盘里的文件，要不电脑里的信息早就不安全了
首先，不建议在vb里放入密码，因为vb程序是解释执行的，有时只需要文本编辑器就可以看到部分源代码，所以相当不安全
建议是，用post的方法上传文件，方法复杂，但是可靠，具体实现很复杂，但是网上应该能找到

这代码发送和接收的MSDN60中有，在索引中键入winscok 控件，点使用 Winsock 控件。
详细参考：>服务器端在指定端口侦听，这个实例对连接请求使用新的套接字响应。而客户端则无需特别的代码。
具体做法可参考下面的内容：
在服务端放一个winsock控件name属性设置为sock,设置它的index属性为0
在表单的Initialize事件中开始侦听：
sock(0)LocalPort = 2012
sock(0)Listen
在sock的ConnectionRequest事件编写代码：
Dim iSock As Integer
'寻找是否有空闲的套接字
For iSock = 1 To sockUBound
'找到第一个后即可结束循环
If sock(iSock)State = 0 Then Exit For
Next
'如果没有空闲的套接字,建立一个新的(新建的就是空闲的)
If iSock > sockUBound Then Load sock(iSock)
'响应连接请求
sock(iSock)Accept requestID
其它事件的代码按实际需要编写，与客户端没有什么区别。
上面这部分代码，就是让sock(0)在指定的端口进行侦听，然后，如果有客户端在这个端口请求连接，那么，sock(0)就会产生一个ConnectionRequest事件，这时，并不去用sock(0)去响应连接，而是建立一个新的sock,如sock(1),sock(2)并用它们的Accept去与客户端的socket交互，而sock(0)继续在原有的端口上进行着侦听。
这样，就可以在同一个端口上接入多个客户端，这就是服务器侦听模式的简单应用例子了。

给你个例子，自己看着做吧
下列步骤创建一个非常简单的服务器：

要创建一个 TCP 服务器，请按照以下步骤执行：

创建新的 Standard EXE 工程。
将缺省窗体的名称改为 frmServer。
将窗体的标题改为“TCP 服务器”。
在窗体中放入一个 Winsock 控件，并将它的名字改为 tcpServer。
在窗体上添加两个 TextBox 控件。将第一个命名为 txtSendData，第二个为 txtOutput。
为窗体添加如下的代码。
Private Sub Form_Load()
'将 LocalPort 属性设置为一个整数。
'然后调用 Listen 方法。
tcpServerLocalPort = 1001
tcpServerListen
frmClientShow '显示客户端的窗体。
End Sub

Private Sub tcpServer_ConnectionRequest _
(ByVal requestID As Long)
'检查控件的 State 属性是否为关闭的。
'如果不是，
'在接受新的连接之前先关闭此连接。
If tcpServerState <> sckClosed Then _
tcpServerClose
'接受具有 requestID 参数的
'连接。
tcpServerAccept requestID
End Sub

Private Sub txtSendData_Change()
'名为 txtSendData 的 TextBox 控件中
'包含了要发送的数据。当用户往文本框中
'键入数据时，使用 SendData 方法
'发送输入的字符串。
tcpServerSendData txtSendDataText
End Sub

Private Sub tcpServer_DataArrival _
(ByVal bytesTotal As Long)
'为进入的数据声明一个变量。
'调用 GetData 方法，并将数据赋予名为 txtOutput
'的 TextBox 的 Text 属性。
Dim strData As String
tcpServerGetData strData
txtOutputText = strData
End Sub

上面的步骤创建了一个简单的服务器应用程序。为了使它能够工作，还必须为它创建一个客户端的应用程序。

要创建 TCP 客户端，请按照以下步骤执行：

在工程中添加一个新的窗体，将其命名为 frmClient。
将窗体的标题改为“TCP Client”。
在窗体中添加一个 Winsock 控件，并将其命名为 tcpClient。
在 frmClient 中添加两个 TextBox 控件。将第一个命名为 txtSend，第二个为 txtOutput。
在窗体上放一个 CommandButton 控件，并将其命名为 cmdConnect。
将 CommandButton 控件的标题改为 Connect。
在窗体中添加如下的代码。
重点 必须将 RemoteHost 属性值修改为您的计算机的名字。

Private Sub Form_Load()
'Winsock 控件的名字为 tcpClient。
'注意：要指定远程主机，可以使用
' IP 地址（例如："12111111"），也可以使用
'计算机的“好听的名字”如下所示。
tcpClientRemoteHost = "RemoteComputerName"
tcpClientRemotePort = 1001
End Sub

Private Sub cmdConnect_Click()
'调用 Connect 方法，初始化连接。
tcpClientConnect
End Sub

Private Sub txtSendData_Change()
tcpClientSendData txtSendText
End Sub

Private Sub tcpClient_DataArrival _
(ByVal bytesTotal As Long)
Dim strData As String
tcpClientGetData strData
txtOutputText = strData
End Sub

上面的代码创建了一个简单的客户/服务器模式的应用程序。我们可以将两者都运行起来：运行工程，然后单击“连接”。在两个窗体之一的 txtSendData 文本框中键入文本，可以看到同样的文字将出现在另一个窗体的 txtOutput 文本框中。

接受多个连接请求
上面设计的基本服务器只能接受一个连接请求。通过创建控件数组，使用一个控件也可以同时接受多个连接请求。利用这种方法，不需要关闭连接，而只需创建新的控件实例（通过设置其索引属性），然后在新的实例上调用 Accept 方法。

下面的代码假定名为 sckServer 的窗体上有一个 Winsock 控件，它的 Index 属性被设置为 0；因此控件是控件数组的一部分。在声明部分，声明了一个模块级的变量 intMax。在窗体的 Load 事件中，intMax 被设置为 0，数组中第一个控件的 LocalPort 属性被设置为 1001。然后调用控件的 Listen 方法，使之成为“监听”控件。在连接请求到达时，代码将检测 Index 是否为 0（“监听”控件的值）。如果为 0，监听控件将增加 intMax 的值，并使用该号码来创建新的控件实例。然后，使用新的控件实例接受连接请求。

Private intMax As Long

Private Sub Form_Load()
intMax = 0
sckServer(0)LocalPort = 1001
sckServer(0)Listen
End Sub

Private Sub sckServer_ConnectionRequest _
(Index As Integer, ByVal requestID As Long)
If Index = 0 Then
intMax = intMax + 1
Load sckServer(intMax)
sckServer(intMax)LocalPort = 0
sckServer(intMax)Accept requestID
Load txtData(intMax)
End If
End Sub

UDP 初步
创建 UDP 应用程序比创建 TCP 应用程序还要简单，因为 UDP 协议不需要显式的连接。在上面的 TCP 应用程序中，一个 Winsock 控件必须显式地进行“监听”，另一个必须使用 Connect 方法初始化连接。

UDP 协议不需要显式的连接。要在两个控件中间发送数据，需要完成以下的三步（在连接的双方）：

将 RemoteHost 属性设置为另一台计算机的名称。
将 RemotePort 属性设置为第二个控件的 LocalPort 属性。
调用 Bind 方法，指定使用的 LocalPort。（下面将详细地讨论该方法。）
因为两台计算机的地位可以看成“平等的”，这种应用程序也被称为点到点的。为了具体说明这个问题，下面将创建一个“聊天”应用程序，两个人可以通过它进行实时的交谈。

要创建一个 UDP 伙伴，请按照以下步骤执行：

创建一个新的 Standard EXE 工程。
将缺省的窗体的名称修改为 frmPeerA。
将窗体的标题修改为“Peer A”。
在窗体中放入一个 Winsock 控件，并将其命名为 udpPeerA。
在“属性”页上，单击“协议”并将协议修改为 UDPProtocol。
在窗体中添加两个 TextBox 控件。将第一个命名为 txtSend，第二个命名为 txtOutput。
为窗体增加如下的代码。
Private Sub Form_Load()
'控件的名字为 udpPeerA
With udpPeerA
'重点:必须将 RemoteHost 的值
'修改为计算机的名字。
RemoteHost= "PeerB"
RemotePort = 1001 '连接的端口号。
Bind 1002 '绑定到本地的端口。
End With
frmPeerBShow '显示第二个窗体。
End Sub

Private Sub txtSend_Change()
'在键入文本时，立即将其发送出去。
udpPeerASendData txtSendText
End Sub

Private Sub udpPeerA_DataArrival _
(ByVal bytesTotal As Long)
Dim strData As String
udpPeerAGetData strData
txtOutputText = strData
End Sub

要创建第二个 UDP 伙伴，请按照以下步骤执行：

在工程中添加一个标准窗体。
将窗体的名字修改为 frmPeerB。
将窗体的标题修改为“Peer B”。
在窗体中放入一个 Winsock 控件，并将其命名为 udpPeerB。
在“属性”页上，单击“协议”并将协议修改为“UDPProtocol”。
在窗体上添加两个 TextBox 控件。将第一个命名为 txtSend，第二个命名为 txtOutput。
在窗体中添加如下的代码。
Private Sub Form_Load()
'控件的名字为 udpPeerB。
With udpPeerB
'重点:必须将 RemoteHost 的值改为
'计算机的名字。
RemoteHost= "PeerA"
RemotePort = 1002 '要连接的端口。
Bind 1001 '绑定到本地的端口上。
End With
End Sub

Private Sub txtSend_Change()
'在键入后立即发送文本。
udpPeerBSendData txtSendText
End Sub

Private Sub udpPeerB_DataArrival _
(ByVal bytesTotal As Long)
Dim strData As String
udpPeerBGetData strData
txtOutputText = strData
End Sub

如果要试用上面的例子，按 F5 键运行工程，然后在两个窗体的 txtSend TextBox 中分别键入一些文本。键入的文字将出现在另一个窗体的 txtOutput TextBox 中。

关于 Bind 方法
在上面的代码中，在创建 UDP 应用程序时调用了 Bind 方法，这是必须的。Bind 方法的作用是为控件“保留”一个本地端口。例如，如果将控件绑定到 1001 号端口，那么其它应用程序将不能使用该端口进行“监听”。该方法阻止其它应用程序使用同样的端口。

Bind 方法的第二个参数是任选的。如果计算机上存在多个网络适配器，可以用 LocalIP 参数来指定使用哪一个适配器。如果忽略该参数，控件使用的将是计算机上“控制面板”设置中“网络”控制面板对话框中列出的第一个适配器。

在使用 UDP 协议的时候，可以任意地改变 RemoteHost 和 RemotePort 属性，同时始终保持绑定在同一个 LocalPort 上。TCP 协议与此不同，在改变 RemoteHost 和 RemotePort 属性之前，必须先关闭连接。

你就没有研究透这个游戏的客户端 我帮你分析一下吧:
游戏launcher选择网游的大区的时候在目录下一定改动了或者增加了某些文件,(传奇你一定知道吧,把这个作为参考),找到这些文件,看看里面的数据,记录下来
当你记录了这些数据后,你就可以自己用VB做一个launcher了,当玩家选中了相应的大区后 就在目录下改动或者增加那些相应的文件,然后你在shell客户端、窗口运行 就搞定了
这是我的思路,当然具体游戏具体分析我只能给你个参考

---