如何對網(wǎng)頁輸入框進(jìn)行編程
飄飄白云（kesalin@gmail.com） 2009.04.23
假如網(wǎng)頁中有如下兩個輸入框（多行輸入框和單行只讀輸入框），在程序中該怎樣來取得輸入框的內(nèi)容和相關(guān)屬性，或控制用戶操作呢？
<textarea name="text"cols="32" rows="4">Multiline editbox</textarea><br />
<input type="text" name="url" value="Readonly editbox" readonly /><br />
因為網(wǎng)頁中輸入框不是一般的EDIT控件，因此不能取得這些輸入框的句柄。要實現(xiàn)這個功能，只能通過WebBrowser控件的有關(guān)COM接口了。因此要首先取得WebBrowser接口，這個過程可以參考：
如何從一個 HWND 獲取 IHTMLDocument 2接口，大意如下：
This article shows how to get the IHTMLDocument2 interface from a HWND. If Microsoft Active Accessibility (MSAA) is installed, you can send the WM_HTML_GETOBJECT message to the document's window (with the window class "Internet Explorer_Server") and then pass the result from SendMessage to an MSAA function, ObjectFromLresult, to get a fully marshaled IHTMLDocument2 pointer.
本文介紹如何從一個 HWND 獲取 IHTMLDocument 2 接口。 如果安裝了 Microsoft Active Accessibility (MSAA) ，你可以發(fā)送 WM_HTML_GETOBJECT 消息到該文檔的窗口 （使用窗口類"Internet Explorer_Server"），然后將結(jié)果從 SendMessage 傳給 MSAA 函數(shù) ObjectFromLresult ，這樣就獲得IHTMLDocument 2 指針。
假設(shè)我們已經(jīng)取得了IHTMLDocument 2 指針，下面我們用這個IHTMLDocument2指針進(jìn)行一些操作。下面的代碼示范了判斷當(dāng)前焦點窗口是否是輸入框，然后取得輸入框的相關(guān)屬性和內(nèi)容（盜取網(wǎng)頁秘碼就是這么干的），并且修改其內(nèi)容。
1
IHTMLDocument2* doc;//GetWebDocument();
2 IHTMLElement* pElement;
3 HRESULT hr = doc->get_activeElement(&pElement);
4
if (SUCCEEDED(hr))
{
5
VARIANT_BOOL vIsTextEdit = VARIANT_FALSE;
6 pElement->get_isTextEdit(&vIsTextEdit);
7
if (vIsTextEdit == VARIANT_TRUE){
8 BSTR bTagName;
9 pElement->get_tagName(&bTagName);
10
11 char chTag[MAX_PATH] = { '\0' };
12 WideCharToMultiByte(CP_ACP, 0, bTagName, -1, chTag,
13
14MAX_PATH, NULL, NULL);
15 _strupr_s(chTag, MAX_PATH);
16 if(lstrcmpA(chTag, "INPUT") == 0 || lstrcmpA(chTag,
17
18"TEXTAREA") == 0) {
19 VARIANT attr;
20 VariantInit(&attr);
21
22 BSTR bstrTemp;
23 bstrTemp = SysAllocString(L"readonly");
24 hr = pElement->getAttribute(bstrTemp, 0, &attr);
25 if (SUCCEEDED(hr)){
26 if (attr.vt == VT_BOOL && attr.boolVal ==
27
28VARIANT_TRUE){
29 // read only
30 return false;
31
}
32
33 IHTMLInputTextElement* pInputTextElement;
34 hr = pElement->QueryInterface
35
36(IID_IHTMLInputTextElement, (void**)(&pInputTextElement));
37 if (SUCCEEDED(hr)){
38 BSTR bstrType;
39 pInputTextElement->get_type(&bstrType);
40 char chType[MAX_PATH] = { '\0' };
41 WideCharToMultiByte(CP_ACP, 0, bstrType, -1,
42
43chType, MAX_PATH, NULL, NULL);
44 _strupr_s(chType, MAX_PATH);
45 if (lstrcmpA(chType, "PASSWORD") == 0){
46 BSTR bstrOld;
47 BSTR bstrNew;
48 bstrNew = SysAllocString(L"Change text");
49 pInputTextElement->get_value(&bstrOld);
50 pInputTextElement->put_value(bstrNew);
51 }
52 }
53 }
54
55 VariantClear(&attr);
56 }
57 }
58
59 pElement->Release();
60 pElement = N
此外你還可以通過調(diào)用IHTMLDocument2的調(diào)用execCommand函數(shù)來控制對網(wǎng)頁的操作，比如復(fù)制，剪切等等。（The world瀏覽器的編輯模式查看網(wǎng)頁，我猜就是用這個辦法），下面的是這個ExecCommand函數(shù)是對IHTMLDocument2的execCommand函數(shù)的簡單封裝。其中cmdStr可以為：L"Paste", L"Cut", L"Copy", L"Undo", L"Delete"等。
1void ExecCommand(LPCWSTR cmdStr)
2{
3 if (m_WebDocument == 0 || cmdStr == NULL) {
4 return;
5 }
6
7 ATL::CComBSTR cmdBStr(cmdStr);
8 ATL::CComVariant vNull;
9 VARIANT_BOOL bOK;
10 HRESULT hRslt = m_WebDocument->execCommand(
11 cmdBStr,
12 VARIANT_FALSE,
13 vNull,
14 &bOK);
15
}