日志

快速查询ICP备案号的VB.Net源码

热度 4已有 4017 次阅读2010-6-19 12:58 |个人分类:技术交流|

快速查询ICP备案号的源代码

作者：Rock (乐博网lob.cn成员)

开发平台：VS2005 Windows2003 .Net Framework 2.0

日志里不能上传rar源代码包，我把他发布到论坛了 http://www.smallbasic.cn/thread-57-1-1.html

如图：

源代码：

需要创建 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