看我公眾號的讀者，很多都是編寫腳本的作者，在腳本接單的時候，為了交易安全，可以給腳本加一個試用期限的功能，這樣就不擔心買主拿到腳本跑單的情況了。
這裡我給大家一個通用的源碼，大家可以放到自己的腳本最開頭的地方，然後修改一下試用期限就可以使用。
代碼如下：
<code>Dim str=ReadUIConfig("輸入框1")
Dim path="/sdcard/pictures/code.txt"
Dim time_key=300 '默認單位是秒，5分鐘是300秒
If str = "abc123" Then
\tShowMessage ("激活碼正確")
\tTracePrint "激活碼正確"
\tIf Dir.Exist(path) = 0 Then
\t\tTracePrint "計時文件不存在,是首次使用"
\t\tDim t=time()
\t\tTracePrint t
\t\tfile.write(path,t)
\t\tElse
\t\tTracePrint "計時文件存在"
\t\tdim t1=file.read(path)
\t\tDim t2=time()
\t\tIf t2 - t1 > time_key Then
\t\t\tTracePrint "超過試用時間,請聯繫作者"
\t\t\tEndScript
\t\t\tElse
\t\t\tTracePrint "剩餘時間"&int((time_key-(t2-t1))/60)&"分"&(time_key-(t2-t1)) mod 60 &"秒"
\t\t\tFor i=0 to 3
\t\t\t\tShowMessage ("剩餘時間"&int((time_key-(t2-t1))/60)&"分"&(time_key-(t2-t1)) mod 60 &"秒")
\t\t\t\tDelay 1000
\t\t\tNext
\t\tEnd If
\tEnd If
\tElse
\tShowMessage ("激活碼錯誤")
\tTracePrint "激活碼錯誤"
\tEndScript
End If/<code>這個在我的基礎課也講過代碼的原理，就是通過在本地新建一個文本，用於存儲腳本第一次使用時的時間，當腳本再次使用的時候，就會比對這個時間，如果超出你規定的時間，腳本就會自動停止。
當然這個腳本也是有漏洞的，就是當別人找到你的文本存放位置，可以手動刪除掉，這樣就可以再次使用了。所以儘量把文本存放的隱蔽些，並且名字起得有迷惑性。
當然這個漏洞也有解決方法，就是買個服務器，然後把文本存在服務器上面，這樣就不擔心用戶刪除了。這方法雖好，但是要花錢買服務器，對於很多作者來說又是要增加成本。所以我這種方法雖然有弊端，但考慮到性價比，還是可以用的。
分享到:
閱讀更多 按鍵精靈郭立員 的文章
