1. 폼위에 WebBrowser 컴포넌트를 올려놓고.
2. WebBrowser 컴포넌트에는 홈페이지를 불러왔습니다.
3. 홈페이지의 로그인 입력창에 자동으로 id, password 를 입력하는것 까지는 했습니다.
4. 마지막으로 password 에 포커스까지는 이동하였으나.
5. Enter 키값을 프로그램에서 입력하려고 합니다. ??
keybd_event(Ord(VK_RETURN), MapVirtualKey(Ord(VK_RETURN), 0), 0, 0);
keybd_event(Ord(VK_RETURN), MapVirtualKey(Ord(VK_RETURN), 0), KEYEVENTF_KEYUP, 0);
를 이용하면 입력이 되지만. 포커스가 다른곳에 있을땐 안되더군요..
포커스가 어디있던지 그곳에 Enter 키값을 넣는 방법좀 알려주십시요.
sendmessage 함수를 이용하면될것같은데.. WebBrowser 속의 입력부 핸들을 구하는 것이 잘안되더군요..
부탁좀 드리겠습니다..
iDoc2 : IHTMLDocument2;
iW2 : IHtmlWindow2;
begin
iDoc2 := WebBrowser1.DefaultInterface.Document as IHtmlDocument2;
iW2 := iDoc2.parentWindow;
iW2.execScript('Login();', 'JavaScript');
iW2.execScript('XecureSubmit( document.login );', 'JScript');
로해결했습니다.
근데요.. iW2.execScript('Login();', 'JavaScript'); 했을때 리턴값은 어떤게 받아서 처리하는지 쩝... 암튼 다행입니다.. 힌트 주신분들 감사해요..