在VB6上，如何实时接收服务器通过Webserver返回的数据？
本帖最后由 bcrun 于 2012-09-28 12:22:24 编辑 如题：如何实时接收服务器通过Webserver返回的数据？

 Dim oSoapClient As New MSSOAPLib30.SoapClient30
            Dim bReturn() As Byte
            
            oSoapClient.ClientProperty("ServerHTTPRequest") = True
            oSoapClient.MSSoapInit WebServer
            
            Dim bBuffer(0 To 9) As Byte
            For i = 0 To 9
                bBuffer(i) = DBBuffer(i)
            Next i
            bReturn = oSoapClient.sendPager(bBuffer)
            
             '请在此等待返回并把数据存入DEBuffer (9)
            For i = 0 To 9
                DEBuffer(i) = bReturn(i)
            Next i
            Set oSoapClient = Nothing

以上代码是VB主动发，然后收取服务器的返回。

我现在想，VB不发，然后被动地收取服务器发送给VB的数据？要求实时


[解决办法]
webservice能自己实现push信息的功能？请楼主GOOGLE一下: push notification
[解决办法]
服务器推送信息？
[解决办法]
我这有一个