بلوك المسنجر

مرحبا ..

البرنامج هذا قديم وليس جديد ولكن ليس بالبرنامج العملي ..:)

يعتمد هذا البرنامج في كشف البلوك على رقم الموبايل في البروفايل الخاص باللي عمل البلوك ...

ففي حل قام هذا الشخص بعمل بلوك فلن يظهر لك رقم موبايله وسيختفي من البروفايل الخاص به ..

والبرنامج يقسم المضافين عندك في المسينجر الى قسمين :

القسم الاول : وهم الذين وضعوا رقم موبايل وبالتالي يمكن كشف ما اذا عملوا بلوك لك ...

وهؤلاء تجدهم تحت مسمى : Detectable

والقسم الثاني : وهم الذين لم يضعوا رقم موبايل وهؤلاء لا يمكن للبرنامج ان يكشف اذا عملوا لك بلوك او لاء أبدا ..

وهؤلاء تجدهم تحت مسمى : Undetectable

اذا البرنامج غير مكتمل ولا يكشف البلوك الا لمن وضع رقم موبايله فقط ... :)

وهذا هو الكود الخاص بالبرنامج حتى يتضح الأمر اكثر :

Private Sub Command1_Click()

TvList.Nodes.Clear

TvList.Nodes.Add , , "Blocked", "Blocked"

TvList.Nodes.Add , , "Yes", "Detectable"

TvList.Nodes.Add , , "No", "Undetectable"

For i = 1 To 3

    TvList.Nodes(i).Expanded = True

    TvList.Nodes(i).ForeColor = &HC0C0C0

    TvList.Nodes(i).Bold = True

Next i

'************ New ^ *****

Dim TmpUser As MessengerAPI.IMessengerContact

Dim Phone As String

For i = 0 To Users.Count - 1

    Set TmpUser = Users.Item(i)

    Phone = ""

    On Error Resume Next

    Phone = TmpUser.PhoneNumber(MPHONE_TYPE_HOME)

    Phone = Phone & TmpUser.PhoneNumber(MPHONE_TYPE_MOBILE)

    Phone = Phone & TmpUser.PhoneNumber(MPHONE_TYPE_WORK)

    If Phone <> "" Then

        SaveSetting App.Title, "PhoneList", TmpUser.SigninName, 1

        Select Case TmpUser.Status

            Case MISTATUS_OFFLINE

                'Phone, offline

                TvList.Nodes.Add "Yes", tvwChild, TmpUser.SigninName,

 TmpUser.FriendlyName, 3

            Case Else

                'Phone, online

                TvList.Nodes.Add "Yes", tvwChild, TmpUser.SigninName, 

TmpUser.FriendlyName, 2

        End Select

    ElseIf TmpUser.Status <> MISTATUS_OFFLINE Then

        'No phone, online

        DeleteSetting App.Title, "PhoneList", TmpUser.SigninName

        TvList.Nodes.Add "No", tvwChild, TmpUser.SigninName,

 TmpUser.FriendlyName, 2

    Else

        If GetSetting(App.Title, "PhoneList", TmpUser.SigninName, 0) = 1

 Then

            'Blocked

            TvList.Nodes.Add "Blocked", tvwChild, TmpUser.SigninName,

 TmpUser.FriendlyName, 1

        Else

            'No phone, Just offline

            TvList.Nodes.Add "No", tvwChild, TmpUser.SigninName,

 TmpUser.FriendlyName, 3

        End If

    End If

Next i

End Sub

هناك طرق خبيثه لكشف البلوك وأهم من ذلك هناك سكربتات ترسلها الى الذي وضع لك البلوك فتقوم بإزالته عنك بدون ان يشعر .. ;)

انتشرت في قنوات الميرك وخاصة قناة هكر كاليفورنيا منذ شهر تقريبا وتم اقفال القناة بطلب رسمي من ما يكروسوفت ..

و مثل هذه الامور لا يمكن نشرها ابدا ولا يفضل نشرها لأنها تعدي على الخصوصية بشكل واضح ...

آسف للإطالة ..

لاااااااااااااااه :'( :'(