Desde a popularidade da Internet, tornou-se muito mais conveniente para as pessoas baixar arquivos, obter informações instantâneas e enviar e-mails. Pode-se dizer que a Internet é uma grande inovação da tecnologia humana no século XXI. Devido a esta grande mudança, o estilo de vida das pessoas também foi grandemente afectado; as compras electrónicas, as bases de dados de informação online e as transacções online no mercado de acções cresceram rapidamente. No passado, o Visual Basic 4.0 não fornecia uma solução completa para os entusiastas do Visual Basic projetarem programas para a Internet. Felizmente, o Visual Basic 5.0 fornece alguns controles para projetarmos programas relacionados à Internet. Neste artigo, o autor usará InternetTransfercontrol com WebBrowsercontrol para informar aos leitores como projetar facilmente programas de navegador e FTP com Visual Basic 5.0.
Introdução ao Controle
Controle de transferência de Internet
InternetTransfercontrol é um controle fornecido pela Microsoft para facilitar aos usuários o design de aplicativos para Internet. Ele fornece dois protocolos InternetPR: HTTP e FTP. Ao utilizá-lo, devemos primeiro definir seu método de acesso. Os métodos de acesso dividem-se em dois tipos: ligação direta à rede da Internet ou ligação à rede da Internet através de um proxy, que é totalmente determinado pela natureza da nossa rede. Depois de definirmos os parâmetros relevantes, o InternetTransfercontrol fornece dois métodos: OpenURL e Execute para nos permitir realizar operações relacionadas à rede. Podemos usar esses dois comandos para executar alguns comandos da Internet. No desenho abaixo, o autor explicará seu uso.
Controle do navegador da Web
WebBrowsercontrol foi fornecido pela primeira vez pelo IE3.0 e será carregado automaticamente quando o IE3.0 for instalado; Ele fornece o método Navigate que nos permite conectar ao WWWServer para onde queremos ir.
Os leitores devem estar se perguntando: como o InternetTransfercontrol pode se conectar à Internet através dos protocolos HTTP e TP, para que precisamos do WebBrowsercontrol? Só porque o InternetTransfercontrol não fornece um método de acesso no modo gráfico, o arquivo resultante só pode ser transferido de volta no modo texto. Se o arquivo retornado contiver gráficos, o arquivo HTML resultante deverá ser convertido usando um programa. Então o autor escolheu o WebBrowsercontrol para nos ajudar a fazer uma conversão.
Deixe o autor dizer aos leitores como projetar WebBrowser e FTPclient.
Programação de navegador web
Passo 1: Defina os parâmetros de rede
Primeiro precisamos saber se nosso sistema de rede está conectado diretamente à Internet ou conectado à Internet através de um proxy. Podemos determinar como nosso sistema está conectado à Internet através das seguintes etapas:
Clique duas vezes na opção “Meu Computador” para entrar no “Painel de Controle”. Clique duas vezes na opção “Internet” na opção “Painel de Controle”. Selecione a conexão em InternetDialogBox. A partir da caixa de diálogo exibida na tela, você pode saber se o sistema está conectado à Internet através de proxy ou discagem. Como o sistema do autor está conectado à Internet através de um proxy, devemos descobrir o endereço e a porta do proxyServer para facilitar a configuração do programa.
Em seguida, clique na opção "configuração" para visualizar seu endereço e porta. A tela exibirá então uma DialogBox com "addressofproxytouse":172.18.16.65 e "port":8080 gravados nela. Grave isso, você precisará desses parâmetros mais tarde.
Passo 2: Inicie o processo de design
Selecione NewProject na opção Arquivo para criar um novo projeto. Você verá muitas opções na tela, como ActiveXDocument.EXE, ActiveXDocument.DLL, ActiveX.EXE, ActiveXControl, etc. Neste momento, você deve selecionar Standard.EXE.
Em seguida, em Projeto, selecione a opção Atributo de propriedade e altere ProjectName para Webbrowser na opção geral. Adicione um controle Webbrowser ao formulário na tela e nomeie-o como web1; em seguida, adicione um controle InternetTransfer e nomeie-o como Inet1.
Adicione três controles TextBox chamados CGISearch, webname e htmlshow respectivamente, adicione um Label na frente de CGISearchTextBox e altere sua legenda para Search.
Adicione três controles de botão chamados Search, Go e ShowDoc. Altere a legenda para Se respectivamente
arco, goto e showdocument.
Para facilitar a compreensão do leitor sobre a relação, é explicado o seguinte em uma tabela:
(Caixa de texto)
Nome
--------------------------------------------------
CGISearch (insira o comando CGI)
nome da web (insira o endereço da web para o qual deseja ir)
htmlshow (exibir resultados de texto HTML)
(Botão)
Legenda do nome
-------------------------------------------------- --------------------------
-----
Pesquisar (executar comando CGI) pesquisar
Ir (executar a ação para webaddress) Ir para
ShowDoc (exibir resultados de texto HTML)showdocument
Em seguida, defina as várias propriedades do Inet1 da seguinte forma:
tipo de acesso = 2-icnamedproxy
protocolo=4-icHTTP
proxy=172.18.16.65:8080
Adicione o seguinte código de programa a Go_Click(). Esta ação é para se conectar ao webServer que você deseja acessar e exibir a tela na área quadrada do web1:
PrivateSubGo_Click()
web1.Navigatenomedaweb.Texto
Fim Sub
O programa acima usa o Navigate do web1. Este método conecta a tela ao site especificado no webnameTextBox.
Adicione o seguinte código de programa a htmlshow_Click():
PrivateSubhtmlshow_Click()
a$=web1.LocationURL
ShowDoc.Text=Inet1.OpenURL(a$)
Fim Sub
O programa acima primeiro lê o URLaddress ao qual web1 está conectado por meio da propriedade LocationURL e o armazena temporariamente na string a. Em seguida, use o comando OpenURL() para exibir o código do programa HTML recebido no ShowDoc TextBox.
Adicione o seguinte código de programa a CGIserch_Click():
PrivateSubCGIserch_Click()
Web1.Navigate"http://search.yahoo.com/bin/Search?p=" CGI.
Texto
Fim Sub
Esta ação usa comandos CGI para consultar o arquivo. Aqui especificamos o comando de consulta a ser enviado ao Yahoo, o site de busca na web.
Desta forma completamos um pequeno WebBrowser.
Etapa 3: programa de teste
Execute o WebBrowser que você acabou de criar e preencha a URL que deseja acessar no TextBox do webname. Aqui definimos como http://www.Microsoft.com. Em seguida, pressione o botão Go e você verá a página inicial da Microsoft exibida na área quadrada do web1control.
Pressione ShowDocButton, você poderá ver o código do programa HTML do MicrosoftHomePage no htmlshow TextBox.
A seguir, vamos tentar a função de pesquisa CGI. Depois de adicionar comunicação ao CGIserchTextBox, descobrimos que os resultados da consulta foram exibidos na área quadrada web1.
Da mesma forma, também podemos pressionar ShowDocButton para ver o código do programa HTML retornado pelos resultados da consulta no htmlshow TextBox.
Parabéns pelo seu sucesso!
Programação FTP
Conforme mencionado anteriormente, o InternetTransfercontrol pode fornecer o protocolo FTP. Aqui, mostraremos como usar o InternetTransfercontrol para projetar um programa cliente que possa se conectar ao FTPServer e baixar o arquivo bbb.txt no FTPServer para o final local.
Passo 1: Programação
Selecione NewProject na opção Arquivo para criar um novo projeto. Você verá muitas opções na tela, como ActiveXDocument.EXE, ActiveXDocument.DLL, ActiveX.EXE, ActiveXControl, etc. Neste momento, selecione Standard.EXE. Em seguida, em Projeto, selecione a opção Atributo de propriedade e altere ProjectName para FTPclient na opção geral.
Adicione um controle InternetTransfer ao formulário na tela e nomeie-o como Inet1. Defina os parâmetros de Inet1property da seguinte forma:
Tipo de acesso = 2-icnamedproxy
Nome de usuário = "david"
senha="2333334"
protocolo=2-icFTP
proxy=172.18.16.65:8080
Definimos o nome de usuário e a senha aqui. Quando fizermos login no servidor FTP, o servidor pulará diretamente a tela para inserir o nome de usuário e a senha.
Adicione um controle TextBox e nomeie-o como FTPgetfile. Adicione dois controles Button, nomeie-os como FTPget e FTPLink e altere suas legendas para FTPget e FTPLink respectivamente.
Adicione o seguinte código de programa a FTPLink_Click():
PrivateSubFTPLink_Click()
Inet1.excute"FTP128.9.200.4"
Fim Sub
Execute é um método fornecido pelo InternetTransfercontrol para executar utilitários FTP. Podemos adicionar comandos FTP depois dele, para que possamos usar qualquer utilitário FTP familiar para concluir o trabalho. O endereço FTPServer do autor é 128.9.200.4, portanto preenchemos esse endereço após o comando FTP.
Em seguida, adicione o seguinte código de programa a FTPget_Click():
PrivateSubFTPLink_Click()
Inet1.excute"GETaaa.txtc:/bbb.txt"
Fim Sub
Esta ação consiste em transferir o arquivo aaa.txt do servidor FTP para o cliente.
Etapa 2: teste
Execute FTPclient, pressione FTPLinkButton e conecte-se ao FTPServer. Pressione o FTPgetButton para recuperar o arquivo. Você notou que há um arquivo extra bbb.txt no diretório C:/? Parabéns pelo seu sucesso! ->