EDU511 国际专业IT教育服务门户
设为首页   加入收藏    联系我们
寻找IT教育内容合作伙伴
招聘教育网络编辑和运营门户高手
中讯IT教育2008年改版上线
寻找地方站运营伙伴QQ:59955917
中讯IT 技术成就未来
   你现在的位置:首页 >> 新闻系统 >> 程序设计 >> VB >> 基础教程 >> 正文

Visual Basic轻松"搞定"Browser及Ftp(二)

 
 
日期:08-04-14 00:29:19 点击: 来源:IT教育
 

    在CGIserch _Click()中加入以下程序代码:

    Private Sub CGIserch _Click()
    Web1.Navigate "http://search.yahoo.com/bin/Search ? p=" + CGI.
    Text
    End Sub

    这个动作是用CGI命令来查询文件。在这里我们将查询命令指定传送到Yahoo 这个网络搜寻站。

    这样我们就完成了一个小型的Web Browser。

    Step 3:测试程序

    执行刚设计完的Web Browser,并在web name这个TextBox中填入所要去的网址。这里我们将它设置为http://www.Microsoft.com。接着按下Go Button,将会看到在web1 control的方块区域内显示了Microsoft的HomePage。

    按下ShowDoc Button,将可以在htmlshow这个TextBox中看到Microsoft HomePage的HTML 程序代码。

    接下来让我们试试CGI搜寻功能。在CGIserch TextBox中加入communication,结果我们发觉查询的结果显示在web1方形区域中。

    同样的,我们也可以按下ShowDoc Button,将可以在htmlshow这个TextBox中,看到查询结果所传回的HTML程序代码。

    FTP程序设计

    前面提到Internet Transfer control可以提供FTP protocol,这里我们便要告诉您如何运用 Internet Transfer control来设计一个可以连接FTP Server的client程序,并将FTP Server上的bbb.txt文件download到local端。

    Step 1:程序设计

    在File选项中选择NewProject建立一个新的工程,在屏幕上看到许多选项,如ActiveX Document.EXE、ActiveX Document.DLL、ActiveX.EXE、ActiveX Control等,这时要选Standard.EXE。接着在Project下,选择Property属性选项,在general选项下将ProjectName改为FTP client。

    在屏幕的Form上加入一个Internet Transfer control,取名为Inet1。将Inet1 property的参数设置如下:

    
    Accesstype=2-icnamedproxy
    Username="david"
    password="2333334"
    protocol=2-icFTP
    proxy=172.18.16.65:8080

    我们在此将Username及password设置好,当我们Login进入FTP Server时,Server将会直接跳过输入Username和password的屏幕。

    加入一个TextBox control,取名为FTPgetfile。 加入两个Button control,取名为FTPget和FTPLink,分别将其Caption改为FTPget和 FTPLink。

    在FTPLink _Click()中加入以下程序代码:

    Private Sub FTPLink _Click()
    Inet1.excute "FTP 128.9.200.4"
    End Sub

    Execute是Internet Transfer control提供的一个用来执行FTP公用程序的method,我们可以在它的后面加入FTP的命令,这样我们就可以使用任何熟悉的FTP公用程序来完成工作。 笔者的FTP Server地址是128.9.200.4,所以我们在FTP命令后面填入这个地址。

    接着在FTPget _Click()中加入以下程序代码:

    
    Private Sub FTPLink _Click()
    Inet1.excute "GET aaa.txt c:\bbb.txt"
    End Sub

    这个动作是将FTP Server上的aaa.txt文件传送到client端。

    Step 2:测试

    将FTPclient执行起来,按下FTPLink Button,连结到 FTP Server。按下FTPget But ton,取回文件。有没有发觉到在C:\目录下面多了一个bbb.txt的文件?这表示成功了

 
责任编辑:
 
前一篇:
后一篇:
相关新闻(文章)

登录模块加载中...
友情链接
重庆之窗 | 重庆IT教育 | 我爱论文网 | 涪陵课件园 | 中国教育导航 | 第一教育网 | 中华IT培训网 
百度网址大全   重庆电脑维修网   华育国际教育 maple story   中国销售培训网    更多友情链接>>>
地址:重庆渝中区大坪正街88号A-10-8
本站建设得到重庆网通信息港与北京泰胜得风险投资机构的大力支持
电话:023-61630611 15902314551
邮箱:sysium_yuh@126.com yuhong@edu511.com
Copyright © edu511.com All rights reserved.
重庆视网科技发展有限公司版权所有 邮编:400041
ICP备案号:渝ICP备08002346号 QQ:59955917
网页设计/策划:重庆视网科技发展有限公司