Pegando texto dessa função
Galera achei essa função num tópico aqui mais num conseguir fazer algo pra pegar o texto que está no Edit
olhá só
Var
Explorer, Worker, Bar, ComboEx, Combo, Edit : HWND;
begin
Edit := 0;
Explorer := FindWindow(´CabinetWClass´, nil);
If Explorer <> 0 Then Begin
Worker := FindWindowEx(Explorer, 0, ´WorkerA´, nil);
If Worker <> 0 Then Begin
Bar := FindWindowEx(Worker, 0, ´ReBarWindow32´, nil);
If Bar <> 0 Then Begin
ComboEx := FindWindowEx(Bar, 0, ´ComboBoxEx32´, nil);
If ComboEx <> 0 Then Begin
Combo := FindWindowEx(ComboEx, 0, ´ComboBox´, nil);
If Combo <> 0 Then Begin
Edit := FindWindowEx(Combo, 0, ´Edit´, nil);
End;
End;
End;
End;
como vcs viram ela pega o andle do edit do IE
gostaria de fazer assim
if edit = ´www.sexo.com.br´ then
begin
showmessage(´Proibido´);
End;
entenderam essa função pega o handle do edit.
gostaria de saber como faço para pegar o que o usuario digitou pra poder verificar e caso seja uma url proibida faça o q eu quiser.
desde já agradeço
olhá só
Var
Explorer, Worker, Bar, ComboEx, Combo, Edit : HWND;
begin
Edit := 0;
Explorer := FindWindow(´CabinetWClass´, nil);
If Explorer <> 0 Then Begin
Worker := FindWindowEx(Explorer, 0, ´WorkerA´, nil);
If Worker <> 0 Then Begin
Bar := FindWindowEx(Worker, 0, ´ReBarWindow32´, nil);
If Bar <> 0 Then Begin
ComboEx := FindWindowEx(Bar, 0, ´ComboBoxEx32´, nil);
If ComboEx <> 0 Then Begin
Combo := FindWindowEx(ComboEx, 0, ´ComboBox´, nil);
If Combo <> 0 Then Begin
Edit := FindWindowEx(Combo, 0, ´Edit´, nil);
End;
End;
End;
End;
como vcs viram ela pega o andle do edit do IE
gostaria de fazer assim
if edit = ´www.sexo.com.br´ then
begin
showmessage(´Proibido´);
End;
entenderam essa função pega o handle do edit.
gostaria de saber como faço para pegar o que o usuario digitou pra poder verificar e caso seja uma url proibida faça o q eu quiser.
desde já agradeço
Buffering
Curtidas 0
Respostas
Micheus
16/04/2007
Dê uma olhada no help da API do Windos, procure por WM_GETTEXT. Vc vai passar para SendMessage o handle da janela desejada e o buffer onde será devolvido o conteúdo dela.
Abraços
Abraços
GOSTEI 0
Buffering
16/04/2007
Caro Micheus eu fiz conforme abaixo e naum adiantou o q tem de errado ??
If Combo <> 0 Then
Begin
Edit := FindWindowEx(Combo, 0, ´Edit´, nil);
If Edit <> 0 Then
Begin
SendMessage(Edit,WM_GETTEXT,SizeOf(URL),Integer(@URL));
ShowMessage(URL);
onde URL Está declarada assim:
URL : array[0..2047] of char;
nao sei c é assim me responde e diga q q tem de errado
pois o programa compila certo mais quando eu clico no botão pra pegar a url digitada e dar um showmessage num acontece nada ??
If Combo <> 0 Then
Begin
Edit := FindWindowEx(Combo, 0, ´Edit´, nil);
If Edit <> 0 Then
Begin
SendMessage(Edit,WM_GETTEXT,SizeOf(URL),Integer(@URL));
ShowMessage(URL);
onde URL Está declarada assim:
URL : array[0..2047] of char;
nao sei c é assim me responde e diga q q tem de errado
pois o programa compila certo mais quando eu clico no botão pra pegar a url digitada e dar um showmessage num acontece nada ??
GOSTEI 0