// ZhAutoPosterDlg.cpp : 实现文件 // #include "stdafx.h" #include "ZhAutoPoster.h" #include "ZhAutoPosterDlg.h" #ifdef _DEBUG #define new DEBUG_NEW #endif // 用于应用程序“关于”菜单项的 CAboutDlg 对话框 class CAboutDlg : public CDialog { public: CAboutDlg(); // 对话框数据 enum { IDD = IDD_ABOUTBOX }; protected: virtual void DoDataExchange(CDataExchange* pDX); // DDX/DDV 支持 // 实现 protected: DECLARE_MESSAGE_MAP() }; CAboutDlg::CAboutDlg() : CDialog(CAboutDlg::IDD) { } void CAboutDlg::DoDataExchange(CDataExchange* pDX) { CDialog::DoDataExchange(pDX); } BEGIN_MESSAGE_MAP(CAboutDlg, CDialog) END_MESSAGE_MAP() // CZhAutoPosterDlg 对话框 CZhAutoPosterDlg::CZhAutoPosterDlg(CWnd* pParent /*=NULL*/) : CDialog(CZhAutoPosterDlg::IDD, pParent) { m_hIcon = AfxGetApp()->LoadIcon(IDR_MAINFRAME); } void CZhAutoPosterDlg::DoDataExchange(CDataExchange* pDX) { CDialog::DoDataExchange(pDX); DDX_Control(pDX, IDC_EXPLORER1, m_web); } BEGIN_MESSAGE_MAP(CZhAutoPosterDlg, CDialog) ON_WM_SYSCOMMAND() ON_WM_PAINT() ON_WM_QUERYDRAGICON() //}}AFX_MSG_MAP ON_BN_CLICKED(IDOK, &CZhAutoPosterDlg::OnBnClickedOk) ON_MESSAGE(WM_SHOWWEBPAGE,&CZhAutoPosterDlg::OnShowWebPage) ON_WM_CLOSE() ON_WM_SIZE() ON_BN_CLICKED(IDC_BUTTON_START, &CZhAutoPosterDlg::OnBnClickedButtonStart) END_MESSAGE_MAP() // CZhAutoPosterDlg 消息处理程序 BOOL CZhAutoPosterDlg::OnInitDialog() { CDialog::OnInitDialog(); // 将“关于...”菜单项添加到系统菜单中。 // IDM_ABOUTBOX 必须在系统命令范围内。 ASSERT((IDM_ABOUTBOX & 0xFFF0) == IDM_ABOUTBOX); ASSERT(IDM_ABOUTBOX < 0xF000); CMenu* pSysMenu = GetSystemMenu(FALSE); if (pSysMenu != NULL) { CString strAboutMenu; strAboutMenu.LoadString(IDS_ABOUTBOX); if (!strAboutMenu.IsEmpty()) { pSysMenu->AppendMenu(MF_SEPARATOR); pSysMenu->AppendMenu(MF_STRING, IDM_ABOUTBOX, strAboutMenu); } } // 设置此对话框的图标。当应用程序主窗口不是对话框时,框架将自动 // 执行此操作 SetIcon(m_hIcon, TRUE); // 设置大图标 SetIcon(m_hIcon, FALSE); // 设置小图标 // TODO: 在此添加额外的初始化代码 this->PostMessage(WM_SHOWWEBPAGE,(WPARAM)"http://www.zhonghuahunt.com/thread-517781-1-1.html",NULL); return TRUE; // 除非将焦点设置到控件,否则返回 TRUE } void CZhAutoPosterDlg::OnSysCommand(UINT nID, LPARAM lParam) { if ((nID & 0xFFF0) == IDM_ABOUTBOX) { CAboutDlg dlgAbout; dlgAbout.DoModal(); } else { CDialog::OnSysCommand(nID, lParam); } } // 如果向对话框添加最小化按钮,则需要下面的代码 // 来绘制该图标。对于使用文档/视图模型的 MFC 应用程序, // 这将由框架自动完成。 void CZhAutoPosterDlg::OnPaint() { if (IsIconic()) { CPaintDC dc(this); // 用于绘制的设备上下文 SendMessage(WM_ICONERASEBKGND, reinterpret_cast<WPARAM>(dc.GetSafeHdc()), 0); // 使图标在工作区矩形中居中 int cxIcon = GetSystemMetrics(SM_CXICON); int cyIcon = GetSystemMetrics(SM_CYICON); CRect rect; GetClientRect(&rect); int x = (rect.Width() - cxIcon + 1) / 2; int y = (rect.Height() - cyIcon + 1) / 2; // 绘制图标 dc.DrawIcon(x, y, m_hIcon); } else { CDialog::OnPaint(); } } //当用户拖动最小化窗口时系统调用此函数取得光标 //显示。 HCURSOR CZhAutoPosterDlg::OnQueryDragIcon() { return static_cast<HCURSOR>(m_hIcon); } void CZhAutoPosterDlg::OnBnClickedOk() { // TODO: 在此添加控件通知处理程序代码 } void CZhAutoPosterDlg::OnClose() { // TODO: 在此添加消息处理程序代码和/或调用默认值 if ( MessageBox("确定退出程序吗?","请确定",MB_YESNO|MB_ICONQUESTION) == IDYES) { ::CoUninitialize(); CDialog::OnClose(); } } // 显示网页内容的消息 LRESULT CZhAutoPosterDlg::OnShowWebPage(WPARAM wParam, LPARAM lParam) { LPSTR url = (LPSTR)wParam; m_web.Navigate(url,NULL,NULL,NULL,NULL); return LRESULT(); } BEGIN_EVENTSINK_MAP(CZhAutoPosterDlg, CDialog) ON_EVENT(CZhAutoPosterDlg, IDC_EXPLORER1, 259, CZhAutoPosterDlg::DocumentCompleteExplorer1, VTS_DISPATCH VTS_PVARIANT) END_EVENTSINK_MAP() void CZhAutoPosterDlg::DocumentCompleteExplorer1(LPDISPATCH pDisp, VARIANT* URL) { // TODO: 在此处添加消息处理程序代码 m_spDoc =m_web.get_Document(); CString strUrl; HRESULT hr; IUnknown* pUnk; LPDISPATCH lpWBDisp; pUnk = m_web.GetControlUnknown(); ASSERT(pUnk); hr = pUnk->QueryInterface(IID_IDispatch, (void**)&lpWBDisp); ASSERT(SUCCEEDED(hr)); strUrl=URL->bstrVal; IHTMLWindow2* pWnd2; m_spDoc->get_parentWindow(&pWnd2); if (strUrl.Find(_T("www.zhonghuahunt.com/thread"))!=-1) { SetFormItemVal(m_spDoc,"感谢大家的支持,一起学习","subject"); SetFormItemVal(m_spDoc,"我是新人,学习了,明天也去买材料,开始D。","fastpostmessage"); pWnd2->scrollBy(100,10000); }else if (strUrl.Find(_T("www.zhonghuahunt.com/view"))!=-1) { pWnd2->scrollBy(100,10000); } else { if (pDisp == lpWBDisp) { OutDbgStr("strUrl = %s",strUrl); } } } // 设置表单内容 BOOL CZhAutoPosterDlg::SetFormItemVal(IHTMLDocument2 * pIHTMLDocument2 ,LPCSTR sVal,LPCSTR sId,LPCSTR sProperty,LPCSTR sMatchVal) { OutDbgStr("准备设置表单内容."); BOOL bRet = FALSE; if( !pIHTMLDocument2 ) { return bRet; } HRESULT hr; CComBSTR bstrTitle; pIHTMLDocument2->get_title( &bstrTitle ); //取得文档标题 BSTR bstr = bstrTitle; OutDbgStr("标题:%s",CString(bstr)); CComQIPtr< IHTMLElementCollection > spElementCollection; hr = pIHTMLDocument2->get_forms( &spElementCollection ); //取得表单集合 CComQIPtr< IHTMLElement > pIHTMLEle; hr =pIHTMLDocument2->get_body(&pIHTMLEle); if ( FAILED( hr ) ) { return FALSE; } long nFormCount=0; //取得表单数目 hr = spElementCollection->get_length( &nFormCount ); OutDbgStr("表单数目:%d",nFormCount); if ( FAILED( hr ) ) { return FALSE; } for(long i=0; i<nFormCount; i++) { IDispatch *pDisp = NULL; //取得第 i 项表单 hr = spElementCollection->item( CComVariant( i ), CComVariant(), &pDisp ); if ( FAILED( hr ) ) continue; CComQIPtr< IHTMLFormElement > spFormElement = pDisp; pDisp->Release(); long nElemCount=0; //取得表单中 域 的数目 hr = spFormElement->get_length( &nElemCount ); OutDbgStr("表单%d元素数目:%d",i,nElemCount); if ( FAILED( hr ) ) continue; USES_CONVERSION; for(long j=0; j<nElemCount; j++) { CComDispatchDriver spInputElement; //取得第 j 项表单域 hr = spFormElement->item( CComVariant( j ), CComVariant(), &spInputElement ); CComQIPtr< IHTMLElement > spElement = spInputElement; if ( FAILED( hr ) ) continue; CComVariant vID, vType; LPCTSTR lpVID,lpType; CString strID, strType; hr = spInputElement.GetPropertyByName( L"id", &vID ); if( FAILED( hr ) ) continue; lpVID = vID.bstrVal ?OLE2CT( vID.bstrVal ) : _T("NULL"); strID.Format("%s",lpVID); CString strMatchVal(sMatchVal); if( strMatchVal.CompareNoCase("{$click}") == 0 ) { if ( strID.CompareNoCase(sId) == 0 ) { spElement->click(); OutDbgStr("点击按钮, ID=%s",sId); bRet = TRUE; break; } } if( sProperty == NULL ) { if ( strID.CompareNoCase(sId) == 0 ) { CComVariant vSetValue(sVal); spInputElement.PutPropertyByName(L"value", &vSetValue ); bRet = TRUE; break; } } else { hr = spInputElement.GetPropertyByName( (LPCOLESTR)sProperty, &vType ); if( FAILED( hr ) ) continue; lpType = vType.bstrVal ?OLE2CT( vType.bstrVal ) : _T("NULL"); strType.Format("%s",lpType); if (strID.CompareNoCase(sId) == 0 && strType.CompareNoCase(sMatchVal) == 0){ //是邮箱编辑框 CComVariant vSetValue(sVal); spInputElement.PutPropertyByName(L"value", &vSetValue ); bRet = TRUE; } } //spFormElement->submit(); } pDisp->Release(); } return bRet; } void CZhAutoPosterDlg::OnSize(UINT nType, int cx, int cy) { CDialog::OnSize(nType, cx, cy); // TODO: 在此处添加消息处理程序代码 } void CZhAutoPosterDlg::OnBnClickedButtonStart() { // TODO: 在此添加控件通知处理程序代码 SetFormItemVal(m_spDoc,"","postsubmit","","{$click}"); }