黑客X档案官方论坛 » 编程魔方 » VB自动填写网页表格的程序

flyli 发表于 2007-8-15 02:16

VB自动填写网页表格的程序

最近由于个人原因
我来X档案的时间比较少，先向大家表示歉意
今天呢，我打算写个简单的～
我们的试验网页就是[url=http://s4.travian.cn/login.php]http://s4.travian.cn/login.php[/url]
打开它你就知道它长什么样子了，然后我们查看下网页的源代码（方法：菜单－》查看－》源代码）
我们可以在其中找到这么一段[code]<input class="fm fm110" type="text" name="ee852ab" value="" maxlength="15"> <span class="e f7"></span>
</td></tr>
<tr><td><label>密码:</label>
<input class="fm fm110" type="password" name="ec3cfe6" value="" maxlength="20"> <span class="e f7"></span>[/code]其中value的值也就是那两个输入框的值
我们还可以找到这么一段[code]<input type="image" value="login" border="0" name="s1" src="img/cn/b/l1.gif" width="80" height="20" onMousedown="btm1('s1','','img/cn/b/l2.gif',1)" onMouseover="btm1('s1','','img/cn/b/l3.gif',1)" onMouseUp="btm0()" onMouseOut="btm0()" onClick="xy()"></input>[/code]这个就是那个确定按钮的代码了
[color=red]不[/color][color=red]懂html，不知道如何找到这些代码？这个就需要借助与Dreamweaver的可视化功能了，用它分析网页也挺方便的[/color]
[color=black]然后就是VB了～[/color]
[color=#000000]用VB添加个webbrowser控键进来尽量把它在窗体上画大点～[/color][color=red]，（不知道如何找到这个控键？那就得借助baidu了，我不可能面面具到哦～）[/color]
[color=#000000]我们把webbrowser控键得name属性改为IE，当然也可以是你自己喜欢得哈，不过要和下面得程序配套[/color]
[color=#000000]然后就是最关键得填表了[/color]
[color=#000000][code]Private Sub Form_Load()
    '初始化时打开该网页
    IE.navigate "http://s4.travian.cn/login.php"
End Sub[/code][/color]
[color=#000000]找个2个command控键，分别为command1和command2控键，将其caption改为 “输入” 和 “确定”[/color]
[color=#000000][code]Private Sub command1_Click()
    Dim vDoc, vTag
    Dim i As Integer
    Set vDoc = IE.document
    For i = 0 To vDoc.All.length - 1 '检测所有标签
            If UCase(vDoc.All(i).tagName) = "INPUT" Then  '找到input标签
                Set vTag = vDoc.All(i)
                If vTag.Type = "text" Then
                    vTag.Value = "123456" '这个是输入到用户名中得值
                End If
                If vTag.Type = "password" Then
                    vTag.Value = "111222333"'这个是输入到密码框中的值
                End If
                If vTag.name = "s1" Then
                    vTag.Click
                End If
           endif
    next i
End sub
Private Sub command2_Click()
    Dim vDoc, vTag
    Dim i As Integer
    Set vDoc = IE.document
    For i = 0 To vDoc.All.length - 1 '检测所有标签
            If UCase(vDoc.All(i).tagName) = "INPUT" Then  '找到input标签
                Set vTag = vDoc.All(i)
                If vTag.name = "s1" Then
                    vTag.Click'点击确定键
                End If
           endif
    next i
End sub[/code][/color]
[color=#000000]然后运行程序，发现点击程序中的“输入” 按钮后，需要输入的值会被自动填写到输入框中[/color]
[color=#000000]点击程序中的“确定”按钮，相当于点击网页中的确定按钮的效果一样～[/color]
[color=#000000][/color]
[color=#000000]以上就是自动填表的基本原理了，但是对于某些加了验证图片的就要麻烦点了，要判断验证图片代表的字母，不过不在本文的讨论范围内哈～只要把上面的理解透彻了，那么给travian作个外挂就只是时间问题了，呵呵[/color]
[color=#000000][/color]
[color=#000000]呵呵，就写到这里了，晚了，再去游戏会～[/color]

[[i] 本帖最后由 flyli 于 2007-8-19 14:41 编辑 [/i]]

Winnip 发表于 2007-8-15 09:24

收藏了。呵呵::04::

冰封孤城 发表于 2007-8-15 09:40

收下了．．不错　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　

234859500 发表于 2007-8-15 12:33

这个很有用！

可以写很多漏洞利用程序，

强烈支持！！！

yhxiaoheixia 发表于 2007-8-17 10:05

偶晕~  你的代码 按钮那个地方 少了2个 end if
汗～

regedit 发表于 2007-8-17 11:34

记住了
现在自己还在学习C
还没有详细的学VB
55...

Winnip 发表于 2007-8-18 12:22

回复 #5 yhxiaoheixia 的帖子

的确

flyli 发表于 2007-8-19 14:42

这个是我的失误哈，已经改正了，现在可以用了

雪狐 发表于 2007-8-31 20:09

网上有类似的::02:: ::02::

白痴娃娃 发表于 2008-1-6 15:09

强烈支持！！！

强烈支持！！！需要这种的东东
再多来些   我正好弄呢

独萧 发表于 2008-1-17 11:56

看过了，不过
<select size="1" name="feirong" style="behavior:url(#default#savehistory)">
<option selected="selected">请设定</option>
<option>1</option>
<option>2</option>
<option>3</option>
<option>4</option>
<option>5</option>
</select>(%)</td>

这样的你的代码就不能选了

zzzcxh 发表于 2008-4-5 17:22

支持

::04:: ::06:: 非常支持，好！

521322132 发表于 2008-5-29 02:43

写的太好了，我正要做一个这样的程序呢，谢谢了。

查看完整版本: VB自动填写网页表格的程序