Social Networking Automated!

[ChrisGreaves]

I'm feeling quite pleased with myself.
in Take the heavy-lifting out of your SOCIAL NETWORKING connections I have managed to demonstrate an automated front-end for people who want to boost their social networking connections on both LinkedIn and Twitter.
The proof-of-concept is Word/VBA and is driven by a self-delimiting string

Code: Select all

,Shane Schick,Chris Greaves,David Webb,Cathy Nesbitt,Mona Albano,Brendon Cowans,Karen Granville,Carole St. Laurent

The code itself is not too complex(but uses slave function from my library UW.dot)

Code: Select all

Sub LinkedInProfile()
    Call CheckIfRunning("")
    Dim os As OptionStructure
    Call LoadOptions(os)
    os.blnUserInterface = True
    Dim ie As Object
    Set ie = ieGetInternetExplorer
    Dim strPeople As String
    strPeople = ""
    strPeople = strPeople & vbTab & "Shane Schick"
    strPeople = strPeople & vbTab & "Chris Greaves"
    strPeople = strPeople & vbTab & "David Webb"
    strPeople = strPeople & vbTab & "Cathy Nesbitt"
    strPeople = strPeople & vbTab & "Mona Albano"
    strPeople = strPeople & vbTab & "Brendon Cowans"
    strPeople = strPeople & vbTab & "Karen Granville"
    strPeople = strPeople & vbTab & "Carole St. Laurent"
'    strPerson = InputBox("Please type a person's name", "PrintProfile")
    While Len(strPeople) > 0
        Dim strPerson As String
        strPerson = strsplitat(strPeople, vbTab)
        If Len(strPerson) > 0 Then
            Call LocatePerson(strPerson, ie, os)
        Else
        End If
    Wend
    ie.Quit
    MsgBox "Done!"
End Sub

The apparent 100% success rate in the video is largely due to my contacts list; mine are very much a face-to-face business relationships, so most of my contacts are within, say, 50Km of postal code "M9C 2A6", and I suspect that LinkedIn arranges hits to be close to me.
Were I doing business across the globe, the proof-of-concept might not be so good.