Dim objWebClient As New WebClient()
Dim Cred As New System.Net.NetworkCredential
Cred.UserName = "myName"
Cred.Password = "myPassword"
Cred.Domain = "https://www.myDomain.com"
 
objWebClient.Credentials = Cred
 
objWebClient.DownloadFile("https://www.myDomain.com/sites/myFile.txt", "c:\downloads\myFile.txt")

Imports System.Net
 
Module Module17
 
  Public Sub Main()
    Try
      Using objWebClient As New WebClient()
        Dim docPath As String = My.Settings.SPDomain & "/DocBib/myFile.txt"
        Dim uriWebClient As New Uri(docPath)
        objWebClient.Headers.Add("user-agent", "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1)")
        objWebClient.Headers.Add("Content-Type", "application / zip, application / octet - stream")
        objWebClient.Headers.Add("Accept-Encoding", "gzip,deflate,sdch")
        objWebClient.Headers.Add("Referer", "http://Something")
        objWebClient.Headers.Add("Accept", "text/plain")
        objWebClient.DownloadFile(New Uri(docPath), "c:\temp\myFile.txt")
      End Using
    Catch ex As Exception
      Dim msg As String = ""
      Dim ex1 = ex
      While ex1 IsNot Nothing
        msg &= ex1.Message & vbNewLine
        ex1 = ex1.InnerException
      End While
      Console.WriteLine(msg)
    End Try
    Console.ReadKey()
  End Sub
 
End Module