0

我有以下代码。

Private Sub WebBrowser1_DocumentCompleted(sender As Object, e As WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
Do
    For i As Integer = 0 To Me.WebBrowser1.Document.Links.Count - 1
        If Me.WebBrowser1.Document.Links(i).InnerHtml.StartsWith("APX Power UK RPD historical data") Then
            Dim link As String
            link = Me.WebBrowser1.Document.Links(i).GetAttribute("href")

            WebBrowser2.Navigate(link)
            WebBrowser1.Dispose()

            Exit Do
        End If
    Next
Loop
End Sub

IT 在页面上找到一个链接并向它发送点击，这将导航到一个 ftp 站点。在此处输入图像描述

我想自动将文件 HH_Only_rpd.csv 下载到 c:/temp。

我一直在尝试，webclient但我碰壁了。我可以使用直接导航到文件，WebBrowser1.Navigate("ftp://ae.rpduser:freedata@ftp.apxgroup.com/HH_ONLY_rpd.csv")但我得到一个我不想要的另存为对话框，因为我需要它保持沉默，因为我要自动化它。

我正在使用 VS 2013。

4

2 回答 2

2

I need it all to be silent

Then use the FtpWebRequest class, not the WebBrowser control.

于 2013-11-04T14:45:36.503 回答
0

经过大量研究，我使用了带有以下代码的控制台应用程序。

Imports System.Net
Module Module1
    Sub Main()
        Try
            Dim wc As New WebClient
            wc.DownloadFile(New Uri("ftp://ae.rpduser:freedata@ftp.apxgroup.com/HH_ONLY_rpd.csv"), "c:\Temp\test.csv")
        Catch ex As Exception
        End Try
    End Sub
End Module
于 2013-11-04T15:34:54.060 回答