网页自动浏览.刷票.自动留言之登陆篇（VB）

最新推荐文章于 2024-10-10 11:21:08 发布

ajfpnro2631

最新推荐文章于 2024-10-10 11:21:08 发布

阅读量232

点赞数

文章标签： php

原文链接：http://www.cnblogs.com/luyichuan/archive/2012/02/21/2361560.html

版权

呵呵..之前本人找过很多文章一直都没搞定~~~觉得自己写的挺对的。。怎么就登陆不上去呢。。输入密码框也不输入密码。。也不点击登陆的~~今天心情好（嘿嘿。不说啥事了）~~~~逛黑吧论坛时候看到一个哥们发贴。。后面的哥们回帖告诉怎么解决了~~~试着从新写了下。OK~还真解决了~~~嘿嘿。。。下面看下截图~~~~

哦了~~~~把重点说下哈~~

实现按钮单击登陆的事件

实现单击响应的事件应该是：onclick

引用

================================================================

我介绍两种实现登陆的简单和实用的两种方法吧：
1、直接添加提交按钮
<form action="需要提交到的文件名">
<input type="submit" name="Submit" value="提交">
</form>
注意：此时form表单的action属性值必须指定该表单需要提交到的地方。因为添加的就是提交按钮，所以无需设置onclick事件

2、用图像或文本作为按钮时
<form action="需要提交到的文件名">
<img src="图片路径" width="图片宽" height="图片高" οnclick="submit();">
</form>
注意：此时也需要设置form表单的action属性。你给的网址就属于这种提交方式。其中的submit();就是一个提交表单的函数。

================================================================

这里我已www.vbgood.com为例子~（没有验证码部分）

我们右键查看源代码。。我把重点代码集中一下大家看下~

登陆页面：http://www.vbgood.com/logging.php?action=login

<form method="post" name="login" action="logging.php?action=login&">
<input type="hidden" name="formhash" value="08a6b379">
<input type="hidden" name="referer" value="vbf.good">
<div class="spaceborder"><table cellspacing="0" cellpadding="4" width="100%" align="center">
<tr class="header">
<td colspan="2">会员登录</td>
</tr>
<tr>
<td class="altbg1"><span class="bold">
<input class="radio" type="radio" name="loginfield" value="username" checked οnclick="document.login.username.focus();">用户名
<input class="radio" type="radio" name="loginfield" value="uid" οnclick="document.login.username.focus();">UID</span>
</td>
<td class="altbg2">
<span class="smalltxt">
<input type="text" name="username" size="25" maxlength="40" tabindex="2">  <a href="register.php">立即注册</a>
</span>
</td>
</tr>
<tr>
<td class="altbg1"><span class="bold">密码</span></td>
<td class="altbg2">
<span class="smalltxt">
<input type="password" name="password" size="25" tabindex="3">  <a href="member.php?action=lostpasswd">忘记密码</a>
</span>
</td>
</tr>
<tr>
<td class="altbg1" valign="top"><span class="bold">安全提问</span></td>
<td class="altbg2">
<span class="smalltxt">
<select name="questionid" tabindex="4">
<option value="0">无安全提问</option>
<option value="1">母亲的名字</option>
<option value="2">爷爷的名字</option>
<option value="3">父亲出生的城市</option>
<option value="4">您其中一位老师的名字</option>
<option value="5">您个人计算机的型号</option>
<option value="6">您最喜欢的餐馆名称</option>
<option value="7">驾驶执照的最后四位数字</option>
</select>
</span><div style="padding:3px, 0px">如果您设置了安全提问，请在此输入正确的问题和回答</div>
</td></tr>
<tr>
<td class="altbg1"><span class="bold">回答</span></td>
<td class="altbg2"><input type="text" name="answer" size="50" tabindex="5"></td>
</tr>
<tr>
<td class="altbg1"><span class="bold">Cookie 有效期</span></td>
<td class="altbg2"><span class="smalltxt">
<input class="radio" type="radio" name="cookietime" value="315360000" > 永久  
<input class="radio" type="radio" name="cookietime" value="2592000" checked> 一个月  
<input class="radio" type="radio" name="cookietime" value="86400" > 一天  
<input class="radio" type="radio" name="cookietime" value="3600" > 一小时  
<input class="radio" type="radio" name="cookietime" value="0" > 浏览器进程    
<img src="images/default/faq.gif" alt="帮助" border="0" />
<a href="faq.php?page=usermaint#2" target="_blank">帮助</a></span>
</td>
</tr>
<tr>
<td class="altbg1"><span class="bold">隐身登录</span></td>
<td class="altbg2"><span class="smalltxt">
<select name="loginmode">
<option value=""> - 使用默认 -</option>
<option value="normal"> 正常模式</option>
<option value="invisible"> 隐身模式</option>
</select></span>
</td>
</tr>
<tr class="bottom">
<td class="altbg1"><span class="bold">界面风格</span></td>
<td class="altbg2"><select name="styleid"><option value="">- 使用默认 -</option>
<option value="2">Discuz! 5 Default</option>
</select>
</td>
</tr>
</table></div><br>
<div class="option"><div class="submitbutton"><input class="button" type="submit" name="loginsubmit" value="提   交"></div></div>
</form>

我们重点看3个地方。。1帐号输入。2密码输入。3。提交登陆。

1<input type="text" name="username" size="25" maxlength="40" tabindex="2">

2<input type="password" name="password" size="25" tabindex="3">

3<input class="button" type="submit" name="loginsubmit" value="提   交">

恩的？下面上代码部分。。

Private Sub Command1_Click()
WebBrowser1.Navigate "http://www.vbgood.com/logging.php?action=login" '这里是登陆页面
End Sub

Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
Set doc = WebBrowser1.Document
Dim i As Integer '设置一个长度未知变量

For i = 0 To doc.All.length - 1'给i赋值
        If UCase(doc.All(i).tagname) = "INPUT" Then'寻找input部分
            Set Item = doc.All(i)
            If Item.Type = "text" Or Item.Type = "password" Then'在input部分里寻找type问text或者type为password部分。大家看我给大家提取的网页源码的
                Select Case Item.Name     '判断比较名称
                    Case "username"                          '注意：这里的text改为网页上用户名那个文本框的名字
                        Item.Value = "watsy"   '输入用户名
                    Case "password"            '注意：这里的password改为用密码那个文本框的名字
                        Item.Value = "******"   '输入密码
                    End Select     '如果有验证码部分。。此次还需要判断。并输入验证码~这里不讨论。
            ElseIf Item.Type = "submit" Then   '寻找提交的按钮
                Item.Click    '单击提交按钮拉~
            End If
        End If
    Next i
End Sub