:get_serial/*
Спасибо Даниилу за функцию
Параметры:
Выход: 0@ - Возвращает серийный номер жёсткого диска, который операционная система присваивает при форматировании.
Использование:
if
0AB1: call @get_serial 0 store_to 0@
then
wait 0
end
*/if0AA2: 1@ = load_library "kernel32.dll"then
0485: return_trueif0AA4: 2@ = get_proc_address "GetVolumeInformationA" library 1@then
0AC7: 0@ = var 0@ offset
0AA5: call 2@ num_params 8 pop 0 0 0 0 0 0@ 0 0 0
endelse059A: return_false
end
0AA3: free_library 1@0AB2: ret 1 0@