1. 论坛系统升级为Xenforo,欢迎大家测试!
    排除公告

第一次用VB做网络搜索桌面软件(一)没优化之前

本帖由 notnull2006-02-16 发布。版面名称:工具软件

  1. notnull

    notnull New Member

    注册:
    2005-09-27
    帖子:
    11,720
    赞:
    37
    我也是边看教程边做的。有不对,告诉我一声,不过我做出来之后,自己用起来还正常。
    这个东西可以用来搜索那些大的专业搜索网站的东西,也可以搜你自己站内的东西,如果把这个集成到其他一些软件里去,当然,其他软件也得你自己编,比如自己站内的IM软件,一是可以方便用户,二是增加自己网站的附加价值。

    首先,你要搞清楚你是需要搜索什么地方的内容?要搜索自己站内的东西,必须你自己的站先前就有了搜索功能。

    再让我们来搞清楚搜索软件怎么才能开始工作,搜索软件是通过向搜索站点发出特殊搜索字串命令,然后对结果进行处理后显示出来。当然,各个网站看起来好象发送的都不一样,但是都是有一定的格式的,比如我在百度搜“站长资讯”看他得出的地址就是:http://www.baidu.com/s?tn=myie2dg&i...&z=&cl=3&f=8&wd=%D5%BE%B3%A4%D7%CA%D1%B6&ct=0 那么,在http://www.baidu.com/s?tn=myie2dg&ie=gb2312&bs= 之后的东西都是你搜的字符串,也就是你要搜的关键词了。剩余的部分当然就是网站处理字符串的程序地址了。基本上搜索的程序地址变来变去,都不例外如:http://目标URL?参数1名=参数1值&参数2名=参数2值&参数3名=参数3值…… 这些搜索都是以表单的形式递交的,有GET和POST两种方法。不过在搜索软件上处理的时候,不会有太大的不同,只是偶尔有的网站用的GET,可能软件得不到返回的结果,不过很少很少了。讲完这些就要开始动手了


    启动VB 6.0,首先创建一个窗体,然后要对运行环境进行一下设置:具体来说,就是添加上必要的控件,一般情况下,可通过点击VB菜单中“工程->部件”,在弹出的部件对话框中找到有一栏写着“Microsoft Internet Controls”的选项。利用它我们可以初始化一个浏览器的实例。当您选中这个选项后,会发现工具栏中多了一个形状如同地球的按钮,这就是刚才选中的浏览器控件,双击这个图标按钮在窗体上生成一个WebBrowser1的部件,接下来就使用这个部件来显示查询的结果。然后在窗体上放上一个文本框和一个按钮,其实就这几个部件已经可以构成一个最小的搜索程序基本结构了。

    程序的编制

    假若窗体上有一个文本框Text1、一个标签Label1、一个浏览器WebBrowser1、一个按钮Command1,其中文本框用于输入关键词,浏览器用于显示查询结果网页,按钮用于发出请求语句,点击Command1的程序代码可以这样写:

    Private Sub Command1_Click()

    Dim url As String

    On Error Resume Next ’出错后继续

    If Text1.Text = “” Then

    MsgBox “请先输入关键字”

    EndIf ’防止不输入关键词

    url = “你要搜索的网站的搜索程序字符串处理路径” + Text1.Text

    ’将关键词放入查询语句中

    Webbrowser1.Navigate url

    ’调用浏览器显示查询结果

    End Sub



    要注意的是,比较复杂网站的查询语句一定要注意的是各个关键参数之间一定要用“&”来隔开。


    嘎嘎。这是初初级,最简单的了,不算什么,以后慢慢讲优化。
    其实对于用户来讲,做这个东西只是为了方便,对于站长来讲,意义就不同了。怎么应用,就靠自己了。;)
     
  2. gynhe

    gynhe Member

    注册:
    2005-09-09
    帖子:
    689
    赞:
    14
    是啊,做个广告自动点击器,自动搜索代理,自动更换代理..
     
  3. 小叶

    小叶 New Member

    注册:
    2005-09-04
    帖子:
    17,941
    赞:
    33
    支持原创,精华。。
     
  4. uljyygy

    uljyygy New Member

    注册:
    2006-02-15
    帖子:
    5
    赞:
    0
    好!

    蛮简单的!!:)
     
  5. qs263

    qs263 New Member

    注册:
    2006-02-23
    帖子:
    21
    赞:
    0
    牛人~
     
  6. caixi2005

    caixi2005 New Member

    注册:
    2006-03-07
    帖子:
    6
    赞:
    0