Private Assert As New Assert
Private bot As New selenium.ChromeDriver

Sub Taxi()
Dim keys As New selenium.keys
Dim TextLine$, PathFileName$
Dim i As Long
Dim URL As String
Dim URLrev As String


bot.SetPreference "download.default_directory", "c:\temp"
bot.SetPreference "download.directory_upgrade", True
bot.SetPreference "download.prompt_for_download", False
bot.SetPreference "safebrowsing.enabled", True
bot.SetPreference "plugins.plugins_disabled", Array("Chrome PDF Viewer")

bot.Start "Chrome"
URL = "https://САЙТБЛАБЛАМЭРАБЛАБЛАМОСКВЫ/altmosmvc/api/v1/taxi/getInfo/?Region=&RegNum=&FullName=&LicenseNum=&Condition=&pagenumber="

For i = 3 To 10

URLrev = URL & i

bot.get URLrev
bot.Refresh
'bot.SendKeys keys.Control & "a"

s = bot.FindElementByTag("body").Text
'Debug.Print s

    PathFileName = "C:\Users\S_M\Desktop\mosru\page" & i & ".json"
    TextLine = s
    Open PathFileName For Output As #1
    Print #1, TextLine
    Close #1
bot.Wait "2000"
Next

End Sub

Private Declare PtrSafe Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare PtrSafe Function FindWindowEx& Lib "user32" _
Alias "FindWindowExA" (ByVal hWndParent As Long, ByVal hwndChildAfter As Long, ByVal lpClassName As String, ByVal lpWindowName As String)
 
Private Declare PtrSafe Function SendMessage Lib "user32.dll" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByRef lParam As Any) As Long
Private Declare PtrSafe Function PostMessage Lib "user32.dll" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
 
Private Declare PtrSafe Function apiShowWindow Lib "user32" Alias "ShowWindow" _
            (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
            
Private Declare PtrSafe Function GetDlgItem Lib "user32" (ByVal hDlg As Integer, ByVal nIDDlgItem As Integer) As Integer
Private Declare PtrSafe Function SetForegroundWindow Lib "user32" (ByVal hwnd As LongPtr) As Boolean
Public Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As LongPtr)
Private Declare PtrSafe Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)

Private Const WM_SETTEXT = &HC  'константа изменения текста
Private Const BM_CLICK = &HF5  'константа нажатие кнопки
Const VK_J = &H4A  'J
Const VK_CONTROL = &H11 'Ctrl
Const WM_KEYDOWN As Long = &H100


Sub Taxi()

Set IE = CreateObject("InternetExplorer.Application"):   
    
     On Error Resume Next
    addr$ = "https://САЙТБЛАБЛАМЭРАБЛАБЛАМОСКВЫ/altmosmvc/api/v1/taxi/getInfo/?Region=&RegNum=&FullName=&LicenseNum=&Condition=&pagenumber=1"   

    IE.navigate addr$    ' загружаем сайт
     While IE.Busy Or (IE.readyState <> 4): DoEvents: Wend  

'тут все потерто потому что все опробованное не работает ^_^
End Sub