一般登陸網(wǎng)站時候首先要打開一個網(wǎng)頁對吧?
專注于為中小企業(yè)提供網(wǎng)站建設(shè)、做網(wǎng)站服務(wù),電腦端+手機端+微信端的三站合一,更高效的管理,為中小企業(yè)蘇州免費做網(wǎng)站提供優(yōu)質(zhì)的服務(wù)。我們立足成都,凝聚了一批互聯(lián)網(wǎng)行業(yè)人才,有力地推動了1000多家企業(yè)的穩(wěn)健成長,幫助中小企業(yè)通過網(wǎng)站建設(shè)實現(xiàn)規(guī)模擴充和轉(zhuǎn)變。
那首先要 GET 一個網(wǎng)址。GetResponse后,得到的流就是這個頁面的源碼。
源碼里肯定會包含這個驗證碼的提問段(可能是個圖片的網(wǎng)址,也可能是個 5+5=? 之類的字符串之類的),可以分析一下這段代碼出現(xiàn)的位置,讓程序自動尋找。找到這個圖片的網(wǎng)址,把這個圖片 GET 下來,然后,就是orc識別或你人工識別咯。。。
前臺UI自己搞定,但是你說用域賬號來登錄,也就是Windows賬號的話,那個東西,你還要看一下Windows API,調(diào)用相關(guān)的Windows 組件才能達到你的要求,我知道vmware server那個就是用Windows賬號登錄的。
首先要把Label1的屬性Visible設(shè)置為false,然后雙擊button1輸入:
Dim rs As New Data.DataView()
Dim rs As New DataView()
conn.DataFile = "users.mdb"
conn.SelectCommand = "select top 1 * from users where name='" txtUserName.Text "'and pass='" txtPassword.Text "'"
rs = conn.Select(DataSourceSelectArguments.Empty)
if rs.Count Then
Label1.Visible=true
Session("name") = Trim(txtUserName.Text)
Session("pass") = Trim( txtPassword.Text)
MsgBox("登錄成功", MsgBoxStyle.SystemModal)
Response.Redirect("")
Else
MsgBox("對不起!用戶名和密碼不正確,請重新輸入。", MsgBoxStyle.SystemModal)
End If
哈哈簡單哪
第一步:登陸網(wǎng)頁代碼
第二步:登陸以后判斷是否登陸成功
有兩種方法:1.獲取網(wǎng)頁代碼,判斷網(wǎng)頁字符有無”登陸成功”字樣
源代碼:
2.就是判斷網(wǎng)頁是否跳轉(zhuǎn)到了某一頁
源代碼:
兩種方法結(jié)合起來用,可以判斷網(wǎng)頁是否無法連接
你每次取出的是表中的首條記錄,當然只能用首條記錄登陸了!
Dim name, password As String
name = TextBox1.Text
Dim com As New OleDb.OleDbCommand("select * from denglu where name='" name "'", conn)
Dim dr As OleDb.OleDbDataReader
conn.Open()
dr = com.ExecuteReader
dr.Read()
password = dr.GetString(1)
If TextBox3.Text = password Then
mesbox("成功!")
Else
msgbox("失敗")
End If
dr.Close()
conn.Close()
這種情況下,效率極不好!你能理解什么意思就行了!否則將你的程序改完了!
當前題目:vb.net網(wǎng)站登陸,vb登錄頁面編程
鏈接地址:http://aaarwkj.com/article40/dsieiho.html
成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián),為您提供搜索引擎優(yōu)化、做網(wǎng)站、ChatGPT、動態(tài)網(wǎng)站、Google、網(wǎng)站設(shè)計
聲明:本網(wǎng)站發(fā)布的內(nèi)容(圖片、視頻和文字)以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主,如果涉及侵權(quán)請盡快告知,我們將會在第一時間刪除。文章觀點不代表本網(wǎng)站立場,如需處理請聯(lián)系客服。電話:028-86922220;郵箱:631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載,或轉(zhuǎn)載時需注明來源: 創(chuàng)新互聯(lián)