Clã Hacker Team Bios
Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Aprenda a Criar Seu Próprio Navegador

Ir para baixo

Aprenda a Criar Seu Próprio Navegador Empty Aprenda a Criar Seu Próprio Navegador

Mensagem  Thomaz Ter maio 26, 2009 2:06 pm

vamos trabalhar com a linguagem DELPHI

DOWNLOAD DELPHI 7:

Parte 1:
http://malware-site.www/b2f963

Parte 2:
http://malware-site.www/50e18b

Parte 3:

http://malware-site.www/b3a6a3

( ja vem o Keygem)

Serial: 6AKD-PD29Q9-RDF?JQ-X65Z
Key: QX8-EE (serial adicional)

-------------

Quando vc abre o Delphi, ele automaticamente abre um projeto ok!

-----------

Vamos inserir no formulário dois quadros: um painel, onde ficarão os botões e a barra de endereços, e o quadro de visualização HTML.

Para inserir um painel, clique no componente "painel" da paleta de componentes, e clique uma vez dentro da tela da janela do programa (o formulário). Veja:
Aprenda a Criar Seu Próprio Navegador ATcAAABiEnmodOFbzBxycRrn8aVXEeOkO_WEMdH0LGdk7_bqYaGqyImf-7vEdce9dW0eH_Fcnl4B6SQEwxJvoczHuFUjAJtU9VB6WogKt-K8az7u6qK2sQyww3b3TA
.
Aprenda a Criar Seu Próprio Navegador ATgAAAAc-2Z4rv1wEHd-MO_f2iLpD85OZ4aLsBZYKOmvkwC_LUVxUBKQcBmQWIMRr0vxV9Qck25zg6AAeAx1iQOWgFseAJtU9VA645EL6Z8tBzWPW4NJvp0D0szC9Q
Vamos ajustar algumas propriedades desse componente, para que ele fique no topo, e sem o texto "Panel1" dentro. Clique uma vez nele para selecioná-lo, e no inspetor de objetos (a janela de propriedades do objeto, se você não sabe, leia o texto do link que indiquei mais acima), localize a propriedade "Caption". Remova o texto dela, deixando assim:
Aprenda a Criar Seu Próprio Navegador ATcAAADFc8cpN_5a_K4uLrIvbYJoCi3F5y64yQw-5GuaC94WZfSGFkSXmXP9o0IP-wpAxjjw1dt9CcDTRhFcEeiER0DDAJtU9VDVkT5lsnrxTphlXQ5uU7XhU3P7bQ
Para que esse painel fique alinhado na parte superior da tela, localize nessa mesma janela a propriedade "Align", e deixe com o valor "AlTop":
Aprenda a Criar Seu Próprio Navegador ATcAAACAO4LoFUUwMvRBpVYLYsGg_SEXMg-cW_J2nsut1euDuIYo4PH1ALXP3BbA0ai6zk7VaP729lHWsnlpo5ihUSAxAJtU9VA3K0S06BLz9MQdSKBVenQtSUYACA
Com o painel selecionado, clique na borda inferior dele e arraste para baixo, até ficar num tamanho ideal para você.

Agora insira o componente "TWebBrowser". Ele fica na guia "Internet" da paleta de componentes do Delphi, normalmente é o último dessa guia. Não o insira dentro do painel, mas sim fora, ou seja, clique nele uma vez, depois clique na área livre do formulário, Veja como ficara
Aprenda a Criar Seu Próprio Navegador ATcAAAA4ybXdVBuKVbfGaF2LDcuxCfUc6fEAoDNyOpTgmYJyYaVeYqIAaF3UxowZ0MVWHoXMj4rlb80H9_hwiFrpBeKxAJtU9VCWeZWVbff1uo4pGdVOsJD50wzE1Q
Aprenda a Criar Seu Próprio Navegador ATgAAAB0UQ9zGnSlykLRWDphPoBrFsNtQqCl4nUtHiDMgadle1bExuhcjUiymK4C8DaXHC3UUzYxuZiM-ESdv0fQEWFJAJtU9VCtn18kfrC5nwFlYhemqBMJEl80eA
Ajuste a propriedade "Align" dele assim como você fez com o painel, mas agora escolha "AlClient". Isso faz com que ele ocupe toda a área restante da tela, mesmo que o usuário maximize ou redimensione a janela.

Vamos inserir uma barra de endereços simples (não uma lista, por ser um tutorial para iniciantes nessa área) e os botões "Voltar", "Avançar", "Parar" e "Atualizar". Selecione o componente "Button", "botão", da aba "Standard" dos componentes do Delphi, e insira-o dentro do painel. Agora sim, clique dentro do painel, para que ele fique "dentro" do painel. Se você colocá-lo fora, ele não acompanhará o local fixo no painel, por exemplo, podendo ficar fora do lugar dependendo do tamanho da janela.
Aprenda a Criar Seu Próprio Navegador ATcAAADDJfoU3EkW7sgBC0P36iDeOUSRRPYfL79lIDUEIIQroWoOZp0YTvSeV6Hs1pu-7KjDD_k1CV5rNzwNB4vgkPcMAJtU9VDsh9MOOXKyZoEmcQXyNEPNXBJCig
Aprenda a Criar Seu Próprio Navegador ATgAAACX6CH7Ql0Olx6yijtTGYyRslpSikqPcN2Vkqh_Wq2xwKraBHbtJsiHQ9nLrvCrRFsi-e-GgZDoIdTx_F2uyuOOAJtU9VDcw7jXppyaIjO4Fe2LppZ0m0pfnA
Agora você já deve estar pegando mais intimidade com a inserção de componentes. Insira mais três botões, ao lado desse. Você pode copiá-lo e colá-lo! Clique uma vez nele, ele ficará selecionado (o botão). Tecle CTRL+C e depois CTRL+V, e ele será inserido dentro do painel, depois tecle CTRL+V duas vezes para colar mais dois, e arraste cada um para os seus lugares, de modo a deixar o visual organizado.

Agora altere os textos dos botões. Selecione um por um, localize a propriedade "Caption" no inspetor de objetos, e digite o texto desejado. Para nosso exemplo, coloque "Voltar" no primeiro botão, "Avançar" no segundo, "Parar" no terceiro e "Atualizar" no quarto.

Para inserir uma barra de endereços, clique no componente "Edit", da aba "Standard" da paleta de componentes, e insira-o também dentro do painel, logo abaixo dos botões (redimensione o painel, se necessário, clicando nele e arrastando a linha inferior para baixo). Redimensione o campo de texto ("Edit") até ficar com um tamanho razoável, para digitar um endereço da Internet. Com o "Edit" selecionado, remova o texto dele. Basta limpar o texto da propriedade "Text", pelo inspetor de objetos.
Aprenda a Criar Seu Próprio Navegador ATcAAADvaXq8Q81VWNgdURbWoE5twFTsEVo2_XCbMSKas1B5qREjDjNSZvYAW3-aT9QO-czwly9clEqgh5v-96C4F7TmAJtU9VCdee38at6rulmBhVJdld8ll_sl7w
Aprenda a Criar Seu Próprio Navegador ATcAAAC8DxMOQ6inlA68g9WITR5Y_Ojj-0r5ptTjo8smzVJkmnWichlDM7xjdY5MJ3f4Wu0rWuS07HRBKv_bQ3EDKd0iAJtU9VBSXVs7spenkJ1EkF-rSKnKLmG9jg

aspecto de como está ficando o programa


O componente WebBrowser usa toda a estrutura do IE, como comentei no começo do arquivo. Para fazê-lo "funcionar", o que seu programa tem que fazer é chamar as funções corretas dele. Algumas são documentadas, outras creio que não... Mas para as mais comuns não há segredo.

Dica: para facilitar as referências, vamos renomear o WebBrowser para um nome mais curto. Selecione o quadro branco do IE, e altere a propriedade "Name" dele, pelo inspetor de objetos. Usarei aqui "web", um nome fácil de identificar e curtinho.

Selecione a barra de endereços, o "Edit1". Quando a pessoa digitar alguma coisa e teclar [enter], o navegador será chamado. Para isso, deveremos configurar o evento da barra de endereços responsável por reconhecer o [enter], e por chamar o navegador.

Selecione a barra de endereços, e vá para a aba "Events" do Object Inspector (na mesma janela onde você altera os títulos, textos, propriedades dos componentes...).
Aprenda a Criar Seu Próprio Navegador ATcAAACH0iIWeYqx_aDO_BdE0mGTRaivQMpQJYxR0xDZkXDWqxWkjNjQK2DR8gClwB_f1TYG0I1BnNRZFCh5mPh2I_87AJtU9VD0AzemIwHCS192LHuaZCJrT4Mfqg


a aba "Events" do Inspetor de Objetos


Nessa aba podemos personalizar os eventos dos objetos. Os eventos são ações que podem ser realizadas pelo usuário ou pelo programa. Por exemplo, quando o usuário clica num componente visual, o evento onClick é chamado, e o código contido nele será executado. Se o usuário nunca clicar nesse botão, esse código nunca seria executado. Para definir um código, uma ação, quando o usuário teclar [enter] no campo de texto, devemos inserir os comandos no evento "onKeyDown", que pode ser entendido como "aoApertarUmaTecla". Ele é chamado para todas as teclas enquanto o componente de texto estiver com o foco, então deveremos também incluir um verificador, para verificar se a tecla pressionada foi [enter]. Se for, faremos uma chamada ao componente do navegador para abrir o endereço digitado. Se não for, não faremos nada e deixaremos o usuário terminar de digitar Smile

Localize o evento "onKeyDown" (não se esqueça de selecionar o "Edit1" antes!), e dê um duplo clique no quadrinho em branco à sua esquerda, onde você percebe que pode digitar algo:
Aprenda a Criar Seu Próprio Navegador ATcAAADRgJz2ZWXPjZ-m8ebWC_ZsOSqOUSNYeOz1ZsESONCMp3XNfxtGp8B22d7oj08mfUo89KQB2HTMG-yHxMhImF94AJtU9VA4IlJKLKOb7zMWOF9mp8pIL2AElA

A janela de código será aberta no ponto correspondente, o Dephi já preparará toda a estrutura para você digitar os comandos. Digite isso, entre o begin e o end:


if Key = VK_RETURN then
web.Navigate(Edit1.Text);



Veja na tela, como ficaria:

Aprenda a Criar Seu Próprio Navegador ATcAAAB0rZOiKFPfK6N5XTOCEKpZk8I6p0ITF3i1MSqargjx2n9tb9yMlMBhuoYtBnjL0fhGd33yJjlG4BfXNxC5CKyJAJtU9VCBJwbkn2VnmaARYQU6ClLrHHfxgw

Vamos entender esse código... Traduzindo-o para o português:

se Tecla = Enter então
navegador.Abre(site digitado no campo de endereço);

A estrutura dependerá da linguagem de programação em uso, não se esqueça que este tutorial é de Delphi, portanto, não bastará "copiar e colar" esse mesmo código no Visual Basic ou C++. Mas as idéias são as mesmas.

O if é um comando verificador, e tem esta sintaxe:

if (condição verdadeira) then
faça alguma coisa;

O ponto e vírgula é o caractere terminador de linha em Pascal (a linguagem usada pelo Delphi). As instruções que não estiverem separadas por um ponto-e-vírgula, podem ser digitadas na mesma linha, se você quiser. Pula-se linhas e é costume teclar TAB para dar tabulações e espaços apenas para facilitar a edição do código, visto que quem o editará é uma pessoa – como você!

Nesse código, o verificador verifica se a tecla pressionada ("Key") foi a tecla [enter] ("VK_RETURN" é um identificador no Delphi, para a tecla [enter]; cada tecla tem um código próprio). Se foi, ele chama o método "Navigate" do objeto "web", passando como parâmetro o texto que estiver dentro do campo. Esse texto é obtido pela propriedade "Text", e ela é separada por um ponto do nome do objeto (assim como os métodos, eventos, funções... que aliás são, "num primeiro momento", a mesma coisa, evento, função e método).

Compile o programa e execute-o, digitando qualquer site na barra de endereços, e tecle [enter]. Se der erro na compilação e o programa não rodar, verifique todos os passos descritos, observando a mensagem de erro na tela do Delphi, que normalmente reporta o que ocorreu ou pelo menos a linha.

Dica: para executar o programa de dentro do Delphi, apenas tecle F9, ou clique no botão com o ícone de um "play", na barra de ferramentas. O arquivo gerado terá o mesmo nome do projeto que você salvou, mas a extensão ".exe". Você poderá distribui-lo e inclusive rodá-lo em outros computadores, sem precisar do Delphi Smile

Agora vamos definir as ações dos botões. O evento onClick deles é o evento padrão, por ser o mais intuitivo para um botão: fazer alguma coisa quando o usuário clicar nele. Como é o evento padrão, basta dar um duplo clique sobre cada botão, para digitar o evento para ele. Mas nada impede que você o faça selecionando o botão, e dando um duplo clique no evento "onClick", da aba "Events" do Object Inspector.

Essa parte será bem fácil, pois cada botão apenas chamará um método do componente do navegador, que no caso, é gerenciado pelo motor do Internet Explorer, ou seja, já está tud programado.

Dê um duplo clique sobre o botão "Voltar", e digite:

web.GoBack;

GoBack é um método definido pelos criadores do IE, que fará ele voltar à página anteriormente acessada.

Faça a mesma coisa para o botão "Avançar", digitando:

web.GoForward;

Para o botão "Parar":

web.Stop;

E finalmente, o botão "Atualizar":

web.Refresh;

Salve, compile e rode seu programa. Navegue por algumas páginas, para testar. Para que os botões "Voltar" e "Avançar" realmente funcionem, você deverá navegar clicando em alguma coisa (ou acessando outro endereço), e depois clicar no "Voltar".

CRÉDITOS: →→Luciano←←
Thomaz
Thomaz

Mensagens : 12
Data de inscrição : 25/05/2009

Ir para o topo Ir para baixo

Ir para o topo

- Tópicos semelhantes

 
Permissões neste sub-fórum
Não podes responder a tópicos