Skip to content

Instantly share code, notes, and snippets.

@kumatti1
Last active August 29, 2015 14:10
Show Gist options
  • Save kumatti1/f39822171f105de439f4 to your computer and use it in GitHub Desktop.
Save kumatti1/f39822171f105de439f4 to your computer and use it in GitHub Desktop.
Google検索
#include <Exdisp.h>
#import <shdocvw.dll>
#import <mshtml.tlb>
#define URL L"https://www.google.co.jp/?gws_rd=ssl"
HRESULT test()
{
HRESULT hr = S_OK;
try{
SHDocVw::IShellWindowsPtr psw;
hr = psw.CreateInstance(__uuidof(SHDocVw::ShellWindows));
if (FAILED(hr)) _com_issue_error(hr);
_variant_t varLoc(_bstr_t(URL));
_variant_t VarRoot;
long h = 0;
IDispatchPtr pDisp = psw->FindWindowSW(&varLoc, &VarRoot, SWC_BROWSER, &h, SWFO_NEEDDISPATCH);
SHDocVw::IWebBrowser2Ptr pBrowser(pDisp);
MSHTML::IHTMLDocument2Ptr pDoc(pBrowser->Document);
MSHTML::IHTMLElementCollectionPtr pCol( pDoc->forms );
MSHTML::IHTMLFormElementPtr pForm( pCol->item( _variant_t( L"f" ) ) );
MSHTML::IHTMLInputElementPtr pInput( pForm->item( _variant_t( L"q") ) );
pInput->value = L"hoge";
pForm->submit();
}
catch (_com_error& e) {
hr = e.Error();
}
return hr;
}
int CALLBACK WinMain(
_In_ HINSTANCE hInstance,
_In_ HINSTANCE hPrevInstance,
_In_ LPSTR lpCmdLine,
_In_ int nCmdShow
)
{
CoInitialize(NULL);
test();
CoUninitialize();
return 0;
}
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment