الخميس، 20 أكتوبر 2011

تويتر على الفيجوال بيسك

لا شك في أن تويتر الآن أحد أهم أدوات الإنترنت واصبحت الوسيلة الاولى تقريباً لنقل الاخبار والاحداث وهي المصدر الاسرع للاخبار العاجلة
لا اتحدث اليوم عن تويتر كشبكة اجتماعية انما اعرض للمبرمجين طريقة استخدام TwitterVB.dll في برامجهم .
  1. تنزيل الملف TwitterVB-2.5
  2. اضافة المكتبة Add a reference .
  3. إضافة الأسطر التالية إلى مشروعك .
    Imports TwitterVB2
  4. الآن عليك ان تأخذ تصريح عن طريق حساب تويتر الخاص بالمستخدم حتى يستطيع تطبيقك من استخدام حسابه لذا عليك ان تسجل تطبيقك ضمن تطبيقات تويتر من هنا
    http://twitter.com/oauth_clients
    أو للمساعدة http://twittervb.codeplex.com/wikipage?title=XAuth&referringTitle=Documentation
  5. بعد الإنتهاء من التسجيل ستحصل على متغيران the consumer key و the consumer secret
  6. الآن لديك المتغيران وعن طريقهما سيقوم المستخدم باعطاء التصريح للتطبيق لكي يستخدم حساب التويتر الخاص به لذا عليك برمجياً ان تقوم بحفظهما سواء في الـ app settings او ملف تكست او قاعدة بيانات لك حرية الإختيار .
    قم بإضافة التالي في منطقة التصاريح العامة general declaration area وقم بتعريف مغير واحد فقط للـ twitter lib

    Dim Twitter As New TwitterVB2.TwitterAPI
    ثم
    Url = Twitter.GetAuthorizationLink(ConsumerKey, ConsumerSecret)

  7. ستحصل على الـ PIN الذي سيستخدم أيضاً للحصول على متغيران المستخدمان للتسجيل في تويتر عن طريق التطبيق

    Dim Isvalid As Boolean = Twitter.ValidatePIN(TwPIN)
    If Isvalid Then
    Token = Twitter.OAuth_Token
    TokenSecret = Twitter.OAuth_TokenSecret
    End If

    سيتم حفظهما كمان حدث مع المتغيران السابقين حيث انه عند التسجيل على تويتر كل مرة يتم استخدام الاربع متغيرات
    • Consumer
    • Consumer secret
    • Token
    • Token Secret
لآن حان وقت الإستمتاع بارسال واستقبال التويتات

  • الإرسال

Twitter.AuthenticateWith(ConsumerKey, ConsumerSecret, Token, TokenSecret)
Twitter.Update("Hello World")

  • قراءة التويتات على الـ Wall

Public Function ReadMsgs(ByVal User As String) As String
Dim TwMsgs As String
Twitter.AuthenticateWith(ConsumerKey, ConsumerSecret, Token, TokenSecret)

For Each tweet As TwitterStatus In Twitter.HomeTimeline
TwMsgs = TwMsgs & tweet.User.ScreenName & " : " & tweet.Text
Next

Return TwMsgs
End Function

استمتعوا ببرمجة تويتر واتمنى ان نرى تطبيقات جديدة ومبتكرة حيث ان تويتر مفتوح المصدر ونستطيع ملاحظة الكثير من التطبيقات الناجحة المبنية في الاساس على تويتر كمصدر مفتوح .

هناك تعليق واحد:

  1. يعطيك العافيه على العمل الاكثر من رائع

    عندي سؤال اذا ممكن

    هل نستطيع عمل كود بالفيجوال بيسك لجلب اسعار العملات والبترول والمعادن كالذهب والفضة في برنامج خاص لاجراء عمليات حسابية على هذه الاسعار

    ردحذف