发表评论或者留言需要审核,请不要发AD或者涉及敏感词汇
欢迎优秀个人博客交换首页链接(PR 4以下或者被K的勿扰,非博客要求PR 5以上)
欢迎优秀个人博客交换首页链接(PR 4以下或者被K的勿扰,非博客要求PR 5以上)
Dec
12
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 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
准备写个站长工具之类的东西的
之前一直以为想whois那样,给个接口来查,结果
