김윤호닷컴

Dim s As Stream = '해당하는 ResponseStream Dim fs As New FileStream("c:\xxx.pdf", FileMode.Create) Dim read As Byte() = New Byte(255) {} Dim count As Integer = s.Read(read, 0, read.Length) While count > 0 fs.Write(read, 0, count) count = s.Read(read, 0, read.Length) End While fs.close() s.close() '쿠키를 유지한체 파일을 다운받아야할경우...

Dim uri As New UriBuilder uri.UserName = "xxx" uri.Password = "xxx" uri.Host = "xxx" uri.Path = "xxx.aspx?q=65" Dim request As HttpWebRequest = DirectCast(WebRequest.Create(uri.Uri), HttpWebRequest) request.AllowAutoRedirect = True request = DirectCast(WebRequest.Create(DownloadUrlIn), HttpWebRequest) request.Timeout = 10000 'request.AllowWriteStreamBuffering = True Dim respon..