VERSION # 23:VERSION 1.0 CLASS BEGIN MultiUse Attribute VB_Name Attribute VB_GlobalNameSpace Attribute VB_Creatable Attribute VB_PredeclaredId Attribute VB_Exposed Explicit web_CrLf # 63:Private web_CrLf StatusCode WebStatusCode StatusDescription Content Body Data Headers Collection Cookies Collection Update # 138:Public Sub Update( Updated WebResponse StatusCode Updated StatusCode StatusDescription Updated StatusDescription Content Updated Content Body Updated Body Headers Updated Headers Cookies Updated Cookies Data Updated Data CreateFromHttp # 158:Public Sub CreateFromHttp( Client WebClient Request WebRequest Http web_ErrorHandling StatusCode Http Status StatusDescription Http StatusText Content Http ResponseText Body Http ResponseBody web_LoadValues Http GetAllResponseHeaders Content Body Request web_ErrorHandling web_ErrorDescription web_ErrorDescription vbNewLine Err Number VBA IIf Err Number VBA LCase VBA Hex Err Number Err Description WebHelpers LogError web_ErrorDescription vbObjectError Err Raise vbObjectError web_ErrorDescription CreateFromCurl # 190:Public Sub CreateFromCurl( Client WebClient Request WebRequest Result web_ErrorHandling web_Lines web_Lines VBA Split Result web_CrLf StatusCode web_ExtractStatusFromCurlResponse web_Lines StatusDescription web_ExtractStatusTextFromCurlResponse web_Lines Content web_ExtractResponseTextFromCurlResponse web_Lines Body WebHelpers StringToAnsiBytes Content web_LoadValues web_ExtractHeadersFromCurlResponse web_Lines Content Body Request web_ErrorHandling web_ErrorDescription web_ErrorDescription vbNewLine Err Number VBA IIf Err Number VBA LCase VBA Hex Err Number Err Description WebHelpers LogError web_ErrorDescription vbObjectError Err Raise vbObjectError web_ErrorDescription ExtractHeaders # 225:Public Function ExtractHeaders( ResponseHeaders Collection web_ErrorHandling web_Lines web_i web_Headers Collection web_Header Dictionary web_ColonPosition web_Multiline web_Lines VBA Split ResponseHeaders web_CrLf web_i LBound web_Lines UBound web_Lines web_i UBound web_Lines web_Headers Add web_Header web_Lines web_i web_ColonPosition VBA InStr web_Lines web_i web_ColonPosition web_Header web_Multiline web_Multiline web_Multiline web_Headers Add web_Header web_Header web_Headers Add web_Header web_Multiline web_Header WebHelpers CreateKeyValue Key VBA Trim VBA Mid web_Lines web_i web_ColonPosition Value VBA Trim VBA Mid web_Lines web_i web_ColonPosition VBA Len web_Lines web_i web_Header web_Header web_CrLf web_Lines web_i web_i ExtractHeaders web_Headers web_ErrorHandling web_ErrorDescription web_ErrorDescription vbNewLine Err Number VBA IIf Err Number VBA LCase VBA Hex Err Number Err Description WebHelpers LogError web_ErrorDescription vbObjectError Err Raise vbObjectError web_ErrorDescription ExtractCookies # 286:Public Function ExtractCookies( Headers Collection Collection web_Header Dictionary web_Cookie web_Key web_Value web_Cookies Collection web_Header Headers web_Header web_Cookie web_Header VBA InStr web_Cookie web_Key VBA Mid web_Cookie VBA InStr web_Cookie web_Value VBA Mid web_Cookie VBA InStr web_Cookie VBA Len web_Cookie VBA InStr web_Value web_Value VBA Mid web_Value VBA InStr web_Value VBA Left web_Value web_Value VBA Mid web_Value VBA Len web_Value web_Cookies Add WebHelpers CreateKeyValue web_Key WebHelpers UrlDecode web_Value PlusAsSpace EncodingMode UrlEncodingMode CookieUrlEncoding WebHelpers LogWarning web_Cookie web_Header ExtractCookies web_Cookies web_LoadValues # 325:Private Sub web_LoadValues( web_Headers web_Content web_Body web_Request WebRequest web_Request ResponseFormat WebFormat PlainText Data WebHelpers ParseByFormat web_Content web_Request ResponseFormat web_Request CustomResponseFormat web_Body Err Number WebHelpers LogError Err Description Err Source Err Number Err Clear Headers ExtractHeaders web_Headers Cookies ExtractCookies Headers web_ExtractStatusFromCurlResponse # 346:Private Function web_CurlResponseLines web_StatusLineParts web_StatusLineParts VBA Split web_CurlResponseLines web_FindStatusLine web_CurlResponseLines web_ExtractStatusFromCurlResponse VBA web_StatusLineParts web_ExtractStatusTextFromCurlResponse # 353:Private Function web_CurlResponseLines web_StatusLineParts web_i web_StatusText web_StatusLineParts VBA Split web_CurlResponseLines web_FindStatusLine web_CurlResponseLines web_ExtractStatusTextFromCurlResponse web_StatusLineParts web_ExtractHeadersFromCurlResponse # 362:Private Function web_CurlResponseLines web_StatusLineIndex web_BlankLineIndex web_HeaderLines web_WriteIndex web_ReadIndex web_StatusLineIndex web_FindStatusLine web_CurlResponseLines web_BlankLineIndex web_FindBlankLine web_CurlResponseLines web_HeaderLines web_BlankLineIndex web_StatusLineIndex web_WriteIndex web_ReadIndex web_StatusLineIndex web_BlankLineIndex web_HeaderLines web_WriteIndex web_CurlResponseLines web_ReadIndex web_WriteIndex web_WriteIndex web_ReadIndex web_ExtractHeadersFromCurlResponse VBA Join web_HeaderLines web_CrLf web_ExtractResponseTextFromCurlResponse # 385:Private Function web_CurlResponseLines web_BlankLineIndex web_BodyLines web_WriteIndex web_ReadIndex web_BlankLineIndex web_FindBlankLine web_CurlResponseLines web_BodyLines UBound web_CurlResponseLines web_BlankLineIndex web_WriteIndex web_ReadIndex web_BlankLineIndex UBound web_CurlResponseLines web_BodyLines web_WriteIndex web_CurlResponseLines web_ReadIndex web_WriteIndex web_WriteIndex web_ReadIndex web_ExtractResponseTextFromCurlResponse VBA Join web_BodyLines web_CrLf web_FindStatusLine # 406:Private Function web_FindStatusLine( web_CurlResponseLines web_FindStatusLine LBound web_CurlResponseLines UBound web_CurlResponseLines VBA Trim web_CurlResponseLines web_FindStatusLine VBA Split web_CurlResponseLines web_FindStatusLine web_FindStatusLine web_FindBlankLine # 418:Private Function web_FindBlankLine( web_CurlResponseLines web_FindBlankLine web_FindStatusLine web_CurlResponseLines UBound web_CurlResponseLines VBA Trim web_CurlResponseLines web_FindBlankLine web_FindBlankLine Class_Initialize # 426:Private Sub Class_Initialize() web_CrLf VBA Chr VBA Chr Headers Collection Cookies Collection Test_strings foo1 foo1