锐客网

  1. 首页 > 睿知 > it技术 > >

vb.net用户登录程序 vb登录界面代码

IT技术代码

vb.net 用户登录哈哈简单哪
第一步vb.net用户登录程序：登陆网页代码
第二步vb.net用户登录程序：登陆以后判断是否登陆成功
有两种方法：1.获取网页代码vb.net用户登录程序，判断网页字符有无”登陆成功”字样
源代码：
2.就是判断网页是否跳转到vb.net用户登录程序了某一页
源代码：
两种方法结合起来用vb.net用户登录程序，可以判断网页是否无法连接
vb用户怎么登录界面？用户登陆的代码是多少？vb登陆程序源代码\x0d\x0a\x0d\x0a你可以这样做建一个模块在里面输入下列\x0d\x0aPublic conn As ADODB.Connection\x0d\x0aSub main()\x0d\x0aSet conn = New ADODB.Connection\x0d\x0aconn.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;" _\x0d\x0a+ "User ID=sa;password=sa;Initial Catalog=您的数据库名;Data Source=127.0.0.1"\x0d\x0aconn.Open\x0d\x0afrom1.Show’登录界面\x0d\x0aEnd Sub\x0d\x0a\x0d\x0a再在登录界面“确定”下写入如下代码：\x0d\x0aPrivate Sub Command1_Click()\x0d\x0aIf id.Text = "" Then\x0d\x0aMsgBox "用户名不能为空！", vbOKOnly + vbInformation, "友情提示"\x0d\x0aid.SetFocus\x0d\x0aExit Sub\x0d\x0aEnd If\x0d\x0aIf password.Text = "" Then\x0d\x0aMsgBox "密码不能为空！", vbOKOnly + vbInformation, "友情提示"\x0d\x0apassword.SetFocus\x0d\x0aExit Sub\x0d\x0aEnd If\x0d\x0a\x0d\x0aDim strSQl As String\x0d\x0astrSQl = "select * from Users where users_name='"Trim$(id.Text)"' and password='"Trim$(password.Text)"' "\x0d\x0a\x0d\x0aDim str As New ADODB.Recordset\x0d\x0aSet str = New ADODB.Recordset\x0d\x0astr.CursorLocation = adUseClient\x0d\x0astr.Open strSQl, conn, adOpenStatic, adLockReadOnly\x0d\x0a\x0d\x0aWith str\x0d\x0aIf .State = adStateOpen Then .Close\x0d\x0a.Open strSQl\x0d\x0aIf .EOF Then\x0d\x0aTry_times = Try_times + 1\x0d\x0aIf Try_times = 3 Then\x0d\x0aMsgBox "您已经三次尝试进入本系统，均不成功 ， 系统将自动关闭", vbOKOnly + vbCritical, "警告"\x0d\x0aUnload Me\x0d\x0aElse\x0d\x0aMsgBox "对不起，用户名不存在或密码错误 ！", vbOKOnly + vbQuestion, "警告"\x0d\x0aid.SetFocus\x0d\x0aid.Text = ""\x0d\x0apassword.Text = ""\x0d\x0aEnd If\x0d\x0aElse\x0d\x0a\x0d\x0aUnload Me\x0d\x0a\x0d\x0aForm2.Show’登录进入的另一个界面\x0d\x0a\x0d\x0aEnd If\x0d\x0aEnd With\x0d\x0a\x0d\x0aEnd Sub
在 visual studio 2008中如何用vb语言编写vb.net利用两个TextBox和一个Button来实现用户登录Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If TextBox1.Text = "" Or TextBox2.Text = "" Then
MsgBox("请添写用户名和密码")
ElseIf TextBox1.Text = "admin" And TextBox2.Text = "123" Then
MsgBox("登录成功")
Else
MsgBox("用户名或密码错误")
End If
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
TextBox2.PasswordChar = "*"
End Sub
End Class
如何用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

推荐阅读


上一篇：怎么使用硬盘寿命长，硬盘使用时间寿命

下一篇：韩国灰色羊绒大衣直播带货，韩国明星羊绒大衣搭配