第14章 建立網路應用程式 14-1 瀏覽器的建立 14-2 檔案下載器 14-3 寄送電子郵件 14-4 檢查POP 3的電子郵件.

Presentation on theme: "第14章 建立網路應用程式 14-1 瀏覽器的建立 14-2 檔案下載器 14-3 寄送電子郵件 14-4 檢查POP 3的電子郵件."— Presentation transcript:

1 第14章 建立網路應用程式 14-1 瀏覽器的建立 14-2 檔案下載器 14-3 寄送電子郵件 14-4 檢查POP 3的電子郵件

2 14-1 瀏覽器的建立-建立WebBrowser控制項
WebBrowser控制項可以幫助我們建立個人化瀏覽器，輕鬆在Visual Basic應用程式連線Internet來瀏覽網頁內容。當在VS Express for Desktop建立專案後，就可以在表單新增WebBrowser控制項，如下圖所示：

3 14-1 瀏覽器的建立- WebBrowser控制項的屬性

4 14-1 瀏覽器的建立- WebBrowser控制項的方法

5 14-1 瀏覽器的建立- WebBrowser控制項的事件

6 14-1 瀏覽器的建立- Visual Basic專案
Visual Basic專案：Ch14-1 在Windows應用程式建立簡單的Web瀏覽器，擁有上方瀏覽按鈕和URL網址欄工具列，可以輸入URL網址，按【移至】鈕來瀏覽網頁內容，如下圖所示：

7 14-2 檔案下載器-說明 Visual Basic應用程式可以使用System.Net命名空間的WebClient物件建立網路連線，從Internet下載所需檔案資源，事實上，檔案下載就是一種網路連線的遠端串流，如同開啟一個網路檔案串流來讀取資料，使用的是第13章System.IO的串流物件。

8 14-2 檔案下載器-建立WebClient物件
WebClient物件可以建立Internet網路連線的客戶端，提供從指定URL網址來傳送與接收資料，如下所示： Dim myClient As WebClient = New WebClient() 上述建構子建立名為myClient的WebClient物件後，就可以呼叫相關方法來下載二進位資料和開啟文字檔案串流。

9 14-2 檔案下載器-下載圖檔的二進位資料(1) 下載圖檔的二進位資料是使用WebClient物件的DownloadData()方法，如下所示： Dim buffer As Byte() buffer = myClient.DownloadData(txtImgUrl.Text) 上述程式碼呼叫DownloadData()方法下載圖形的二進位資料。然後，我們可以開啟FileStream串流，將圖形資料寫入圖檔，如下所示： Dim fs As FileStream = New FileStream(path & "temp.png", FileMode.Create) fs.Write(buffer, 0, buffer.Length) fs.Close()

10 14-2 檔案下載器-下載圖檔的二進位資料(2) 最後，我們可以在PictureBox控制項顯示此圖檔，如下所示：
Dim png = New Bitmap(path & "temp.png") ptbOutput.Image = png

11 14-2 檔案下載器-下載文字檔案的字串 下載文字檔案的字串是使用WebClient物件的OpenRead()方法開啟串流後，建立StreamReader物件的讀取串流來讀取字串，如下所示： Dim response As Stream = myClient.OpenRead(txtFileUrl.Text) Dim sr As StreamReader = New StreamReader(response) Dim str As String = sr.ReadToEnd() txtOutput.Text = str sr.Close() response.Close()

12 14-2 檔案下載器-Visual Basic專案
Visual Basic專案：Ch14-2 在Windows應用程式建立檔案下載器，可以輸入URL網址來下載圖形資料，或文字字串來儲存成檔案，程式分別使用PictureBox控制項來顯示圖檔，和多行文字方塊顯示下載的字串內容 ，如下圖所示：

13 14-3 寄送電子郵件-說明 在Visual Basic應用程式寄送郵件是使用System.Net.Mail命名空間的類別，當匯入System.Net.Mail命名空間後，就可以使用MailMessage和MailAddress類別建立電子郵件內容，然後使用SmtpClient類別的方法寄送郵件。

14 14-3 寄送電子郵件-建立MailMessage物件
Dim mail As MailMessage = _ New MailMessage() 上述程式碼建立名為mail的MailMessage物件後，就可以設定物件相關屬性來建立郵件內容。

15 14-3 寄送電子郵件-MailMessage物件屬性

16 14-3 寄送電子郵件-新增郵件地址 例如：新增電子郵件的寄件者和收件者的郵件地址，如下所示： mail.From = _
New mail.To.Add(New MailAddress(txtRecipient.Text)) 上述程式碼使用New關鍵字建立MailAddress物件，建構子參數是電子郵件地址，如果不只一個，請使用Add()方法來新增。

17 14-3 寄送電子郵件- SmtpClient物件屬性和方法
在建立好MailMessage物件後，就可以建立SmtpClient物件來指定SMTP伺服器，其相關屬性和方法，如下表所示：

18 14-3 寄送電子郵件-寄送郵件 例如：使用HiNet的SMTP伺服器，如下所示：
Dim smtpServer As New SmtpClient() smtpServer.Host = "ms2.hinet.net" 上述程式碼建立SmtpClient物件和指定Host屬性。最後使用Send()方法寄出郵件。

19 14-3 寄送電子郵件-電子郵件的附檔處理 電子郵件如果擁有附檔，檔案需要先新增成電子郵件的Attachment物件，如下所示：
Dim attachedFile As Attachment = _ New Attachment(sFile) mail.Attachments.Add(attachedFile) 上述程式碼使用檔案路徑建立Attachment物件後，使用Add()方法新增至MailMessage物件的Attachments屬性，即AttachmentCollection集合物件。

20 14-3 寄送電子郵件-Visual Basic專案
Visual Basic專案：Ch14-3 在Windows應用程式建立簡單的電子郵件工具，當輸入郵件內容和選擇附檔後，就可以寄送電子郵件，如下圖所示：

21 14-4 檢查POP 3的電子郵件-說明 Imports System.Net.Sockets
在Visual Basic程式建立System.Net.Sockets命名空間的TcpClient類別後，就可以透過TCP/IP埠號連接常用的Internet服務，例如：FTP是21、WWW是80，SMTP是25和POP 3的110。 在Visual Basic專案加入System.Net參考後，可以建立模組Module1.vb匯入命名空間，如下所示： Imports System.Net.Sockets 上述程式碼使用Imports關鍵字匯入System.Net.Sockets命名空間。

22 14-4 檢查POP 3的電子郵件-建立TcpClient物件
在Visual Basic專案匯入System.Net.Sockets命名空間後，就可以使用TcpClient類別來建立網路的客戶端程式，如下所示： Dim mailClient As TcpClient = _ New TcpClient() 上述程式碼建立TcpClient物件。

23 14-4 檢查POP 3的電子郵件-TcpClient物件方法
關於建立連線和取得串流的相關方法，如下表所示：

24 14-4 檢查POP 3的電子郵件-TcpClient物件屬性

25 14-4 檢查POP 3的電子郵件- 建立POP 3郵件伺服器的連線
Try mailClient.Connect(host, 110) Catch ex As Exception output = "連接郵件伺服器錯誤: " & _ ex.Message & vbNewLine Return output End Try 上述程式碼建立遠端郵件伺服器的連線後，使用GetStream()方法取得資料流。

26 14-4 檢查POP 3的電子郵件-取得資料流 建立遠端郵件伺服器的連線後，使用GetStream()方法取得資料流，如下所示：
ns = mailClient.GetStream() 上述程式碼取得NetworkStream資料流物件後，就可以使用Read()和Write()方法讀取回應和送出指令。

27 14-4 檢查POP 3的電子郵件-資料流相關方法 Read()和Write()方法讀取回應和送出指令，如下表所示：

28 14-4 檢查POP 3的電子郵件-計算郵件數 當成功登入郵件伺服器後，即可送出stat指令來取得郵件數，如下所示：
responseMsg=sendCommand(ns, "stat" & _ vbCrLf) Dim msgArray() As String msgArray = Split(responseMsg, " ") Dim numOfMsg As String = msgArray(1) 程式碼送出stat指令後，能夠取得回應訊息responseMsg，在使用Split()函數轉換成陣列後，就可以取得尚未讀取的郵件數。

29 14-4 檢查POP 3的電子郵件-Visual Basic專案
Visual Basic專案：Ch14-4 在Windows應用程式建立POP 3電子郵件檢查工具，當輸入郵件伺服器名稱、使用者名稱和密碼後，可以取得尚未讀取的郵件數，相關郵件函數是位在Module1.vb模組，如下圖所示：

30 End