快速查询ICP备案号的源代码
作者:Rock (乐博网lob.cn成员)
开发平台:VS2005 Windows2003 .Net Framework 2.0
如图:
源代码:
需要创建 TextBox WebBrowser Button控件各一个,分别命名TextBox1、LOB_WebBrowse、LOB_Button;Label标签2个
- '代码作者: Rock (乐博网lob.cn成员)
'博客: http://www.SmallBasic.cn/?5
- Imports System.Text
- Public Class Form1
- Private Sub Lob_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LOB_Button.Click
- Try
Dim Str_Url As String = String.Empty
Dim Str_Domain As String = String.Empty
Dim Str_Query As New StringBuilder()
Str_Query.Append("http://211.94.161.70/chaxun/ggcx_wz_ok.jsp?cxNr=")
- If TextBox1.Text <> String.Empty Then
Str_Domain = TextBox1.Text
Str_Query.Append(Str_Domain + "&&&cxfs=1")
End If
- LOB_Browser.Navigate(Str_Query.ToString())
Catch ex As Exception
MessageBox.Show(ex.Message.ToString(), "打不开查询备案号的地址")
End Try
- End Sub
- End Class