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

  #String_Login
  #String_Password
  #Button_Enter
EndEnumeration

Procedure AccChange()
  Protected Password.s
  Select GetGadgetText(#String_Password)
    Case ""
      Password.s="Password"
    Default
      Password.s=""
  EndSelect

  Protected Login.s
  Select GetGadgetText(#String_Login)
    Case ""
      Login.s="Login"
    Default
      Login.s=""
  EndSelect

  SendMessage_(GadgetID(#String_Password), #EM_SETCUEBANNER, 0, @Password)
  SendMessage_(GadgetID(#String_Login), #EM_SETCUEBANNER, 0, @Login)
EndProcedure


Procedure OpenWindow_1()
  OpenWindow(#Window, 300, 300, 444, 296, "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, "") ; Login
  LoadFont(88,"Noto Mono", 11)
  SetGadgetFont(#String_Login, FontID(88))
  AccChange()

  StringGadget(#String_Password, 140, 212, 172, 24, "", #PB_String_Password)
  LoadFont(99,"Noto Mono", 11)
  SetGadgetFont(#String_Password, FontID(99))
  AccChange()

  ButtonGadget(#Button_Enter, 178, 250, 100, 25, "Вход")
  LoadFont(100,"Noto Mono", 12)
  SetGadgetFont(#Button_Enter, FontID(100))
EndProcedure

OpenWindow_1()


Procedure Debugdata()
  Protected Get_Login.s = GetGadgetText(#String_Login)
  Debug "Логин: " + Get_Login + " Пароль: " + GetGadgetText(#String_Password) ; <<<=========
EndProcedure

Repeat
  Global Event = WaitWindowEvent()
  Global EventGadget=EventGadget()
  Global EventType=EventType()
  Global EventWindow=EventWindow()

  Select Event
    Case #PB_Event_Gadget
      Select EventGadget

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