【VB开源代码栏目提醒】:以下是网学会员为您推荐的VB开源代码-VB自动填写网页表格的程序 - 经营企划,希望本篇文章对您学习有所帮助。
VB 自动填写网页表格的程序最近由于个人原因我来 X 档案的时间比较少,先向大家表示歉意今天呢,我打算写个简单的~我 们 的 试 验 网 页 就 是urlhttp://s4.travian.cn/login.phphttp://s4.travian.cn/login.php/url打开它你就知道它长什么样子了,然后我们查看下网页的源
代码(方法:菜单-》查看-》源
代码)我 们 可 以 在 其 中 找 到 这 么 一 段 code密码: /code其中 value 的值也就是那两个输入框的值我 们 还 可 以 找 到 这 么 一 段 code/code这个就是那个确定按钮的
代码了colorred不/colorcolorred懂 html,不知道如何找到这些
代码?这个就需要借助与 Dreamweaver 的可视化功能了,用它分析网页也挺方便的/colorcolorblack然后就是
VB 了~/colorcolor000000用
VB 添加个 webbrowser 控键进来尽量把它在窗体上画大点~/colorcolorred,(不知道如何找到这个控键?那就得借助 baidu 了,我不可能面面具到哦~)/colorcolor000000我们把
webbrowser 控键得 name 属性改为 IE,当然也可以是你自己喜欢得哈,不过要和下面得程序配套/colorcolor000000然后就是最关键得填表了/colorcolor000000codePrivate Sub Form_Load 初始化时打开该网页 IE.navigate http://s4.travian.cn/login.phpEnd Sub/code/colorcolor000000找个 2 个 command 控键,分别为 command1 和command2 控键,将其 caption 改为 “输入” 和 “确定”/colorcolor000000codePrivate Sub command1_Click Dim vDoc vTag Dim i As Integer Set vDoc IE.document For i 0 To vDoc.All.length - 1 检测所有标签 If UCasevDoc.Alli.tagName INPUT Then 找到 input 标签 Set vTag vDoc.Alli If vTag.Type text Then vTag.Value 123456 这个是输入到用户名中得值 End If If vTag.Type pass
word Then vTag.Value 111222333这个是输入到密码框中的值 End If If vTag.name s1 Then vTag.Click End If endif next iEnd subPrivate Sub command2_Click Dim vDoc vTag Dim i As Integer Set vDoc IE.document For i 0 To vDoc.All.length - 1 检测所有标签 If UCasevDoc.Alli.tagName INPUT Then 找到 input 标签 Set vTag vDoc.Alli If vTag.name s1 Then vTag.Click点击确定键 End If endif next iEnd sub/code/colorcolor000000然后运行
程序,发现点击程序中的“输入” 按钮后,需要输入的值会被自动填写到输入框中/colorcolor000000点击程序中的“确定”按钮,相当于点击网页中的确定按钮的效果一样~/colorcolor000000/colorcolor000000以上就是自动填表的基本原理了,但是对于某些加了验证图片的就要麻烦点了,要判断验证图片代表的字母,不过不在本文的讨论范围内哈~只要把上面的理解透彻了,那么给 travian 作个外挂就只是时间
问题了,呵呵/colorcolor000000/colorcolor000000呵呵,就写到这里了,晚了,再去游戏会~/color