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")が、自動化するためにすべてをサイレントにする必要があるため、望ましくない [名前を付けて保存] ダイアログ ボックスが表示されます。

私はVS2013を使用しています。

4

2 に答える 2

2

私はそれをすべて静かにする必要があります

次に、コントロールFtpWebRequestではなくクラスを使用します。WebBrowser

于 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 に答える