vb.net登陆程序代码 vb登录界面代码

如何用vb.net写一个程序，使用者输入用户名和密码之后，点击一个button就可以登录到一个固定的网站？

下面代码可以取得网页的源文件,如果想要什么内容,再使用正则取吧,密码验证是将用户名和密码存入数据库,登录时从数据库读取并验证就可以了,网上代码也很多的

Dim url As String = TextBox1.Text'网站地址

Dim httpReq As System.Net.HttpWebRequest 'HttpWebRequest 类对 WebRequest 中定义的属性和方法提供支持'，也对使用户能够直接与使用 HTTP 的服务器交互的附加属性和方法提供支持。

Dim httpResp As System.Net.HttpWebResponse ' HttpWebResponse 类用于生成发送 HTTP 请求和接收 HTTP 响'应的 HTTP 独立客户端应用程序。

Dim httpURL As New System.Uri(url)

httpReq = CType(WebRequest.Create(httpURL), HttpWebRequest)

httpReq.Timeout = 5000

httpReq.Method = "GET"

httpResp = CType(httpReq.GetResponse(), HttpWebResponse)

Dim reader As StreamReader = New StreamReader(httpResp.GetResponseStream, System.Text.Encoding.Default)

Dim respHTML As String = reader.ReadToEnd() 'respHTML就是网页源代码

RichTextBox1.Text = respHTML

httpResp.Close()

相关问答

Q1: 高手帮我忙啊! VB.NET编的登入代码出现问题

把针对数据库的地方做的声明都new了试试

而且你的SQL文好像有问题。'用户名'列看看是不是不存在或是查询时出现了多个。

Q2: vb.net 连接SQL数据库登录代码

问题应该出在你的查询语句的结果没有值,你用你的查询语句到SQL中是否有返回值?记得加上你的条件,另外,你语句里这一句是多余的.Dim s As Object = sComm.ExecuteScalar 以下语句测试正常 Dim myCn As New SqlClient.SqlConnection Try myCn.ConnectionString = sConnString myCn.Open() Dim mySQL As String = "SELECT * FROM ygzl" Dim sComm As New SqlClient.SqlCommand(mySQL, myCn) If sComm.ExecuteScalar Then Dim User_MainForm As New Form1 User_MainForm.Show() Else MsgBox("用户名或密码不正确，请重试！") End If Catch ex As Exception MsgBox(ex.Message) Finally myCn.Close() '关闭连接 End Try

Q3: 写一个vb.net代码，关于登陆和关闭Q~程序，窗口如下已经设计好。

你设计一个界面，让别人来写代码，可能吗？

另外根据你的想法，VB.NET没法实现，需要用C++写DLL注入，还要破解QQ的加密函数！

Q4: vb.net 用户登录

哈哈简单哪

第一步vb.net登陆程序代码：登陆网页代码

第二步vb.net登陆程序代码：登陆以后判断是否登陆成功

有两种方法：1.获取网页代码vb.net登陆程序代码，判断网页字符有无”登陆成功”字样

源代码：

2.就是判断网页是否跳转到vb.net登陆程序代码了某一页

源代码：

两种方法结合起来用vb.net登陆程序代码，可以判断网页是否无法连接

Q5: 如何用VB.NET制作账号自动登陆的程序

Private Sub SendBlogTimer_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SendBlogTimer.Tick

Dim textboxUserId As HtmlElement

Dim textboxPassword As HtmlElement

Dim buttonSubmit As HtmlElement

textboxUserId = SendBlogBrowser.Document.All("username")'获取用户名输入框

textboxPassword = SendBlogBrowser.Document.All("password")'获取密码输入框

buttonSubmit = SendBlogBrowser.Document.All("btnLogin")'获取登陆按钮

textboxUserId.SetAttribute("value","用户名")'给用户名输入框赋值

textboxPassword.SetAttribute("value","密码"）'给密码框赋值

buttonSubmit.InvokeMember("click")’执行登陆按钮的单击

End Sub

其中的SendBlogBrowser为WebBrowser控件

关于vb.net登陆程序代码和vb登录界面代码的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站。