SHARE
TWEET

Untitled

a guest Dec 13th, 2019 97 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. EnableExplicit
  2. Enumeration #PB_Compiler_EnumerationValue
  3.   #Window
  4.   #Text0
  5.   #Text1
  6.   #Text2
  7.   #Text3
  8.   #Text4
  9.  
  10.   #String_Login
  11.   #String_Password
  12.   #Button_Enter
  13. EndEnumeration
  14.  
  15. Procedure AccChange(Gadget)
  16.   Protected Value.s
  17.   Value=GetGadgetText(Gadget)
  18.   If Value=""
  19.     Select Gadget
  20.       Case #String_Login
  21.         Value.s="Login"
  22.       Case #String_Password
  23.         Value.s="Password"
  24.     EndSelect
  25.   Else
  26.     Value.s=""
  27.   EndIf
  28.  
  29.   SendMessage_(GadgetID(Gadget), #EM_SETCUEBANNER, 0, @Value)
  30. EndProcedure
  31.  
  32.  
  33. Procedure OpenWindow_1()
  34.   OpenWindow(#Window, 300, 300, 444, 296, "Facebook Ultra Bot", #PB_Window_SystemMenu | #PB_Window_BorderLess | #PB_Window_ScreenCentered)
  35.   SetWindowColor(#Window, RGB(63,81,181))
  36.   StringGadget(#Window,0,0,0,0,"")
  37.  
  38.   TextGadget(#Text0, 20, 10, 404, 34, "Facebook Ultra Bot", #PB_Text_Center)
  39.   SetGadgetColor(#Text0, #PB_Gadget_FrontColor,RGB(255,255,255))
  40.   SetGadgetColor(#Text0, #PB_Gadget_BackColor,RGB(63,81,181))
  41.   LoadFont(33,"Courier New", 28, #PB_Font_Bold)
  42.   SetGadgetFont(#Text0, FontID(33))
  43.  
  44.   TextGadget(#Text1, 50, 62, 142, 34, "POSTER", #PB_Text_Center)
  45.   SetGadgetColor(#Text1, #PB_Gadget_FrontColor,RGB(3,169,244))
  46.   SetGadgetColor(#Text1, #PB_Gadget_BackColor,RGB(63,81,181))
  47.   LoadFont(44,"Courier New", 28, #PB_Font_Bold)
  48.   SetGadgetFont(#Text1, FontID(44))
  49.  
  50.  
  51.   TextGadget(#Text2, 254, 62, 142, 34, "PARSER", #PB_Text_Center)
  52.   SetGadgetColor(#Text2, #PB_Gadget_FrontColor,RGB(0,150,136))
  53.   SetGadgetColor(#Text2, #PB_Gadget_BackColor,RGB(63,81,181))
  54.   LoadFont(55,"Courier New", 28, #PB_Font_Bold)
  55.   SetGadgetFont(#Text2, FontID(55))
  56.  
  57.  
  58.   TextGadget(#Text3, 206, 62, 34, 34, "+", #PB_Text_Center)
  59.   SetGadgetColor(#Text3, #PB_Gadget_FrontColor,RGB(255,255,255))
  60.   SetGadgetColor(#Text3, #PB_Gadget_BackColor,RGB(63,81,181))
  61.   LoadFont(66,"Courier New", 25, #PB_Font_Bold)
  62.   SetGadgetFont(#Text3, FontID(66))
  63.  
  64.   TextGadget(#Text4, 120, 126, 206, 30, "Вход в Аккаунт", #PB_Text_Center)
  65.   SetGadgetColor(#Text4, #PB_Gadget_FrontColor,RGB(76,175,80))
  66.   SetGadgetColor(#Text4, #PB_Gadget_BackColor,RGB(63,81,181))
  67.   LoadFont(77,"Courier New", 18, #PB_Font_Bold)
  68.   SetGadgetFont(#Text4, FontID(77))
  69.  
  70.   StringGadget(#String_Login, 140, 176, 172, 24, "")
  71.   LoadFont(88,"Noto Mono", 11)
  72.   SetGadgetFont(#String_Login, FontID(88))
  73.   AccChange(#String_Login)
  74.  
  75.   StringGadget(#String_Password, 140, 212, 172, 24, "", #PB_String_Password)
  76.   LoadFont(99,"Noto Mono", 11)
  77.   SetGadgetFont(#String_Password, FontID(99))
  78.   AccChange(#String_Password)
  79.  
  80.   ButtonGadget(#Button_Enter, 178, 250, 100, 25, "Вход")
  81.   LoadFont(100,"Noto Mono", 12)
  82.   SetGadgetFont(#Button_Enter, FontID(100))
  83. EndProcedure
  84.  
  85. OpenWindow_1()
  86.  
  87.  
  88. Procedure Debugdata()
  89.   Protected Get_Login.s = GetGadgetText(#String_Login)
  90.   Debug "Логин: " + Get_Login + " Пароль: " + GetGadgetText(#String_Password) ; <<<=========
  91. EndProcedure
  92.  
  93. Repeat
  94.   Global Event = WaitWindowEvent()
  95.   Global EventGadget=EventGadget()
  96.   Global EventType=EventType()
  97.   Global EventWindow=EventWindow()
  98.  
  99.   Select Event
  100.     Case #PB_Event_Gadget
  101.       Select EventGadget
  102.          
  103.         Case #String_Login
  104.           AccChange(#String_Login)
  105.         Case #String_Password
  106.           AccChange(#String_Password)
  107.         Case #Button_Enter
  108.           DebugData()
  109.       EndSelect
  110.     Case #PB_Event_CloseWindow
  111.       Select EventWindow
  112.         Case #Window
  113.           CloseWindow(#Window)
  114.           Break
  115.         Default
  116.           Debug "Закрытие данного окна еще не прописано"
  117.       EndSelect
  118.   EndSelect
  119. ForEver
  120. End
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
Top