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; 
这样一个网站简单的登录就实现了，后面我再介绍更多模拟登录的方法和含有框架的登录方法。
转载请注明出处，谢谢！
|
