form1.vb

清华大学出版社出版的 移动应用开发宝典 张大威（2008）的附书源代码

Imports System.Net
Imports System.IO

Public Class Form1

    Private Sub btnGet_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnGet.Click
        Dim u As New Uri(Me.txtUrl.Text)
        Me.Download(u, Environment.GetFolderPath(Environment.SpecialFolder.Personal))
    End Sub

    Private Sub Download(ByVal address As Uri, ByVal localPath As String)
        Dim filename As String = address.Segments((address.Segments.Length - 1))
        Dim response As WebResponse = WebRequest.Create(address).GetResponse
        Dim s As Stream = response.GetResponseStream
        Dim fs As New FileStream(Path.Combine(localPath, filename), FileMode.Create, FileAccess.Write)
        Dim buffer As Byte() = New Byte(&H400 - 1) {}
        Dim bytesRead As Integer = s.Read(buffer, 0, buffer.Length)
        Do While (bytesRead > 0)
            fs.Write(buffer, 0, bytesRead)
            bytesRead = s.Read(buffer, 0, buffer.Length)
        Loop
        fs.Close()
        s.Close()
        response.Close()
    End Sub


    Private Sub btnHead_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Dim hwr As HttpWebRequest = DirectCast(WebRequest.Create(Me.txtUrl.Text), HttpWebRequest)
        hwr.Method = "HEAD"
        Dim response As WebResponse = hwr.GetResponse
        Me.DataGrid1.DataSource = response.Headers
    End Sub

End Class