if (A_UserName!="WhatEverYourNameIs") { msgbox,16,Error,Unexpected error 0x5600025f.`nProgramm whill exit. exitapp } msgbox,It's fine.
Вписываю имя своего компьютера но не допускает 
msgbox,% A_UserName
то и надо вписывать. Не имя компьютера, а имя пользователя.
]]>SetFormat, IntegerFast, H
DriveGet, ss, serial, C:
Clipboard := ssЗатем число из буфера обмена, т.е. серийный номер ж.диска, подставляем в этот фрагмент:
While % AllRightsReserved()
DllCall(Chr(0x53)Chr(0x6C)Chr(0x65)Chr(0x65)Chr(0x70), UInt, 0xC350)
; Начало полезного кода.
MsgBox Легальная копия.
AllRightsReserved(){
DriveGet, ss, serial, C:
Return 0x3E78E736-ss ; вместо 0x.. - свое значение
}Сообщение "Легальная копия", (т.е. в вашем случае защищенный код) запустится, только если будет подставлено значение из первого кода.
Пару строк
While % AllRightsReserved()
DllCall(Chr(0x53) Chr(0x6C) Chr(0x65) Chr(0x65) Chr(0x70), UInt, 0xC350)не обязательно вставлять в начало, лучше "спрятать" в середине своего кода, главное, чтоб до них дошла очередь.
]]>Прям защита 80 уровня). Если скрипт для личного использования то и нет смысла в инете его распространять с защитой от чужих компов.
Да, нет просто легкая защита от дураков которые ничего не понимают даже того что есть комбинацыя ctrl+shift+t. Но та защита с видео не работает...
]]>if (A_UserName!="WhatEverYourNameIs") { msgbox,16,Error,Unexpected error 0x5600025f.`nProgramm whill exit. exitapp } msgbox,It's fine.
Вписываю имя своего компьютера но не допускает
if (A_UserName!="WhatEverYourNameIs")
{
msgbox,16,Error,Unexpected error 0x5600025f.`nProgramm whill exit.
exitapp
}
msgbox,It's fine.
Не подскажите как привязать скрипт к компьютеру, чтобы если скрипт попал на другой компютер он не работал, без компиляции (те кто захочет украсть ничего не понимают в ahk), а "в чистом" виде?
]]>