0byt3m1n1
Path:
C:
/
BACKUPS
/
Biometric Backup
/
KELTRON
/
COSEC V14R4.1
/
Setup
/
API Samples
/
VB 6.0
/
[
Home
]
File: HttpClient.cls
VERSION 1.0 CLASS BEGIN MultiUse = -1 'True Persistable = 0 'NotPersistable DataBindingBehavior = 0 'vbNone DataSourceBehavior = 0 'vbNone MTSTransactionMode = 0 'NotAnMTSObject END Attribute VB_Name = "HttpClient" Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = True Attribute VB_PredeclaredId = False Attribute VB_Exposed = False Attribute VB_Ext_KEY = "SavedWithClassBuilder6" ,"Yes" Attribute VB_Ext_KEY = "Top_Level" ,"Yes" Public WinHttpRequest Public username As String Public Password As String Public LoginMode As Integer Public RequestHeaders 'HttpRequest SetCredentials flags. Const HTTPREQUEST_SETCREDENTIALS_FOR_SERVER = 0 Const HTTPREQUEST_SETCREDENTIALS_FOR_PROXY = 1 ' Setup Initialize event. Private Sub Class_Initialize() Set WinHttpRequest = CreateObject("WinHttp.WinHttpRequest.5.1") username = "" Password = "" LoginMode = HTTPREQUEST_SETCREDENTIALS_FOR_SERVER Set RequestHeaders = CreateObject("Scripting.Dictionary") End Sub ' Setup Terminate event. Private Sub Class_Terminate() Set WinHttpRequest = Nothing Set RequestHeaders = Nothing End Sub Public Function HttpGet(strUrl) WinHttpRequest.Open "GET", strUrl, False If (Len(username) <> 0 And Len(Password) <> 0) Then WinHttpRequest.SetCredentials username, Password, LoginMode End If RequestHeadersKeys = RequestHeaders.Keys For i = 0 To RequestHeaders.Count - 1 HeaderKey = RequestHeadersKeys(i) WinHttpRequest.SetRequestHeader HeaderKey, RequestHeaders.Item(HeaderKey) Next WinHttpRequest.Send If (WinHttpRequest.Status = 200) Then HttpGet = True Else HttpGet = False End If End Function 'strPostData = "VAR1=" + Server.URLEncode(VAR1) +"&VAR2=" + Server.URLEncode(VAR2) Public Function HttpPost(strUrl, strPostData) WinHttpRequest.Open "POST", strUrl, False If (Len(username) <> 0 And Len(Password) <> 0) Then WinHttpRequest.SetCredentials username, Password, LoginMode End If RequestHeadersKeys = RequestHeaders.Keys For i = 0 To RequestHeaders.Count - 1 HeaderKey = RequestHeadersKeys(i) WinHttpRequest.SetRequestHeader HeaderKey, RequestHeaders.Item(HeaderKey) Next WinHttpRequest.Send strPostData If (WinHttpRequest.Status = 200) Then HttpPost = True Else HttpPost = False End If End Function Public Function SetRequestHeader(strHeader, strValue) RequestHeaders.Add strHeader, strValue End Function Public Property Get Status() Set Status = WinHttpRequest.Status End Property Public Property Get StatusText() As String StatusText = WinHttpRequest.StatusText End Property Public Property Get ResponseHeaders() Set ResponseHeaders = WinHttpRequest.GetAllResponseHeaders() End Property Public Property Get ResponseHeader(strHeader) Set ResponseHeader = WinHttpRequest.GetResponseHeader(strHeader) End Property 'return data of binary Public Property Get ResponseBody() Set ResponseBody = WinHttpRequest.ResponseBody End Property 'return data of string Public Property Get ResponseText() As String ResponseText = WinHttpRequest.ResponseText End Property