Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- EnableExplicit
- Enumeration #PB_Compiler_EnumerationValue
- #Window
- #Text0
- #Text1
- #Text2
- #Text3
- #Text4
- #String_Login
- #String_Password
- #Button_Enter
- EndEnumeration
- Procedure PasswordChange()
- Protected Password.s
- Select GetGadgetText(#String_Password)
- Case ""
- Password.s="Password"
- Default
- Password.s=""
- EndSelect
- SendMessage_(GadgetID(#String_Password), #EM_SETCUEBANNER, 0, @Password)
- 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") ; Login
- LoadFont(88,"Noto Mono", 11)
- SetGadgetFont(#String_Login, FontID(88))
- StringGadget(#String_Password, 140, 212, 172, 24, "", #PB_String_Password)
- LoadFont(99,"Noto Mono", 11)
- SetGadgetFont(#String_Password, FontID(99))
- PasswordChange()
- 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
- If EventType=#PB_EventType_Focus Or EventType=#PB_EventType_LostFocus
- Select GetGadgetText(#String_Login)
- Case "Login"
- SetGadgetText(#String_Login,"")
- Case ""
- SetGadgetText(#String_Login,"Login")
- Default
- EndSelect
- EndIf
- Case #String_Password
- PasswordChange()
- Case #Button_Enter
- DebugData()
- EndSelect
- Case #PB_Event_CloseWindow
- Select EventWindow
- Case #Window
- CloseWindow(#Window)
- Break
- Default
- Debug "Закрытие данного окна еще не прописано"
- EndSelect
- EndSelect
- ForEver
- End
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement