Um ano de Explorando e Aprendendo… Soltando o espírito geeeek e zuador par forah!!! ++ dicas ouZadas pra vc!

por Marcos Elias

E como boas coisas se conseguem com bons recursos… Essa dica eh de programação em Delphi. Rapidinha… Mas muitho doooooida!!!

QUE TAL IMPEDIR O USO DO INTERNET EXPLORER?

pois bem… você pode usar na empresa, para q ningm use esse navegador.. ou pode fazer um "brinquedinho" e mandar pro seu chefe, ex-namorada, professora, amigo, sogra, famil… BZZZZZZZZ

vamus lah…

mostrarei como criar um programinha no delphi q fecha TODAS as janelas do internet explorer, SEM INTERVENÇÃO DO USUÁRIO. é basicamente um programa q envia uma mensagem pro IE como se fosse o windows ou outro programa çério qquer… soh q ele manda a mensagem de fechar - e o IE, sendo um programa obediente, fexa.. [na real quem fecha o IE é o windows, o sistema operacional, afinal eh ele quem controla a execução dos progs e a transferência de dados entre eles... e isso funcionaria em teoria com qquer programa, basta ter o nome de alguma classe que ele uza ou o handle dele na sessão atual..]

saiba que: "handle" é um número de indentificação para determinados componentes de programas, visuais ou não, que o windows gerencia para poder manipular os programas… por exemplo ao maximizar, minimizar ou fechar uma janela, o windows usa o handle dela para poder ocultá-la ou mostrá-la na tela, mostrar ou naum o botão dela na barra de tarefas, etc.. os handles são fornecidos pelo sistema operacional (que tbm usa mtos handles para controle dos seus processos) conforme os progs vão sendo abertos, e libera os números qdo naum saum mais usados. assim um prog naum tem um handle fixo. o identificador do handle vale apenas numa sessão do programa…

pelo nome da classe (objeto interno dum programa, sem detalhes técnicos por aki agora..) podemos obter o handle dos programas açossiados a ela no momento. e eh issu q iremos fazer: buscar pela classe IEFrame, uzada pelo IE, e se encontrar (se tiver alguma janela do IE aberta), capturar o handle dela e mandar fexar..

enfim. vamos lah… Delphi!!!
abra o delphi, crie uma nova aplicação e coloque um Timer (o primeiro componente da paleta system).

dê um duplo clique no timer e deixe o evento Timer dele assim:

procedure TForm1.Timer1Timer(Sender: TObject);
var
tchauIE : Thandle;
begin
while tchauIE <> 0 do
begin
tchauIE := FindWindow('IEFrame',nil);
SendMessage(tchauIE,WM_SYSCOMMAND,SC_CLOSE,0);
end;
CloseHandle(tchauIE);
end;

ñ se eskeça de declarar a variável "tchauIE", q armazenará temporariamente o handle de todas as janelas q tenham o componente "ieframe" (q eh o quadro de navegação do ie).

Se quiser, diminua o interval do timer tbm..

eh issu!!! rode o programa e tente abrir o IE… naum dará!!! e tds os q estiverem abertos são fechados.

e^xplorando ainda ++:
em vez de SC_CLOSE como parâmetro, vc pode uzar:
SC_MAXIMIZE, para que o programa sempre seja maximizado (naum dará pra minimizar nem deixar a janela num tamanho menor)
SC_MINIMIZE, para minmimizar.. assim o ie soh ficará minimizado! a pessoa naum vai conseguir uzar e vai ficar louuuca!!!
procure por + coizas por vc msm…

vc pode programar um instalador oculto e colocar esse programinha pra se iniciar smp junto com o windows, daih poderia ser considerado um víruzinho.. rs coitadas das pessoas. o firefox bem q podia usar um código assim enquanto ele tah sendo eZecutrado neh?! naum eh o IE q eh o bam bam bam? pois bem.. rs

Dica: se quiser deixar seu programa 100% OCULTO (jah q ele mostraria o Form1), clique em "Project > ViewSource" e coloque dps do Application.Initialize:

Application.ShowMainForm := False;

mas aih pra fexar vc deve usar o gerenciador de tarefas..
se vc manjar legalz pode criar o timer em tempo de execução, diretamente no cod fonte do projeto, aih ele fika pekinininhu.. claaro remova o form1 e eXClua da uses td o q for supérfulo. se vc naum entendeu nd intaum essa msg naum foi pra vc. lembro q se kizer compactar o .exe num outro .exe automático e menor, use o UPX com o KebraByte, um compressor de executáveis gratuito: kebrabyte.mepsites.cjb.net.

dica ++: vc pode usar qquer outra coiZa no lugar de "IEFrame"… tipow se colocar "notepad" daih fexa o bloco de notas… "TfrmMepTexto" fexa o meu mep texto.. e^xplore + nomes de classes d outros programas q vc keira fechar ou impedir o uso, com o "WinSight32", que vem com o delphi (no menu dele no iniciar > programas)

boooa sorte!!!

200609070101 (oiah soh.. 7 de setembru.. e^xplorando e aprendendo, seeempre!!! haCKeando e aprendendu tbm, vaih.. afinalz quem acompanha esse site há qse um ano deve lembrar q o nome era "hackeando e aprendendo".. daih pcausa da integração com o mepsites e + e + dicas diversas, ficou "explorando". mas posts geeks e fuçadores d+ naum saum pra qquer um, daih uzo essa linguajem msm… td beeem?! se naum gostar, a web tah xeeeia de sites por aih.)