안녕하세요 하얀까마귀 입니다.



얼마전에도 비슷한 질문을 받았던것 같은데....



우선.. 실행하는건 OLE를 이용하시면 간단하게 되구요...



procedure TForm1.IERUN(furl : String);

const

csOLEObjName = 'InternetExplorer.Application';

begin



IE := IE2;

IE := CreateOleObject( csOLEObjName );

IE.Visible := true;

IE.Navigate( fURL );

end;



만 하시면 됩니다...



아!! OLEAuto를 uses하시는거 잊지 마시구요...



그런데.. 알아내는건 조금 힘들어요.. 왜냐하면.. 음....



다른 방법은 모르구요.. 그냥 그놈의 핸들을 찾아서 그러니까 주소가 적히는 부분도



콘트롤이거든요.. 그러니까 이 콘트롤의 텍스트를 읽으면 되겠죠.. 이렇게 하자면은..



이놈의 콘트롤의 핸들을 찾아야 하는데... 이게조금 (아주조금) 힘들어요. 아니 귀찮죠



이놈이 좀 깊이 들어가 있거든요... 그래서.....



그래도 오늘 토요일이라 시간이 조금 있어서 코딩을 했으니까 참조하세요...



아!! 그리고 이건 IE 5.0에서 테스트 한거니까.... 다른건 winSight32를 실행 시키셔서



참조하시면 금방 만드실수 있을겁니다.



procedure TForm1.Button1Click(Sender: TObject);

var

WinHandle, SubHandle: THandle;

i : Integer;

fURL: string;

begin

// ie 4.0

WinHandle := FindWindow('CabinetWClass',nil);



// ie 5.0

if WinHandle = 0 then

WinHandle := FindWindow('IEFrame', nil);



// IE를 찾았으니까.. 이제 그놈의 콘트롤을 찾아야죠?? Edit라는놈을 찾아야 합니다.

if WinHandle <> 0 then

begin

SubHandle := FindWindowEx(WinHandle, 0, 'WorkerA', nil);



if SubHandle <> 0 then

begin

SubHandle := FindWindowEx(SubHandle, 0, 'ReBarWindow32', nil);



if SubHandle <> 0 then

begin

SubHandle := FindWindowEx(SubHandle, 0, 'ComboBoxEx32', nil);



if SubHandle <> 0 then

begin

SubHandle := FindWindowEx(SubHandle, 0, 'ComboBox', nil);



if SubHandle <> 0 then

begin

// 바로 요놈이 주인공이죠.... 많이도 들어가 있구나..

SubHandle := FindWindowEx(SubHandle, 0, 'Edit', nil);



if SubHandle <> 0 then

begin

// 이제 이놈의 텍스트의 길이를 가르쳐 달라고 합니다....

i := SendMessage(SubHandle, WM_GETTEXTLENGTH, 0, 0);

SetLength(fURL, i);

// 그리고 이놈의 텍스트를 달라고 메세지를 보내요...

i := SendMessage(SubHandle, WM_GETTEXT, i + 1, lParam(PChar(fURL)));



//이제 구한값을 폼의 텍스트로 복사하면 끝......

Edit1.Text := fURL;

end;

end;

end;

end;

end;

end;

end;





// 기능에 비해서 코딩이 조금 길어진것 같은데.....

에러 처리기능 조금만 추가하면 좋은 코드가 될것 같네요...



그럼 즐거운시간 보내세요..



- 하얀까마귀 -









Castle Road wrote:

> ^^

> 현재 브라우저가 접속하고 있는 곳의 URL을 어떻게 알 수 있겠습니까?

>

> 꼭 후킹이 아니더라도, 타이머에 의해서도 검사할 수 있습니다.

>

> 이런 자료를 찾아볼 수 있는 곳이나, 책도 괜찮습니다.

>

> 한 수 부탁드립니다.

>

> # 나를 두렵게 만드는 사람을 만나라!