cppwebbrowser点击按钮

void TForm1::ClickURL(AnsiString strURL)    //登陆时
{

 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 = alllinks.OleFunction("item",i); //依序取得每一個链接     

if (eachlink.OlePropertyGet("innerText")==(Variant)strURL) //判断中的文字
  {
   eachlink.OleFunction("click"); //按下链接
   break; 
  }
 }

}