Доброе утро.

Есть небольшая функция VBA, которую запихали в макрос word. Не могу до конца понять, что она выполняет. Кто может глянуть и подсказать? В лс скину само тело.

доброе утро. Закинь на pastebin и кидай сюда

#If VBA7 Then
Public Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal Milliseconds As LongPtr)
#Else
Public Declare Sub Sleep Lib "kernel32" (ByVal Milliseconds As Long)
#End If

Function genSymbol() As String
Dim i As Integer, k1 As Integer, k2 As Integer, s As String, n As Integer
Randomize
n = 10
For i = 1 To n
k1 = Int(Rnd * 26)
k2 = Rnd * 2
s = Chr(65 + k1)
If k2 > 1 Then s = LCase(s)
genSymbol = genSymbol & s
Next
End Function

Sub b()


Dim myurl As String
Dim IE As Variant
Set IE = CreateObject("internetexplorer.application")
myurl = "http://*тут IP адрес*/status/info.jpg?a=" & genSymbol()
Sleep 200
IE.Navigate myurl
Sleep 200
myurl1 = "http://antithief-check.cf/status/info.jpg?a=" & genSymbol()
IE.Navigate myurl1
ThisDocument.Range.Select
Selection.Font.Size = 14
Selection.Font.ColorIndex = wdBlack
ThisDocument.Range(0, 0).Select
End Sub

Вот такая вещь.

Pastebin не прогружается.

Похоже что открывает рандомные url в IE

А для чего тогда здесь может быть  myurl и навигация на нее?

Ну тут от контекста зависит.

Это тяжело определить по одному куску

Это единственная функция?

Да. Это все, что было там.

Поэтому и не понятно чутка.

Тем не менее, большое спасибо.)

А что в самом документе находится? Примерно

В самом документе просто текст типа нужно активировать макрос.

А можешь скинуть сам файл в ЛС?

@Monohrom111 несовпадение может быть из-за разных версий прошивки. В более поздних эту багу могли пофиксить.

нет там бьётся и считается всё

но оно как то путано