Прошу помощи или хотя бы промытия мозгов 
Задача обычная - автоматизировать скачку файлов через IE (всякие протокольные способы обращения к сайту на данный момент не подходят, надо именно поломать голову и заставить браузер сохранить файлы). Все упирается во всплывающее окно view and track your files которое не внемлет всем моим попыткам до него достучаться
Выкурено много иностранных форумов, но все мои не очень умелые попытки добраться до хэндлов 32770 и DirectUIHWND и передать туда какой-нибудь sendkeys ни к чему не приводят.
Просьба к знающим форумянам - подскажите, это вообще возможно?
Пробую заменить IE на какой нибудь хром, вызванный через Shell, - просто открывает нужный джсон в виде текста на странице, безо всяких Открыть/Сохранить и теоретически если передать туда ctrl-s и имя файла то все бы сильно упростилось. Но тоже не получается...
К вопросу о протокольных методов добраться до файла... я попробовала, но какие бы заголовки не пытаться туда передать, что через PQ, что через макрос, результат один - доступ запрещен или 403
Задача обычная - автоматизировать скачку файлов через IE (всякие протокольные способы обращения к сайту на данный момент не подходят, надо именно поломать голову и заставить браузер сохранить файлы). Все упирается во всплывающее окно view and track your files которое не внемлет всем моим попыткам до него достучаться
Выкурено много иностранных форумов, но все мои не очень умелые попытки добраться до хэндлов 32770 и DirectUIHWND и передать туда какой-нибудь sendkeys ни к чему не приводят.
Просьба к знающим форумянам - подскажите, это вообще возможно?
Пробую заменить IE на какой нибудь хром, вызванный через Shell, - просто открывает нужный джсон в виде текста на странице, безо всяких Открыть/Сохранить и теоретически если передать туда ctrl-s и имя файла то все бы сильно упростилось. Но тоже не получается...
К вопросу о протокольных методов добраться до файла... я попробовала, но какие бы заголовки не пытаться туда передать, что через PQ, что через макрос, результат один - доступ запрещен или 403
| Код |
|---|
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 |
Изменено: - 26.08.2021 00:09:17
