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

来源:网络整理 浏览数:
发布时间:2017-12-20 18:26

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中填入所要去的网址。这里我们将它设置为。接着按下go button,将会看到在web1 control的方块区域内显示了microsoft的homepage。   按下showdoc button,将可以在htmlshow这个textbox中看到microsoft homepage的html程序代码。   接下来让我们试试cgi搜寻功能。在cgiserch textbox中加入communication,结果我们发觉查询的结果显示在web1方形区域中。   同样的,我们也可以按下showdoc button,将可以在htmlshow这个textbox中,看到查询结果所传回的html程序代码。   恭喜您成功了!