■ Design my life Subys.com :) - [BCB6] 웹브라우저에 스크립트 날리기.

[BCB6] 웹브라우저에 스크립트 날리기. | Egloos Data/〃Programming

요즘 MSHTML과 CppWebBrowser를 가지고 노는데.. 너무 재밌습니다.
일단 첫번째로 스크립트 날리는 코드를 만들어봤습니다.

호스트에서 직접 스크립트를 날리는 효과와 같기 때문에 마음대로 제어가 가능하겠군요..
(게시판 읽기, 자동 코멘트, 자동 포스팅, 파일 업로드 등등)

Source Code)
void __fastcall ExecuteScript(TCppWebBrowser* pCppWebBrowser, WideString wstrLang, WideString wstrScript)
{
    HRESULT hr;
    VARIANT vResult;

    IDispatch* pDocument;
    IHTMLDocument2* pHTMLDocument;
    IHTMLWindow2* pHTMLWindow;

    pDocument = pCppWebBrowser->Document;

    hr = pDocument->QueryInterface(IID_IHTMLDocument2, (void**)&pHTMLDocument);

    if(hr == S_OK)
    {
        hr = pHTMLDocument->get_parentWindow(&pHTMLWindow);

        if(hr == S_OK)
        {
            pHTMLWindow->execScript(wstrScript, wstrLang, &vResult);
            pHTMLWindow->Release();
        }

        pHTMLDocument->Release();
    }

    pDocument->Release();
}

Example)
//야후에서 이글루스 단어 검색

WideString wstrScript;
//야후 접속
CppWebBrowser1->Navigate(TVariant("http://yahoo.co.kr"));

//스크립트 날리기
wstrScript = "document.search.p.value = '이글루스';
document.search.action = 'http://kr.rd.yahoo.com/home-dosearch/*http://kr.search.yahoo.com/search';
document.search.submit()";

ExecuteScript(CppWebBrowser1, "JavaScript", wstrScript);