لا شك في أن تويتر الآن أحد أهم أدوات الإنترنت واصبحت الوسيلة الاولى تقريباً لنقل الاخبار والاحداث وهي المصدر الاسرع للاخبار العاجلة
لا اتحدث اليوم عن تويتر كشبكة اجتماعية انما اعرض للمبرمجين طريقة استخدام TwitterVB.dll في برامجهم .
Twitter.AuthenticateWith(ConsumerKey, ConsumerSecret, Token, TokenSecret)
Twitter.Update("Hello World")
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
استمتعوا ببرمجة تويتر واتمنى ان نرى تطبيقات جديدة ومبتكرة حيث ان تويتر مفتوح المصدر ونستطيع ملاحظة الكثير من التطبيقات الناجحة المبنية في الاساس على تويتر كمصدر مفتوح .
لا اتحدث اليوم عن تويتر كشبكة اجتماعية انما اعرض للمبرمجين طريقة استخدام TwitterVB.dll في برامجهم .
- تنزيل الملف TwitterVB-2.5
- اضافة المكتبة Add a reference .
- إضافة الأسطر التالية إلى مشروعك .
Imports TwitterVB2 - الآن عليك ان تأخذ تصريح عن طريق حساب تويتر الخاص بالمستخدم حتى يستطيع تطبيقك من استخدام حسابه لذا عليك ان تسجل تطبيقك ضمن تطبيقات تويتر من هنا
http://twitter.com/oauth_clients
أو للمساعدة http://twittervb.codeplex.com/wikipage?title=XAuth&referringTitle=Documentation - بعد الإنتهاء من التسجيل ستحصل على متغيران the consumer key و the consumer secret
- الآن لديك المتغيران وعن طريقهما سيقوم المستخدم باعطاء التصريح للتطبيق لكي يستخدم حساب التويتر الخاص به لذا عليك برمجياً ان تقوم بحفظهما سواء في الـ app settings او ملف تكست او قاعدة بيانات لك حرية الإختيار .
قم بإضافة التالي في منطقة التصاريح العامة general declaration area وقم بتعريف مغير واحد فقط للـ twitter lib
Dim Twitter As New TwitterVB2.TwitterAPI
ثم
Url = Twitter.GetAuthorizationLink(ConsumerKey, ConsumerSecret) - ستحصل على الـ 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
استمتعوا ببرمجة تويتر واتمنى ان نرى تطبيقات جديدة ومبتكرة حيث ان تويتر مفتوح المصدر ونستطيع ملاحظة الكثير من التطبيقات الناجحة المبنية في الاساس على تويتر كمصدر مفتوح .
يعطيك العافيه على العمل الاكثر من رائع
ردحذفعندي سؤال اذا ممكن
هل نستطيع عمل كود بالفيجوال بيسك لجلب اسعار العملات والبترول والمعادن كالذهب والفضة في برنامج خاص لاجراء عمليات حسابية على هذه الاسعار