• 按键公众号 :
按键精灵电脑版
立即下载

软件版本:2014.06
软件大小:22.9M
更新时间:2021-12-03

按键精灵安卓版
立即下载

软件版本:3.7.2
软件大小:46.2M
更新时间:2023-05-10

按键精灵iOS版
立即下载

软件版本:1.8.0
软件大小:29.2M
更新时间:2023-03-21

按键手机助手
立即下载

软件版本:3.8.0
软件大小:262M
更新时间:2023-05-30

快捷导航

登录 后使用快捷导航
没有帐号? 注册

返回列表 «89101112131415» / 20
发新话题 回复该主题

[技术交流] 【院刊】-【201505期】GET、POST初解析 [复制链接]

221#

曾多次调查调查

222#

推推推

223#

回复 1楼果兒的帖子

社会社会~~

224#

不知道复杂不,真想学学

225#

不错 学习了

226#

努力學習 懶人加油

227#

感谢分享

228#

学习学习一下

229#

谢谢楼主分享

230#

RE:【院刊】-【201505期】GET、POST初解析修改

231#

谢谢 学习下0000

232#

谢谢分享

233#

正是我需要的

234#

谢谢了。

235#

Function GetHttpPage(GetUrl)
Dim xmlHttp
Set xmlHttp = CreateObject("MSXML2.serverXMLHTTP.6.0")
xmlHttp.Open "GET", GetUrl, False
xmlHttp.setTimeouts 10000, 10000, 10000, 10000
'第一个数值: 解析DNS名字的超时时间10秒
'第二个数值: 建立Winsock连接的超时时间10秒
'第三个数值: 发送数据的超时时间15秒
'第四个数值: 接收response的超时时间15秒
'xmlHttp.setRequestHeader "Cookie", Cookie
On Error Resume Next
xmlHttp.send
If Err.Number = -2147012894 Then
GetHttpPage = "$False$"
Exit Function
End If
If xmlHttp.readystate <> 4 Then
Set xmlHttp = Nothing
GetHttpPage = "$False$"
Exit Function
End If
GetHttpPage = BytesToBstr(xmlHttp.responseBody, "utf-8")
Set xmlHttp = Nothing
End Function

Public Function BytesToBstr(Body, Cset)
Dim objStream
Set objStream = CreateObject("adodb.stream")
objStream.Type = 1
objStream.Mode = 3
objStream.Open
objStream.Write Body
objStream.Position = 0
objStream.Type = 2
objStream.Charset = Cset
BytesToBstr = objStream.ReadText
objStream.Close
Set objStream = Nothing
End FunctionFunction GetHttpPage(GetUrl)
Dim xmlHttp
Set xmlHttp = CreateObject("MSXML2.serverXMLHTTP.6.0")
xmlHttp.Open "GET", GetUrl, False
xmlHttp.setTimeouts 10000, 10000, 10000, 10000
'第一个数值: 解析DNS名字的超时时间10秒
'第二个数值: 建立Winsock连接的超时时间10秒
'第三个数值: 发送数据的超时时间15秒
'第四个数值: 接收response的超时时间15秒
'xmlHttp.setRequestHeader "Cookie", Cookie
On Error Resume Next
xmlHttp.send
If Err.Number = -2147012894 Then
GetHttpPage = "$False$"
Exit Function
End If
If xmlHttp.readystate <> 4 Then
Set xmlHttp = Nothing
GetHttpPage = "$False$"
Exit Function
End If
GetHttpPage = BytesToBstr(xmlHttp.responseBody, "utf-8")
Set xmlHttp = Nothing
End Function

Public Function BytesToBstr(Body, Cset)
Dim objStream
Set objStream = CreateObject("adodb.stream")
objStream.Type = 1
objStream.Mode = 3
objStream.Open
objStream.Write Body
objStream.Position = 0
objStream.Type = 2
objStream.Charset = Cset
BytesToBstr = objStream.ReadText
objStream.Close
Set objStream = Nothing
End FunctionFunction GetHttpPage(GetUrl)
Dim xmlHttp
Set xmlHttp = CreateObject("MSXML2.serverXMLHTTP.6.0")
xmlHttp.Open "GET", GetUrl, False
xmlHttp.setTimeouts 10000, 10000, 10000, 10000
'第一个数值: 解析DNS名字的超时时间10秒
'第二个数值: 建立Winsock连接的超时时间10秒
'第三个数值: 发送数据的超时时间15秒
'第四个数值: 接收response的超时时间15秒
'xmlHttp.setRequestHeader "Cookie", Cookie
On Error Resume Next
xmlHttp.send
If Err.Number = -2147012894 Then
GetHttpPage = "$False$"
Exit Function
End If
If xmlHttp.readystate <> 4 Then
Set xmlHttp = Nothing
GetHttpPage = "$False$"
Exit Function
End If
GetHttpPage = BytesToBstr(xmlHttp.responseBody, "utf-8")
Set xmlHttp = Nothing
End Function

Public Function BytesToBstr(Body, Cset)
Dim objStream
Set objStream = CreateObject("adodb.stream")
objStream.Type = 1
objStream.Mode = 3
objStream.Open
objStream.Write Body
objStream.Position = 0
objStream.Type = 2
objStream.Charset = Cset
BytesToBstr = objStream.ReadText
objStream.Close
Set objStream = Nothing
End Function

236#

下面是相关整体代码示例:

237#

谢谢楼主分享

238#

看看是不是有好的!

239#

这是好东西,好好学习学习

240#

谢谢谢

发新话题 回复该主题