如何自动化 InternetExplorer 对 POST 表单数据

1.	确保安装 ActiveX 或 InternetClientSDK。
2.	启动 VisualC++, 并创建新的 Win 32 控制台项目。
3.	创建新文本文档, 并添加以下代码： #include <windows.h> #define INITGUID #include <initguid.h> #include <exdisp.h> #include <memory.h> HRESULT GetPostData(LPVARIANT pvPostData); void main() { HRESULT hr; IWebBrowserApp* pWBApp = NULL; // Derived from IWebBrowser BSTR bstrURL = NULL, bstrHeaders = NULL; VARIANT vFlags = {0}, vTargetFrameName = {0}, vPostData = {0}, vHeaders = {0}; if (FAILED(hr = CoInitialize(NULL))) { return; } if (FAILED(hr = CoCreateInstance(CLSID_InternetExplorer, NULL, CLSCTX_SERVER, IID_IWebBrowserApp, (LPVOID*)&pWBApp))) { goto Error; } bstrURL = SysAllocString(L"http://<server>/scripts/navpost.asp"); if (!bstrURL) { goto Error; } bstrHeaders = SysAllocString( L"Content-Type: application/x-www-form-urlencoded/r/n"); if (!bstrHeaders) { goto Error; } V_VT(&vHeaders) = VT_BSTR; V_BSTR(&vHeaders) = bstrHeaders; hr = GetPostData(&vPostData); hr = pWBApp->Navigate(bstrURL, &vFlags, &vTargetFrameName, &vPostData, &vHeaders); pWBApp->put_Visible(VARIANT_TRUE); Error: if (bstrURL) SysFreeString(bstrURL); if (bstrHeaders) SysFreeString(bstrHeaders); VariantClear(&vPostData); if (pWBApp) pWBApp->Release(); CoUninitialize(); } // Pack some data into a SAFEARRAY of BYTEs. Return in a VARIANT HRESULT GetPostData(LPVARIANT pvPostData) { HRESULT hr; LPSAFEARRAY psa; LPCTSTR cszPostData = "FName=Matt&Flavor=Mocha+Chip"; UINT cElems = lstrlen(cszPostData); LPSTR pPostData; if (!pvPostData) { return E_POINTER; } VariantInit(pvPostData); psa = SafeArrayCreateVector(VT_UI1, 0, cElems); if (!psa) { return E_OUTOFMEMORY; } hr = SafeArrayAccessData(psa, (LPVOID*)&pPostData); memcpy(pPostData, cszPostData, cElems); hr = SafeArrayUnaccessData(psa); V_VT(pvPostData) = VT_ARRAY | VT_UI1; V_ARRAY(pvPostData) = psa; return NOERROR; }
4.	修改根据, URL 引用并保存代码。 将其添加到项目, 然后生成。
5.	关闭所有浏览器实例并运行应用程序。
6.	切换到要查看已发布数据， IE 的运行实例。