在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
