Тема: AHK: Выдача доступа к скрипту на определённое время
Всем привет. Подскажите пожалуйста, какими способами можно предоставить доступ к скрипту на определённое время, которое я могу указать на github, т.к там я выдаю доступ к скрипту?
global hwid_url := "Тут моя ссылка на github с серийниками"
global cHwid := ""
global nick := ""
global LVL := ""
UrlGetContents(sUrl) {
ComObjError(False)
http := ComObjCreate("WinHttp.WinHttpRequest.5.1")
http.Open("GET", sUrl, false)
http.Send()
ADODBStream := ComObjCreate("ADODB.Stream")
ADODBStream.Type := 1
ADODBStream.Mode := 3
ADODBStream.Open()
ADODBStream.Write(http.ResponseBody)
ADODBStream.Position := 0
ADODBStream.Type := 2
ADODBStream.Charset := "UTF-8"
text := ADODBStream.ReadText()
ADODBStream.Close()
return text ;
}
CheckHwid() {
Active := FALSE
DriveGet, cHwid, Serial, C:\
Loop, Parse, % UrlGetContents(hwid_url), `n
{
sHwid := strsplit(A_LoopField, " - ")
if (cHwid == sHwid[1]) {
Active := TRUE
nick := sHwid[2]
LVL := sHwid[3]
}
}
return Active
}
if (!CheckHwid()) {
msgbox, 0x30,, % "Hwid: " cHwid "`nУ Вас нет доступа к данному скрипту!", 5
IfMsgBox, Timeout
ExitApp
}
