CppWebBrowser1->Navigate((WideString)"http://www.aaa.com.tw/a1/s2");

void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
  CppWebBrowser1->Navigate((WideString)"http://www.aaa.com.tw/a1/s2");
}

引言: 我最近也在研究這個問題。先給你個代碼： 這就是模擬點擊的部份，有興趣我們再互相學習一下

void __fastcall TForm1::Button3Click(TObject *Sender)
{
        _di_IDispatch disp;
        System::DelphiInterface htmldoc2;
        System::DelphiInterface htmlelem;
        System::DelphiInterface htmlelemcol;
        IDispatch *ppvdispOption;
        WideString ws,ws1;
//        ws.SetLength(10240);
        disp = this->CppWebBrowser1->Document;
        disp->QueryInterface(IID_IHTMLDocument2,(void**)&htmldoc2);
        htmldoc2->get_all(&htmlelemcol);
        HRESULT hResult;
        System::DelphiInterface htmlresult;
        VARIANT index;
        index.vt=VT_I4;    ///////////////////////////////////////////////////////--------------
//這就是要模擬點擊的html
        ws1.operator =("<INPUT class=v02  type=button value=搜索 name=B1>");
/////////////////////////////----------------------------------------            long a,l;
        htmlelemcol->get_length(&a);
        ws.SetLength(10240);
        for(l=0;litem(index,index,&ppvdispOption);
                if FAILED(hResult) return;
                hResult =ppvdispOption->QueryInterface( IID_IHTMLElement,(void**)&htmlresult);
                htmlresult->get_outerHTML(&ws);
                if(ws==ws1)
                {
                        break;
                }
        }
        if(l>=a)
        {
                ShowMessage("找不到");
                return;
        }
        htmlresult->click();
//                htmlresult->Release();
}    

        Variant disp,alllinks,eachlink;
        int linkcount;            disp = CppWebBrowser1->Document;
        alllinks = disp->OlePropertyGet("links"); //取得所有的連結
        linkcount = alllinks.OlePropertyGet("length"); //取得連結的數量
        for (int i=0;i<linkcount;i  )
        {
                eachlink = linkall.OleFunction("item",i); //依序取得每一個連結
                if (eachlink.OlePropertyGet("innerText")=="網站登錄") //判斷<a>中的文字
                {
                        eachlink.OleFunction("click"); //按下連結
                        break; //記得離開for迴圈
                }
        }

引言: artist1002大大 我剛剛又再試一次，這次已經正常可以運作了 可是我還有一個問題想問耶^^" 就是，如果我現在要點選的是網頁上的button呢 radio button 要在程式中修改哪一個部份呢?

        Variant disp,dhtmlbutton;
        
        disp = CppWebBrowser1->Document;
        dhtmlbutton = disp.OleFunction("getElementsByName","button1"); //取得button1按鈕
        if (!dhtmlbutton->IsNull()) //如果有找到按鈕
                dhtmlbutton->OleFunction("click"); //按下按鈕

        dhtmlbutton = disp.OleFunction("getElementById","buttonId"); //取得button1按鈕

        Variant disp,allbuttons,eachbutton;
        int buttoncount;            disp = CppWebBrowser1->Document;
        allbuttons = disp.OleFunction("getElementsByTagName","input"); //取得所有tag是input的集合
        buttoncount = allbuttons.OlePropertyGet("length"); //取得集合的數量
        for (int i=0;i<buttoncount;i  )
        {
                eachbutton = allbuttons.OleFunction("item",i); //依序取得每一個連結
                if (eachbutton.OlePropertyGet("value")=="搜尋") //判斷value的文字
                {
                        eachbutton.OleFunction("click"); //按下按鈕
                        break; //記得離開for迴圈
                }
        }    </pre>    另外如果只是要讓form作submit的動作
也可以找form然後下submit的Function     
        

引言:

引言: artist1002大大 我剛剛又再試一次，這次已經正常可以運作了 可是我還有一個問題想問耶^^" 就是，如果我現在要點選的是網頁上的button呢 radio button 要在程式中修改哪一個部份呢?

這個就是要看DHTML了 http://msdn.microsoft.com/library/default.asp?url=/workshop/author/dhtml/reference/objects/obj_document.asp 我們可以把CppWebBrowser1->Document當作是DHTML的document物件 接著就參考MSDN的文件尋訪內容,遇到Attributes/Properties就用OlePropertyGet來讀，用OlePropertySet來寫 遇到Collections也是用OlePropertyGet來取得 遇到Methods就用OleFunction來做 如果要點選的是網頁上的button，先看網頁原始碼的input button有沒有設定id或是name，有的話會比較簡單。 先假設有name為button1，以下的是按下button

        Variant disp,dhtmlbutton;
        
        disp = CppWebBrowser1->Document;
        dhtmlbutton = disp.OleFunction("getElementsByName","button1"); //取得button1按鈕
        if (!dhtmlbutton->IsNull()) //如果有找到按鈕
                dhtmlbutton->OleFunction("click"); //按下按鈕

如果有Id的話只要改成就可以

        dhtmlbutton = disp.OleFunction("getElementById","buttonId"); //取得button1按鈕

最糟的狀況是沒有name也沒有Id的狀況 這個時候就需要取得所有的input的collections然後一個一個比較，看哪個是你要的 可以比較value或是其他的部份. 假設button的value是"搜尋"

        Variant disp,allbuttons,eachbutton;
        int buttoncount;            disp = CppWebBrowser1->Document;
        allbuttons = disp.OleFunction("getElementsByTagName","input"); //取得所有tag是input的集合
        buttoncount = allbuttons.OlePropertyGet("length"); //取得集合的數量
        for (int i=0;i<buttoncount;i  )
        {
                eachbutton = allbuttons.OleFunction("item",i); //依序取得每一個input
                if (eachbutton.OlePropertyGet("value")=="搜尋") //判斷value的文字
                {
                        eachbutton.OleFunction("click"); //按下按鈕
                        break; //記得離開for迴圈
                }
        }    </pre>    另外如果只是要讓form作submit的動作
也可以找form然後下submit的Function