注册 登录
Small Basic中文站-快乐编程 返回首页

rock的个人空间 http://www.smallbasic.cn/?5 [收藏] [复制] [分享] [RSS]

日志

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

热度 4已有 3634 次阅读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个
  1. '代码作者: Rock      (乐博网lob.cn成员)  
    '博客:  http://www.SmallBasic.cn/?5 
  2. Imports System.Text
  3. Public Class Form1
  4.     Private Sub Lob_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LOB_Button.Click
  5.         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=")
  6.             If TextBox1.Text <> String.Empty Then
                    Str_Domain = TextBox1.Text
                    Str_Query.Append(Str_Domain + "&&&cxfs=1")
                End If
  7.             LOB_Browser.Navigate(Str_Query.ToString())
            Catch ex As Exception
                MessageBox.Show(ex.Message.ToString(), "打不开查询备案号的地址")
            End Try
  8.     End Sub
  9. End Class

路过

鸡蛋

鲜花
2

握手

雷人

发表评论 评论 (1 个评论)

回复 颠倒黑白 2010-6-19 13:31
谢谢Rock帮我做的代码 方便多了

facelist

您需要登录后才可以评论 登录 | 注册

QQ|手机版|Small Basic中文站-快乐编程 ( 闽ICP备09051788号 |

GMT+8, 2017-8-22 13:28 , Processed in 0.133025 second(s), 10 queries , File On.

Powered by Discuz! X3.3

返回顶部