EnableExplicit
Enumeration #PB_Compiler_EnumerationValue
  #Window
  #Text0
  #Text1
  #Text2
  #Text3
  #Text4

  #String_Login
  #String_Password
  #Button_Enter
  #WrongData
EndEnumeration

Procedure AccChange(Gadget)
  Protected Value.s
  Value=GetGadgetText(Gadget)
  If Value=""
    Select Gadget
      Case #String_Login
        Value.s="Login"
      Case #String_Password
        Value.s="Password"
    EndSelect
  Else
    Value.s=""
  EndIf

  SendMessage_(GadgetID(Gadget), #EM_SETCUEBANNER, 0, @Value)
EndProcedure


Procedure OpenWindow_1()
  OpenWindow(#Window, 300, 300, 444, 324, "Facebook Ultra Bot", #PB_Window_SystemMenu | #PB_Window_BorderLess | #PB_Window_ScreenCentered)
  SetWindowColor(#Window, RGB(63,81,181))
  StringGadget(#Window,0,0,0,0,"")

  TextGadget(#Text0, 20, 10, 404, 34, "Facebook Ultra Bot", #PB_Text_Center)
  SetGadgetColor(#Text0, #PB_Gadget_FrontColor,RGB(255,255,255))
  SetGadgetColor(#Text0, #PB_Gadget_BackColor,RGB(63,81,181))
  LoadFont(33,"Courier New", 28, #PB_Font_Bold)
  SetGadgetFont(#Text0, FontID(33))

  TextGadget(#Text1, 50, 62, 142, 34, "POSTER", #PB_Text_Center)
  SetGadgetColor(#Text1, #PB_Gadget_FrontColor,RGB(3,169,244))
  SetGadgetColor(#Text1, #PB_Gadget_BackColor,RGB(63,81,181))
  LoadFont(44,"Courier New", 28, #PB_Font_Bold)
  SetGadgetFont(#Text1, FontID(44))


  TextGadget(#Text2, 254, 62, 142, 34, "PARSER", #PB_Text_Center)
  SetGadgetColor(#Text2, #PB_Gadget_FrontColor,RGB(0,150,136))
  SetGadgetColor(#Text2, #PB_Gadget_BackColor,RGB(63,81,181))
  LoadFont(55,"Courier New", 28, #PB_Font_Bold)
  SetGadgetFont(#Text2, FontID(55))


  TextGadget(#Text3, 206, 62, 34, 34, "+", #PB_Text_Center)
  SetGadgetColor(#Text3, #PB_Gadget_FrontColor,RGB(255,255,255))
  SetGadgetColor(#Text3, #PB_Gadget_BackColor,RGB(63,81,181))
  LoadFont(66,"Courier New", 25, #PB_Font_Bold)
  SetGadgetFont(#Text3, FontID(66))

  TextGadget(#Text4, 120, 126, 206, 30, "Вход в Аккаунт", #PB_Text_Center)
  SetGadgetColor(#Text4, #PB_Gadget_FrontColor,RGB(76,175,80))
  SetGadgetColor(#Text4, #PB_Gadget_BackColor,RGB(63,81,181))
  LoadFont(77,"Courier New", 18, #PB_Font_Bold)
  SetGadgetFont(#Text4, FontID(77))

  StringGadget(#String_Login, 140, 176, 172, 24, "")
  LoadFont(88,"Noto Mono", 11)
  SetGadgetFont(#String_Login, FontID(88))
  AccChange(#String_Login)

  StringGadget(#String_Password, 140, 212, 172, 24, "", #PB_String_Password)
  LoadFont(99,"Noto Mono", 11)
  SetGadgetFont(#String_Password, FontID(99))
  AccChange(#String_Password)
  TextGadget(#WrongData, 141, 244, 172, 20, "Проверьте свои данные", #PB_Text_Center)
  HideGadget(#WrongData, 1)
  LoadFont(#WrongData,"Tahoma", 11)
  SetGadgetColor(#WrongData, #PB_Gadget_FrontColor, RGB(244, 67, 54))
  SetGadgetColor(#WrongData, #PB_Gadget_BackColor, RGB(63,81,181))
  SetGadgetFont(#WrongData, FontID(#WrongData))

  ButtonGadget(#Button_Enter, 178, 280, 100, 25, "Вход")
  LoadFont(100,"Noto Mono", 12)

  SetGadgetFont(#Button_Enter, FontID(100))

EndProcedure

OpenWindow_1()


Procedure Debugdata()
  Protected Get_Login.s = GetGadgetText(#String_Login)
  Protected Get_Password.s = GetGadgetText(#String_Password)
  If Get_Login = "" Or Get_Password = ""
    SetGadgetColor(#String_Login, #PB_Gadget_BackColor, RGB(244, 67, 54))
    SetGadgetColor(#String_Password, #PB_Gadget_BackColor, RGB(244, 67, 54))
    HideGadget(#WrongData, 0)
  Else
    Debug "Логин: " + Get_Login + " Пароль: " + Get_Password ; <<<=========
  EndIf
EndProcedure

Repeat
  Global Event = WaitWindowEvent()
  Global EventGadget=EventGadget()
  Global EventType=EventType()
  Global EventWindow=EventWindow()
  Global Get_Login.s

  Select Event
    Case #PB_Event_Gadget
      Select EventGadget

        Case #String_Login
          AccChange(#String_Login)
        Case #String_Password
          AccChange(#String_Password)
        Case #Button_Enter
            DebugData()

      EndSelect
    Case #PB_Event_CloseWindow
      Select EventWindow
        Case #Window
          CloseWindow(#Window)
          Break
        Default
          Debug "Закрытие данного окна еще не прописано"
      EndSelect
  EndSelect
ForEver
End