新建到 HTTP 服务器的连接。如果 UseSSL 值为 True，则 URL 使用 SSL 协议 (https://)。
oConnection = Test.CreateConnection(strServer,lPort, bUseSSL)
参数
strServer
strServer As String：说明要使用的服务器的名称或 IP 地址。请不要包含协议 (http://) 信息。
lPort
lPort As Long：表示 Connection 对象将占用的 HTTP 服务器上的端口。该可选参数的默认值为 80。
bUseSSL
bUseSSL As Boolean：用以确定是否使用 URL 的 SSL 版本 (https://)。
返回值
oConnection As Connection：该对象代表 HTTP 连接。如果无法建立连接，方法将返回 Empty 对象。
备注
为了使用 SSL 协议，HTTP 服务器必须支持正被请求的 URL 的 SSL 并设置为使用该协议。
示例
复制代码
''''''''''''''''''''''''''''''''''''''''''''''''''
' Procedure to send multiple requests for a resource
' using only one connection.
'
Sub SendXRequests(strServer, strPath, lRequests)
Dim lCount, oRequest, oResponse, oConnection
Set oConnection = Test.CreateConnection(strServer )
' check for connection errors
If (oConnection Is Nothing) Then
Test.Trace("Error: Unable to create connection.")
Else
Set oRequest = Test.CreateRequest
oRequest.Path = strPath
oRequest.HTTPVersion = "HTTP/1.1"
For lCount = 1 To lRequests
If (oConnection.IsOpen) Then
Set oResponse = oConnection.Send(oRequest)
' check for a bad connection or request
If (oResponse Is Nothing) Then
Call Test.Trace("Error: invalid request or host not found ")
Else
Call Test.Trace("Server returned: " & oResponse.ResultCode)
End If
End If
Next
oConnection.Close
End If
End Sub
请参阅
Test 对象 | Connection 对象
