Add LinkedIn example

Author: timhall

credentials - example.txt

@@ -25,4 +25,10 @@ Salesforce
 Facebook
 # Url: developers.facebook.com
 - id: Your App Id
-- secret: Your App Secret
+- secret: Your App Secret
+
+LinkedIn
+- api_key: Your API key
+- api_secret: Your API secret
+- user_token: Your user token
+- user_secret: Your user secret

examples/Excel-REST - Example.xlsm

@@ -0,0 +1,82 @@
+Attribute VB_Name = "LinkedIn"
+Private pLinkedInClient As RestClient
+Private pLinkedInAPIKey As String
+Private pLinkedInAPISecret As String
+Private pLinkedInUserToken As String
+Private pLinkedInUserSecret As String
+
+Private Property Get LinkedInAPIKey() As String
+    If pLinkedInAPIKey = "" Then
+        If Credentials.Loaded Then
+            pLinkedInAPIKey = Credentials.Values("LinkedIn")("api_key")
+        Else
+            pLinkedInAPIKey = InputBox("Please Enter LinkedIn API Key")
+        End If
+    End If
+    
+    LinkedInAPIKey = pLinkedInAPIKey
+End Property
+
+Private Property Get LinkedInAPISecret() As String
+    If pLinkedInAPISecret = "" Then
+        If Credentials.Loaded Then
+            pLinkedInAPISecret = Credentials.Values("LinkedIn")("api_secret")
+        Else
+            pLinkedInAPISecret = InputBox("Please Enter LinkedIn API Secret")
+        End If
+    End If
+    
+    LinkedInAPISecret = pLinkedInAPISecret
+End Property
+
+Private Property Get LinkedInUserToken() As String
+    If pLinkedInUserToken = "" Then
+        If Credentials.Loaded Then
+            pLinkedInUserToken = Credentials.Values("LinkedIn")("user_token")
+        Else
+            pLinkedInUserToken = InputBox("Please Enter LinkedIn User Token")
+        End If
+    End If
+    
+    LinkedInUserToken = pLinkedInUserToken
+End Property
+
+Private Property Get LinkedInUserSecret() As String
+    If pLinkedInUserSecret = "" Then
+        If Credentials.Loaded Then
+            pLinkedInUserSecret = Credentials.Values("LinkedIn")("user_secret")
+        Else
+            pLinkedInUserSecret = InputBox("Please Enter LinkedIn User Secret")
+        End If
+    End If
+    
+    LinkedInUserSecret = pLinkedInUserSecret
+End Property
+
+Private Property Get LinkedInClient() As RestClient
+    If pLinkedInClient Is Nothing Then
+        Set pLinkedInClient = New RestClient
+        pLinkedInClient.BaseUrl = "http://api.linkedin.com/v1/"
+        
+        Dim Auth As New OAuth1Authenticator
+        Auth.Setup _
+            ConsumerKey:=LinkedInAPIKey, _
+            ConsumerSecret:=LinkedInAPISecret, _
+            Token:=LinkedInUserToken, _
+            TokenSecret:=LinkedInUserSecret
+        Set pLinkedInClient.Authenticator = Auth
+    End If
+    
+    Set LinkedInClient = pLinkedInClient
+End Property
+
+Public Function GetProfile(Optional Callback As String = "") As RestResponse
+    Dim Request As New RestRequest
+    Request.Resource = "people/~?format={format}"
+    
+    If Callback <> "" Then
+        LinkedInClient.ExecuteAsync Request, Callback
+    Else
+        Set GetProfile = LinkedInClient.Execute(Request)
+    End If
+End Function

examples/linkedin/LinkedIn.bas

@@ -0,0 +1,26 @@
+VERSION 1.0 CLASS
+BEGIN
+  MultiUse = -1  'True
+END
+Attribute VB_Name = "LinkedInSheet"
+Attribute VB_GlobalNameSpace = False
+Attribute VB_Creatable = False
+Attribute VB_PredeclaredId = True
+Attribute VB_Exposed = True
+Public Sub LoadProfile()
+    Me.[LinkedInFirstName] = "Loading Async..."
+    Me.[LinkedInLastName] = ""
+    Me.[LinkedInHeadline] = ""
+    
+    LinkedIn.GetProfile "LinkedInSheet.LoadedProfile"
+End Sub
+
+Public Sub LoadedProfile(Response As RestResponse)
+    If Response.StatusCode = 200 Then
+        Me.[LinkedInFirstName] = Response.Data("firstName")
+        Me.[LinkedInLastName] = Response.Data("lastName")
+        Me.[LinkedInHeadline] = Response.Data("headline")
+    Else
+        Me.[LinkedInFirstName] = "Error: " & Response.Content
+    End If
+End Sub