delphi如何用webbrowser模拟登录网站？

我们就以如何登录博客园来做示例：

1.要登入一个网站，首先要获取网页的源代码，我们可以通过网页菜单--查看--查看源代码来获取。

2.我们找到登录部分的代码：
                        <div >登录到博客园 &nbsp;<a href="/register.aspx?ReturnUrl=http://home.cnblogs.com/" title="注册成为博客园用户">立即注册</a></div>
                        <label class="MyLabel">用户名</label>
                        <div class="line"><input name="tbUserName" type="text" />&nbsp;<a href="/GetUsername.aspx" tabindex="-1" class="tb_right">找回用户名</a></div>
                        <span >密码</label>
                        <div class="line"><input name="tbPassword" type="password" tabindex="-1" class="tb_right">找回密码</a></div>
                        <span style="color:Red;visibility:hidden;">密码不能为空</span>                        
                        <div>
                        <span class="chk"><input name="chkRemember" /><label for="chkRemember">保存密码</label></span><br />
                        <input type="submit" name="btnLogin" value="登  录" onclick="javascript:WebForm_DoPostBackWithOptions(new WebForm_PostBackOptions(&quot;btnLogin&quot;, &quot;&quot;, true, &quot;&quot;, &quot;&quot;, false, false))" />      

因为这个网页是不含框架的，所以可以直接获取到源代码，如果含有框架的网页，后续会讲到如何获取含框架的网页源代码。

3.加入我们已经有用户了，没有的话可以申请个做测试用，我们登录就是输入账号密码点击登录就可以了。

代码如下：

    webbrowser1.OleObject.document.all.item('tbUserName').value := '你的用户名'; 

    webbrowser1.OleObject.document.all.item(tbPassword).value := '你的密码;

    webbrowser1.OleObject.document.all.item(chkRemember).Click;

这样一个网站简单的登录就实现了，后面我再介绍更多模拟登录的方法和含有框架的登录方法。

转载请注明出处，谢谢！