procedure TForm1.Button2Click(Sender: TObject);
var
doc: IHTMLDocument2;
denglu: OleVariant;
begin
tag:=0;
WebBrowser1.Navigate('https://login.taobao.com');
while(tag=0) do Application.ProcessMessages;
WebBrowser1.oleobject.Document.body.Scroll:='no';
Sleep(1000);
try
doc := WebBrowser1.Document as IHTMLDocument2;
if doc = nil then Exit;
denglu := doc.all.item('TPL_username_1', 0) as IHTMLElement2;
denglu.Value := edit1.Text; //為文本框賦值
denglu := doc.all.item('TPL_password_1', 0) as IHTMLElement2;
denglu.Value := edit2.Text; //為文本框賦值
denglu := doc.all.item('J_SubmitDynamic',0) as IHTMLElement2;
denglu.Click; //點擊按鈕，提交表單
except
//form1.show;
//close;
end;
end;
大家幫忙看下 怎么 實作 移動滑鼠 點擊編輯框 或者登陸按鈕。會的給出代碼：
謝謝！
uj5u.com熱心網友回復：
終極做法是用Indy http做轉載請註明出處，本文鏈接：https://www.uj5u.com/houduan/124539.html
上一篇：ACCESS匯出資料的問題