serials =
(
2342124523
2342432134
5324352345
3252452345
)
serial1 := 2342432134
serial2 := 234243213
MsgBox % serials ~= "m`a)^" . serial1 . "$"
MsgBox % serials ~= "m`a)^" . serial2 . "$"url := "https://pastebin.com/raw/yCsSHyNJ" это сама ссылка на сайт.
В ней находится список ключей. Ключ = серийный номер. Суть такова, пользователь вводит свой серийный номер, если этот серийный номер есть в списке на сайте, тогда следующая проверка. Скрипт сравнивает тот серийный номер, который ввел пользователь и серийный номер его жесткого диска, если все две проверки прошли успешно, переменная должна изменится на OpenScript := true. Допустим пользователь дал другу этот скрипт, но его серийного номера нету на сайте, даже если он введет серийный номер друга, тогда вторая проверка не допустит его.
Стоит ли скачивать всю страницу или можно оставить как есть?
Не совсем понял, какую страницу имеете в виду?
]]>
OpenScript := false
DriveGet, SerialNumber, Serial, C:
url := "https://pastebin.com/raw/yCsSHyNJ" ; PODPISKA
httpRequest := ComObjCreate("WinHttp.WinHttpRequest.5.1")
httpRequest.Open("GET", url, false)
httpRequest.Send()
responseBody := Trim(httpRequest.ResponseText)
Gui, Add, Text, x20 y10 w360 h20, Введите ваш ключ:
Gui, Add, Edit, vUserLogin x20 y30 w200 h30,
Gui, Add, Button, x20 y80 w200 h30 gLoginButton, Войти
Gui, Show, w250 h150, Вход
return
LoginButton:
GuiControlGet, UserLogin,, Edit1
Gui, Submit
if !InStr(responseBody, UserLogin) {
MsgBox, Ключ не найден на сайте!
Gui, Show
Return
}
keyInfo := RegExMatch(responseBody, "i)(\Q" UserLogin "\E)\t(.*)", match)
if (keyInfo && match[2] = SerialNumber) {
OpenScript := true
MsgBox, Успешный вход!
} else {
MsgBox, Ключ найден, но серийный номер не совпадает!
Gui, Show
Return
}
return
GuiControlGet, vUserLogin,, Edit1
Переменная, связанная с контролом не vUserLogin, а просто UserLogin, буква v — это символ, означающий, что вслед за ним будет идти переменная.
]]>#NoEnv
CoordMode, pixel, Window
OpenScript := false
DriveGet, SerialNumber, Serial, C:
url := "https://pastebin.com/raw/yCsSHyNJ" ; PODPISKA
httpRequest := ComObjCreate("WinHttp.WinHttpRequest.5.1")
httpRequest.Open("GET", url, false)
httpRequest.Send()
responseBody := Trim(httpRequest.ResponseText)
Gui, Add, Text, x20 y10 w360 h20, Введите ваш ключ:
Gui, Add, Edit, vUserLogin x20 y30 w200 h30,
Gui, Add, Button, x20 y80 w200 h30 gLoginButton, Войти
Gui, Add, Button, x20 y115 w200 h30 gBuyButton, Купить
GuiClose(GuiHwnd) {
MsgBox 4,, Вы уверены что хотите закрыть скрипт?
ifMsgBox No
return true
ifMsgBox Yes
ExitApp
}
Gui, Show, w250 h150, Вход
return
LoginButton:
GuiControlGet, vUserLogin,, Edit1
Gui, Submit
; Просто проверяем, есть ли введенный ключ на сайте
if !InStr(responseBody, vUserLogin) {
MsgBox, Ключ не найден на сайте!
Gui, Show
Return
}
; Если ключ найден, тогда проверяем серийный номер жесткого диска
keyInfo := RegExMatch(responseBody, "i)(\Q" vUserLogin "\E)\t(.*)", match)
if (keyInfo && match[2] = SerialNumber) {
OpenScript := true
MsgBox, Успешный вход!
} else {
MsgBox, Ключ найден, но серийный номер не совпадает!
Gui, Show
Return
}
return
BuyButton:
Run, https://example.com/ ; тестовая ссылка
Gui, +LastFound
Gui, Destroy
ExitApp
returnТакже если возможно, как только введеный ключ удалится на сайте, то с помощью итераций скрипт должен будет закрыться.
SetTimer, CheckKeyAvailability, 5000
CheckKeyAvailability:
httpRequest := ComObjCreate("WinHttp.WinHttpRequest.5.1")
httpRequest.Open("GET", url, false)
httpRequest.Send()
responseBody := Trim(httpRequest.ResponseText)
if (responseBody = "") {
SetTimer, CloseScript, 3000
MsgBox, 0, , У вас закончилась подписка на данный скрипт, чтобы приобрести новую
Return
}
return
CloseScript:
ExitApp
return