Автоматизируйте "Правый клик" и "Сохранить объект как" в VB

Я работаю над программой для загрузки счетов, которая будет автоматически переходить на веб-страницу с помощью объекта веб-браузера, входить в нее, переходить на страницу счетов и загружать самые последние счета.

Все работает хорошо до тех пор, пока я на самом деле не скачиваю его, так как использование кода invokemember("click") запускает IE и просит меня войти снова, что я не хочу делать. Метод DownloadFile также не работает и загружает файл, в котором говорится, что объект был перемещен по URL-адресу входа.

Правый щелчок и выбор "сохранить цель как" в веб-браузере работает, но я не уверен, как автоматизировать его.

Изменить: Вот код для части загрузки, его части были заимствованы из другого вопроса здесь, но я не могу вспомнить, кто или где.

Dim IsRightElement As Boolean = False

    For Each curElement As HtmlElement In Browser.Document.Links()

        If curElement.GetAttribute("InnerText") = "Download Call Charges" Then
            IsRightElement = True
        End If

        If IsRightElement Then

            Dim Link As String = curElement.DomElement.href.ToString()

            'This is where I'm stuck
            'My.Computer.Network.DownloadFile(Link, "C:\Users\user\Desktop\PhoneBill.csv", "<username>", "<password>")
            'The above does not work

            'curElement.InvokeMember("contextmenu")
            'Not sure what to do here



            IsRightElement = False
            Exit For
        End If

    Next
    Me.Close()

0 ответов

Другие вопросы по тегам