我原来写的模拟投票 procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject; const pDisp: IDispatch; var URL: OleVariant); var doc:IHTMLDocument2; begin if URL='载入的页面URL' then begin doc:=(WebBrowser1.Document as IHTMLDocument2); doc.parentWindow.execScript('document.voteform8370.ans1_15.checked=true;', 'javascript'); doc.parentWindow.execScript('document.voteform8370.vote.click();', 'javascript'); end; end;
问题已经解决,也是网上搜出来的 以登录www.163.com为例 var o: OleVariant; begin o := WebBrowser1.OleObject.document.all.item('userName',0); o.value := '用户名'; o := WebBrowser1.OleObject.document.all.item('password',0); o.value := '密码'; o := WebBrowser1.OleObject.document.all.item('login',0); o.submit; end;
procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject;
const pDisp: IDispatch; var URL: OleVariant);
var
doc:IHTMLDocument2;
begin
if URL='载入的页面URL' then
begin
doc:=(WebBrowser1.Document as IHTMLDocument2);
doc.parentWindow.execScript('document.voteform8370.ans1_15.checked=true;', 'javascript');
doc.parentWindow.execScript('document.voteform8370.vote.click();', 'javascript');
end;
end;
出现“无效的类别字符串”的错误
那比如用WebBrowser登录WWW.163.COM,是怎么搞的
能写个源代码吗,我 的情况跟这个差不多,谢谢
以登录www.163.com为例
var
o: OleVariant;
begin
o := WebBrowser1.OleObject.document.all.item('userName',0);
o.value := '用户名';
o := WebBrowser1.OleObject.document.all.item('password',0);
o.value := '密码';
o := WebBrowser1.OleObject.document.all.item('login',0);
o.submit;
end;