Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click Using internet As New Net.WebClient Dim utf8 = System.Text.Encoding.UTF8 Dim keyword = "VB" Dim query = "http://search.yahoo.co.jp/search?fr=yjdnqp&p=" & keyword & "&ei=UTF-8" Dim result As Byte() result = internet.DownloadData(query) WebBrowser1.DocumentText = utf8.GetString(result) End Using End Sub
Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click Using internet As New Net.WebClient Dim utf8 = System.Text.Encoding.UTF8 Dim keyword = "Visual Basic 中学校" Dim b() As Byte = utf8.GetBytes(keyword) Dim encodedKeyword = Web.HttpUtility.UrlEncode(keyword) Dim query = "http://search.yahoo.co.jp/search?fr=yjdnqp&p=" & encodedKeyword & "&ei=UTF-8" Dim result As Byte() result = internet.DownloadData(query) WebBrowser1.DocumentText = utf8.GetString(result) End Using End Sub