Question

我正在开发一个下载账单的程序，该程序将使用Web浏览器对象自动导航到网页，登录，导航到Bills页面并下载最新的账单。

这一切都很好，直到我实际下载它，因为使用invokemember（＆＃34;点击＆＃34;）代码激活IE并要求我再次登录，这不是我想要做的。 DownloadFile方法也不起作用，并下载一个文件，说明该对象已被移动到登录URL。

右键单击并选择＆＃34;将目标保存为＆＃34;从网络浏览器的工作，但我不知道如何自动化它。

编辑：这里是下载部分的代码，部分内容是从这里的另一个问题借来的，但我不记得是谁或在哪里。

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()

自动化＆＃39;右键点击＆＃39;并且＆＃39;将目标另存为＆＃39;在VB中

0 个答案: