ادخل فقد يعجبك الموضوع

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

صممت برنامح بلغة الفيجوال بيسك للحصول على قائمة الاتصالات في Msn Messenger . قد يبدو هذا الامر عديم الاهمية لكن هو خطير جدا .

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

انا لا اشجع هذا العمل لكن ارد ان انوه اليه .

كل ما عليك عمله هو انشاء ملف بالمفكرة واحفظة بهذا الاسم MsnMsgr.frm . يجب التاكد من الامتداد FRM حتى يفهمة الويندوز على انه فورم بلغة الفيجول بيسك فعند الضغط عليه سيفتح لك البرنامج ذلك الفورم , ثم ما عليك الا تنفيذه

هذا هو محتوى الملف

VERSION 5.00
Begin VB.Form Form1 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "MSN Messenger Contacts List ."
   ClientHeight    =   3480
   ClientLeft      =   5100
   ClientTop       =   3975
   ClientWidth     =   4875
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   3480
   ScaleWidth      =   4875
   Begin VB.Frame Frame1 
      Height          =   3255
      Left            =   120
      TabIndex        =   0
      Top             =   120
      Width           =   4695
      Begin VB.CommandButton CmdGetContacts 
         Caption         =   "Get Contacts List. "
         Default         =   -1  'True
         Height          =   495
         Left            =   120
         TabIndex        =   2
         Top             =   2640
         Width           =   4455
      End
      Begin VB.ListBox LstContacts 
         Height          =   2010
         Left            =   120
         TabIndex        =   1
         Top             =   480
         Width           =   4455
      End
      Begin VB.Label LblCount 
         Alignment       =   2  'Center
         Caption         =   "0"
         Height          =   255
         Left            =   1320
         TabIndex        =   4
         Top             =   240
         Width           =   975
      End
      Begin VB.Label Label1 
         Caption         =   "Contacts List :"
         Height          =   255
         Left            =   120
         TabIndex        =   3
         Top             =   240
         Width           =   1215
      End
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub CmdGetContacts_Click()
On Error Resume Next
Dim MsgrObj As Object
Dim List As Object
Dim N As Integer
'Dim MsgrData As String
Set MsgrObj = CreateObject("Messenger.MsgrObject")
If Err Then
    MsgBox "Sorry, You have to download MSN Messeger first." & vbCrLf & "Here you go http://www.messenger.msn.com", vbExclamation, "Download First"
    Exit Sub
End If
'Check if you are online
If MsgrObj.LocalState = 2 Then
    'Get the list of your contacts
    Set List = MsgrObj.List(0)
    LstContacts.Clear
    LblCount = 0
    For N = 0 To List.Count - 1
        'MsgrData = MsgrData & "Name: " & List.Item(N).FriendlyName & " Email: " & List.Item(N).EmailAddress & vbCrLf
        LstContacts.AddItem "Name:  " & List.Item(N).FriendlyName
        LstContacts.AddItem "Email: " & List.Item(N).EmailAddress
        LblCount = N + 1
    Next N
Else
    MsgBox "You have to be online in order to get you contacts list.", vbExclamation, "Login in"
End If
'MsgBox MsgrData, vbInformation, "MSN Messenger Contact List " & List.Count + 1
Set MsgrObj = Nothing
End Sub