BoyLee's Blog

Private Sub btn_Search_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Search.Click
   Dim TempStream As Stream
   Dim TempWebClient As New WebClient
   Dim strUrl, strTemp, strHtml, strResult As String
   strUrl = Me.txt_Url.Text.Trim
   TempStream = TempWebClient.OpenRead("[url]http://www.baidu.com/s?wd=site%3A[/url]" & strUrl)
   Dim tempRead As New StreamReader(TempStream, System.Text.Encoding.GetEncoding("GB2312"))
   strHtml = tempRead.ReadToEnd()
   Dim intTemp_1, intTemp_2 As Integer
   intTemp_1 = InStr(strHtml, "百度一下") - 1
   intTemp_2 = InStr(strHtml, "秒")
   strResult = strHtml.Substring(intTemp_1, intTemp_2 - intTemp_1)
   Me.lbl_Result.Text = strResult
 End Sub

Dim excelWorkBook As Excel.Workbook
Dim excelWorkSheet As Excel.Worksheet
Dim appExcel As New Excel.Application
Dim excelRange As Excel.Rangge
…………

excelWorkBook.Close()
appExcel.Quit()
excelWorkSheet = Nothing
excelWorkBook = Nothing
appExcel = Nothing
……