Delphi Webbrowser使用方法详解
1.webbroser介绍
该组件是一个浏览器组件，可以显示一个指定地址的网页、设置网页打开时的主页以及对网页进行相关的操作，同时也可以对HTML文件进行剪切、复制、粘贴、删除等操作。该 组件在Internet组件页中，属于TWebbrowser类。 它放在程序当中，可以像操作网页一样操作webbrowser控件。
2.webbrowser有哪些应用
webbrowser目前大多数都是完成自动提交或定时处理某种操作，例如：
1.网页数据采集 ，从别人的论坛里面把帖子采集出来，放到我们的论坛里面，例如火车头采集器；
2.发帖，不断的到百度贴吧或者其他论坛去发帖也称灌水；
3.网购，例如淘宝上限时秒抢之类的；
4.投票，不断的变换IP去投票；
5.抢火车票，不断的刷新火车票，一有票就提示抢购；
6.开发浏览器，像原来的的360，腾讯，搜狗浏览器都是基于IE内核开发出来的；
3.同类控件
1.Indy中的idhttp 特点不可见，使用麻烦，有阻塞，但效率高；
2.ICS跟idhttp差不多
3.TEmbeddedwb第三方控件，跟webbrowser差不多，功能更强大，缺点是没有相关使用说明或资料；
本人目前使用的就是TEmbeddedWB,主要是该控件屏蔽弹窗很牛逼，而且能截获弹出窗口的信息，不管是不是带不带框架的，后续的介绍也都是基于TEmbeddedWB展开，它和webbroser的使用方法都差不多，有区别的会特意注明。
搞了N久的Webbroser，今天终于有心情把它总结出来贡献给大家，希望能帮助到那些使用webbrowser的人们,转载请注明出处，谢谢！ 未完待续
delphi如何用webbrowser模拟登录网站？
我们就以如何登录博客园来做示例：
1.要登入一个网站，首先要获取网页的源代码，我们可以通过网页菜单--查看--查看源代码来获取。
2.我们找到登录部分的代码：
<div
id="Heading">登录到博客园 <a
href="/register.aspx?ReturnUrl=http://home.cnblogs.com/"
title="注册成为博客园用户">立即注册</a></div>
<label class="MyLabel">用户名</label>
<div class="line"><input name="tbUserName" type="text"
id="tbUserName" class="Textbox" /> <a
href="/GetUsername.aspx" tabindex="-1"
class="tb_right">找回用户名</a></div>
<span id="Required_UserName" style="color:Red;visibility:hidden;">用户名不能为空</span>
<label class="MyLabel">密码</label>
<div class="line"><input name="tbPassword" type="password"
id="tbPassword" class="Textbox" /> <a href="/GetMyPassword.aspx"
tabindex="-1" class="tb_right">找回密码</a></div>
<span id="Required＿Password"
style="color:Red;visibility:hidden;">密码不能为空</span>
<div>
<span class="chk"><input id="chkRemember" type="checkbox"
name="chkRemember" /><label
for="chkRemember">保存密码</label></span><br />
<input type="submit" name="btnLogin" value="登 录"
onclick="javascript:WebForm_DoPostBackWithOptions(new
WebForm_PostBackOptions("btnLogin",
"", true, "", "",
false, false))" id="btnLogin" class="Button" style="margin-top: 8px"
/>
因为这个网页是不含框架的，所以可以直接获取到源代码，如果含有框架的网页，后续会讲到如何获取含框架的网页源代码。
3.加入我们已经有用户了，没有的话可以申请个做测试用，我们登录就是输入账号密码点击登录就可以了。
代码如下：
webbrowser1.OleObject.document.all.item('tbUserName').value := '你的用户名';
webbrowser1.OleObject.document.all.item(tbPassword).value := '你的密码;
webbrowser1.OleObject.document.all.item(chkRemember).Click;
这样一个网站简单的登录就实现了，后面我再介绍更多模拟登录的方法和含有框架的登录方法。
转载请注明出处，谢谢！
