VB中的Winsock API应答式(HTTP)协议同步问题
如何实现Winsock应答式(HTTP)协议同步问题
在一个高人的CSDN博客上抄了一段 Winsock API代码
类的地址在这里 http://blog.csdn.net/lyserver/archive/2009/11/26/4880416.aspx
复制过来太长了 帖子装不下
然后我调用这个类,窗体代码如下
VB code:
Private Sub Command1_Click()
Dim z As String
Dim b As New Winsocket
b.Disconnect
Call b.Connect("www.baidu.com", 80)
Call b.SendData(Text1.Text)
b.SendBufferSize = 0
Call b.GetData(z)
Text2.Text = z
End Sub
'Text1的内容
'GET / HTTP/1.1
'Accept: */*
'Accept-Language: zh-cn
'UA-CPU: x86
'Accept-Encoding: gzip, deflate
'User-Agent: Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 5.1)
'Host: www.baidu.com
'Connection: Keep-Alive
'
怎么获取到的数据不全呢?只有一半数据,也不知道是不是我的调用方法错了
自己顶一下
比如我在另一个类里写了这样一个函数用来读套接字数据:
Private Function ReadEcho(Optional ByVal strEOF As String = vbCrLf, Optional ByVal lngTimeout As Long = 20000) As String
Dim lngStartTime As Long
Dim strBuffer As String, strResult As String
lngStartTime = GetTickCount
Do
strBuffer = ""
m_objWinSock.GetData strBuffer
If Len(strBuffer) &
相关问答:
为什么工具栏按扭的宽度改变不了,在属性里改了又变成原来的数值了
大胡子真厉害,回答基本都是爆料级的
大胡子升级真快啊,这才几天就5条短裤外加月排名第一了
想想我这5个短裤混了差不多8年才得到的。
回复 ......
为什么我用form.show和form.hide多次连接了两个窗口只能互换链接两次啊?
代码看看
照道理form.show 没次数限定的吧
我也快疯了。
楼主知道怎么发贴么?
引用
我也快疯了。
楼主知道怎么发贴么?
楼主也 ......
在vb中如何读取Word内容(包含表格,图片,等)
竟然不是zero。
不知道怎么实现的不要说话
这个只能读文本,
VB code:
Private Sub Command1_Click()
Dim WordApp As Object
Set WordApp = CreateObject(& ......
Private Sub btnPrint_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnPrint.Click
MouseWait()
Dim ClearTempTabelSQL As String
'If Not ......
我想把word另存为xml之后,用vb读取这个xml的内容,请问如何实现?
dim f as integer
dim b() as byte
dim s as string
dim L as long
f=freefile()
open "abc.xml" for binary access read as #f
......