【按鍵精靈教程】教你給免費小精靈做個日期限制

金豬指令碼(原飛豬指令碼)以按鍵精靈教學為主,涉及UiBot,Python,Lua等指令碼程式語言,教學包括全自動辦公指令碼,遊戲輔助指令碼,引流指令碼,網頁尾本,安卓指令碼,IOS指令碼,註冊指令碼,點贊指令碼,閱讀指令碼以及網賺指令碼等各個領域。想製作指令碼和學習按鍵精靈的朋友可以新增按鍵精靈學習交流群:554127455 學習路上不再孤單,金豬指令碼伴你一同成長.

【按鍵精靈教程】教你給免費小精靈做個日期限制

相關命令:

命令名稱:CompareTime命令功能:對比是否到期引數:引數1【必要】:整數型,年

引數2【必要】:整數型,月

引數3【必要】:整數型,日

引數4【必要】:整數型,時

引數5【必要】:整數型,分

引數6【必要】:整數型,秒返回值:到期返回-1,獲取網路時間失敗返回null,未到期返回距離到期剩餘的秒數

命令名稱:LateTime命令功能:計算幾天後的日期引數:引數1【必要】:整數型,天數

引數2【可選】:整數型,年

引數3【可選】:整數型,月

引數4【可選】:整數型,日返回值:返回日期,只填第一個引數則返回距離當前日期指定天數之後的日期

這個功能我們可以用來做什麼呢?很多同學在剛開發完指令碼之後都會把指令碼免費的發放出去讓大家使用積累人氣。等指令碼穩定人氣也高的時候就開始收費。

那我們這裡就可以利用這個命令,讓指令碼在一定的時期內可以正常使用,超過了這個時期之後就不執行功能。

我們還可以結合

範例:

Import “shanhai。lua”

Function 限時免費(日期)

Dim datearr = split(日期, “-”)

Dim ret = shanhai。CompareTime(datearr(0), datearr(1), datearr(2), 0, 0, 0)

If ret = -1 Then

ShowMessage “指令碼已經到期”

Delay 2000

EndScript

ElseIf ret > 0 Then

ShowMessage “指令碼未到期,可以繼續使用”

Delay 2000

ElseIf ret = null Then

ShowMessage “聯網失敗,請檢查網路”

Delay 2000

EndScript

End If

End Function

// 判斷日期是否到達了2016年7月29號0點0分0秒

Call 限時免費(“2016-08-27”)

複製程式碼

我們還可以利用LateTime 命令來實現限制指定天數的功能

範例:

Import “shanhai。lua”

Function 限制天數(天數)

Dim 路徑 = “/sdcard/data。txt”

Dim 日期 = ShanHai。LateTime(天數)

// 這裡把計算好的到期時間寫入檔案以便指令碼啟動時進行判斷

If Dir。Exist(路徑) = 1 Then

TracePrint “已有日期檔案”

日期 = file。Read(路徑)

Else

Call file。Write(路徑, 限定日期)

End If

Dim datearr = split(日期, “-”)

Dim ret = shanhai。CompareTime(datearr(0), datearr(1), datearr(2), 0, 0, 0)

If ret = -1 Then

ShowMessage “指令碼已經到期”

Delay 2000

EndScript

ElseIf ret > 0 Then

ShowMessage “指令碼未到期,可以繼續使用”

Delay 2000

ElseIf ret = null Then

ShowMessage “聯網失敗,請檢查網路”

Delay 2000

EndScript

End If

End Function

複製程式碼