Вопрос Как сделать чек не по файлу гитхаба, а по своему сайту

MIHUTKA

Модератор
  • 65
  • 23
Код:
Windows_Disk := A_WinDir

if Windows_Disk contains Windows
{
RegExMatch(Windows_Disk, "(.*)windows", Disk_7)
if Disk_71 contains Q,W,E,R,T,Y,U,I,O,P,A,S,D,F,G,H,J,K,L,Z,X,C,V,B,N,M
{
DriveGet, HWID, Serial, %Disk_71%
}

RegExMatch(Windows_Disk, "(.*)Windows", Disk_8)
if Disk_81 contains Q,W,E,R,T,Y,U,I,O,P,A,S,D,F,G,H,J,K,L,Z,X,C,V,B,N,M
{
DriveGet, HWID, Serial, %Disk_81%
}

RegExMatch(Windows_Disk, "(.*)WINDOWS", Disk_10)
if Disk_101 contains Q,W,E,R,T,Y,U,I,O,P,A,S,D,F,G,H,J,K,L,Z,X,C,V,B,N,M
{
DriveGet, HWID, Serial, %Disk_101%
}
}
else
{
MsgBox, У тебя операционная система не Windows!
ExitApp
}

URLDownloadToFile, https://raw.githubusercontent.com/Arse4ek/baza.html/main/index.html, %a_temp%/key.txt
fileread, read, %a_temp%/key.txt
FileDelete, %a_temp%/key.txt

if read contains %HWID%
{
Goto, true
}
else
{
MsgBox, Добро пожаловать в поле регистрации!`nСкопированые данные отправте автору программы.
Gui, Font, S16 CBlack Bold, Arial
Gui, Add, Text, x53 y0 w500 h30 , Твой ключ:
Gui, Font, ,
Gui, Add, Edit, x1 y31 w219 h21 +Center ReadOnly vEdit,
Gui, Add, Button, x35 y52 w153 h24 gClip , Копировать и закрыть
Gui, Show, w221 h76, Доступ
GuiControl, , Edit, % HWID
return
Clip:
Gui, Submit, NoHide
Clipboard := Edit
ExitApp
GuiClose:
ExitApp
}
true:
MsgBox, Добро пожаловать!
 

Nellored

занятой чел
  • 575
  • 88
  • 106
1663763934943.png
 
Top Bottom