哈哈簡單哪
創(chuàng)新互聯(lián)是一家專注于成都網(wǎng)站建設(shè)、做網(wǎng)站與策劃設(shè)計(jì),城關(guān)網(wǎng)站建設(shè)哪家好?創(chuàng)新互聯(lián)做網(wǎng)站,專注于網(wǎng)站建設(shè)十年,網(wǎng)設(shè)計(jì)領(lǐng)域的專業(yè)建站公司;建站業(yè)務(wù)涵蓋:城關(guān)等地區(qū)。城關(guān)做網(wǎng)站價(jià)格咨詢:18982081108
第一步:登陸網(wǎng)頁代碼
第二步:登陸以后判斷是否登陸成功
有兩種方法:1.獲取網(wǎng)頁代碼,判斷網(wǎng)頁字符有無”登陸成功”字樣
源代碼:
2.就是判斷網(wǎng)頁是否跳轉(zhuǎn)到了某一頁
源代碼:
兩種方法結(jié)合起來用,可以判斷網(wǎng)頁是否無法連接
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控件
這個(gè)問題好寬泛,簡單說下步驟吧:
簡單來說,直接連接需要使用SQLConnection、SQLDataAdapter、SQLCommand、Datatable四個(gè)控件,先寫好連接字符串,然后建立連接,寫好SQL語句,通過DataAdapter從數(shù)據(jù)庫讀取數(shù)據(jù)到Datatable。這樣只有在SQL服務(wù)器中附加數(shù)據(jù)庫才能實(shí)現(xiàn)訪問。還可以使用DSN實(shí)現(xiàn)數(shù)據(jù)庫連接,控件依次更換為ODBCConnection、ODBCDataAdapter、ODBCCommand、datatable、基本步驟和上面說的一樣。
SQL語句就是從數(shù)據(jù)庫查用戶名對(duì)應(yīng)的密碼,將數(shù)據(jù)從數(shù)據(jù)庫讀取到DataTable后,與用戶輸入的密碼比對(duì),相符則登陸成功,否則提示錯(cuò)誤。
過程中的細(xì)節(jié)問題歡迎追問
1:Access,建立數(shù)據(jù)庫,數(shù)據(jù)庫命名為Database1.mdb。
(注意:這里的后綴是MDB,如果Access是2007版本的,保存的時(shí)候要另存為2003版本的才行,因?yàn)?,VB不直接支持07版的accdb后綴格式!)
2:數(shù)據(jù)庫建立后就進(jìn)入了數(shù)據(jù)表界面,可以輸入數(shù)據(jù)了,輸完以后CRRL+S保存,輸入表名,這里表名為test,ok,準(zhǔn)備工作搞定。
菜單中找到工程→部件→勾選 ,
Microsoft ADO Data Control 6.0
Microsoft Hierarchical Flexgrid Control 6.0
勾選后左側(cè)工具欄里就多了兩個(gè)控件即 ADODC控件和MSHFlexGrid控件。
選擇 ADODC控件和MSHFlexGrid控件,放在窗體的合適位置
設(shè)置ADODC控件的屬性:
右鍵窗體內(nèi)ADODC1控件
1:ADODC屬性頁→通用→選擇使用連接字符串→點(diǎn)擊生成→選擇Microsoft Jet 4.0 OLE DB Provider 點(diǎn)擊下一步→選擇之前準(zhǔn)備好的數(shù)據(jù)庫→點(diǎn)擊測試連接,顯示測試成功則ok,確定。
2:ADODC屬性頁→記錄源→命令類型選擇2-adcmdtable,表或存儲(chǔ)過程名稱選擇之前建立的數(shù)據(jù)表test,點(diǎn)擊確定,ADODC屬性設(shè)置完成。
設(shè)置MSHFlexGrid控件的屬性:
VB右側(cè)屬性表里,找到datasource,選擇adodc1
就完事了
解決方案資源管理器中右鍵菜單,添加,WINDOWS窗體,彈出的對(duì)話框中,左欄已安裝的模板中選擇WINDOWS FORMS ,右邊中找到 登錄窗體。添加 。程序會(huì)添加一個(gè)登錄界面。很方便。你試下。