天華源碼

㈠ 網站建設——哪裡的公司比較好 壽光這邊！！

我來告訴你，壽光網站建設首先就是天華世宇網路科技有限公司了，呵呵，這個公司里全是年輕人，做事非常有創意，壽光很多公司的網站都是他們做的，網路下他們的案例，就看到了，確實很給力！

㈡ 如何用vb實現軟體使用時間限制

A: 應有的功能:

1) 給定一個試用期限,在系統每次啟動時會判斷軟體已經使用了幾天,還有幾天可用以及啟動的次數.

2) 當系統日期被修改成往日的日期後,系統能自動判別,禁止修改日期,不於正常啟動.
3) 當試用期到,顯示信息,不於啟動程序.B:簡單的思路
1) 在系統第一次運行時,在一個隱蔽的地方(如: c:\windows\system)建立一個用以記錄系統信息的資料庫文件,如date.mdb,使用一張表date,有三個欄位first_time,last_time和times.其中first_time為系統第一次啟動時的日期,即試用期的第一天.last_time為系統最近一次啟動的時間,而times為記錄系統啟動的次數.

2) 系統每次啟動會檢測當前的日期同last_time做比較,如果當前的日期(如00/09/30)比last_time(如00/10/01)還舊,說明系統的日期被推後,顯示信息,不於啟動系統.反之,則轉入第三步.

3) 取出資料庫中的first_time,同當前的日期做減法運算,看所的的天數是否在使用期限內.如果在,則轉入第四步,否則顯示信息,不於啟動系統.

4) 修改資料庫的last_time欄位為當前的日期,顯示系統已經使用的情況,正常啟動系統.

好了,羅羅嗦嗦講了一大統,我想,大家一定都明白了,怎麼樣,我說不難吧,根本不用修改系統的注冊表.只要大家把date.mdb藏好了,不被發現就萬事大吉了.而且你可以給這個資料庫加上密碼,然後把first_time,last_time,times的欄位名改個面目全非,就算有高手發現了資料庫,破解了密碼,他也不知道這三個欄位的含義和這個資料庫是那個軟體所帶的文件,呵呵,不說了,還是看看我的源碼吧:

在您的工程中,請以SUB MAIN()啟動程序.(什麼,怎麼設置,呵呵,"工程"==>"工程屬性"==>"啟動窗體")

Sub main()
On Error GoTo error
'系統檢測是否有date.mdb文件,如果沒有,則是系統第一次啟動,則建立之
If Dir("c:\windows\system\date.mdb") = "" Then

'注意在開始,您要確定您的工程引用了Microsoft 2.5/3.5 compatibility library 在"工程"==>"引用"中.

Dim WS As Workspace
Dim DB As Database
Dim TD As Tabledef
Dim FLD As Field
Dim IDX As Index
Dim rd As Recordset
Set WS = DBEngine.Workspaces(0)
Set DB = WS.CreateDatabase("c:\windows\system\date.mdb", dbLangGeneral)
DB.Connect = ";pwd=andy"
Set TD = DB.CreateTableDef("date")
TD.Attributes = 0
TD.Connect = ""
TD.SourceTableName = ""
TD.ValidationRule = ""
TD.ValidationText = ""
' Field first_time
Set FLD = TD.CreateField("first_time", 8, 8)
FLD.Attributes = 1
FLD.DefaultValue = ""
FLD.OrdinalPosition = 0
FLD.Required = False
FLD.ValidationRule = ""
FLD.ValidationText = ""
TD.Fields.Append FLD
' Field last_time
Set FLD = TD.CreateField("last_time", 8, 8)
FLD.Attributes = 1
FLD.DefaultValue = ""
FLD.OrdinalPosition = 1
FLD.Required = False
FLD.ValidationRule = ""
FLD.ValidationText = ""
TD.Fields.Append FLD
' Field times
Set FLD = TD.CreateField("times", 3, 2)
FLD.Attributes = 1
FLD.DefaultValue = ""
FLD.OrdinalPosition = 2
FLD.Required = False
FLD.ValidationRule = ""
FLD.ValidationText = ""
TD.Fields.Append FLD
DB.TableDefs.Append TD
DB.Close
Set DB = WS.OpenDatabase("c:\windows\system\date.mdb")
Set rd = DB.OpenRecordset("date")
With rd
.AddNew
.Fields("first_time") = Date
.Fields("last_time") = Date
.Fields("times") = 1
.Update
End With

DB.Close
MsgBox "這是您第一次啟動本系統!您的試用期為30天,今天是第一天.謝謝使用!", 48, "天華電腦藝術創意工作室"

'效果如圖1 (見附件1)

mainForm.Show '啟動您的主窗體

Else '系統有date.mdb文件,則不是第一次運行,就不用建立資料庫文件了.

Dim WS2 As Workspace
Dim DB2 As Database
Dim rd2 As Recordset
Set WS2 = Workspaces(0)
Set DB2 = WS2.OpenDatabase("c:\windows\system\date.mdb", pwd = "springlover")
Set rd2 = DB2.OpenRecordset("date")
'開始檢測用戶是否修改了系統日期
rd2.MoveFirst
If rd2.Fields("last_time") > Date Then
MsgBox "對不起,您在本軟體的試用期內不可以修改系統日期,否則將取消您對不系統的試用權.如果您想繼續使用本軟體,請您恢復系統日期.謝謝合作!", 48, "天華電腦藝術創意工作室"

'效果如圖3 (見附件3)

End
End If

'開始檢測是否超期

If Date - rd2.Fields("first_time") >= 30 Then '設定試用期為30天
MsgBox "您已經啟動本系統" & rd2.Fields("times") & "次了,而且已經到了30天的試用期,如果您想繼續使用本軟體,請您到本公司注冊並購買正版的軟體!", 48, "天華電腦藝術創意工作室"

'效果如圖4 (見附件4)

End

Else

'仍在試用期內
num％ = rd2.Fields("times")
rd2.Edit
rd2.Fields("last_time") = Date
rd2.Fields("times") = num + 1
rd2.Update

MsgBox "這是您第" & rd2.Fields("times") & "次使用本系統,您還有" & 30 - (Date - rd2.Fields("first_time")) & "天的試用期,祝您今天工作愉快!", 48, "天華電腦藝術創意工作室" '
mainForm.Show '啟動您的主窗體
End If
End If
Exit Sub
error:
MsgBox "系統錯誤!"

End Sub