vb.net 設(shè)定一段代碼執(zhí)行時(shí)間,超過(guò)時(shí)間 結(jié)束程序.怎么弄？代碼順序執(zhí)行沒(méi)法再令其時(shí)間控制

學(xué)習(xí)使用Timer組件，這個(gè)控件可以計(jì)時(shí)，且本身就是異步多線(xiàn)程的。

十年的和林格爾網(wǎng)站建設(shè)經(jīng)驗(yàn)，針對(duì)設(shè)計(jì)、前端、開(kāi)發(fā)、售后、文案、推廣等六對(duì)一服務(wù)，響應(yīng)快，48小時(shí)及時(shí)工作處理。營(yíng)銷(xiāo)型網(wǎng)站的優(yōu)勢(shì)是能夠根據(jù)用戶(hù)設(shè)備顯示端的尺寸不同，自動(dòng)調(diào)整和林格爾建站的顯示方式，使網(wǎng)站能夠適用不同顯示終端，在瀏覽器中調(diào)整網(wǎng)站的寬度，無(wú)論在任何一種瀏覽器上瀏覽網(wǎng)站，都能展現(xiàn)優(yōu)雅布局與設(shè)計(jì)，從而大程度地提升瀏覽體驗(yàn)。創(chuàng)新互聯(lián)建站從事“和林格爾網(wǎng)站設(shè)計(jì)”,“和林格爾網(wǎng)站推廣”以來(lái)，每個(gè)客戶(hù)項(xiàng)目都認(rèn)真落實(shí)執(zhí)行。

在vb.net中如何編寫(xiě)限制軟件的使用時(shí)間？

給你個(gè)方法，在軟件加載時(shí)就判斷下當(dāng)前系統(tǒng)時(shí)間（最好是判斷遠(yuǎn)程服務(wù)器上的時(shí)間，因?yàn)楫?dāng)前運(yùn)行系統(tǒng)的時(shí)間他可以手動(dòng)），判斷當(dāng)前時(shí)間是否有超過(guò)最后期限。。

如何用vb實(shí)現(xiàn)軟件使用時(shí)間限制

A: 應(yīng)有的功能:

1) 給定一個(gè)試用期限,在系統(tǒng)每次啟動(dòng)時(shí)會(huì)判斷軟件已經(jīng)使用了幾天,還有幾天可用以及啟動(dòng)的次數(shù).

2) 當(dāng)系統(tǒng)日期被修改成往日的日期后,系統(tǒng)能自動(dòng)判別,禁止修改日期,不于正常啟動(dòng).

3) 當(dāng)試用期到,顯示信息,不于啟動(dòng)程序.B:簡(jiǎn)單的思路

1) 在系統(tǒng)第一次運(yùn)行時(shí),在一個(gè)隱蔽的地方(如: c:\windows\system)建立一個(gè)用以記錄系統(tǒng)信息的數(shù)據(jù)庫(kù)文件,如date.mdb,使用一張表date,有三個(gè)字段first_time,last_time和times.其中first_time為系統(tǒng)第一次啟動(dòng)時(shí)的日期,即試用期的第一天.last_time為系統(tǒng)最近一次啟動(dòng)的時(shí)間,而times為記錄系統(tǒng)啟動(dòng)的次數(shù).

2) 系統(tǒng)每次啟動(dòng)會(huì)檢測(cè)當(dāng)前的日期同last_time做比較,如果當(dāng)前的日期(如00/09/30)比last_time(如00/10/01)還舊,說(shuō)明系統(tǒng)的日期被推后,顯示信息,不于啟動(dòng)系統(tǒng).反之,則轉(zhuǎn)入第三步.

3) 取出數(shù)據(jù)庫(kù)中的first_time,同當(dāng)前的日期做減法運(yùn)算,看所的的天數(shù)是否在使用期限內(nèi).如果在,則轉(zhuǎn)入第四步,否則顯示信息,不于啟動(dòng)系統(tǒng).

4) 修改數(shù)據(jù)庫(kù)的last_time字段為當(dāng)前的日期,顯示系統(tǒng)已經(jīng)使用的情況,正常啟動(dòng)系統(tǒng).

好了,羅羅嗦嗦講了一大統(tǒng),我想,大家一定都明白了,怎么樣,我說(shuō)不難吧,根本不用修改系統(tǒng)的注冊(cè)表.只要大家把date.mdb藏好了,不被發(fā)現(xiàn)就萬(wàn)事大吉了.而且你可以給這個(gè)數(shù)據(jù)庫(kù)加上密碼,然后把first_time,last_time,times的字段名改個(gè)面目全非,就算有高手發(fā)現(xiàn)了數(shù)據(jù)庫(kù),破解了密碼,他也不知道這三個(gè)字段的含義和這個(gè)數(shù)據(jù)庫(kù)是那個(gè)軟件所帶的文件,呵呵,不說(shuō)了,還是看看我的源碼吧:

在您的工程中,請(qǐng)以SUB MAIN()啟動(dòng)程序.(什么,怎么設(shè)置,呵呵,"工程"=="工程屬性"=="啟動(dòng)窗體")

Sub main()

On Error GoTo error

'系統(tǒng)檢測(cè)是否有date.mdb文件,如果沒(méi)有,則是系統(tǒng)第一次啟動(dòng),則建立之

If Dir("c:\windows\system\date.mdb") = "" Then

'注意在開(kāi)始,您要確定您的工程引用了Microsoft dao 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 "這是您第一次啟動(dòng)本系統(tǒng)!您的試用期為30天,今天是第一天.謝謝使用!", 48, "天華電腦藝術(shù)創(chuàng)意工作室"

'效果如圖1 (見(jiàn)附件1)

mainForm.Show '啟動(dòng)您的主窗體

Else '系統(tǒng)有date.mdb文件,則不是第一次運(yùn)行,就不用建立數(shù)據(jù)庫(kù)文件了.

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")

'開(kāi)始檢測(cè)用戶(hù)是否修改了系統(tǒng)日期

rd2.MoveFirst

If rd2.Fields("last_time") Date Then

MsgBox "對(duì)不起,您在本軟件的試用期內(nèi)不可以修改系統(tǒng)日期,否則將取消您對(duì)不系統(tǒng)的試用權(quán).如果您想繼續(xù)使用本軟件,請(qǐng)您恢復(fù)系統(tǒng)日期.謝謝合作!", 48, "天華電腦藝術(shù)創(chuàng)意工作室"

'效果如圖3 (見(jiàn)附件3)

End

End If

'開(kāi)始檢測(cè)是否超期

If Date - rd2.Fields("first_time") = 30 Then '設(shè)定試用期為30天

MsgBox "您已經(jīng)啟動(dòng)本系統(tǒng)" rd2.Fields("times") "次了,而且已經(jīng)到了30天的試用期,如果您想繼續(xù)使用本軟件,請(qǐng)您到本公司注冊(cè)并購(gòu)買(mǎi)正版的軟件!", 48, "天華電腦藝術(shù)創(chuàng)意工作室"

'效果如圖4 (見(jiàn)附件4)

End

Else

'仍在試用期內(nèi)

num％ = rd2.Fields("times")

rd2.Edit

rd2.Fields("last_time") = Date

rd2.Fields("times") = num + 1

rd2.Update

MsgBox "這是您第" rd2.Fields("times") "次使用本系統(tǒng),您還有" 30 - (Date - rd2.Fields("first_time")) "天的試用期,祝您今天工作愉快!", 48, "天華電腦藝術(shù)創(chuàng)意工作室" '

mainForm.Show '啟動(dòng)您的主窗體

End If

End If

Exit Sub

error:

MsgBox "系統(tǒng)錯(cuò)誤!"

End Sub

vb.net開(kāi)發(fā)軟件使用期限

一個(gè)月。vb.net開(kāi)發(fā)軟件試用期為一個(gè)月。VB.NET是一種簡(jiǎn)單，現(xiàn)代面向?qū)ο蟮挠?jì)算機(jī)編程語(yǔ)言，是由微軟開(kāi)發(fā)。將.NETFramework和公共語(yǔ)言運(yùn)行庫(kù)的強(qiáng)大功能相結(jié)合。

網(wǎng)站標(biāo)題：vb.net運(yùn)行時(shí)間限制的簡(jiǎn)單介紹
網(wǎng)站地址：http://chinadenli.net/article21/dsiepjd.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供響應(yīng)式網(wǎng)站、外貿(mào)網(wǎng)站建設(shè)、標(biāo)簽優(yōu)化、網(wǎng)站制作、網(wǎng)頁(yè)設(shè)計(jì)公司、網(wǎng)站策劃

廣告

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