EnableExplicit

Global Event
Global GadgetID
Global Password.s
Global Login.s
Global Get_Login.s
Global Get_Password.s

OpenWindow(1, 300, 300, 444, 296, "Facebook Ultra Bot", #PB_Window_SystemMenu | #PB_Window_BorderLess | #PB_Window_ScreenCentered)
SetWindowColor(1, RGB(63,81,181))
StringGadget(1,0,0,0,0,"")

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

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


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


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

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

StringGadget(8, 140, 176, 172, 24, "") ; Login
LoadFont(88,"Noto Mono", 11)
SetGadgetFont(8, FontID(88))

StringGadget(9, 140, 212, 172, 24, "", #PB_String_Password) ; Password
LoadFont(99,"Noto Mono", 11)
SetGadgetFont(9, FontID(99))

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

Login="Login"
SendMessage_(GadgetID(8), #EM_SETCUEBANNER, 1, @Login)

Password="Password"
SendMessage_(GadgetID(9), #EM_SETCUEBANNER, 1, @Password)



Repeat
    Event = WaitWindowEvent()

    GadgetID = EventGadget()

    Select GadgetID

      Case 8
        If  Event= #PB_Event_LeftClick
          SetActiveGadget(1)
        EndIf

      Case 9
        If  Event= #PB_Event_LeftClick
          SetActiveGadget(1)
        EndIf

      Case 10
        Debug "Логин: " + Get_Login + " Пароль: " + Get_Password ; <<<=========

    EndSelect

    Get_Login = GetGadgetText(8)
    Get_Password = GetGadgetText(9)


  Until Event = #PB_Event_CloseWindow