Автоматизируйте "Правый клик" и "Сохранить объект как" в 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()