Hoofd Navigatie

Kies je taal

U bevindt zich hier:

ActiveXperts-nl.com > Twitter Toolkit

quicklinks

Download Free Trial (6588 KB - .exe file)
Download Manual (168 KB - .htm file)

Add Twitter capabilities to your Windows or web applications

De ActiveXperts Twitter Toolkit biedt Windows en web ontwikkelaars de mogelijkheid om Twitter functionaliteit in de applicatie. Your application will be able to send Tweets as well as view different time lines, find and follow users etc.


Opstartscherm na installatie	Gebruik de Toolkit met MS Visual Studio	Twitter Toolkit in een web applicatie	Twitter Toolkit in 'n .NET forms app	Twitter Toolkit in een console appl

ActiveXperts Twitter Toolkit kenmerken:

Post uw Tweets op Twitter d.m.v. uw eigen geschreven software
Eenvoudig bladeren door uw eigen Tweets of door de Tweets op een andere tijdslijn
Eenvoudig bladeren door vrienden en volgers
Integreer OAuth (Open Authorization) ondersteunt beide Client en Web use cases
Authenticatie van gebruikers in slechts een of twee API calls
Toegang tot alle functies die publiekelijk zijn in via Twitters' RES interface
ActiveXperts Twitter Toolkit is een ActiveX/COM component, welke geintegreerd kan worden in elke denkbeeldige Windows ontwikkel omgeving

Systeem vereisten

ActiveXperts Twitter Toolkit is besschikbaar als een 32-bit component en als een 64-bit component (beiden zijn standaard onderdeel van het product):

twitter-component.dll - 32-bit component;
twitter-component64.dll - 64-bit component.

ActiveXperts Twitter Toolkit kan gebruikt worden binnen de volgende besturingssystemen:

Windows 2008 (32 en 64 bit);
Windows 2003 (32en 64 bit);
Windows 2000 Server en Professional (alleen 32 bit);
Windows 7 (32 en 64 bit);
Windows Vista (32 en 64 bit);
Windows XP (32 en 64 bit).

Code snippets

Voor de meeste van deze voorbeelden heeft u een consumer key en een access key nodig. Gebruik deze wizard om een consumer key en een access key te verkrijgen.

Het volgende voorbeeld laat zien hoe OAuth authorisatie werkt voor een applicatie die Twitter Toolkit gebruikt.

  Option Explicit

  Dim objTwitter, objIE
  Dim strUrl, strVerify

  ' Create the twitter object
  Set objTwitter = CreateObject( "ActiveXperts.Twitter" )

  ' Set the consumer key
  objTwitter.ConsumerKey = "..................."
  objTwitter.ConsumerSecret = ".........................................."

  ' Request an authorization URL
  strUrl = objTwitter.RequestAuthorization 
  TestSuccess

  ' Navigate to the Authorization URL
  Navigate strUrl

  ' While on the Authorization URL, ask the user to input the verification code
  strVerify = inputbox( "Enter verification code", "Enter value", "" )

  ' Trade the verify token with an access token
  objTwitter.RequestAccessToken strVerify
  TestSuccess

  ' Tweet about our success !
  objTwitter.Tweet "I'm Tweeting with ActiveXperts Twitter Toolkit !"
  TestSuccess

  ' Print the access token so it can be used again.
  WScript.Echo "Access token: " & objTwitter.AccessToken
  WScript.Echo "Access token secret: " & objTwitter.AccessTokenSecret

  ' *************************************************************************************

  ' Navigateer naar een specifiieke URL
  Function Navigate( strUrl )
    Set objIE = CreateObject("InternetExplorer.Application")
    
    objIE.Navigate strUrl 
    objIE.Visible = 1

    Do While objIE.Busy
    Loop
  End Function

  ' Test if a function call on the Twitter Toolkit object succeeded
  Function TestSuccess()
    Dim strDescription
    
    If objTwitter.LastError <> 0 Then
      strDescription = objTwitter.GetErrorDescription(objTwitter.LastError)
      WScript.Echo "Failed, error: " & objTwitter.LastError & "; " & strDescription
      WScript.Quit 1
    End If
  End Function

Laat je home time-line zien

  Option Explicit    
    
  Dim objTwitter, objTweet, objUser

  ' Create the twitter object
  Set objTwitter = CreateObject( "ActiveXperts.Twitter" )

  ' Set the consumer key
  objTwitter.ConsumerKey = "..................."
  objTwitter.ConsumerSecret = ".........................................."

  ' Set the user key
  objTwitter.AccessToken = ".................................................."
  objTwitter.AccessTokenSecret = ".........................................."

  ' List tweets and the users who posted them
  ' The tweets are from a specific time-line. The following time-lines are possible:
  ' "public", "home", "friends", "mentions", "retweeted_by_me", "retweeted_to_me", 
  ' "retweeted_of_me" or either a user id or screen name
  Set objTweet = objTwitter.FindFirstTweet("home")
  While objTwitter.LastError = 0
    WScript.Echo "Id: " & objTweet.Id
    WScript.Echo "Created at: " & objTweet.CreatedAt
    WScript.Echo "Text: " & objTweet.Text
    WScript.Echo "Source: " & objTweet.Source
    Set objUser = objTweet.User
    WScript.Echo "By:"
    WScript.Echo vbTab & "Id: " & objUser.Id
    WScript.Echo vbTab & "Created at: " & objUser.CreatedAt
    WScript.Echo vbTab & "Name: " & objUser.Name
    WScript.Echo vbTab & "Screen name: " & objUser.ScreenName
    WScript.Echo vbTab & "Location: " & objUser.Location
    WScript.Echo vbTab & "Description: " & objUser.Description
    WScript.Echo vbTab & "Profile image: " & objUser.ProfileImage
    WScript.Echo vbTab & "URL: " & objUser.URL
    WScript.Echo vbTab & "Protected: " & objUser.Protected
    WScript.Echo vbTab & "Followers: " & objUser.NumFollowers
    WScript.Echo vbTab & "Friends: " & objUser.NumFriends
    WScript.Echo vbTab & "Tweets: " & objUser.NumTweets  
    Set objTweet = objTwitter.FindNextTweet
  WEnd

List je volgers

  Option Explicit

  Dim objTwitter, objStatus, objUser

  ' Create the twitter object
  Set objTwitter = CreateObject( "ActiveXperts.Twitter" )

  ' Set the consumer key
  objTwitter.ConsumerKey = "..................."
  objTwitter.ConsumerSecret = ".........................................."

  ' Set the user key
  objTwitter.AccessToken = ".................................................."
  objTwitter.AccessTokenSecret = ".........................................."

  ' Get all of your followers
  Set objUser = objTwitter.FindFirstFollower
  While objTwitter.LastError = 0
    WScript.Echo "--"
    WScript.Echo "Id: " & objUser.Id
    WScript.Echo "Created at: " & objUser.CreatedAt
    WScript.Echo "Name: " & objUser.Name
    WScript.Echo "Screen name: " & objUser.ScreenName
    WScript.Echo "Location: " & objUser.Location
    WScript.Echo "Description: " & objUser.Description
    WScript.Echo "Profile image: " & objUser.ProfileImage
    WScript.Echo "URL: " & objUser.URL
    WScript.Echo "Protected: " & objUser.Protected
    WScript.Echo "Followers: " & objUser.NumFollowers
    WScript.Echo "Friends: " & objUser.NumFriends
    WScript.Echo "Tweets: " & objUser.NumTweets
    Set objUser = objTwitter.FindNextUser
  Wend

Maak een API call

  Option Explicit

  Dim objTwitter, objXML, objNodeList, strResult, i

  ' Create the twitter object and an XMLDOM object
  Set objTwitter = CreateObject( "ActiveXperts.Twitter" )
  Set objXML = CreateObject( "Microsoft.XMLDOM" )

  ' Set the consumer key
  objTwitter.ConsumerKey = "..................."
  objTwitter.ConsumerSecret = ".........................................."

  ' Set the user key
  objTwitter.AccessToken = ".................................................."
  objTwitter.AccessTokenSecret = ".........................................."

  ' Make a custom API call
  strResult = objTwitter.APICall("statuses/home_timeline", "xml")

  ' Display the results
  objXML.LoadXML(strResult)
  Set objNodeList = objXML.selectNodes("//statuses/status/text")
  For i = 0 To objNodeList.length
    WScript.Echo objNodeList(i).text
  Next

Footer Navigatie

Contact
Gebruiksvoorwaarden
Privacy Policy