Webbrowser中模拟连接点击(非鼠标模拟)
摘要:
usesmshtml,ActiveX;//初始加载网易主页procedureTForm1.FormCreate(Sender:TObject);beginWebbrowser1.Navigate('http://www.163.com/');end;procedureTForm1.Button1Click(Sender:TObject);varI:Integer;Document:IHTMLDocument2;Element:IHTMLElement;Anchors:IHTMLElementCollection;sLink:string;begin//查找网易新闻页面链接sLi 阅读全文
posted @ 2012-02-12 20:25 jxgxy 阅读(561) 评论(1) 推荐(0) 编辑