實現簡單下載代碼

Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim remoteUri As String = "http://www.yourname.com/"
        Dim fileName As String = "index.htm"
        Dim myStringWebResource As String = Nothing
        Dim myWebClient As New WebClient
        myStringWebResource = remoteUri + fileName
        myWebClient.DownloadFile(myStringWebResource, "c:/index.htm")
End Sub