哈哈簡單哪
創(chuàng)新互聯(lián)專注于高淳網站建設服務及定制，我們擁有豐富的企業(yè)做網站經驗。 熱誠為您提供高淳營銷型網站建設，高淳網站制作、高淳網頁設計、高淳網站官網定制、重慶小程序開發(fā)服務，打造高淳網絡公司原創(chuàng)品牌,更為您提供高淳網站排名全網營銷落地服務。
第一步：登陸網頁代碼
第二步：登陸以后判斷是否登陸成功
有兩種方法：1.獲取網頁代碼，判斷網頁字符有無”登陸成功”字樣
源代碼：
2.就是判斷網頁是否跳轉到了某一頁
源代碼：
兩種方法結合起來用，可以判斷網頁是否無法連接
這個問題好寬泛，簡單說下步驟吧：
簡單來說，直接連接需要使用SQLConnection、SQLDataAdapter、SQLCommand、Datatable四個控件，先寫好連接字符串，然后建立連接，寫好SQL語句，通過DataAdapter從數(shù)據庫讀取數(shù)據到Datatable。這樣只有在SQL服務器中附加數(shù)據庫才能實現(xiàn)訪問。還可以使用DSN實現(xiàn)數(shù)據庫連接，控件依次更換為ODBCConnection、ODBCDataAdapter、ODBCCommand、datatable、基本步驟和上面說的一樣。
SQL語句就是從數(shù)據庫查用戶名對應的密碼，將數(shù)據從數(shù)據庫讀取到DataTable后，與用戶輸入的密碼比對，相符則登陸成功，否則提示錯誤。
過程中的細節(jié)問題歡迎追問
解決方案資源管理器中右鍵菜單，添加，WINDOWS窗體，彈出的對話框中，左欄已安裝的模板中選擇WINDOWS FORMS ，右邊中找到 登錄窗體。添加 。程序會添加一個登錄界面。很方便。你試下。
建個模塊， Dim varcnn As OleDb.OleDbConnection ReadOnly Property cnn() As OleDb.OleDbConnection
Get
If varcnn Is Nothing OrElse varcnn.State ConnectionState.Open Then Dim cnstr As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=""" My.Application.Info.DirectoryPath "\Contact.mdb"";Persist Security Info=True"
varcnn = New OleDbConnection(cnstr)
varcnn.Open()
End If
Return varcnn
End Get
登錄窗體，新建一個就行了。代碼Public Class LoginForm1
Private Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK.Click
Using cmd As New OleDb.OleDbCommand("select password from tbuser where userid =?", cnn)
cmd.Parameters.Add("?", OleDbType.VarChar).Value = Me.UsernameTextBox.Text
Dim obj As Object = cmd.ExecuteScalar
If (Not IsDBNull(obj)) AndAlso (obj IsNot Nothing) AndAlso obj = PasswordTextBox.Text Then
Me.DialogResult = Windows.Forms.DialogResult.OK
Else MessageBox.Show("密碼不正確！") Return
End If
End Using Me.Close()
End Sub Private Sub Cancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cancel.Click
Me.DialogResult = Windows.Forms.DialogResult.Cancel
Me.Close()
End SubEnd Class 項目屬性里點查看應用程序事件，寫代碼Namespace My ' 以下事件可用于 MyApplication:
'
' Startup: 應用程序啟動時在創(chuàng)建啟動窗體之前引發(fā)。
' Shutdown: 在關閉所有應用程序窗體后引發(fā)。如果應用程序異常終止，則不會引發(fā)此事件。
' UnhandledException: 在應用程序遇到未處理的異常時引發(fā)。
' StartupNextInstance: 在啟動單實例應用程序且應用程序已處于活動狀態(tài)時引發(fā)。
' NetworkAvailabilityChanged: 在連接或斷開網絡連接時引發(fā)。
Partial Friend Class MyApplication
Private Sub MyApplication_Startup(ByVal sender As Object, ByVal e As Microsoft.VisualBasic.ApplicationServices.StartupEventArgs) Handles Me.Startup
Dim f As New LoginForm1
If Not f.ShowDialog = DialogResult.OK Then
End
End If
End Sub End ClassEnd Namespace
你測試一下吧。
Label1.Caption = "融通系統(tǒng)外掛程序"
If Dir(App.Path "/hjw.mdb") "" Then
Set mydata = OpenDatabase(App.Path "\hjw")
Set myrs1 = mydata.OpenRecordset("user", dbOpenTable)
Else
Set mydata = CreateDatabase(App.Path "\hjw", dbLangGeneral, dbVersion40)
mydata.Execute "create table ku (建立日期 text(100),庫名 text(100),功能 text(100))"
mydata.Execute "create table system (店號 integer,建立日期 text(100),文件路徑 text(100),軟件版本 text(100),路徑1 text(50),路徑2 text(50),路徑3 text(50),路徑4 text(50))"
kuname = "system"
kugn = "文件信息"
Me.showlist1
mydata.Execute "create table user (user text(50),passwd text(50),name text(50),quanx integer)"
kuname = "user"
kugn = "用戶信息"
Me.showlist1
Private Sub cmdOK_Click()
txtUserName.SetFocus
If Trim(txtUserName.Text = "") Then
MsgBox "沒有這個用戶，請重新輸入用戶名！", vbOKOnly + vbExclamation, "警告"
txtUserName.SetFocus
Else
sql = "select * from user where user = '" txtUserName.Text "'"
'Debug.Print sql
'Set mrc = ExecuteSQL(sql, MsgText)
Set myrs2 = mydata.OpenRecordset(sql)
If myrs2.EOF = True Then
MsgBox "沒有這個用戶，請重新輸入用戶名!", vbOKOnly + vbExclamation, "警告"
txtUserName.SetFocus
Else
If Trim(myrs2.Fields(1)) = Trim(txtPassword.Text) Then
UserName = myrs2.Fields(2)
myrs2.Close
Me.Hide
' UserName = Trim(txtUserName.Text)
'Debug.Print UserName
MDIform1.Show
Else
MsgBox "輸入密碼不正確，請重新輸入！", vbOKOnly + vbExclamation, "警告"
txtPassword.SetFocus
txtPassword.Text = ""
End If
End If
End If
End Sub
select * from t1 where name=** and password=** and style=**
如果查詢到的表是空的，說明登陸錯誤，否則成功
重慶分公司
重慶分公司
