8 | Connect 9 | VBA 10 | Excel 11 | Access 12 | Office 13 | to 14 | the Web 15 | Web Services 16 | Google 17 | Salesforce 18 | 19 |
20 |
8 |
8 |
9 |
10 | Getting started
11 | ---------------
12 |
13 | - Download the [latest release (v4.1.6)](https://github.com/VBA-tools/VBA-Web/releases)
14 | - To install/upgrade in an existing file, use `VBA-Web - Installer.xlsm`
15 | - To start from scratch in Excel, `VBA-Web - Blank.xlsm` has everything setup and ready to go
16 |
17 | For more details see the [Wiki](https://github.com/VBA-tools/VBA-Web/wiki)
18 |
19 | Upgrading
20 | ---------
21 |
22 | To upgrade from Excel-REST to VBA-Web, follow the [Upgrading Guide](https://github.com/VBA-tools/VBA-Web/wiki/Upgrading-from-v3-to-v4)
23 |
24 | Note: XML support has been temporarily removed from VBA-Web while parser issues for Mac are resolved.
25 | XML support is still possible on Windows, follow [these instructions](https://github.com/VBA-tools/VBA-Web/wiki/XML-Support-in-4.0) to use a custom formatter.
26 |
27 | Notes
28 | ---
29 |
30 | - Authentication support is built-in, with suppory for HTTP Basic, OAuth 1.0, OAuth 2.0, Windows, Digest, Google, and more. See [Authentication](https://github.com/VBA-tools/VBA-Web/wiki/Authentication) for more information
31 | - For proxy environments, `Client.EnabledAutoProxy = True` will automatically load proxy settings
32 | - Support for custom request and response formats. See [RegisterConverter](http://vba-tools.github.io/VBA-Web/docs/#/WebHelpers/RegisterConverter)
33 |
34 | Examples
35 | -------
36 |
37 | The following examples demonstrate using the Google Maps API to get directions between two locations.
38 |
39 | ### GetJSON Example
40 | ```VB.net
41 | Function GetDirections(Origin As String, Destination As String) As String
42 | ' Create a WebClient for executing requests
43 | ' and set a base url that all requests will be appended to
44 | Dim MapsClient As New WebClient
45 | MapsClient.BaseUrl = "https://maps.googleapis.com/maps/api/"
46 |
47 | ' Use GetJSON helper to execute simple request and work with response
48 | Dim Resource As String
49 | Dim Response As WebResponse
50 |
51 | Resource = "directions/json?" & _
52 | "origin=" & Origin & _
53 | "&destination=" & Destination & _
54 | "&sensor=false"
55 | Set Response = MapsClient.GetJSON(Resource)
56 |
57 | ' => GET https://maps.../api/directions/json?origin=...&destination=...&sensor=false
58 |
59 | ProcessDirections Response
60 | End Function
61 |
62 | Public Sub ProcessDirections(Response As WebResponse)
63 | If Response.StatusCode = WebStatusCode.Ok Then
64 | Dim Route As Dictionary
65 | Set Route = Response.Data("routes")(1)("legs")(1)
66 |
67 | Debug.Print "It will take " & Route("duration")("text") & _
68 | " to travel " & Route("distance")("text") & _
69 | " from " & Route("start_address") & _
70 | " to " & Route("end_address")
71 | Else
72 | Debug.Print "Error: " & Response.Content
73 | End If
74 | End Sub
75 | ```
76 |
77 | There are 3 primary components in VBA-Web:
78 |
79 | 1. `WebRequest` for defining complex requests
80 | 2. `WebClient` for executing requests
81 | 3. `WebResponse` for dealing with responses.
82 |
83 | In the above example, the request is fairly simple, so we can skip creating a `WebRequest` and instead use the `Client.GetJSON` helper to GET json from a specific url. In processing the response, we can look at the `StatusCode` to make sure the request succeeded and then use the parsed json in the `Data` parameter to extract complex information from the response.
84 |
85 | ### WebRequest Example
86 |
87 | If you wish to have more control over the request, the following example uses `WebRequest` to define a complex request.
88 |
89 | ```VB.net
90 | Function GetDirections(Origin As String, Destination As String) As String
91 | Dim MapsClient As New WebClient
92 | MapsClient.BaseUrl = "https://maps.googleapis.com/maps/api/"
93 |
94 | ' Create a WebRequest for getting directions
95 | Dim DirectionsRequest As New WebRequest
96 | DirectionsRequest.Resource = "directions/{format}"
97 | DirectionsRequest.Method = WebMethod.HttpGet
98 |
99 | ' Set the request format
100 | ' -> Sets content-type and accept headers and parses the response
101 | DirectionsRequest.Format = WebFormat.Json
102 |
103 | ' Replace {format} segment
104 | DirectionsRequest.AddUrlSegment "format", "json"
105 |
106 | ' Add querystring to the request
107 | DirectionsRequest.AddQuerystringParam "origin", Origin
108 | DirectionsRequest.AddQuerystringParam "destination", Destination
109 | DirectionsRequest.AddQuerystringParam "sensor", "false"
110 |
111 | ' => GET https://maps.../api/directions/json?origin=...&destination=...&sensor=false
112 |
113 | ' Execute the request and work with the response
114 | Dim Response As WebResponse
115 | Set Response = MapsClient.Execute(DirectionsRequest)
116 |
117 | ProcessDirections Response
118 | End Function
119 |
120 | Public Sub ProcessDirections(Response As WebResponse)
121 | ' ... Same as previous example
122 | End Sub
123 | ```
124 |
125 | The above example demonstrates some of the powerful feature available with `WebRequest`. Some of the features include:
126 |
127 | - Url segments (Replace {segment} in resource with value)
128 | - Method (GET, POST, PUT, PATCH, DELETE)
129 | - Format (json, xml, url-encoded, plain-text) for content-type and accept headers and converting/parsing request and response
130 | - QuerystringParams
131 | - Body
132 | - Cookies
133 | - Headers
134 |
135 | For more details, see the `WebRequest` portion of the [Docs](https://vba-tools.github.io/VBA-Web/docs/)
136 |
137 | ### Authentication Example
138 |
139 | The following example demonstrates using an authenticator with VBA-Web to query Twitter. The `TwitterAuthenticator` (found in the `authenticators/` [folder](https://github.com/VBA-tools/VBA-Web/tree/master/authenticators)) uses Twitter's OAuth 1.0a authentication and details of how it was created can be found in the [Wiki](https://github.com/VBA-tools/VBA-Web/wiki/Implementing-your-own-IAuthenticator).
140 |
141 | ```VB.net
142 | Function QueryTwitter(Query As String) As WebResponse
143 | Dim TwitterClient As New WebClient
144 | TwitterClient.BaseUrl = "https://api.twitter.com/1.1/"
145 |
146 | ' Setup authenticator
147 | Dim TwitterAuth As New TwitterAuthenticator
148 | TwitterAuth.Setup _
149 | ConsumerKey:="Your consumer key", _
150 | ConsumerSecret:="Your consumer secret"
151 | Set TwitterClient.Authenticator = TwitterAuth
152 |
153 | ' Setup query request
154 | Dim Request As New WebRequest
155 | Request.Resource = "search/tweets.json"
156 | Request.Format = WebFormat.Json
157 | Request.Method = WebMethod.HttpGet
158 | Request.AddQuerystringParam "q", Query
159 | Request.AddQuerystringParam "lang", "en"
160 | Request.AddQuerystringParam "count", 20
161 |
162 | ' => GET https://api.twitter.com/1.1/search/tweets.json?q=...&lang=en&count=20
163 | ' Authorization Bearer Token... (received and added automatically via TwitterAuthenticator)
164 |
165 | Set QueryTwitter = TwitterClient.Execute(Request)
166 | End Function
167 | ```
168 |
169 | For more details, check out the [Wiki](https://github.com/VBA-tools/VBA-Web/wiki), [Docs](https://vba-tools.github.com/VBA-Web/docs/), and [Examples](https://github.com/VBA-tools/VBA-Web/tree/master/examples)
170 |
171 | ### Release Notes
172 |
173 | View the [changelog](https://github.com/VBA-tools/VBA-Web/blob/master/CHANGELOG.md) for release notes
174 |
175 | ### About
176 |
177 | - Author: Tim Hall
178 | - License: MIT
179 |
--------------------------------------------------------------------------------
/VBA-Web - Blank.xlsm:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/VBA-tools/VBA-Web/9dbcc751d177099f20c96c5ee332ec10ef47423c/VBA-Web - Blank.xlsm
--------------------------------------------------------------------------------
/VBA-Web - Installer.xlsm:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/VBA-tools/VBA-Web/9dbcc751d177099f20c96c5ee332ec10ef47423c/VBA-Web - Installer.xlsm
--------------------------------------------------------------------------------
/authenticators/DigestAuthenticator.cls:
--------------------------------------------------------------------------------
1 | VERSION 1.0 CLASS
2 | BEGIN
3 | MultiUse = -1 'True
4 | END
5 | Attribute VB_Name = "DigestAuthenticator"
6 | Attribute VB_GlobalNameSpace = False
7 | Attribute VB_Creatable = False
8 | Attribute VB_PredeclaredId = False
9 | Attribute VB_Exposed = False
10 | ''
11 | ' Digest Authenticator v3.0.8
12 | ' (c) Tim Hall - https://github.com/VBA-tools/VBA-Web
13 | '
14 | ' Custom IWebAuthenticator for Digest Authentication
15 | ' http://en.wikipedia.org/wiki/Digest_access_authentication
16 | '
17 | ' @class DigestAuthenticator
18 | ' @implements IWebAuthenticator v4.*
19 | ' @author tim.hall.engr@gmail.com
20 | ' @license MIT (http://www.opensource.org/licenses/mit-license.php)
21 | '' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ '
22 | Implements IWebAuthenticator
23 | Option Explicit
24 |
25 | ' --------------------------------------------- '
26 | ' Constants and Private Variables
27 | ' --------------------------------------------- '
28 |
29 | Private Const auth_Qop As String = "auth"
30 | Private auth_pClientNonce As String
31 |
32 | ' --------------------------------------------- '
33 | ' Properties
34 | ' --------------------------------------------- '
35 |
36 | Public Username As String
37 | Public Password As String
38 |
39 | Public Realm As String
40 | Public ServerNonce As String
41 | Public RequestCount As Long
42 | Public Opaque As String
43 |
44 | Public Property Get ClientNonce() As String
45 | If auth_pClientNonce = "" Then
46 | auth_pClientNonce = WebHelpers.CreateNonce
47 | End If
48 | ClientNonce = auth_pClientNonce
49 | End Property
50 | Public Property Let ClientNonce(Value As String)
51 | auth_pClientNonce = Value
52 | End Property
53 |
54 | Public Property Get IsAuthenticated() As Boolean
55 | If ServerNonce <> "" Then
56 | IsAuthenticated = True
57 | End If
58 | End Property
59 |
60 | ' ============================================= '
61 | ' Public Methods
62 | ' ============================================= '
63 |
64 | ''
65 | ' Setup authenticator
66 | '
67 | ' @param {String} Username
68 | ' @param {String} Password
69 | ''
70 | Public Sub Setup(Username As String, Password As String)
71 | Me.Username = Username
72 | Me.Password = Password
73 | End Sub
74 |
75 | ''
76 | ' Hook for taking action before a request is executed
77 | '
78 | ' @param {WebClient} Client The client that is about to execute the request
79 | ' @param in|out {WebRequest} Request The request about to be executed
80 | ''
81 | Private Sub IWebAuthenticator_BeforeExecute(ByVal Client As WebClient, ByRef Request As WebRequest)
82 | If Me.IsAuthenticated Then
83 | Me.RequestCount = Me.RequestCount + 1
84 | Request.SetHeader "Authorization", CreateHeader(Client, Request)
85 | End If
86 | End Sub
87 |
88 | ''
89 | ' Hook for taking action after request has been executed
90 | '
91 | ' @param {WebClient} Client The client that executed request
92 | ' @param {WebRequest} Request The request that was just executed
93 | ' @param in|out {WebResponse} Response to request
94 | ''
95 | Private Sub IWebAuthenticator_AfterExecute(ByVal Client As WebClient, ByVal Request As WebRequest, ByRef Response As WebResponse)
96 | If Response.StatusCode = 401 And Not Me.IsAuthenticated Then
97 | WebHelpers.LogDebug "Extract Authenticate and retry 401 request " & Client.GetFullUrl(Request), "Digest.AfterExecute"
98 | ExtractAuthenticateInformation Response
99 |
100 | Request.SetHeader "Authorization", CreateHeader(Client, Request)
101 | Response.Update Client.Execute(Request)
102 | End If
103 | End Sub
104 |
105 | ''
106 | ' Hook for updating http before send
107 | '
108 | ' @param {WebClient} Client
109 | ' @param {WebRequest} Request
110 | ' @param in|out {WinHttpRequest} Http
111 | ''
112 | Private Sub IWebAuthenticator_PrepareHttp(ByVal Client As WebClient, ByVal Request As WebRequest, ByRef Http As Object)
113 | ' e.g. Update option, headers, etc.
114 | End Sub
115 |
116 | ''
117 | ' Hook for updating cURL before send
118 | '
119 | ' @param {WebClient} Client
120 | ' @param {WebRequest} Request
121 | ' @param in|out {String} Curl
122 | ''
123 | Private Sub IWebAuthenticator_PrepareCurl(ByVal Client As WebClient, ByVal Request As WebRequest, ByRef Curl As String)
124 | ' http://curl.haxx.se/docs/manpage.html#--digest
125 | Curl = Curl & " --digest --user " & WebHelpers.PrepareTextForShell(Me.Username) & ":" & WebHelpers.PrepareTextForShell(Me.Password)
126 | End Sub
127 |
128 | ''
129 | ' Create digest header for given Client and Request
130 | '
131 | ' @internal
132 | ' @param {WebClient} Client
133 | ' @param {WebRequest} Request
134 | ' @return {String}
135 | ''
136 | Public Function CreateHeader(Client As WebClient, Request As WebRequest) As String
137 | Dim auth_Uri As String
138 | auth_Uri = WebHelpers.GetUrlParts(Client.GetFullUrl(Request))("Path")
139 |
140 | CreateHeader = "Digest " & _
141 | "username=""" & Me.Username & """, " & _
142 | "realm=""" & Me.Realm & """, " & _
143 | "nonce=""" & Me.ServerNonce & """, " & _
144 | "uri=""" & auth_Uri & """, " & _
145 | "qop=" & auth_Qop & ", " & _
146 | "nc=" & web_FormattedRequestCount & ", " & _
147 | "cnonce=""" & Me.ClientNonce & """, " & _
148 | "response=""" & web_CalculateResponse(Client, Request) & """, " & _
149 | "opaque=""" & Me.Opaque & """"
150 |
151 | WebHelpers.LogDebug CreateHeader, "DigestAuthenticator.CreateHeader"
152 | End Function
153 |
154 | ''
155 | ' Extract authentication information from 401 response headers
156 | '
157 | ' @internal
158 | ' @param {WebResponse} Response
159 | ''
160 | Public Sub ExtractAuthenticateInformation(Response As WebResponse)
161 | Dim auth_Header As String
162 | Dim web_CrLf As String
163 |
164 | auth_Header = WebHelpers.FindInKeyValues(Response.Headers, "WWW-Authenticate")
165 | web_CrLf = VBA.Chr$(13) & VBA.Chr$(10)
166 |
167 | If auth_Header <> "" And VBA.Left$(auth_Header, 6) = "Digest" Then
168 | Dim auth_Lines As Variant
169 | auth_Lines = VBA.Split(VBA.Mid$(auth_Header, 7), web_CrLf)
170 |
171 | Dim auth_i As Integer
172 | Dim auth_Key As String
173 | Dim auth_Value As String
174 | For auth_i = LBound(auth_Lines) To UBound(auth_Lines)
175 | auth_Key = VBA.LCase$(VBA.Trim$(VBA.Mid$(auth_Lines(auth_i), 1, VBA.InStr(1, auth_Lines(auth_i), "=") - 1)))
176 | auth_Value = VBA.Trim$(VBA.Mid$(auth_Lines(auth_i), VBA.InStr(1, auth_Lines(auth_i), "=") + 1, VBA.Len(auth_Lines(auth_i))))
177 |
178 | ' Remove quotes and trailing comma
179 | auth_Value = VBA.Replace(auth_Value, """", "")
180 | If VBA.Right$(auth_Value, 1) = "," Then
181 | auth_Value = VBA.Left$(auth_Value, VBA.Len(auth_Value) - 1)
182 | End If
183 |
184 | ' Find realm, nonce, and opaque
185 | If auth_Key = "realm" Then Me.Realm = auth_Value
186 | If auth_Key = "nonce" Then Me.ServerNonce = auth_Value
187 | If auth_Key = "opaque" Then Me.Opaque = auth_Value
188 | Next auth_i
189 |
190 | WebHelpers.LogDebug "realm=" & Me.Realm & ", nonce=" & Me.ServerNonce & ", opaque=" & Me.Opaque, "DigestAuthenticator.ExtractAuthenticateInformation"
191 | End If
192 | End Sub
193 |
194 | ' ============================================= '
195 | ' Private Methods
196 | ' ============================================= '
197 |
198 | ''
199 | ' Calculate digest response fro given Client and Request
200 | '
201 | ' @internal
202 | ' @param {WebClient} Client
203 | ' @param {WebRequest} Request
204 | ' @return {String}
205 | ''
206 | Private Function web_CalculateResponse(web_Client As WebClient, web_Request As WebRequest) As String
207 | Dim auth_HA1 As String
208 | Dim auth_HA2 As String
209 | Dim auth_Uri As String
210 |
211 | auth_Uri = WebHelpers.GetUrlParts(web_Client.GetFullUrl(web_Request))("Path")
212 | auth_HA1 = web_CalculateHA1
213 | auth_HA2 = web_CalculateHA2(WebHelpers.MethodToName(web_Request.Method), auth_Uri)
214 |
215 | web_CalculateResponse = WebHelpers.MD5(auth_HA1 & ":" & Me.ServerNonce & ":" & web_FormattedRequestCount & ":" & Me.ClientNonce & ":" & auth_Qop & ":" & auth_HA2)
216 | End Function
217 |
218 | ''
219 | ' Calculate HA1 portion of digest response
220 | '
221 | ' @internal
222 | ' @return {String}
223 | ''
224 | Private Function web_CalculateHA1() As String
225 | web_CalculateHA1 = WebHelpers.MD5(Me.Username & ":" & Me.Realm & ":" & Me.Password)
226 | End Function
227 |
228 | ''
229 | ' Calculate HA1 portion of digest response
230 | '
231 | ' @internal
232 | ' @return {String}
233 | ''
234 | Private Function web_CalculateHA2(web_Method As String, web_Uri As String) As String
235 | web_CalculateHA2 = WebHelpers.MD5(web_Method & ":" & web_Uri)
236 | End Function
237 |
238 | ''
239 | ' Pad request count to 8 places
240 | '
241 | ' @internal
242 | ' @return {String}
243 | ''
244 | Private Function web_FormattedRequestCount() As String
245 | web_FormattedRequestCount = Right("00000000" & Me.RequestCount, 8)
246 | End Function
247 |
--------------------------------------------------------------------------------
/authenticators/EmptyAuthenticator.cls:
--------------------------------------------------------------------------------
1 | VERSION 1.0 CLASS
2 | BEGIN
3 | MultiUse = -1 'True
4 | END
5 | Attribute VB_Name = "EmptyAuthenticator"
6 | Attribute VB_GlobalNameSpace = False
7 | Attribute VB_Creatable = False
8 | Attribute VB_PredeclaredId = False
9 | Attribute VB_Exposed = False
10 | ''
11 | ' Title v3.0.0
12 | ' (c) Name
13 | '
14 | ' Description
15 | '
16 | ' @class
17 | ' @implements IWebAuthenticator v4.*
18 | ' @author
19 | ' @license
20 | '' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ '
21 | Implements IWebAuthenticator
22 | Option Explicit
23 |
24 | ' ============================================= '
25 | ' Public Methods
26 | ' ============================================= '
27 |
28 | ''
29 | ' Setup authenticator
30 | ''
31 | Public Sub Setup()
32 | ' Define any user-specific variables needed for authentication
33 | End Sub
34 |
35 | ''
36 | ' Hook for taking action before a request is executed
37 | '
38 | ' @param {WebClient} Client The client that is about to execute the request
39 | ' @param in|out {WebRequest} Request The request about to be executed
40 | ''
41 | Private Sub IWebAuthenticator_BeforeExecute(ByVal Client As WebClient, ByRef Request As WebRequest)
42 | ' e.g Add headers, cookies, etc.
43 | End Sub
44 |
45 | ''
46 | ' Hook for taking action after request has been executed
47 | '
48 | ' @param {WebClient} Client The client that executed request
49 | ' @param {WebRequest} Request The request that was just executed
50 | ' @param in|out {WebResponse} Response to request
51 | ''
52 | Private Sub IWebAuthenticator_AfterExecute(ByVal Client As WebClient, ByVal Request As WebRequest, ByRef Response As WebResponse)
53 | ' e.g. Handle 401 Unauthorized or other issues
54 | End Sub
55 |
56 | ''
57 | ' Hook for updating http before send
58 | '
59 | ' @param {WebClient} Client
60 | ' @param {WebRequest} Request
61 | ' @param in|out {WinHttpRequest} Http
62 | ''
63 | Private Sub IWebAuthenticator_PrepareHttp(ByVal Client As WebClient, ByVal Request As WebRequest, ByRef Http As Object)
64 | ' e.g. Update option, headers, etc.
65 | End Sub
66 |
67 | ''
68 | ' Hook for updating cURL before send
69 | '
70 | ' @param {WebClient} Client
71 | ' @param {WebRequest} Request
72 | ' @param in|out {String} Curl
73 | ''
74 | Private Sub IWebAuthenticator_PrepareCurl(ByVal Client As WebClient, ByVal Request As WebRequest, ByRef Curl As String)
75 | ' e.g. Add flags to cURL
76 | End Sub
77 |
--------------------------------------------------------------------------------
/authenticators/HttpBasicAuthenticator.cls:
--------------------------------------------------------------------------------
1 | VERSION 1.0 CLASS
2 | BEGIN
3 | MultiUse = -1 'True
4 | END
5 | Attribute VB_Name = "HttpBasicAuthenticator"
6 | Attribute VB_GlobalNameSpace = False
7 | Attribute VB_Creatable = False
8 | Attribute VB_PredeclaredId = False
9 | Attribute VB_Exposed = True
10 | ''
11 | ' Http Basic Authenticator v3.0.5
12 | ' (c) Tim Hall - https://github.com/VBA-tools/VBA-Web
13 | '
14 | ' Custom IWebAuthenticator for Http Basic Authenticator
15 | '
16 | ' @class HttpBasicAuthenticator
17 | ' @implements IWebAuthenticator v4.*
18 | ' @author tim.hall.engr@gmail.com
19 | ' @license MIT (http://www.opensource.org/licenses/mit-license.php)
20 | '' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ '
21 | Implements IWebAuthenticator
22 | Option Explicit
23 |
24 | ' --------------------------------------------- '
25 | ' Constants and Private Variables
26 | ' --------------------------------------------- '
27 |
28 | Private Const web_HTTPREQUEST_SETCREDENTIALS_FOR_SERVER = 0
29 | Private Const web_HTTPREQUEST_SETCREDENTIALS_FOR_PROXY = 1
30 |
31 | ' --------------------------------------------- '
32 | ' Properties
33 | ' --------------------------------------------- '
34 |
35 | Public Username As String
36 | Public Password As String
37 |
38 | ' ============================================= '
39 | ' Public Methods
40 | ' ============================================= '
41 |
42 | ''
43 | ' Setup
44 | '
45 | ' @param {String} Username
46 | ' @param {String} Password
47 | ''
48 | Public Sub Setup(Username As String, Password As String)
49 | Me.Username = Username
50 | Me.Password = Password
51 | End Sub
52 |
53 | ''
54 | ' Hook for taking action before a request is executed
55 | '
56 | ' @param {WebClient} Client The client that is about to execute the request
57 | ' @param in|out {WebRequest} Request The request about to be executed
58 | ''
59 | Private Sub IWebAuthenticator_BeforeExecute(ByVal Client As WebClient, ByRef Request As WebRequest)
60 | Request.SetHeader "Authorization", "Basic " & WebHelpers.Base64Encode(Me.Username & ":" & Me.Password)
61 | End Sub
62 |
63 | ''
64 | ' Hook for taking action after request has been executed
65 | '
66 | ' @param {WebClient} Client The client that executed request
67 | ' @param {WebRequest} Request The request that was just executed
68 | ' @param in|out {WebResponse} Response to request
69 | ''
70 | Private Sub IWebAuthenticator_AfterExecute(ByVal Client As WebClient, ByVal Request As WebRequest, ByRef Response As WebResponse)
71 | ' e.g. Handle 401 Unauthorized or other issues
72 | End Sub
73 |
74 | ''
75 | ' Hook for updating http before send
76 | '
77 | ' @param {WebClient} Client
78 | ' @param {WebRequest} Request
79 | ' @param in|out {WinHttpRequest} Http
80 | ''
81 | Private Sub IWebAuthenticator_PrepareHttp(ByVal Client As WebClient, ByVal Request As WebRequest, ByRef Http As Object)
82 | Http.SetCredentials Me.Username, Me.Password, web_HTTPREQUEST_SETCREDENTIALS_FOR_SERVER
83 | End Sub
84 |
85 | ''
86 | ' Hook for updating cURL before send
87 | '
88 | ' @param {WebClient} Client
89 | ' @param {WebRequest} Request
90 | ' @param in|out {String} Curl
91 | ''
92 | Private Sub IWebAuthenticator_PrepareCurl(ByVal Client As WebClient, ByVal Request As WebRequest, ByRef Curl As String)
93 | ' e.g. Add flags to cURL
94 | Curl = Curl & " --basic --user " & WebHelpers.PrepareTextForShell(Me.Username) & ":" & WebHelpers.PrepareTextForShell(Me.Password)
95 | End Sub
96 |
97 |
--------------------------------------------------------------------------------
/authenticators/OAuth2Authenticator.cls:
--------------------------------------------------------------------------------
1 | VERSION 1.0 CLASS
2 | BEGIN
3 | MultiUse = -1 'True
4 | END
5 | Attribute VB_Name = "OAuth2Authenticator"
6 | Attribute VB_GlobalNameSpace = False
7 | Attribute VB_Creatable = False
8 | Attribute VB_PredeclaredId = False
9 | Attribute VB_Exposed = True
10 | ''
11 | ' OAuth2 Authenticator v3.0.5
12 | ' (c) Tim Hall - https://github.com/VBA-tools/VBA-Web
13 | '
14 | ' OAuth2 authenticator
15 | ' (Currently using client credentials flow only)
16 | '
17 | ' @class OAuth2Authenticator
18 | ' @implements IWebAuthenticator v4.*
19 | ' @author tim.hall.engr@gmail.com
20 | ' @license MIT (http://www.opensource.org/licenses/mit-license.php)
21 | '' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ '
22 | Implements IWebAuthenticator
23 | Option Explicit
24 |
25 | ' --------------------------------------------- '
26 | ' Properties
27 | ' --------------------------------------------- '
28 |
29 | Public ClientId As String
30 | Public ClientSecret As String
31 | Public Username As String
32 | Public Password As String
33 |
34 | Public TokenUrl As String
35 | Public TokenKey As String
36 | Public Token As String
37 |
38 | ' ============================================= '
39 | ' Public Methods
40 | ' ============================================= '
41 |
42 | ''
43 | ' Setup
44 | '
45 | ' @param {String} ClientId
46 | ' @param {String} ClientSecret
47 | ' @param {String} Username
48 | ' @param {String} Password
49 | ''
50 | Public Sub Setup(ClientId As String, ClientSecret As String, Username As String, Password As String)
51 | Me.ClientId = ClientId
52 | Me.ClientSecret = ClientSecret
53 | Me.Username = Username
54 | Me.Password = Password
55 | End Sub
56 |
57 | ''
58 | ' Hook for taking action before a request is executed
59 | '
60 | ' @param {WebClient} Client The client that is about to execute the request
61 | ' @param in|out {WebRequest} Request The request about to be executed
62 | ''
63 | Private Sub IWebAuthenticator_BeforeExecute(ByVal Client As WebClient, ByRef Request As WebRequest)
64 | If Me.Token = "" Then
65 | Me.Token = Me.GetToken(Client)
66 | End If
67 |
68 | Request.SetHeader "Authorization", "Bearer " & Me.Token
69 | End Sub
70 |
71 | ''
72 | ' Hook for taking action after request has been executed
73 | '
74 | ' @param {WebClient} Client The client that executed request
75 | ' @param {WebRequest} Request The request that was just executed
76 | ' @param in|out {WebResponse} Response to request
77 | ''
78 | Private Sub IWebAuthenticator_AfterExecute(ByVal Client As WebClient, ByVal Request As WebRequest, ByRef Response As WebResponse)
79 | ' e.g. Handle 401 Unauthorized or other issues
80 | End Sub
81 |
82 | ''
83 | ' Hook for updating http before send
84 | '
85 | ' @param {WebClient} Client
86 | ' @param {WebRequest} Request
87 | ' @param in|out {WinHttpRequest} Http
88 | ''
89 | Private Sub IWebAuthenticator_PrepareHttp(ByVal Client As WebClient, ByVal Request As WebRequest, ByRef Http As Object)
90 | ' e.g. Update option, headers, etc.
91 | End Sub
92 |
93 | ''
94 | ' Hook for updating cURL before send
95 | '
96 | ' @param {WebClient} Client
97 | ' @param {WebRequest} Request
98 | ' @param in|out {String} Curl
99 | ''
100 | Private Sub IWebAuthenticator_PrepareCurl(ByVal Client As WebClient, ByVal Request As WebRequest, ByRef Curl As String)
101 | ' e.g. Add flags to cURL
102 | End Sub
103 |
104 | ''
105 | ' Get token for given client
106 | '
107 | ' @internal
108 | ' @param {WebClient} Client
109 | ' @return {String}
110 | ''
111 | Public Function GetToken(auth_Client As WebClient) As String
112 | ' Generate token request using client credentials flow
113 | ' This is currently setup using Salesforce's implementation
114 | ' TODO Generalize flow
115 | ' [Digging Deeper into OAuth 2.0 on Force.com](http://wiki.developerforce.com/page/Digging_Deeper_into_OAuth_2.0_at_Salesforce.com)
116 |
117 | On Error GoTo auth_Cleanup
118 |
119 | Dim auth_TokenClient As WebClient
120 | Dim auth_Request As New WebRequest
121 | Dim auth_Response As WebResponse
122 |
123 | ' Clone client (to avoid accidental interactions)
124 | Set auth_TokenClient = auth_Client.Clone
125 | Set auth_TokenClient.Authenticator = Nothing
126 | auth_TokenClient.BaseUrl = ""
127 |
128 | ' Prepare token request
129 | auth_Request.Resource = Me.TokenUrl
130 | auth_Request.Method = WebMethod.HttpPost
131 |
132 | auth_Request.AddQuerystringParam "grant_type", "password"
133 | auth_Request.AddQuerystringParam "client_id", Me.ClientId
134 | auth_Request.AddQuerystringParam "client_secret", Me.ClientSecret
135 | auth_Request.AddQuerystringParam "username", Me.Username
136 | auth_Request.AddQuerystringParam "password", Me.Password
137 |
138 | Set auth_Response = auth_TokenClient.Execute(auth_Request)
139 |
140 | If auth_Response.StatusCode = WebStatusCode.Ok Then
141 | GetToken = auth_Response.Data(Me.TokenKey)
142 | Else
143 | Err.Raise 11041 + vbObjectError, _
144 | Description:=auth_Response.StatusCode & ": " & auth_Response.Content
145 | End If
146 |
147 | auth_Cleanup:
148 |
149 | Set auth_TokenClient = Nothing
150 | Set auth_Request = Nothing
151 | Set auth_Response = Nothing
152 |
153 | ' Rethrow error
154 | If Err.Number <> 0 Then
155 | Dim auth_ErrorDescription As String
156 |
157 | auth_ErrorDescription = "An error occurred while retrieving token." & vbNewLine
158 | If Err.Number - vbObjectError <> 11041 Then
159 | auth_ErrorDescription = auth_ErrorDescription & _
160 | Err.Number & VBA.IIf(Err.Number < 0, " (" & VBA.LCase$(VBA.Hex$(Err.Number)) & ")", "") & ": "
161 | End If
162 | auth_ErrorDescription = auth_ErrorDescription & Err.Description
163 |
164 | WebHelpers.LogError auth_ErrorDescription, "OAuth2Authenticator.GetToken", 11041 + vbObjectError
165 | Err.Raise 11041 + vbObjectError, "OAuth2Authenticator.GetToken", auth_ErrorDescription
166 | End If
167 | End Function
168 |
169 | ' ============================================= '
170 | ' Private Methods
171 | ' ============================================= '
172 |
173 | Private Sub Class_Initialize()
174 | Me.TokenKey = "access_token"
175 | End Sub
176 |
--------------------------------------------------------------------------------
/authenticators/OPSAuthenticator.cls:
--------------------------------------------------------------------------------
1 | VERSION 1.0 CLASS
2 | BEGIN
3 | MultiUse = -1 'True
4 | END
5 | Attribute VB_Name = "OPSAuthenticator"
6 | Attribute VB_GlobalNameSpace = False
7 | Attribute VB_Creatable = False
8 | Attribute VB_PredeclaredId = False
9 | Attribute VB_Exposed = True
10 | ''
11 | ' OPSAuthenticator v3.0.0
12 | ' (c) Tim Hall - https://github.com/VBA-tools/VBA-Web
13 | '
14 | ' OAuth2 client credentials authenticator for OPS
15 | ' http://documents.epo.org/projects/babylon/eponet.nsf/0/7AF8F1D2B36F3056C1257C04002E0AD6/$File/OPS_v3.1_documentation_version_1.2.14_en.pdf
16 | '
17 | ' @class OPSAuthenticator
18 | ' @implements IWebAuthenticator v4.*
19 | ' @author tim.hall.engr@gmail.com
20 | ' @license MIT
21 | '' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ '
22 | Implements IWebAuthenticator
23 | Option Explicit
24 |
25 | Public ConsumerKey As String
26 | Public ConsumerSecret As String
27 |
28 | Public Token As String
29 |
30 | ' ============================================= '
31 | ' Public Methods
32 | ' ============================================= '
33 |
34 | ''
35 | ' Setup authenticator
36 | '
37 | ' @param {String} ConsumerKey
38 | ' @param {String} ConsumerSecret
39 | ''
40 | Public Sub Setup(ConsumerKey As String, ConsumerSecret As String)
41 | Me.ConsumerKey = ConsumerKey
42 | Me.ConsumerSecret = ConsumerSecret
43 | End Sub
44 |
45 | ''
46 | ' Hook for taking action before a request is executed
47 | '
48 | ' @param {WebClient} Client The client that is about to execute the request
49 | ' @param in|out {WebRequest} Request The request about to be executed
50 | ''
51 | Private Sub IWebAuthenticator_BeforeExecute(ByVal Client As WebClient, ByRef Request As WebRequest)
52 | If Me.Token = "" Then
53 | Me.Token = Me.GetToken(Client)
54 | End If
55 |
56 | Request.SetHeader "Authorization", "Bearer " & Me.Token
57 | End Sub
58 |
59 | ''
60 | ' Hook for taking action after request has been executed
61 | '
62 | ' @param {WebClient} Client The client that executed request
63 | ' @param {WebRequest} Request The request that was just executed
64 | ' @param in|out {WebResponse} Response to request
65 | ''
66 | Private Sub IWebAuthenticator_AfterExecute(ByVal Client As WebClient, ByVal Request As WebRequest, ByRef Response As WebResponse)
67 | ' e.g. Handle 401 Unauthorized or other issues
68 | End Sub
69 |
70 | ''
71 | ' Hook for updating http before send
72 | '
73 | ' @param {WebClient} Client
74 | ' @param {WebRequest} Request
75 | ' @param in|out {WinHttpRequest} Http
76 | ''
77 | Private Sub IWebAuthenticator_PrepareHttp(ByVal Client As WebClient, ByVal Request As WebRequest, ByRef Http As Object)
78 | ' e.g. Update option, headers, etc.
79 | End Sub
80 |
81 | ''
82 | ' Hook for updating cURL before send
83 | '
84 | ' @param {WebClient} Client
85 | ' @param {WebRequest} Request
86 | ' @param in|out {String} Curl
87 | ''
88 | Private Sub IWebAuthenticator_PrepareCurl(ByVal Client As WebClient, ByVal Request As WebRequest, ByRef Curl As String)
89 | ' e.g. Add flags to cURL
90 | End Sub
91 |
92 | Public Function GetToken(Client As WebClient) As String
93 | Dim TokenClient As WebClient
94 | Dim TokenAuth As New HttpBasicAuthenticator
95 | Dim TokenRequest As New WebRequest
96 | Dim Encoded As String
97 | Dim TokenResponse As WebResponse
98 |
99 | ' Clone client to avoid accidental interactions
100 | Set TokenClient = Client.Clone
101 |
102 | ' OPS uses Basic Auth to pass consumer key and secret
103 | TokenAuth.Setup Me.ConsumerKey, Me.ConsumerSecret
104 | Set TokenClient.Authenticator = TokenAuth
105 |
106 | ' Setup request according to docs
107 | TokenRequest.Resource = "auth/accesstoken"
108 | TokenRequest.RequestFormat = WebFormat.FormUrlEncoded
109 | TokenRequest.ResponseFormat = WebFormat.Json
110 | TokenRequest.Method = WebMethod.HttpPost
111 | TokenRequest.AddBodyParameter "grant_type", "client_credentials"
112 |
113 | Set TokenResponse = TokenClient.Execute(TokenRequest)
114 | If TokenResponse.StatusCode = WebStatusCode.Ok Then
115 | GetToken = TokenResponse.Data("access_token")
116 | Else
117 | WebHelpers.LogError "Failed to load token, " & TokenResponse.StatusCode & ": " & TokenResponse.Content
118 | End If
119 | End Function
120 |
--------------------------------------------------------------------------------
/authenticators/TwitterAuthenticator.cls:
--------------------------------------------------------------------------------
1 | VERSION 1.0 CLASS
2 | BEGIN
3 | MultiUse = -1 'True
4 | END
5 | Attribute VB_Name = "TwitterAuthenticator"
6 | Attribute VB_GlobalNameSpace = False
7 | Attribute VB_Creatable = False
8 | Attribute VB_PredeclaredId = False
9 | Attribute VB_Exposed = False
10 | ''
11 | ' Twitter Authenticator v3.0.5
12 | ' (c) Tim Hall - https://github.com/VBA-tools/VBA-Web
13 | '
14 | ' Custom IWebAuthenticator for application-only authentication in Twitter's V1.1 REST API
15 | '
16 | ' Details:
17 | ' - https://dev.twitter.com/docs/auth/application-only-auth
18 | ' - https://github.com/VBA-tools/VBA-Web/wiki/Implementing-your-own-IWebAuthenticator
19 | '
20 | ' Errors:
21 | ' 11041 / 80042b21 / -2147210463 - Error retreiving token
22 | '
23 | ' @example
24 | ' Dim Auth As New TwitterAuthenticator
25 | ' Auth.Setup "Your consumer key", "Your consumer secret"
26 | '
27 | ' Set Client.Authenticator = Auth
28 | '
29 | ' @class TwitterAuthenticator
30 | ' @implements IWebAuthenticator v4.*
31 | ' @author tim.hall.engr@gmail.com
32 | ' @license MIT (http://www.opensource.org/licenses/mit-license.php)
33 | '' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ '
34 | Implements IWebAuthenticator
35 | Option Explicit
36 |
37 | ' --------------------------------------------- '
38 | ' Properties
39 | ' --------------------------------------------- '
40 |
41 | Public ConsumerKey As String
42 | Public ConsumerSecret As String
43 | Public Token As String
44 |
45 | ' ============================================= '
46 | ' Public Methods
47 | ' ============================================= '
48 |
49 | ''
50 | ' Setup
51 | '
52 | ' @param {String} ConsumerKey
53 | ' @param {String} ConsumerSecret
54 | ''
55 | Public Sub Setup(ConsumerKey As String, ConsumerSecret As String)
56 | Me.ConsumerKey = ConsumerKey
57 | Me.ConsumerSecret = ConsumerSecret
58 | End Sub
59 |
60 | ''
61 | ' Hook for taking action before a request is executed
62 | '
63 | ' @param {WebClient} Client The client that is about to execute the request
64 | ' @param in|out {WebRequest} Request The request about to be executed
65 | ''
66 | Private Sub IWebAuthenticator_BeforeExecute(ByVal Client As WebClient, ByRef Request As WebRequest)
67 | If Me.Token = "" Then
68 | Me.Token = Me.GetToken(Client)
69 | End If
70 |
71 | Request.SetHeader "Authorization", "Bearer " & Me.Token
72 | End Sub
73 |
74 | ''
75 | ' Hook for taking action after request has been executed
76 | '
77 | ' @param {WebClient} Client The client that executed request
78 | ' @param {WebRequest} Request The request that was just executed
79 | ' @param in|out {WebResponse} Response to request
80 | ''
81 | Private Sub IWebAuthenticator_AfterExecute(ByVal Client As WebClient, ByVal Request As WebRequest, ByRef Response As WebResponse)
82 | ' e.g. Handle 401 Unauthorized or other issues
83 | End Sub
84 |
85 | ''
86 | ' Hook for updating http before send
87 | '
88 | ' @param {WebClient} Client
89 | ' @param {WebRequest} Request
90 | ' @param in|out {WinHttpRequest} Http
91 | ''
92 | Private Sub IWebAuthenticator_PrepareHttp(ByVal Client As WebClient, ByVal Request As WebRequest, ByRef Http As Object)
93 | ' e.g. Update option, headers, etc.
94 | End Sub
95 |
96 | ''
97 | ' Hook for updating cURL before send
98 | '
99 | ' @param {WebClient} Client
100 | ' @param {WebRequest} Request
101 | ' @param in|out {String} Curl
102 | ''
103 | Private Sub IWebAuthenticator_PrepareCurl(ByVal Client As WebClient, ByVal Request As WebRequest, ByRef Curl As String)
104 | ' e.g. Add flags to cURL
105 | End Sub
106 |
107 | ''
108 | ' Get token for given client
109 | '
110 | ' @param {WebClient} Client
111 | ' @return {String}
112 | ''
113 | Public Function GetToken(auth_Client As WebClient) As String
114 | On Error GoTo auth_Cleanup
115 |
116 | Dim auth_TokenClient As WebClient
117 | Dim auth_Request As New WebRequest
118 | Dim auth_Body As New Dictionary
119 | Dim auth_Response As WebResponse
120 |
121 | ' Clone client (to avoid accidental interactions)
122 | Set auth_TokenClient = auth_Client.Clone
123 | Set auth_TokenClient.Authenticator = Nothing
124 | auth_TokenClient.BaseUrl = "https://api.twitter.com/"
125 |
126 | ' Prepare token request
127 | auth_Request.Resource = "oauth2/token"
128 | auth_Request.Method = WebMethod.HttpPost
129 | auth_Request.RequestFormat = WebFormat.FormUrlEncoded
130 | auth_Request.ResponseFormat = WebFormat.Json
131 |
132 | auth_Request.SetHeader "Authorization", _
133 | "Basic " & WebHelpers.Base64Encode(Me.ConsumerKey & ":" & Me.ConsumerSecret)
134 | auth_Request.AddBodyParameter "grant_type", "client_credentials"
135 |
136 | Set auth_Response = auth_TokenClient.Execute(auth_Request)
137 |
138 | If auth_Response.StatusCode = WebStatusCode.Ok Then
139 | GetToken = auth_Response.Data("access_token")
140 | Else
141 | Err.Raise 11041 + vbObjectError, Description:=auth_Response.StatusCode & ": " & auth_Response.Content
142 | End If
143 |
144 | auth_Cleanup:
145 |
146 | Set auth_TokenClient = Nothing
147 | Set auth_Request = Nothing
148 | Set auth_Response = Nothing
149 |
150 | ' Rethrow error
151 | If Err.Number <> 0 Then
152 | Dim auth_ErrorDescription As String
153 |
154 | auth_ErrorDescription = "An error occurred while retrieving token" & vbNewLine
155 | If Err.Number - vbObjectError <> 11041 Then
156 | auth_ErrorDescription = auth_ErrorDescription & _
157 | Err.Number & VBA.IIf(Err.Number < 0, " (" & VBA.LCase$(VBA.Hex$(Err.Number)) & ")", "") & ": "
158 | End If
159 | auth_ErrorDescription = auth_ErrorDescription & Err.Description
160 |
161 | WebHelpers.LogError auth_ErrorDescription, "TwitterAuthenticator.GetToken", 11041 + vbObjectError
162 | Err.Raise 11041 + vbObjectError, "TwitterAuthenticator.GetToken", auth_ErrorDescription
163 | End If
164 | End Function
165 |
--------------------------------------------------------------------------------
/authenticators/WindowsAuthenticator.cls:
--------------------------------------------------------------------------------
1 | VERSION 1.0 CLASS
2 | BEGIN
3 | MultiUse = -1 'True
4 | END
5 | Attribute VB_Name = "WindowsAuthenticator"
6 | Attribute VB_GlobalNameSpace = False
7 | Attribute VB_Creatable = False
8 | Attribute VB_PredeclaredId = False
9 | Attribute VB_Exposed = True
10 | ''
11 | ' WindowsAuthenticator v3.0.0
12 | ' (c) Tim Hall - https://github.com/VBA-tools/VBA-Web
13 | '
14 | ' Use Windows (NTLM) authentication
15 | '
16 | ' @class WindowsAuthenticator
17 | ' @implements IWebAuthenticator v4.*
18 | ' @author tim.hall.engr@gmail.com
19 | ' @license MIT (http://www.opensource.org/licenses/mit-license.php)
20 | '' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ '
21 | Implements IWebAuthenticator
22 | Option Explicit
23 |
24 | ' --------------------------------------------- '
25 | ' Constants and Private Variables
26 | ' --------------------------------------------- '
27 |
28 | Private Const web_AutoLogonPolicy_Always = 0
29 | Private Const web_AutoLogonPolicy_OnlyIfBypassProxy = 1
30 | Private Const web_AutoLogonPolicy_Never = 2
31 |
32 | ' ============================================= '
33 | ' Public Methods
34 | ' ============================================= '
35 |
36 | ''
37 | ' Hook for taking action before a request is executed
38 | '
39 | ' @param {WebClient} Client The client that is about to execute the request
40 | ' @param in|out {WebRequest} Request The request about to be executed
41 | ''
42 | Private Sub IWebAuthenticator_BeforeExecute(ByVal Client As WebClient, ByRef Request As WebRequest)
43 | ' e.g Add headers, cookies, etc.
44 | End Sub
45 |
46 | ''
47 | ' Hook for taking action after request has been executed
48 | '
49 | ' @param {WebClient} Client The client that executed request
50 | ' @param {WebRequest} Request The request that was just executed
51 | ' @param in|out {WebResponse} Response to request
52 | ''
53 | Private Sub IWebAuthenticator_AfterExecute(ByVal Client As WebClient, ByVal Request As WebRequest, ByRef Response As WebResponse)
54 | ' e.g. Handle 401 Unauthorized or other issues
55 | End Sub
56 |
57 | ''
58 | ' Hook for updating http before send
59 | '
60 | ' @param {WebClient} Client
61 | ' @param {WebRequest} Request
62 | ' @param in|out {WinHttpRequest} Http
63 | ''
64 | Private Sub IWebAuthenticator_PrepareHttp(ByVal Client As WebClient, ByVal Request As WebRequest, ByRef Http As Object)
65 | ' http://msdn.microsoft.com/en-us/library/windows/desktop/aa384107(v=vs.85).aspx
66 | Http.SetAutoLogonPolicy web_AutoLogonPolicy_Always
67 | End Sub
68 |
69 | ''
70 | ' Hook for updating cURL before send
71 | '
72 | ' @param {WebClient} Client
73 | ' @param {WebRequest} Request
74 | ' @param in|out {String} Curl
75 | ''
76 | Private Sub IWebAuthenticator_PrepareCurl(ByVal Client As WebClient, ByVal Request As WebRequest, ByRef Curl As String)
77 | ' http://curl.haxx.se/docs/manpage.html#--ntlm
78 | Curl = Curl & " --ntlm"
79 | End Sub
80 |
81 |
--------------------------------------------------------------------------------
/credentials - example.txt:
--------------------------------------------------------------------------------
1 | # Save-as credentials.txt and then enter your credentials to simplify use of Examples and Specs
2 | # DO NOT enter and save credentials in example file
3 |
4 | Twitter
5 | # Url: dev.twitter.com
6 | # App > API Keys
7 | - key: Your API key
8 | - secret: Your API secret
9 |
10 | Google
11 | # Url: https://console.developers.google.com/
12 | # Project > APIs & auth > Credentials
13 | - profile: Analytics profile
14 | - id: Your Client ID
15 | - secret: Your Client secret
16 | - api_key: Your API key
17 |
18 | Salesforce
19 | # Url: developer.force.com
20 | # Instructions: https://github.com/VBA-tools/VBA-Web/blob/master/examples/salesforce/Setup%20Salesforce.md
21 | - username: Your username
22 | - token: Your security token
23 | - key: Your API key
24 | - secret: Your API secret
25 |
26 | Facebook
27 | # Url: developers.facebook.com
28 | - id: Your App Id
29 | - secret: Your App Secret
30 |
31 | LinkedIn
32 | - api_key: Your API key
33 | - api_secret: Your API secret
34 | - user_token: Your user token
35 | - user_secret: Your user secret
36 |
37 | Todoist
38 | # Url: https://todoist.com/app_console/
39 | - id: Your Client Id
40 | - secret: Your Client Secret
41 | - redirect_url: Your Redirect Url
42 |
43 | OPS
44 | # Url: http://www.epo.org/searching-for-patents/technical/espacenet/ops.html
45 | - consumer_key: Your consumer key
46 | - consumer_secret: Your consumer secret
--------------------------------------------------------------------------------
/docs/.gitignore:
--------------------------------------------------------------------------------
1 | # node_modules should be installed with npm install
2 | specs/node_modules
3 |
4 | # Ignore temporary Excel files
5 | */~$*
6 |
7 | # Ignore credentials (don't check in sensitive data)
8 | credentials.txt
9 |
10 | # Ignore scratch work and other files
11 | _scratch
12 | .DS_Store
13 |
14 | # gh-pages files
15 | .sass-cache
16 | _site
--------------------------------------------------------------------------------
/docs/Gemfile:
--------------------------------------------------------------------------------
1 | source 'https://rubygems.org'
2 | gem 'wdm', '~> 0.1.0' if Gem.win_platform?
3 | gem 'github-pages', group: :jekyll_plugins
4 |
--------------------------------------------------------------------------------
/docs/Gemfile.lock:
--------------------------------------------------------------------------------
1 | GEM
2 | remote: https://rubygems.org/
3 | specs:
4 | activesupport (4.2.10)
5 | i18n (~> 0.7)
6 | minitest (~> 5.1)
7 | thread_safe (~> 0.3, >= 0.3.4)
8 | tzinfo (~> 1.1)
9 | addressable (2.5.2)
10 | public_suffix (>= 2.0.2, < 4.0)
11 | coffee-script (2.4.1)
12 | coffee-script-source
13 | execjs
14 | coffee-script-source (1.11.1)
15 | colorator (1.1.0)
16 | commonmarker (0.17.13)
17 | ruby-enum (~> 0.5)
18 | concurrent-ruby (1.1.4)
19 | dnsruby (1.61.2)
20 | addressable (~> 2.5)
21 | em-websocket (0.5.1)
22 | eventmachine (>= 0.12.9)
23 | http_parser.rb (~> 0.6.0)
24 | ethon (0.12.0)
25 | ffi (>= 1.3.0)
26 | eventmachine (1.2.7-x64-mingw32)
27 | execjs (2.7.0)
28 | faraday (0.15.4)
29 | multipart-post (>= 1.2, < 3)
30 | ffi (1.10.0-x64-mingw32)
31 | forwardable-extended (2.6.0)
32 | gemoji (3.0.0)
33 | github-pages (193)
34 | activesupport (= 4.2.10)
35 | github-pages-health-check (= 1.8.1)
36 | jekyll (= 3.7.4)
37 | jekyll-avatar (= 0.6.0)
38 | jekyll-coffeescript (= 1.1.1)
39 | jekyll-commonmark-ghpages (= 0.1.5)
40 | jekyll-default-layout (= 0.1.4)
41 | jekyll-feed (= 0.11.0)
42 | jekyll-gist (= 1.5.0)
43 | jekyll-github-metadata (= 2.9.4)
44 | jekyll-mentions (= 1.4.1)
45 | jekyll-optional-front-matter (= 0.3.0)
46 | jekyll-paginate (= 1.1.0)
47 | jekyll-readme-index (= 0.2.0)
48 | jekyll-redirect-from (= 0.14.0)
49 | jekyll-relative-links (= 0.5.3)
50 | jekyll-remote-theme (= 0.3.1)
51 | jekyll-sass-converter (= 1.5.2)
52 | jekyll-seo-tag (= 2.5.0)
53 | jekyll-sitemap (= 1.2.0)
54 | jekyll-swiss (= 0.4.0)
55 | jekyll-theme-architect (= 0.1.1)
56 | jekyll-theme-cayman (= 0.1.1)
57 | jekyll-theme-dinky (= 0.1.1)
58 | jekyll-theme-hacker (= 0.1.1)
59 | jekyll-theme-leap-day (= 0.1.1)
60 | jekyll-theme-merlot (= 0.1.1)
61 | jekyll-theme-midnight (= 0.1.1)
62 | jekyll-theme-minimal (= 0.1.1)
63 | jekyll-theme-modernist (= 0.1.1)
64 | jekyll-theme-primer (= 0.5.3)
65 | jekyll-theme-slate (= 0.1.1)
66 | jekyll-theme-tactile (= 0.1.1)
67 | jekyll-theme-time-machine (= 0.1.1)
68 | jekyll-titles-from-headings (= 0.5.1)
69 | jemoji (= 0.10.1)
70 | kramdown (= 1.17.0)
71 | liquid (= 4.0.0)
72 | listen (= 3.1.5)
73 | mercenary (~> 0.3)
74 | minima (= 2.5.0)
75 | nokogiri (>= 1.8.2, < 2.0)
76 | rouge (= 2.2.1)
77 | terminal-table (~> 1.4)
78 | github-pages-health-check (1.8.1)
79 | addressable (~> 2.3)
80 | dnsruby (~> 1.60)
81 | octokit (~> 4.0)
82 | public_suffix (~> 2.0)
83 | typhoeus (~> 1.3)
84 | html-pipeline (2.10.0)
85 | activesupport (>= 2)
86 | nokogiri (>= 1.4)
87 | http_parser.rb (0.6.0)
88 | i18n (0.9.5)
89 | concurrent-ruby (~> 1.0)
90 | jekyll (3.7.4)
91 | addressable (~> 2.4)
92 | colorator (~> 1.0)
93 | em-websocket (~> 0.5)
94 | i18n (~> 0.7)
95 | jekyll-sass-converter (~> 1.0)
96 | jekyll-watch (~> 2.0)
97 | kramdown (~> 1.14)
98 | liquid (~> 4.0)
99 | mercenary (~> 0.3.3)
100 | pathutil (~> 0.9)
101 | rouge (>= 1.7, < 4)
102 | safe_yaml (~> 1.0)
103 | jekyll-avatar (0.6.0)
104 | jekyll (~> 3.0)
105 | jekyll-coffeescript (1.1.1)
106 | coffee-script (~> 2.2)
107 | coffee-script-source (~> 1.11.1)
108 | jekyll-commonmark (1.2.0)
109 | commonmarker (~> 0.14)
110 | jekyll (>= 3.0, < 4.0)
111 | jekyll-commonmark-ghpages (0.1.5)
112 | commonmarker (~> 0.17.6)
113 | jekyll-commonmark (~> 1)
114 | rouge (~> 2)
115 | jekyll-default-layout (0.1.4)
116 | jekyll (~> 3.0)
117 | jekyll-feed (0.11.0)
118 | jekyll (~> 3.3)
119 | jekyll-gist (1.5.0)
120 | octokit (~> 4.2)
121 | jekyll-github-metadata (2.9.4)
122 | jekyll (~> 3.1)
123 | octokit (~> 4.0, != 4.4.0)
124 | jekyll-mentions (1.4.1)
125 | html-pipeline (~> 2.3)
126 | jekyll (~> 3.0)
127 | jekyll-optional-front-matter (0.3.0)
128 | jekyll (~> 3.0)
129 | jekyll-paginate (1.1.0)
130 | jekyll-readme-index (0.2.0)
131 | jekyll (~> 3.0)
132 | jekyll-redirect-from (0.14.0)
133 | jekyll (~> 3.3)
134 | jekyll-relative-links (0.5.3)
135 | jekyll (~> 3.3)
136 | jekyll-remote-theme (0.3.1)
137 | jekyll (~> 3.5)
138 | rubyzip (>= 1.2.1, < 3.0)
139 | jekyll-sass-converter (1.5.2)
140 | sass (~> 3.4)
141 | jekyll-seo-tag (2.5.0)
142 | jekyll (~> 3.3)
143 | jekyll-sitemap (1.2.0)
144 | jekyll (~> 3.3)
145 | jekyll-swiss (0.4.0)
146 | jekyll-theme-architect (0.1.1)
147 | jekyll (~> 3.5)
148 | jekyll-seo-tag (~> 2.0)
149 | jekyll-theme-cayman (0.1.1)
150 | jekyll (~> 3.5)
151 | jekyll-seo-tag (~> 2.0)
152 | jekyll-theme-dinky (0.1.1)
153 | jekyll (~> 3.5)
154 | jekyll-seo-tag (~> 2.0)
155 | jekyll-theme-hacker (0.1.1)
156 | jekyll (~> 3.5)
157 | jekyll-seo-tag (~> 2.0)
158 | jekyll-theme-leap-day (0.1.1)
159 | jekyll (~> 3.5)
160 | jekyll-seo-tag (~> 2.0)
161 | jekyll-theme-merlot (0.1.1)
162 | jekyll (~> 3.5)
163 | jekyll-seo-tag (~> 2.0)
164 | jekyll-theme-midnight (0.1.1)
165 | jekyll (~> 3.5)
166 | jekyll-seo-tag (~> 2.0)
167 | jekyll-theme-minimal (0.1.1)
168 | jekyll (~> 3.5)
169 | jekyll-seo-tag (~> 2.0)
170 | jekyll-theme-modernist (0.1.1)
171 | jekyll (~> 3.5)
172 | jekyll-seo-tag (~> 2.0)
173 | jekyll-theme-primer (0.5.3)
174 | jekyll (~> 3.5)
175 | jekyll-github-metadata (~> 2.9)
176 | jekyll-seo-tag (~> 2.0)
177 | jekyll-theme-slate (0.1.1)
178 | jekyll (~> 3.5)
179 | jekyll-seo-tag (~> 2.0)
180 | jekyll-theme-tactile (0.1.1)
181 | jekyll (~> 3.5)
182 | jekyll-seo-tag (~> 2.0)
183 | jekyll-theme-time-machine (0.1.1)
184 | jekyll (~> 3.5)
185 | jekyll-seo-tag (~> 2.0)
186 | jekyll-titles-from-headings (0.5.1)
187 | jekyll (~> 3.3)
188 | jekyll-watch (2.1.2)
189 | listen (~> 3.0)
190 | jemoji (0.10.1)
191 | gemoji (~> 3.0)
192 | html-pipeline (~> 2.2)
193 | jekyll (~> 3.0)
194 | kramdown (1.17.0)
195 | liquid (4.0.0)
196 | listen (3.1.5)
197 | rb-fsevent (~> 0.9, >= 0.9.4)
198 | rb-inotify (~> 0.9, >= 0.9.7)
199 | ruby_dep (~> 1.2)
200 | mercenary (0.3.6)
201 | mini_portile2 (2.4.0)
202 | minima (2.5.0)
203 | jekyll (~> 3.5)
204 | jekyll-feed (~> 0.9)
205 | jekyll-seo-tag (~> 2.1)
206 | minitest (5.11.3)
207 | multipart-post (2.0.0)
208 | nokogiri (1.10.1-x64-mingw32)
209 | mini_portile2 (~> 2.4.0)
210 | octokit (4.13.0)
211 | sawyer (~> 0.8.0, >= 0.5.3)
212 | pathutil (0.16.2)
213 | forwardable-extended (~> 2.6)
214 | public_suffix (2.0.5)
215 | rb-fsevent (0.10.3)
216 | rb-inotify (0.10.0)
217 | ffi (~> 1.0)
218 | rouge (2.2.1)
219 | ruby-enum (0.7.2)
220 | i18n
221 | ruby_dep (1.5.0)
222 | rubyzip (1.2.2)
223 | safe_yaml (1.0.4)
224 | sass (3.7.3)
225 | sass-listen (~> 4.0.0)
226 | sass-listen (4.0.0)
227 | rb-fsevent (~> 0.9, >= 0.9.4)
228 | rb-inotify (~> 0.9, >= 0.9.7)
229 | sawyer (0.8.1)
230 | addressable (>= 2.3.5, < 2.6)
231 | faraday (~> 0.8, < 1.0)
232 | terminal-table (1.8.0)
233 | unicode-display_width (~> 1.1, >= 1.1.1)
234 | thread_safe (0.3.6)
235 | typhoeus (1.3.1)
236 | ethon (>= 0.9.0)
237 | tzinfo (1.2.5)
238 | thread_safe (~> 0.1)
239 | unicode-display_width (1.4.1)
240 | wdm (0.1.1)
241 |
242 | PLATFORMS
243 | x64-mingw32
244 |
245 | DEPENDENCIES
246 | github-pages
247 | wdm (~> 0.1.0)
248 |
249 | BUNDLED WITH
250 | 1.16.3
251 |
--------------------------------------------------------------------------------
/docs/_config.yml:
--------------------------------------------------------------------------------
1 | name: VBA-Web
2 | title: VBA-Web
3 | url: https://VBA-tools.github.io/VBA-Web
4 | baseurl: /VBA-Web
5 | repository: VBA-tools/VBA-Web
6 |
7 | github_url: https://github.com/VBA-tools/VBA-Web
8 | download: https://github.com/VBA-tools/VBA-Web/releases
9 | description: "Connect VBA, Excel, Access, and Office for Windows and Mac to web services and the web"
10 | version: 4.1.6
11 |
12 | defaults:
13 | - scope:
14 | path: ""
15 | values:
16 | layout: default
17 | - scope:
18 | path: guides
19 | type: pages
20 | values:
21 | layout: guides
22 | - scope:
23 | path: guides
24 | type: guides
25 | values:
26 | layout: guides
27 | - scope:
28 | path: docs
29 | type: pages
30 | values:
31 | layout: docs
32 |
33 | collections:
34 | guides:
35 | output: true
36 | permalink: /guides/:path/
37 | layout: guides
38 |
39 | exclude:
40 | - Gemfile
41 | - Gemfile.lock
42 | - readme.md
43 |
44 | sass:
45 | style: :compressed
46 | sass_dir: _css
47 |
48 | # Default github-pages configuation
49 | encoding: UTF-8
50 | kramdown:
51 | input: GFM
52 | hard_wrap: false
53 | future: true
54 | jailed: false
55 | theme: jekyll-theme-primer
56 | gfm_quirks: paragraph_end
57 |
58 | # Unchangable github-pages configuration
59 | lsi: false
60 | safe: true
61 | highlighter: rouge
62 | gist:
63 | noscript: false
64 | kramdown:
65 | math_engine: mathjax
66 | syntax_highlighter: rouge
67 |
--------------------------------------------------------------------------------
/docs/_css/_base.scss:
--------------------------------------------------------------------------------
1 | // Base
2 | // ----------------------------------------------------- //
3 |
4 | html {
5 | font-size: 62.5%;
6 | color: #222;
7 | }
8 |
9 | body {
10 | overflow-y: scroll;
11 |
12 | @include font-size(1.6);
13 | line-height: 1.5;
14 | }
15 |
16 | a {
17 | color: inherit;
18 | text-decoration: underline;
19 |
20 | &:hover {}
21 | &:active {}
22 | &:visited {}
23 | }
24 |
25 | h1, h2, h3, h4, h5, h6 {
26 | margin-top: 0.5em;
27 | margin-bottom: 0.5em;
28 |
29 | & + p, & + ul, & + ol {
30 | margin-top: 0;
31 | }
32 | }
33 |
34 | ul, ol {
35 | padding-left: 2em;
36 | }
37 |
38 | code {
39 | padding: 0.1em 0.3em;
40 | margin: 0;
41 | font-size: 0.9em;
42 | background-color: rgba(0,0,0,0.04);
43 | border-radius: 3px;
44 | }
45 |
46 | pre {
47 | border-left: solid 2px lighten($primary-color, 10%);
48 | padding: 5px 0 5px 10px;
49 | max-width: 50em;
50 | line-height: 1.4em;
51 |
52 | & > code {
53 | padding: 0;
54 | margin: 0;
55 | font-size: 0.9em;
56 | background: none;
57 | border-radius: 0;
58 | }
59 |
60 | .hll {
61 | background-color: fade-out($primary-color, 0.93);
62 | display: block;
63 | margin-left: -10px;
64 | padding-left: 10px;
65 | }
66 | }
67 |
68 | figure.highlight {
69 | margin-left: 0;
70 | }
71 |
72 | @include respond-to(extra-small) {
73 | body {
74 | @include font-size(1.4);
75 | }
76 | }
77 |
78 | /*
79 | * What follows is the result of much research on cross-browser styling.
80 | * Credit left inline and big thanks to Nicolas Gallagher, Jonathan Neal,
81 | * Kroc Camen, and the H5BP dev community and team.
82 | */
83 |
84 | /* ==========================================================================
85 | Base styles: opinionated defaults
86 | ========================================================================== */
87 |
88 | /*
89 | * Remove text-shadow in selection highlight:
90 | * https://twitter.com/miketaylr/status/12228805301
91 | *
92 | * These selection rule sets have to be separate.
93 | * Customize the background color to match your design.
94 | */
95 |
96 | ::-moz-selection {
97 | background: #b3d4fc;
98 | text-shadow: none;
99 | }
100 |
101 | ::selection {
102 | background: #b3d4fc;
103 | text-shadow: none;
104 | }
105 |
106 | /*
107 | * A better looking default horizontal rule
108 | */
109 |
110 | hr {
111 | display: block;
112 | height: 1px;
113 | border: 0;
114 | border-top: 1px solid #ccc;
115 | margin: 1em 0;
116 | padding: 0;
117 | }
118 |
119 | /*
120 | * Remove the gap between audio, canvas, iframes,
121 | * images, videos and the bottom of their containers:
122 | * https://github.com/h5bp/html5-boilerplate/issues/440
123 | */
124 |
125 | audio,
126 | canvas,
127 | iframe,
128 | img,
129 | svg,
130 | video {
131 | vertical-align: middle;
132 | }
133 |
134 | /*
135 | * Remove default fieldset styles.
136 | */
137 |
138 | fieldset {
139 | border: 0;
140 | margin: 0;
141 | padding: 0;
142 | }
143 |
144 | /*
145 | * Allow only vertical resizing of textareas.
146 | */
147 |
148 | textarea {
149 | resize: vertical;
150 | }
151 |
152 | /* ==========================================================================
153 | Helper classes
154 | ========================================================================== */
155 |
156 | /*
157 | * Hide visually and from screen readers:
158 | * http://juicystudio.com/article/screen-readers-display-none.php
159 | */
160 |
161 | .hidden {
162 | display: none !important;
163 | visibility: hidden;
164 | }
165 |
166 | /*
167 | * Hide only visually, but have it available for screen readers:
168 | * http://snook.ca/archives/html_and_css/hiding-content-for-accessibility
169 | */
170 |
171 | .visuallyhidden {
172 | border: 0;
173 | clip: rect(0 0 0 0);
174 | height: 1px;
175 | margin: -1px;
176 | overflow: hidden;
177 | padding: 0;
178 | position: absolute;
179 | width: 1px;
180 | }
181 |
182 | /*
183 | * Extends the .visuallyhidden class to allow the element
184 | * to be focusable when navigated to via the keyboard:
185 | * https://www.drupal.org/node/897638
186 | */
187 |
188 | .visuallyhidden.focusable:active,
189 | .visuallyhidden.focusable:focus {
190 | clip: auto;
191 | height: auto;
192 | margin: 0;
193 | overflow: visible;
194 | position: static;
195 | width: auto;
196 | }
197 |
198 | /*
199 | * Hide visually and from screen readers, but maintain layout
200 | */
201 |
202 | .invisible {
203 | visibility: hidden;
204 | }
205 |
206 | /*
207 | * Clearfix: contain floats
208 | *
209 | * For modern browsers
210 | * 1. The space content is one way to avoid an Opera bug when the
211 | * `contenteditable` attribute is included anywhere else in the document.
212 | * Otherwise it causes space to appear at the top and bottom of elements
213 | * that receive the `clearfix` class.
214 | * 2. The use of `table` rather than `block` is only necessary if using
215 | * `:before` to contain the top-margins of child elements.
216 | */
217 |
218 | .clearfix:before,
219 | .clearfix:after {
220 | content: " "; /* 1 */
221 | display: table; /* 2 */
222 | }
223 |
224 | .clearfix:after {
225 | clear: both;
226 | }
227 |
--------------------------------------------------------------------------------
/docs/_css/_content.scss:
--------------------------------------------------------------------------------
1 | // Content
2 | // ----------------------------------------------------- //
3 |
4 | .site-content-container {
5 | @include container;
6 | }
7 |
8 | .site-content {
9 | padding-left: 10px;
10 | padding-right: 10px;
11 |
12 | &.with-sidebar {}
13 | }
14 |
15 | @include respond-to(extra-small) {
16 | .site-content-container {
17 | margin-top: $header-height-small + 10px;
18 | }
19 | }
20 |
21 | @include respond-to(medium-plus) {
22 | .site-content-container {
23 | width: $content-width + $sidebar-width + 20px;
24 | }
25 |
26 | .site-content {
27 | width: $content-width;
28 | margin: 0 auto;
29 |
30 | &.with-sidebar {
31 | margin-left: $sidebar-width + 20px;
32 | }
33 | }
34 | }
35 |
36 | .responsive-image {
37 |
38 | }
39 |
40 | @include respond-to(up-to-medium) {
41 | .responsive-image {
42 | max-width: 100%;
43 | height: auto;
44 | }
45 | }
46 |
--------------------------------------------------------------------------------
/docs/_css/_docs.scss:
--------------------------------------------------------------------------------
1 | // Docs
2 | // ----------------------------------------------------- //
3 |
4 | .docs-toc {
5 | @include font-size(1.4);
6 |
7 | a {
8 | text-decoration: none;
9 |
10 | &:hover {
11 | text-decoration: underline;
12 | }
13 | }
14 | }
15 | .docs-toc-title {
16 | display: block;
17 | margin-top: 0.5em;
18 | font-weight: bold;
19 |
20 | &:first-child {
21 | margin-top: 0;
22 | }
23 | }
24 | .docs-toc-section {
25 | margin: 0;
26 | padding-left: 1.5em;
27 |
28 | list-style: none;
29 | }
30 | .docs-toc-item {
31 | list-style: none;
32 | margin-left: -1em;
33 |
34 | &:before {
35 | content: "-";
36 | margin-right: 0.5em;
37 | }
38 |
39 | &.mod-subsection {
40 | margin-left: -1.2em;
41 | margin-top: 0.5em;
42 |
43 | font-size: 0.9em;
44 | color: #888;
45 | text-transform: uppercase;
46 |
47 | &:before {
48 | content: "";
49 | margin: 0;
50 | }
51 | }
52 | }
53 |
54 | .docs-content {
55 | @include font-size(1.4);
56 |
57 | & pre {
58 |
59 | }
60 |
61 | & em {
62 | margin-right: 0.5em;
63 |
64 | font-style: normal;
65 | text-transform: uppercase;
66 | font-size: 0.8em;
67 | color: #666;
68 | }
69 |
70 | & ul {
71 | margin-top: 0;
72 | padding-left: 1.2em;
73 | }
74 |
75 | & p {
76 | margin-top: 0;
77 | }
78 |
79 | & a {
80 | text-decoration: none;
81 |
82 | border-bottom: solid 1px #ccc;
83 |
84 | &:hover {
85 | border-color: #000;
86 | }
87 | }
88 | }
89 |
90 | .docs-title {
91 | margin-bottom: 0.5em;
92 | padding-bottom: 0.1em;
93 | border-bottom: solid 1px #eee;
94 | }
95 |
96 | .docs-subsection {
97 | margin-bottom: 10px;
98 | }
99 | .docs-subsection-title {
100 | margin: 0;
101 |
102 | text-transform: uppercase;
103 | font-weight: normal;
104 | font-size: 1em;
105 | color: #888;
106 | }
107 | .docs-item {}
108 | .docs-item-title {
109 | margin-top: 0.5em;
110 | margin-bottom: 0.5em;
111 | }
112 | .docs-item-name {
113 | margin-top: 0.5em;
114 | margin-bottom: 0.5em;
115 |
116 | line-height: 1.2em;
117 |
118 | & + code {
119 | background-color: transparent;
120 | color: #666;
121 | font-weight: lighter;
122 | overflow-x: auto;
123 | white-space: nowrap;
124 | display: block;
125 | line-height: 1.2em;
126 | padding: 0;
127 | margin-top: 1px;
128 | }
129 | }
130 |
131 | .docs-details {
132 | @extend .clearfix;
133 |
134 | margin: 0 0 0.5em 0.5em;
135 | line-height: 1.5em;
136 |
137 | & > dt {
138 | float: left;
139 | margin-right: 4px;
140 | clear: both;
141 |
142 | & > code {
143 | background-color: transparent;
144 | }
145 | &:after {
146 | content: "-";
147 | margin-left: 2px;
148 | }
149 | }
150 | & > dd {
151 | -webkit-margin-start: 20px;
152 |
153 | p {
154 | margin: 0;
155 | }
156 | ul {
157 | margin: 0;
158 | padding-left: 1em;
159 | }
160 | }
161 | }
162 |
163 | @include respond-to(medium-plus) {
164 | .docs-toc {
165 | @include font-size(1.2);
166 | }
167 | .docs-content {
168 | @include font-size(1.5);
169 | }
170 | }
171 |
--------------------------------------------------------------------------------
/docs/_css/_footer.scss:
--------------------------------------------------------------------------------
1 | // Footer
2 | // ----------------------------------------------------- //
3 |
4 | .site-footer-container {}
5 | .site-footer {}
6 |
--------------------------------------------------------------------------------
/docs/_css/_guides.scss:
--------------------------------------------------------------------------------
1 | // Guides
2 | // ----------------------------------------------------- //
3 |
--------------------------------------------------------------------------------
/docs/_css/_header.scss:
--------------------------------------------------------------------------------
1 | // Header
2 | // ----------------------------------------------------- //
3 |
4 | .site-header-container {
5 | position: relative;
6 | width: 100%;
7 | height: $header-height;
8 |
9 | margin-bottom: 10px;
10 |
11 | @include font-size(1);
12 |
13 | background-color: #fff;
14 | border-bottom: solid 1px #eee;
15 | }
16 |
17 | .site-header {
18 | @include container;
19 | }
20 |
21 | .header-item {
22 | margin: 0;
23 |
24 | font-size: 1em;
25 | }
26 | .logo-item {
27 | float: left;
28 | }
29 |
30 | .header-link {
31 | display: inline-block;
32 |
33 | padding: 0 10px;
34 |
35 | font-size: 1.7em;
36 | line-height: $header-height + 2px;
37 | color: black;
38 | text-decoration: none;
39 |
40 | &:hover {
41 | background-color: #fafafa;
42 | }
43 | }
44 |
45 | .logo {
46 | color: $primary-color;
47 | }
48 |
49 | .logo-link {
50 | font-size: 2.8em;
51 | font-weight: normal;
52 | }
53 | .guides-link {}
54 | .docs-link {}
55 | .github-link {}
56 | .download-link {
57 | color: $primary-color;
58 | }
59 |
60 | .site-navigation {
61 | float: right;
62 |
63 | & > ul {
64 | list-style: none;
65 | padding: 0;
66 | margin: 0;
67 |
68 | & > li {
69 | float: left;
70 | }
71 | }
72 | }
73 |
74 | @include respond-to(extra-small) {
75 | .site-header-container {
76 | position: fixed;
77 | top: 0;
78 | height: $header-height-small;
79 | z-index: 1000;
80 |
81 | -webkit-transition: transform 200ms linear;
82 | -moz-transition: transform 200ms linear;
83 | -ms-transition: transform 200ms linear;
84 | transition: transform 200ms linear;
85 |
86 | &.headroom--pinned, &.headroom--top {
87 | -webkit-transform: translateY(0%);
88 | -moz-transform: translateY(0%);
89 | -ms-transform: translateY(0%);
90 | transform: translateY(0%);
91 | }
92 | &.headroom--unpinned {
93 | -webkit-transform: translateY(-100%);
94 | -moz-transform: translateY(-100%);
95 | -ms-transform: translateY(-100%);
96 | transform: translateY(-100%);
97 | }
98 | }
99 |
100 | .header-link {
101 | font-size: 1.5em;
102 | line-height: $header-height-small;
103 | }
104 | .logo-link {
105 | font-size: 2.4em;
106 | }
107 | .download-link {
108 | display: none;
109 | visibility: hidden;
110 | }
111 | }
112 |
--------------------------------------------------------------------------------
/docs/_css/_highlight.scss:
--------------------------------------------------------------------------------
1 | // http://richleland.github.io/pygments-css/
2 | .highlight {
3 | .c { color: #999988; font-style: italic } /* Comment */
4 | .err { color: #a61717; background-color: #e3d2d2 } /* Error */
5 | .k { color: #a71d5d; } /* Keyword */
6 | .o { color: #a71d5d } /* Operator */
7 | .cm { color: #999988; font-style: italic } /* Comment.Multiline */
8 | .cp { color: #999999; font-weight: bold; font-style: italic } /* Comment.Preproc */
9 | .c1 { color: #999988; font-style: italic } /* Comment.Single */
10 | .cs { color: #999999; font-weight: bold; font-style: italic } /* Comment.Special */
11 | .gd { color: #000000; background-color: #ffdddd } /* Generic.Deleted */
12 | .ge { color: #000000; font-style: italic } /* Generic.Emph */
13 | .gr { color: #aa0000 } /* Generic.Error */
14 | .gh { color: #999999 } /* Generic.Heading */
15 | .gi { color: #000000; background-color: #ddffdd } /* Generic.Inserted */
16 | .go { color: #888888 } /* Generic.Output */
17 | .gp { color: #555555 } /* Generic.Prompt */
18 | .gs { font-weight: bold } /* Generic.Strong */
19 | .gu { color: #aaaaaa } /* Generic.Subheading */
20 | .gt { color: #aa0000 } /* Generic.Traceback */
21 | .kc { color: #0086b3 } /* Keyword.Constant */
22 | .kd { color: #a71d5d } /* Keyword.Declaration */
23 | .kn { color: #000000; font-weight: bold } /* Keyword.Namespace */
24 | .kp { color: #000000; font-weight: bold } /* Keyword.Pseudo */
25 | .kr { color: #000000; font-weight: bold } /* Keyword.Reserved */
26 | .kt { color: #0086b3 } /* Keyword.Type */
27 | .m { color: #009999 } /* Literal.Number */
28 | .s { color: #df5000 } /* Literal.String */
29 | .na { color: #008080 } /* Name.Attribute */
30 | .nb { color: #0086B3 } /* Name.Builtin */
31 | .nc { color: #445588; font-weight: bold } /* Name.Class */
32 | .no { color: #008080 } /* Name.Constant */
33 | .nd { color: #3c5d5d; font-weight: bold } /* Name.Decorator */
34 | .ni { color: #800080 } /* Name.Entity */
35 | .ne { color: #990000; font-weight: bold } /* Name.Exception */
36 | .nf { color: #795da3; } /* Name.Function */
37 | .nl { color: #990000; font-weight: bold } /* Name.Label */
38 | .nn { color: #555555 } /* Name.Namespace */
39 | .nt { color: #000080 } /* Name.Tag */
40 | .nv { color: #008080 } /* Name.Variable */
41 | .ow { color: #a71d5d; } /* Operator.Word */
42 | .w { color: #bbbbbb } /* Text.Whitespace */
43 | .mf { color: #009999 } /* Literal.Number.Float */
44 | .mh { color: #009999 } /* Literal.Number.Hex */
45 | .mi { color: #009999 } /* Literal.Number.Integer */
46 | .mo { color: #009999 } /* Literal.Number.Oct */
47 | .sb { color: #d01040 } /* Literal.String.Backtick */
48 | .sc { color: #d01040 } /* Literal.String.Char */
49 | .sd { color: #d01040 } /* Literal.String.Doc */
50 | .s2 { color: #d01040 } /* Literal.String.Double */
51 | .se { color: #d01040 } /* Literal.String.Escape */
52 | .sh { color: #d01040 } /* Literal.String.Heredoc */
53 | .si { color: #d01040 } /* Literal.String.Interpol */
54 | .sx { color: #d01040 } /* Literal.String.Other */
55 | .sr { color: #009926 } /* Literal.String.Regex */
56 | .s1 { color: #d01040 } /* Literal.String.Single */
57 | .ss { color: #990073 } /* Literal.String.Symbol */
58 | .bp { color: #999999 } /* Name.Builtin.Pseudo */
59 | .vc { color: #008080 } /* Name.Variable.Class */
60 | .vg { color: #008080 } /* Name.Variable.Global */
61 | .vi { color: #008080 } /* Name.Variable.Instance */
62 | .il { color: #009999 } /* Literal.Number.Integer.Long */
63 | }
--------------------------------------------------------------------------------
/docs/_css/_landing.scss:
--------------------------------------------------------------------------------
1 | .landing-masthead {
2 | text-align: center;
3 | margin-top: 40px;
4 | margin-bottom: 80px;
5 | }
6 |
7 | .tagline {
8 | height: 160px;
9 | padding-top: 120px;
10 | font-size: 28px;
11 | line-height: 1.5;
12 | color: $primary-color;
13 | }
14 |
15 | .animated-text-container {
16 | position: relative;
17 | display: inline-block;
18 | text-align: center;
19 |
20 | &.is-source {
21 | width: 4em;
22 | }
23 | &.is-destination {
24 | width: 7em;
25 | }
26 | }
27 |
28 | .animated-text {
29 | position: absolute;
30 | top: -1em;
31 | left: 0;
32 | width: inherit;
33 | transition: top 500ms ease;
34 |
35 | span {
36 | height: 40px;
37 | display: block;
38 | color: #bbb;
39 | transition: color 500ms ease;
40 |
41 | &.is-active {
42 | color: $primary-color;
43 | }
44 | }
45 |
46 | &.position-0 {
47 | top: -1em;
48 | }
49 | &.position-1 {
50 | top: -69px;
51 | }
52 | &.position-2 {
53 | top: -110px;
54 | }
55 | &.position-3 {
56 | top: -151px;
57 | }
58 | }
59 |
60 | @include respond-to(up-to-small) {
61 | .tagline {
62 | height: 100px;
63 | padding-top: 75px;
64 | font-size: 18px;
65 | }
66 |
67 | .animated-text {
68 | span {
69 | height: 26px;
70 | }
71 |
72 | &.position-0 {
73 | top: -1em;
74 | }
75 | &.position-1 {
76 | top: -45px;
77 | }
78 | &.position-2 {
79 | top: -71px;
80 | }
81 | &.position-3 {
82 | top: -97px;
83 | }
84 | }
85 | }
86 |
87 | .landing-section {
88 | border-top: solid 1px #ccc;
89 | }
--------------------------------------------------------------------------------
/docs/_css/_mixins.scss:
--------------------------------------------------------------------------------
1 | @mixin respond-to($breakpoint) {
2 | // extra-small (phone) is default
3 | @if $breakpoint == "extra-small" {
4 | @media (max-width: $small-screen - 1) {
5 | @content
6 | }
7 | }
8 |
9 | // "tablet": 768-991
10 | @if $breakpoint == "small" {
11 | @media (min-width: $small-screen) and (max-width: $medium-screen - 1) {
12 | @content
13 | }
14 | }
15 | @if $breakpoint == "small-plus" {
16 | @media (min-width: $small-screen) {
17 | @content
18 | }
19 | }
20 | @if $breakpoint == "up-to-small" {
21 | @media (max-width: $small-screen - 1) {
22 | @content
23 | }
24 | }
25 |
26 | // "laptop": 992-1199
27 | @if $breakpoint == "medium" {
28 | @media (min-width: $medium-screen) and (max-width: $large-screen - 1) {
29 | @content
30 | }
31 | }
32 | @if $breakpoint == "medium-plus" {
33 | @media (min-width: $medium-screen) {
34 | @content
35 | }
36 | }
37 | @if $breakpoint == "up-to-medium" {
38 | @media (max-width: $medium-screen - 1) {
39 | @content
40 | }
41 | }
42 |
43 | // "desktop": 1200+
44 | @if $breakpoint == "large" {
45 | @media (min-width: $large-screen) {
46 | @content
47 | }
48 | }
49 | @if $breakpoint == "up-to-large" {
50 | @media (max-width: $large-screen - 1) {
51 | @content
52 | }
53 | }
54 | }
55 |
56 | @mixin container {
57 | position: relative;
58 |
59 | @include respond-to(medium-plus) {
60 | width: 970px;
61 | margin: 0 auto;
62 | }
63 | @include respond-to(large) {
64 | width: $large-screen;
65 | }
66 | }
67 |
68 | @mixin font-size($size) {
69 | font-size: ($size * 10) + px;
70 | font-size: $size + rem;
71 | }
72 |
--------------------------------------------------------------------------------
/docs/_css/_sidebar.scss:
--------------------------------------------------------------------------------
1 | // Sidebar
2 | // ----------------------------------------------------- //
3 |
4 | .sidebar {
5 | padding-left: 10px;
6 | padding-right: 10px;
7 |
8 | &.is-fixed {}
9 | }
10 |
11 | @include respond-to(medium-plus) {
12 | .sidebar {
13 | float: left;
14 | width: $sidebar-width - 20px;
15 |
16 | &.is-fixed {
17 | position: fixed;
18 | top: $header-height + 20px;
19 | bottom: 20px;
20 |
21 | overflow-y: auto;
22 | -webkit-overflow-scrolling: touch;
23 | padding-top: 10px;
24 | padding-bottom: 10px;
25 |
26 | border: solid 1px #eee;
27 | }
28 | }
29 | }
30 |
--------------------------------------------------------------------------------
/docs/_data/docs/IWebAuthenticator.yml:
--------------------------------------------------------------------------------
1 | Methods:
2 | # BeforeExecute
3 | - name: BeforeExecute
4 | code: "BeforeExecute(Client, Request)"
5 | details:
6 | Client: "`{WebClient}`"
7 | Request: "`ByRef {WebRequest}` The request about to be executed"
8 | description: |
9 | Hook for taking action before a request is executed.
10 | Useful for adding headers (e.g. "Authorization"), cookies, etc.
11 |
12 | # AfterExecute
13 | - name: AfterExecute
14 | code: "AfterExecute(Client, Request, Response)"
15 | details:
16 | Client: "`{WebClient}`"
17 | Request: "`{WebRequest}` The request that was just executed"
18 | Response: "`ByRef {WebResponse}`"
19 | description: |
20 | Hook for taking action after a request has been executed.
21 | Useful for handling `401 Unauthorized` or other issues.
22 |
23 | # PrepareHttp
24 | - name: PrepareHttp
25 | code: "PrepareHttp(Client, Request, Http)"
26 | details:
27 | Client: "`{WebClient}`"
28 | Request: "`{WebRequest}`"
29 | Http: "`{WinHttpRequest}`"
30 | description: |
31 | Hook for updating http before send.
32 | Useful for setting internal http options ([WinHttpRequest Docs](https://msdn.microsoft.com/en-us/library/windows/desktop/aa384106)).
33 |
34 | # PrepareCurl
35 | - name: PrepareCurl
36 | code: "PrepareCurl(Client, Request, Curl)"
37 | details:
38 | Client: "`{WebClient}`"
39 | Request: "`{WebRequest}`"
40 | Curl: "`{String}`"
41 | description: |
42 | Hook for update cURL command before send.
43 | Useful for setting internal cURL options ([cURL Docs](http://curl.haxx.se/docs/manpage.html))
--------------------------------------------------------------------------------
/docs/_data/docs/WebAsyncWrapper.yml:
--------------------------------------------------------------------------------
1 | Properties:
2 | # Client
3 | - name: Client
4 | code: "Get|Set {WebClient}"
5 | description: |
6 | Client to use for executing requests.
7 |
8 | # Request
9 | - name: Request
10 | code: "Get|Set {WebRequest}"
11 | internal: true
12 |
13 | # Callback
14 | - name: Callback
15 | code: "Get|Let {String}"
16 | internal: true
17 |
18 | # CallbackArgs
19 | - name: CallbackArgs
20 | code: "Get|Let {Variant}"
21 | internal: true
22 |
23 | # Http
24 | - name: Http
25 | code: "Get|Set {WinHttpRequest}"
26 | internal: true
27 |
28 | Methods:
29 | # ExecuteAsync
30 | - name: ExecuteAsync
31 | code: "ExecuteAsync(Request, Callback, [CallbackArgs])"
32 | details:
33 | Request: "`{WebRequest}`"
34 | Callback: "`{String}`"
35 | CallbackArgs: "`{Variant}` _Optional_"
36 | description: |
37 | Execute the given `WebRequest` asynchronously,
38 | passing the response (and `CallbackArgs` if given) to the `Callback`.
39 |
40 | # Clone
41 | - name: Clone
42 | code: "Clone() {WebAsyncWrapper}"
43 | internal: true
44 |
45 | # PrepareAndExecuteRequest
46 | - name: PrepareAndExecuteRequest
47 | code: "PrepareAndExecuteRequest(Request, Callback, [CallbackArgs])"
48 | internal: true
49 |
50 | # TimedOut
51 | - name: TimedOut
52 | code: "TimedOut()"
53 | internal: true
54 |
55 | # RunCallback
56 | - name: RunCallback
57 | code: "RunCallback(Response)"
58 | internal: true
59 |
--------------------------------------------------------------------------------
/docs/_data/docs/WebClient.yml:
--------------------------------------------------------------------------------
1 | Properties:
2 | # BaseUrl
3 | - name: BaseUrl
4 | code: "Get|Let {String}"
5 | description: |
6 | Set the base url that is shared by all requests
7 | and that the request `Resource` is appended to.
8 | example: |
9 | ' Desired URLs
10 | ' https://api.example.com/v1/messages
11 | ' https://api.example.com/v1/users/id
12 | ' BaseUrl <- ^ -> Resource
13 |
14 | Dim Client As New WebClient
15 | Client.BaseUrl = "https://api.example.com/v1/"
16 |
17 | Dim Request As New WebRequest
18 | Request.Resource = "messages"
19 | Request.Resource = "users/{id}"
20 |
21 | # Authenticator
22 | - name: Authenticator
23 | code: "Get|Set {IWebAuthenticator}"
24 | description: |
25 | Attach an authenticator to the client for authentication requests.
26 | example: |
27 | Dim Client As New WebClient
28 | Dim Auth As New OAuth1Authenticator
29 | Auth.Setup ...
30 |
31 | Set Client.Authenticator = Auth
32 | ' -> All requests use Auth to add "Authorization" header
33 |
34 | # TimeoutMs
35 | - name: TimeoutMs
36 | code: "Get|Let {Long}"
37 | description: |
38 | Timeout (in milliseconds) to wait for timeout in each request phase
39 | (Resolve, Connect, Send, Receive).
40 |
41 | # ProxyServer
42 | - name: ProxyServer
43 | code: "Get|Let {String}"
44 | description: |
45 | Proxy server to pass requests through (except for those that match `ProxyBypassList`).
46 |
47 | # ProxyBypassList
48 | - name: ProxyBypassList
49 | code: "Get|Let {String}"
50 | description: |
51 | Comma separated list of domains to bypass the proxy.
52 |
53 | # ProxyUsername
54 | - name: ProxyUsername
55 | code: "Get|Let {String}"
56 | description: |
57 | Username for proxy.
58 |
59 | # ProxyPassword
60 | - name: ProxyPassword
61 | code: "Get|Let {String}"
62 | description: |
63 | Password for proxy.
64 |
65 | # EnableAutoProxy
66 | - name: EnableAutoProxy
67 | code: "Get|Let {Boolean}"
68 | description: |
69 | Load proxy server and bypass list automatically (`False` by default).
70 |
71 | # Insecure
72 | - name: Insecure
73 | code: "Get|Let {Boolean}"
74 | description: |
75 | Turn off SSL validation (`False` by default).
76 | Useful for self-signed certificates and should only be used with trusted servers.
77 |
78 | # FollowRedirects
79 | - name: FollowRedirects
80 | code: "Get|Let {Boolean}"
81 | description: |
82 | Follow redirects (301, 302, 307) using Location header (`True` by default).
83 |
84 | Methods:
85 | # Execute
86 | - name: Execute
87 | code: "Execute(Request) {WebResponse}"
88 | details:
89 | Request: "`{WebRequest}`"
90 | description: |
91 | Execute the given request
92 | (append the request's `FormattedResource` to the `BaseUrl`)
93 | and return the response.
94 | example: |
95 | Dim Client As New WebClient
96 | Client.BaseUrl = "https://api.example.com/v1/"
97 |
98 | Dim Request As New WebRequest
99 | Request.Resource = "messages/{id}"
100 | Request.AddUrlSegment "id", 123
101 |
102 | ' Add querystring, body, headers, cookies, etc. for request
103 |
104 | Dim Response As WebResponse
105 | Set Response = Client.Execute(Request)
106 |
107 | ' -> GET https://api.example/com/v1/messages/123
108 | ' headers, cookies, and body...
109 |
110 | # GetJson
111 | - name: GetJson
112 | code: "GetJson(Url, [Options]) {WebResponse}"
113 | details:
114 | Url: "`{String}`"
115 | Options: |
116 | `{Dictionary}` _Optional_ Headers, Cookies, QuerystringParams, and UrlSegments
117 |
118 | - `Headers`, `Cookies`, `QuerystringParams`: `Collection` of `KeyValue` (Create with [`WebHelpers.CreateKeyValue`](#/WebHelpers/CreateKeyValue))
119 | - `UrlSegments`: `Dictionary`
120 | description: |
121 | Get JSON from the given URL (with options for Headers, Cookies, QuerystringParams, and UrlSegments).
122 | example: |
123 | Dim Client As New WebClient
124 | Dim Url As String
125 | Url = "https://api.example.com/v1/messages/1"
126 |
127 | Dim Response As WebResponse
128 | Set Response = Client.GetJson(Url)
129 |
130 | Dim Headers As New Collection
131 | Headers.Add WebHelpers.CreateKeyValue("Authorization", "Bearer ...")
132 |
133 | Dim Options As New Dictionary
134 | Options.Add "Headers", Headers
135 |
136 | Set Response = Client.GetJson(Url, Options)
137 |
138 | # PostJson
139 | - name: PostJson
140 | code: "PostJson(Url, Body, [Options]) {WebResponse}"
141 | details:
142 | Url: "`{String}`"
143 | Body: "`{Variant}` `Array`, `Collection`, or `Dictionary` to post"
144 | Options: |
145 | `{Dictionary}` _Optional_ Headers, Cookies, QuerystringParams, and UrlSegments
146 |
147 | - `Headers`, `Cookies`, `QuerystringParams`: `Collection` of `KeyValue` (Create with [`WebHelpers.CreateKeyValue`](#/WebHelpers/CreateKeyValue))
148 | - `UrlSegments`: `Dictionary`
149 | description: |
150 | Post JSON Body (`Array`, `Collection`, `Dictionary`) to the given URL
151 | (with options for Headers, Cookies, QuerystringParams, and UrlSegments).
152 | example: |
153 | Dim Client As New WebClient
154 | Dim Url As String
155 | Url = "https://api.example.com/v1/messages/1"
156 |
157 | ' Body
158 | ' Array, Collection, or Dictionary
159 | Dim Body As New Dictionary
160 | Body.Add "message", "Howdy!"
161 |
162 | Dim Response As WebResponse
163 | Set Response = Client.PostJson(Url, Body)
164 |
165 | Dim Headers As New Collection
166 | Headers.Add WebHelpers.CreateKeyValue("Authorization", "Bearer ...")
167 |
168 | Dim Options As New Dictionary
169 | Options.Add "Headers", Headers
170 |
171 | Set Response = Client.PostJson(Url, Body, Options)
172 |
173 | # SetProxy
174 | - name: SetProxy
175 | code: "SetProxy(Server, [Username], [Password], [BypassList])"
176 | details:
177 | Server: "`{String}` Proxy server to pass requests through"
178 | Username: "`{String}` _Optional_ Username for proxy"
179 | Password: "`{String}` _Optional_ Password for proxy"
180 | BypassList: "`{String}` _Optional_ Comma-separated list of servers that should bypass proxy"
181 | description: |
182 | Helper for setting proxy values.
183 | example: |
184 | Dim Client As New WebClient
185 |
186 | ' Just Server
187 | Client.SetProxy "proxy_server:80"
188 |
189 | ' Server + Username and Password
190 | Client.SetProxy "proxy_server:80", "Tim", "Password"
191 |
192 | ' Server + Username and Password + BypassList
193 | Client.SetProxy "proxy_server:80", "Tim", "Password", "8 | Connect 9 | VBA 10 | Excel 11 | Access 12 | Office 13 | to 14 | the Web 15 | Web Services 16 | Google 17 | Salesforce 18 | 19 |
20 |