IEの操作:テキストボックスに入力された文字でLiveSearch検索

VB2008でLiveSearch検索を行う実行例サンプルです。

IE(インターネットエクスプローラ)の操作へ



テキストボックスに入力された文字をUTF-8形式の文字に変換し、前後にLiveサーチの検索URLをプラスし検索してみます。

UTF-8形式に変換した文字の前に、"http://search.live.com/results.aspx?q=" をプラスし、後ろに"&form=QBLH" をプラスしサイトを開きます。

■実行画面
入力した文字で検索されています。
Liveサーチ検索結果フォーム

■実行コード

Public Class Form1
Private webcompflag As Boolean

Private Sub WebBrowser1_DocumentCompleted(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
webcompflag = True
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim s As String

If TextBox1.Text = "" Then
MsgBox("変換する文字列を入力してください。")
Exit Sub
End If

'UTF-8として変換
Dim bytesData As Byte() = System.Text.Encoding.UTF8.GetBytes(TextBox1.Text)

s = ""
For Each b In bytesData
'%を付け、2桁の16進数に変換する
s = s & "%" & b.ToString("x2")
Next
Debug.Print(s)

WebBrowser1.Navigate("http://search.live.com/results.aspx?q=" + s + "&form=QBLH")
webcompflag = False
Do While (webcompflag = False)
System.Windows.Forms.Application.DoEvents()
System.Threading.Thread.Sleep(10)
Loop
End Sub
End Class


Visual Basic 2008 Express Edition実践入門