国产一级a片免费看高清,亚洲熟女中文字幕在线视频,黄三级高清在线播放,免费黄色视频在线看

webbrowser1.OleObject.Document.all.item(‘ButtonLogin‘).Click;//引號里改成html里相應(yīng)的button的名字。

可以直接調(diào)用javascript函數(shù)不? 我不想在里面建立隱藏的button 去點擊. 謝謝

procedure TForm1.Button1Click(Sender: TObject);
var
Document : Variant;
Script,r : Variant;
ArrLen : Variant;
begin
Document := WebBrowser1.Document;
Script := Document.Script;
r := Document.Script.GetArrayItem(Script.arr,0);
ShowMessage(r.value);
end;
以下是Web頁中的內(nèi)容
<script language=javascript>
function GetArrayItem(AArray,ItemIndex){
return AArray[ItemIndex];
}
function SetArrayItem(AArray,ItemIndex,NewValue){
AArray[ItemIndex] = NewValue;
}
</script>
//arr是Web頁中的一個Array.

(WebBrowser1.Document as IHTMLDocument2).parentWindow.execScript(strScript,‘javascript‘