频道导航

vb.net 2005实现自动登陆网页

2019-11-26 VB 前端之家

前端之家收集整理的这篇文章主要介绍了vb.net 2005实现自动登陆网页，前端之家小编觉得挺不错的，现在分享给大家，也给大家做个参考。

@H_403_4@ 终于把那个软件交出去了，逃了一个多月的课＋损伤无数脑细胞＋中途发烧一个星期。可见软件开发成本颇高。anyway，第一个版本总算交了出去。

@H_403_4@ 从一无所知到做出个雏形，也算对得起国家社会的培养了吧。

@H_403_4@ 用的平台是VB.net 2005，刚开始用的时候，这方面的资料极少。多数是vb跟v.net2003的资料。新版的vb加入了面向对象的思想。嘻嘻，赶潮流在程序里面用了。

@H_403_4@ 如果你想做一个类似自动登陆的软件，那么下面说的东西就有些许的帮助了。首先添加一个webbrowser控件，这个控件功能很丰富，而我仅碰到了些皮毛。

@H_403_4@ 假设你需要登陆一个网站，网站超简化的HTML代码如下：

@H_403_4@ <TD align=right>帐号:</TD>

@H_403_4@ <TD width=140><INPUT class=text name=username > </TD

@H_403_4@ <TD align=right>密码:</TD> @H_403_4@ <TD><INPUT class=text name=passwd type=password value=""> </TD> @H_403_4@ <TD><INPUT class=za_button name=submit1 type=submit value=确定> </TD> @H_403_4@ 看到了相应的标签没有？username需要输入你的用户名，而passwd需要输入你的密码。注意，实际使用的是name属性。输入完成后，要触发“确定”按钮。在vb.net中要如何实现自动登陆功能呢？很简单，只要几个语句就可以完成。 @H_403_4@ DimlogAs HtmlWindow =Me.MainBrowser.Document' 登陆窗口所在帧 @H_403_4@ ' 填写用户名密码，并触发确定按钮,使用name属性 @H_403_4@ log.Document.All("username").SetAttribute("value",username) @H_403_4@ log.Document.All("passwd").SetAttribute("value",passwd) @H_403_4@ log.Document.All("submit1").InvokeMember("click") @H_403_4@ 这里我们用SetAttribute来设置文本框的“value”属性，用InvokeMember来调用了按钮的“click”方法。因为不同的Html元素，其拥有的属性和方法也不尽相同，所以.Net 2.0提供了统一的HtmlElement来概括各种Html元素的同时，提供了这两个方法以调用元素特有的功能。关于各种Html元素的属性和方法一览，可以查阅MSDN。 @H_403_4@ 下面以登陆baidu，然后搜索某个关键词为例，给出简单的完整程序。 @H_403_4@ 先来看看baidu的几行关键HTML代码： @H_403_4@ <form name=f action=http://www.baidu.com/s><input type=text name=wd class=ff size=35 maxlength=100><input type=hidden name=cl value=3> <input type=submit value=百度搜索> @H_403_4@ 我故意把form包含进来了，因为有的网站含有form，有的甚至包含frame，如果你不指定是哪个form或者哪个frame（比如form(1)，frame(2)）等，就找不到相应的标签。当初小弟也找了好久。 @H_403_4@ 第二个需要注意的问题是“百度搜索”那个按钮没有name属性，怎么办？type跟ID一样可以，原理是类似的。 @H_403_4@ 第三个问题可能初学者会忽略，在document下载完成的时候，要做一个小小的技术处理。加入不包含case语句或者类似的处理的话，网页会不断的加载，不断的搜索同样的东西。具体试试就清楚怎么回事了。 @H_403_4@ 下面看看具体实现（需要添加一个webbrower控件）： @H_403_4@ Public Class Form1 @H_403_4@ Dim time As Integer = 0 @H_403_4@ ' 登陆网站 @H_403_4@ Private Sub Form1_Load(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles MyBase.Load @H_403_4@ Me.WebBrowser1.Navigate("http://www.baidu.com") @H_403_4@ End Sub @H_403_4@ ' 网站加载完成后的事件 @H_403_4@ ' 注意这里仅在第一次加载完成后进行处理 @H_403_4@ ' 可以试试去掉case操作，看看结果如何 @H_403_4@ Private Sub wBrowser_DocumentCompleted(ByVal sender As System.Object,ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted @H_403_4@ Select Case time @H_403_4@ Case 0 @H_403_4@ ' wd为baidu中输入搜索内容的标志,注意搜索按钮触发的方法 @H_403_4@ Me.WebBrowser1.Document.All("wd").SetAttribute("value","你想搜索的文字") @H_403_4@ Me.WebBrowser1.Document.Forms(0).InvokeMember("submit") @H_403_4@ time += 1 @H_403_4@ End Select @H_403_4@ End Sub @H_403_4@ End Class 原文链接：https://www.f2er.com/vb/261494.html