用Visual Basic设计browser及ftp程序(三)

web browser程序设计

step 2：开始设计程序

---------------------------------------------------------------------
search(执行cgi命令) search

go(执行前往web address的动作) go to

showdoc(显示html文字结果) show document

接着将inet1的各项属性设置如下：

accesstype=2-icnamedproxy

protocol=4-ichttp

proxy=172.18.16.65:8080

在go_click()中加入以下程序代码， 这个动作是连接到所想要去的web server，并将屏幕显示在web1的方块区域内：

private sub go_click()

web1.navigate webname.text

end sub

以上程序是运用web1的navigate，这个method将屏幕连接到web name textbox中所指定的网络站点。

在htmlshow _click()加入以下的程序代码：

private sub htmlshow _click()

a$ = web1.locationurl

showdoc.text = inet1.openurl(a$)

end sub

　　以上程序，是先将web1所连接到的url address，通过locationurl这个property读出，并将它暂存于字符串a。接着使用openurl()命令来将所接收到的html程序代码，显示在showdoc这个textbox中。

在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程序代码。

　　恭喜您成功了！