双11狂欢大促

盲盒赢 定制羽绒服

开启惊喜盲盒，抽取你的专属好礼

— 惊喜奖品抢先看 —

超级年卡50元券

周边70元券

手机支架

一拖三数据线

雨伞

运动毛巾

电动牙刷

VIP月卡

机械键盘

定制羽绒服

超级年卡50元券

周边70元券

手机支架

一拖三数据线

雨伞

运动毛巾

电动牙刷

VIP月卡

机械键盘

定制羽绒服

用winsock 收不到信息。

2008-07-29 03:05:19 287 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

musclecn 墨衍会员 · AI 创作全网分发关注 + 加入社区

用WINSOCK实现聊天室的VC++程序设计用WINSOCK实现聊天室的VC++程序设计一、SOCKET简介 80年代初，美国政府的高级研究工程机构（ARPA）给加利福尼亚大学Berkeley分校提供了资金，让他们在UNIX操作系统下实现TCP/IP协议。在这个项目中，研究人员为TCP/IP网络通信开发了一个API（应用程序接口）。这个API称为Socket接口（套接字）。今天，SOCKET接口是TCP/IP网络最为通用的API，阅读详情

以下是收信息的代码，程序一执行就像进入死循环一样；

<script language="vbscript">

</script>

以下是发消息的代码，没有问题可以发出：
<%
dim revdata
dim sendata
set sock=createobject("MSWinsock.Winsock")
sock.Protocol=1
sock.Connect "192.168.0.218",11000
sendata="请输入你要发的信息exit"
sock.senddata senddata & chr(13)
sock.close
%>

...全文

PCIe中ACS知识小记虚拟机内部的访问数据显而易见是带的GPA地址。而目前几乎所有的PCIe 设备都带ACS control，所以它们可以单独assign给不同的VM，但是随之而来的就是即使两个GPU同时assign给同一个VM，由于ACS的存在，他们之间也不会有真正的物理层面的P2P访问。每一个TLP都自带一个address（寻址类TLP），同时每一个endpoint，PCIe switch都自带一段BIOS配置的地址空间范围，一旦这个TLP的address落入某个设备的地址范围，那么这个TLP就属于这个设备并消费。阅读详情

musclecn

ASP 28,401 成员 356,940 内容

+ 关注 + 加入社区

切换为时间正序

musclecn 2008-08-04

打赏
举报

最终还是放弃试用socket的方法传递数据怕有丢包。还是用数据库的方式，就是担心数据库的压力能不能承受

zzxap 2008-07-31

打赏
举报

Option Explicit



Public Sub FireEvent(ByVal strClassName, ByVal strEventName, pArray)

    Dim strExp, arr, i

    strExp = "Call $Class_$Event($Param)"

    strExp = Replace(strExp, "$Class", strClassName)

    strExp = Replace(strExp, "$Event", strEventName)

    ReDim arr(UBound(pArray))

    For i = 0 To UBound(arr)

        arr(i) = "pArray(" & i & ")"

    Next

    strExp = Replace(strExp, "$Param", Join(arr, ", "))

    Execute strExp

End Sub



Public Const sckClosed              = 0 '缺省的。关闭

Public Const sckOpen                = 1 '打开

Public Const sckListening           = 2 '侦听

Public Const sckConnectionPending   = 3 '连接挂起

Public Const sckResolvingHost       = 4 '识别主机

Public Const sckHostResolved        = 5 '已识别主机

Public Const sckConnecting          = 6 '正在连接

Public Const sckConnected           = 7 '已连接

Public Const sckClosing             = 8 '同级人员正在关闭连接

Public Const sckError               = 9 '错误



Dim s, recv, blnSend

blnSend = False

Set s = WScript.CreateObject("MSWinSock.WinSock")

s.Protocol = 0

s.RemoteHost = "www.sohu.com"

s.RemotePort = 80

s.Connect



Do While True

    Select Case s.State

    Case sckClosed

    Case sckOpen

    Case sckListening

    Case sckConnectionPending

    Case sckResolvingHost

    Case sckHostResolved

    Case sckConnecting

    Case sckConnected

        If Not blnSend Then

            FireEvent "s", "Connect", Array()

        Else

            Do While s.BytesReceived > 0

                FireEvent "s", "DataArrival", Array(s.BytesReceived)

            Loop

        End If

    Case sckClosing

        FireEvent "s", "Close", Array()

        Exit Do

    Case sckError

        FireEvent "s", "Error", Array()

        Exit Do

    End Select

    WScript.Sleep 100

Loop

s.Close

Set s = Nothing



Private Sub s_Connect()

    WScript.Echo "socket connected"

    s.SendData "GET / HTTP/1.1" & vbCrLf & _

    "Host: www.sohu.com" & vbCrLf & _

    "Connection: Close" & vbCrLf & vbCrLf

    blnSend = True

End Sub



Private Sub s_Close()

    WScript.Echo "socket closed"

    WScript.Echo Replace(recv, Chr(0), "")

End Sub



Private Sub s_DataArrival(ByVal bytesTotal)

    Dim tmp

    tmp = String(bytesTotal, Chr(0))

    s.GetData tmp, vbString, bytesTotal

    WScript.Echo "socket recv " & bytesTotal & " bytes"

    recv = recv & tmp

End Sub



Private Sub s_Error()

    WScript.Echo "socket error"

    FireEvent "s", "Close", Array()

End Sub

ymle1228 2008-07-30

打赏
举报

wtogether 2008-07-30

打赏
举报

因为ASP没有Event，html有Event, ASP发送成功是网速快,不然SendData会出错的,因为还没达到连接状态,sock.State = 7的时候,才可以发送/接收数据包,可以看看这个用VBS模拟的事件,虽然可以接收,但是接收不完全,会丢失数据,你用ASP接收数据也就是这样的情况



Option Explicit



Public Sub FireEvent(ByVal strClassName, ByVal strEventName, pArray)

    Dim strExp, arr, i

    strExp = "Call $Class_$Event($Param)"

    strExp = Replace(strExp, "$Class", strClassName)

    strExp = Replace(strExp, "$Event", strEventName)

    ReDim arr(UBound(pArray))

    For i = 0 To UBound(arr)

        arr(i) = "pArray(" & i & ")"

    Next

    strExp = Replace(strExp, "$Param", Join(arr, ", "))

    Execute strExp

End Sub



Public Const sckClosed              = 0 '缺省的。关闭

Public Const sckOpen                = 1 '打开

Public Const sckListening           = 2 '侦听

Public Const sckConnectionPending   = 3 '连接挂起

Public Const sckResolvingHost       = 4 '识别主机

Public Const sckHostResolved        = 5 '已识别主机

Public Const sckConnecting          = 6 '正在连接

Public Const sckConnected           = 7 '已连接

Public Const sckClosing             = 8 '同级人员正在关闭连接

Public Const sckError               = 9 '错误



Dim s, recv, blnSend

blnSend = False

Set s = WScript.CreateObject("MSWinSock.WinSock")

s.Protocol = 0

s.RemoteHost = "www.sohu.com"

s.RemotePort = 80

s.Connect



Do While True

    Select Case s.State

    Case sckClosed

    Case sckOpen

    Case sckListening

    Case sckConnectionPending

    Case sckResolvingHost

    Case sckHostResolved

    Case sckConnecting

    Case sckConnected

        If Not blnSend Then

            FireEvent "s", "Connect", Array()

        Else

            Do While s.BytesReceived > 0

                FireEvent "s", "DataArrival", Array(s.BytesReceived)

            Loop

        End If

    Case sckClosing

        FireEvent "s", "Close", Array()

        Exit Do

    Case sckError

        FireEvent "s", "Error", Array()

        Exit Do

    End Select

    WScript.Sleep 100

Loop

s.Close

Set s = Nothing



Private Sub s_Connect()

    WScript.Echo "socket connected"

    s.SendData "GET / HTTP/1.1" & vbCrLf & _

    "Host: www.sohu.com" & vbCrLf & _

    "Connection: Close" & vbCrLf & vbCrLf

    blnSend = True

End Sub



Private Sub s_Close()

    WScript.Echo "socket closed"

    WScript.Echo Replace(recv, Chr(0), "")

End Sub



Private Sub s_DataArrival(ByVal bytesTotal)

    Dim tmp

    tmp = String(bytesTotal, Chr(0))

    s.GetData tmp, vbString, bytesTotal

    WScript.Echo "socket recv " & bytesTotal & " bytes"

    recv = recv & tmp

End Sub



Private Sub s_Error()

    WScript.Echo "socket error"

    FireEvent "s", "Close", Array()

End Sub

musclecn 2008-07-29

打赏
举报

[Quote=引用 5 楼 wtogether 的回复:]
winsock不是这样用的，它是用事务来处理的
[/Quote]

那为什么我发送没有问题啊，我用c#做了个接收程序。发现可以收到asp发的消息。但是我用c#程序发送过来就接收不到。

musclecn 2008-07-29

打赏
举报

我试试看

smartcatiboy 2008-07-29

打赏
举报

脚本不支持doevent，阻塞应该无效

wtogether 2008-07-29

打赏
举报

winsock不是这样用的，它是用事务来处理的
<script language="vbscript">
Dim recv

Private Sub window_OnLoad()
s.Connect
End Sub

Private Sub s_Close()
Debug "socket closed"
Debug "socket recv data<br/>" & HTMLEncode(recv)
End Sub

Private Function HTMLEncode(ByVal strData)
Dim ret
ret = strData
ret = Replace(ret, "&", "&")
ret = Replace(ret, "<", "<")
ret = Replace(ret, ">", ">")
ret = Replace(ret, """", """)
HTMLEncode = ret
End Function

Private Sub s_Connect()
Debug "socket connect"
s.SendData "GET / HTTP/1.1" & vbCrLf & _
"Host: www.sohu.com" & vbCrLf & _
"Connection: Keep-Alive" & vbCrLf & vbCrLf
End Sub

Private Sub s_DataArrival(ByVal bytesTotal)
Dim tmp
tmp = String(bytesTotal, Chr(0))
s.GetData tmp, vbString, bytesTotal
Debug "socket recv " & bytesTotal & " bytes"
recv = recv & tmp
End Sub

Private Sub s_Error(ByVal Number, Description, ByVal Scode, ByVal Source, ByVal HelpFile, ByVal HelpContext, CancelDisplay)
Debug "socket error<br/>" & _
"- Number: " & Hex(Number) & "<br/>" & _
"- description: " & Description
End Sub

Private Sub Debug(ByVal strData)
Dim obj
Set obj = document.getElementById("info")
obj.innerHTML = obj.innerHTML & strData & "<br/>"
Set obj = Nothing
End Sub
'Set s = Nothing
</script>
<div id="info"></div>
<OBJECT ID="s" CLASSID="clsid:{248DD896-BB45-11CF-9ABC-0080C7E7B78D}">
<param name="Protocol" value="0" />
<param name="RemoteHost" value="www.sohu.com" />
<param name="RemotePort" value="80" />
<span>Create Object Error</span>
</OBJECT>

redcn2004 2008-07-29

打赏
举报

改成这个 if instr(revdata,"exit")>0 then

musclecn 2008-07-29

打赏
举报

判断接收字符串中是否有exit 有的话就退出循环。

taia 2008-07-29

打赏
举报

本来就是个死循环,那个退出的条件有用吗

xiaojing7 2008-07-29

打赏
举报

if sock.BytesReceived>0 then 

  sock.getdata revdata,vbString 

if instr(revdata,"exit") then 

  exit do 

  else 

end if 

loop 

sock.close

看不懂，你这块的逻辑！你判断有问题

✦双11狂欢大促✦

用winsock 收不到信息。

相关推荐

双11狂欢大促