救命啊,好几天没解决,winsock的问题(附源码)
Private Sub tcpServer_DataArrival(Index As Integer, ByVal bytesTotal As Long)tcpServer(Index).GetData clientDat, vbString
If Left(clientDat, 3) = "用户名" Then
....
exit sub
end if
If InStr(clientDat,"|##676#5#") > 0 Then
rsA = Split(clientDat, "##676#5#")
' Debug.Print clientDat
Set iRe = New ADODB.Recordset
With iRe
.Open "select * from chat", cn, 1, 3
.AddNew
.Fields("word") = rsA(1)
.Fields("time") = rsA(2)
.Update
End With
end sub
'发送的是 senddata= "|##676#5#" & trim(text1.text) & "|##676#5#" & date()
在局域网中运行正常.但到广域网中就运行错误,好象只取得一段数据,时间出错了
我不知如何写,谢高手指点!!
谢谢!