問題其他的沒有什麽,主要就是出現在檢測簽名那個子程序裏面,dll命令有問題..沒有編譯的話就不行。其實的話,妳本來那個代碼也是可以的,只要不用dll,就把dll那個子程序放到程序裏面,編譯後運行也沒有問題。
主要就是在數據庫的路徑上出現問題。
本來調試運行是在系統臨時文件夾裏面調試,那個文件夾裏面沒有數據庫文件,自然無法打開,所以會顯示打開失敗。下面我把妳那個dll命令稍微的修改了壹下,我想應該就可以了。
======================================================================
.版本 2
.子程序 簽名檢測, 整數型, 公開, 1,通過 0.未通過
.參數 簽名單位, 文本型
.參數 授權的方式, 整數型, , 1.時間限制型,此時簽名文件的失效時間起作用 2.次數限制型,此時簽名文件的使用次數起作用
.參數 數據庫路徑, 文本型, , 數據庫的絕對路徑=.=
.參數 數據庫密碼, 文本型, , 打開數據庫需要的密碼-.-
.局部變量 當前系統日期時間, 日期時間型
.局部變量 讀取的簽名單位, 文本型
.局部變量 讀取的授權方式, 整數型, , , 1.時間限制 2.次數限制
.局部變量 失效的時間, 日期時間型
.局部變量 使用的次數, 整數型
.局部變量 返回的數據, 整數型
當前系統日期時間 = 取現行時間 ()
打開 (數據庫路徑, , , , , 數據庫密碼, )
置當前庫 (數據庫路徑)
到首記錄 ()
讀取的簽名單位 = 讀 (“簽名單位”)
.如果 (讀取的簽名單位 = 簽名單位) ' 查對簽名單位
到首記錄 ()
讀取的授權方式 = 讀 (“授權方式”)
.如果 (授權的方式 = 讀取的授權方式) ' 檢測要求的授權方式與簽名文件的授權方式是否相同
.判斷開始 (授權的方式 = 1)
失效的時間 = 讀 (“失效時間”)
.如果 (取整 (取時間間隔 (當前系統日期時間, 失效的時間, #日)) < 0)
信息框 (“簽名文件已過期!”, 0, )
返回的數據 = 0
.否則
返回的數據 = 1
.如果結束
.判斷 (授權的方式 = 2)
使用的次數 = 讀 (“剩余使用次數”)
.如果 (使用的次數 < 1)
信息框 (“簽名文件使用次數已經為:0 !”, 0, )
返回的數據 = 0
.否則
到首記錄 ()
使用的次數 = 讀 (“剩余使用次數”)
寫 (“剩余使用次數”, 使用的次數 - 1)
返回的數據 = 1
.如果結束
.默認
.判斷結束
.否則
信息框 (“簽名文件錯誤,授權方式不正確!”, 0, )
返回的數據 = 0
.如果結束
.否則
信息框 (“簽名單位錯誤,請使用正確的簽名授予單位的程序!”, 0, )
返回的數據 = 0
.如果結束
返回 (返回的數據)
======================================================================