VB中的inet控件如何发送消息并收到回复呢?
要做的是一个报文的转换,从A机上发送请求,程序接收后转发为xml报文,通过https,发送给B机,然后B机回应后,把返回的相应,转化为A的报文。就是做这么一个过程。求教求...
要做的是一个报文的转换,从A机上发送请求,程序接收后转发为xml报文,通过https,发送给B机,然后B机回应后,把返回的相应,转化为A的报文。就是做这么一个过程。求教求教!
dianet - 经理 四级
请问一下,要怎么连到我要的网页呢? 展开
dianet - 经理 四级
请问一下,要怎么连到我要的网页呢? 展开
1个回答
展开全部
Private Sub Inet1_StateChanged(ByVal State As Integer)
Select Case State
Case 12 '表明网络连接检索正常
stemp = Inet1.GetChunk(1024) '使用GetChunk方法从缓冲区中一次提取1024个字节的回应文本,并存放在stemp临时变量中
While stemp <> "" '当仍然返回信息时
LastResult = LastResult + stemp '将整个网页的源文件代码放入LastResult变量中
stemp = Inet1.GetChunk(1024) '循环
Wend
Case 11
MsgBox "未返回搜索结果"
End Select
End Sub
Select Case State
Case 12 '表明网络连接检索正常
stemp = Inet1.GetChunk(1024) '使用GetChunk方法从缓冲区中一次提取1024个字节的回应文本,并存放在stemp临时变量中
While stemp <> "" '当仍然返回信息时
LastResult = LastResult + stemp '将整个网页的源文件代码放入LastResult变量中
stemp = Inet1.GetChunk(1024) '循环
Wend
Case 11
MsgBox "未返回搜索结果"
End Select
End Sub
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询