الإعــلام الآلي والرياضيــات يشتمل على جميع مبادئ الإعلام الآلي والرياضيــات

إضافة رد
قديم 11-02-2009, 04:05 PM
  #1
achraf.mouni
مشرف قسم
الكمبيوتر وتطوير المواقع والانترنت
مشرف قسم
الرياضيات والإعلام الآلي
 الصورة الرمزية achraf.mouni
 
تاريخ التسجيل: 08-09-2008
الدولة: الجزائر
المشاركات: 2,439
achraf.mouni عضو محترف الابداعachraf.mouni عضو محترف الابداعachraf.mouni عضو محترف الابداعachraf.mouni عضو محترف الابداعachraf.mouni عضو محترف الابداعachraf.mouni عضو محترف الابداعachraf.mouni عضو محترف الابداعachraf.mouni عضو محترف الابداعachraf.mouni عضو محترف الابداعachraf.mouni عضو محترف الابداعachraf.mouni عضو محترف الابداع
12 تحكم في skype عن طريق ال vb6


السلام عليكم ورحمة الله وبركاته

في البداية يجب علينا أولا أن نحمل تغليف الدوال التي تتحكم ببرنامج المحادثة المشهور skype وهذا التغليف يتمثل في المرجع الموجود في الملف Skype4com.dll والذي يوفر لنا تحكم كامل بالبرنامج من داخل الvb6

يمكنكم تحميله من الرابط

إدراج المرجع إلى المشروع:

بعد تحميل الملف Skype4com.dll نفتح مشروع جديد على الvb6 ونقوم باضافة مرجع المكتبة الموجودة بالملف Skype4com.dll كما في الصورة التالية:




البدء بالتحكم :
الآن يمكننا انشاء كائن جديد يتحكم ببرنامج الskype انطلاقا من الفئة Skype التي توفرت لنا بعد اضافة المرجع المذكور سابقا


كود PHP:
كود:
Public oSkype As New Skype


الآن يمكننا تشغيل الskype باستخدام الكود التالي :

كود PHP:
If Not oSkype.Client.IsRunning Then
oSkype
.Client.Start
End
If



لكي نتمكن من عرض معلومات حسابنا نكتب


كود PHP:
كود:
oSkype.Client.OpenDialog ("PROFILE")




عند أول تشغيل أول استخدام لدوال الAPI الخاصة بالskype يتم عرض نافذة تحذيرية



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

جلب قائمة الأصدقاء :
نضيف ListBox للمشروع ونقوم بكتابة هذا الكود

كود PHP:
كود:
Dim oFriend As User
List1.Clear
For Each oFriend In oSkype.Friends
 List1.AddItem oFriend.Handle
Next

جلب معلومات الأصدقاء:

بعد أن أضفنا ليست تحوي قائمة الأصدقاء نقوم بجلب المعلومات الأساسية للأصدقاء الموجودين بالقائمة في 5 Labels




كود PHP:
كود:
Private Sub List1_Click()
On Error Resume Next
 Dim i As Integer
 If List1.ListIndex >= 0 Then
   i = List1.ListIndex + 1
   Label1.Caption = oSkype.Friends(i).FullName
   Label2.Caption = oSkype.Friends(i).Birthday
   Label3.Caption = oSkype.Friends(i).About
   Label4.Caption = oSkype.Friends(i).RichMoodText
   Label5.Caption = oSkype.Friends(i).OnlineStatus
 End If
End Sub

البحث عن جهات اتصال (أصدقاء):

نضيف ListBox أخرة وصندوق نص لكي يتم كتابة الاسم المراد البحث عنه ويتم اضافة الناتج داخل الليست بوكس

كود PHP:
كود:
List2.Clear
  If Text1 <> "" Then
      Set ucContacts = oSkype.SearchForUsers(Text1)
      For Each uContact In ucContacts
        List2.AddItem uContact.Handle & "--" & uContact.Country & "--" & uContact.FullName
      Next
End If


اضافة جهة اتصال إلى قائمة الأصدقاء:
بعمل double Click على قائمة البحث الموجودة في الليست بوكس يمكننا اضافة جهة اتصال في القائمة باسناد القيمة budPendingAuthorization للخاصية BuddyStatus للكائن المعبر عن جهة الاتصال والدي يكون من النوع User
كود PHP:
كود:
Dim uContact As User
If lstContacts.ListIndex >= 0 Then
    Set uContact = ucContacts(List2.ListIndex + 1)
    If Not uContact Is Nothing Then
      If MsgBox("Ajout de : " & uContact.Handle, vbYesNo) = vbYes Then
          uContact.BuddyStatus = budPendingAuthorization
      End If
    End If
End If


حذف جهة اتصال :

هنا أصبحت جهة الاتصال عبارة عن صديق داخل القائمة ولقد رأينا كيف نجلب قائمة الأصدقاء
ولحذف صديق من القائمة نسند للكائن الممثل للصديق القيمة budDeletedFriend بعد تحديده طبعا
كود PHP:
كود:
 If List1.ListIndex >= 0 Then
   i = List1.ListIndex + 1
   oSkype.Friends(i).BuddyStatus = budDeletedFriend
End If


تحديد البرنامج :

كود PHP:
كود:
 oSkype.Client.Focus



الإخفاء:

كود PHP:
كود:
oSkype.Client.Minimize

التحكم بالأحداث :

التحكم بالأحداث ليس متاحا إلا اذا عرفنا الكائن الذي يتحكم بالبرنامج من أجل استغلال الأحداث الموجودة به


كود PHP:
كود:
Public WithEvents oSkype As Skype


بذلك فقط يمكننا الوصول للأحداث المشروحة في الرابط
https://developer.skype.com/Docs/Sky...b/ISkypeEvents

يجب أن نربط الآن الكائن ببرنامجنا لاستقبال أحداثه
كود PHP:
كود:
Private Sub Form_Load()
Set oSkype = New Skype
oSkype.Attach
End Sub


تحميل الامثلة من المصدر : Developez.com
المثال الاول :
المثال الثاني


achraf.mouni غير متواجد حالياً  
رد مع اقتباس
إضافة رد

الكلمات الدلالية (Tags)
تحكم, skype, طريق

أدوات الموضوع
انواع عرض الموضوع

تعليمات المشاركة
لا تستطيع إضافة مواضيع جديدة
لا تستطيع الرد على المواضيع
لا تستطيع إرفاق ملفات
لا تستطيع تعديل مشاركاتك

BB code is متاحة
كود [IMG] متاحة
كود HTML معطلة

الانتقال السريع

المواضيع المتشابهه
الموضوع كاتب الموضوع المنتدى مشاركات آخر مشاركة
لا تحكم على الناس من ظاهرهم khensa منتدى عام 4 23-10-2010 02:51 PM
تحكم في ملف من نوع pdf zourou تبادل الخبرات في مجال الحاسب 3 01-07-2010 09:35 PM
{نقاش}

هل تحكم على الشخص من ملابسه.....؟؟؟؟؟
محمد مين النقاش الجاد 9 22-06-2010 07:20 PM
جهاز تحكم الصمام dua'a المنتدى الهندسي العام 5 23-09-2009 03:36 AM
تحكم في موبايلك من كمبيوترك achraf.mouni منتدى البرامج العام 4 22-01-2009 01:17 PM


الساعة الآن 01:36 AM.