Q&A

  • 폼위의 WebBrowser 컴포넌속에 Enter키값넣는 방법좀 알려주십시요.

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 속의 입력부 핸들을 구하는 것이 잘안되더군요..

부탁좀 드리겠습니다..
3  COMMENTS
  • Profile
    정종섭 2003.12.25 00:43
    var
       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'); 했을때 리턴값은 어떤게 받아서 처리하는지 쩝... 암튼 다행입니다.. 힌트 주신분들 감사해요..
  • Profile
    갈매기 2003.12.24 20:56

    ^^
    답글은 아니구요..
    갠적인 질문인데.
    혹시 DSU 컴공 나오셨나요? ㅎㅎ
  • Profile
    nilriri™ 2003.12.24 20:18

    샬롬~

    Doc := WebBrowser.DefaultInterface.Document as IHtmlDocument2;
    HtmlWindow := Doc.parentWindow;
    OleLanguage := 'JavaScript';
    HtmlWindow.execScript('Init()', 'JavaScript');

    메리 크리스마스~