vb.net登陸程序代碼 VBNET教程

vb.net 連接SQL數(shù)據(jù)庫登錄代碼

問題應(yīng)該出在你的查詢語句的結(jié)果沒有值,你用你的查詢語句到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() '關(guān)閉連接 End Try

創(chuàng)新互聯(lián)建站是一家專業(yè)提供光山企業(yè)網(wǎng)站建設(shè),專注與成都網(wǎng)站設(shè)計(jì)、網(wǎng)站建設(shè)、外貿(mào)網(wǎng)站建設(shè)、H5技術(shù)、小程序制作等業(yè)務(wù)。10年已為光山眾多企業(yè)、政府機(jī)構(gòu)等服務(wù)。創(chuàng)新互聯(lián)專業(yè)網(wǎng)站建設(shè)公司優(yōu)惠進(jìn)行中。

如何用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")’執(zhí)行登陸按鈕的單擊

End Sub

其中的SendBlogBrowser為WebBrowser控件

vb.net 用戶登錄

哈哈簡單哪

第一步：登陸網(wǎng)頁代碼

第二步：登陸以后判斷是否登陸成功

有兩種方法：1.獲取網(wǎng)頁代碼，判斷網(wǎng)頁字符有無”登陸成功”字樣

源代碼：

2.就是判斷網(wǎng)頁是否跳轉(zhuǎn)到了某一頁

源代碼：

兩種方法結(jié)合起來用，可以判斷網(wǎng)頁是否無法連接

一個vb.net的用戶登陸頁面代碼

Private Sub Button _Click（ByVal sender As System Object ByVal e As System EventArgs） Handles Button Click

If TextBox Text = Or TextBox Text = Then

Label Text = 請確認(rèn)您的輸入！

Return

End If

Dim sql As String = select * from pwd where stu_id=@stu_id and pwd=@pwd

Dim m As SqlCommand = New SqlCommand（sql conn）

m Parameters Add（New SqlParameter（ @stu_id SqlDbType Int ））

m Parameters（ @stu_id ） Value = TextBox Text

m Parameters Add（New SqlParameter（ @pwd SqlDbType Char ））

m Parameters（ @pwd ） Value = TextBox Text

Dim dr As SqlDataReader

conn Open（）

dr = m ExecuteReader

If dr Read Then

Session（ stu_id ） = TextBox Text

dr Close（）

m Cancel（）

Dim sql_ As String = update stu_base set point=point+ where stu_id=@stu_id

m = New SqlCommand（sql_ conn）

m Parameters Add（New SqlParameter（ @stu_id SqlDbType Int ））

m Parameters（ @stu_id ） Value = Session（ stu_id ）

m ExecuteNonQuery（）

m Cancel（）

Response Redirect（ detail aspx？stu_id= Session（ stu_id ） ）

Else

Label Text = 您還沒有注冊或賬號密碼錯誤

End If

End Sub

Private Sub Button _Click（ByVal sender As System Object ByVal e As System EventArgs） Handles Button Click

TextBox Text =

TextBox Text =

lishixinzhi/Article/program/net/201311/13960

分享題目：vb.net登陸程序代碼 VBNET教程
網(wǎng)址分享：http://m.kartarina.com/article12/hgghgc.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供網(wǎng)站建設(shè)、標(biāo)簽優(yōu)化、商城網(wǎng)站、動態(tài)網(wǎng)站、網(wǎng)頁設(shè)計(jì)公司、關(guān)鍵詞優(yōu)化

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請盡快告知，我們將會在第一時間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場，如需處理請聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時需注明來源： 創(chuàng)新互聯(lián)