SHARE
TWEET

Test

a guest Dec 13th, 2019 93 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 PasswordChange()
  16.   Protected Password.s
  17.   Select GetGadgetText(#String_Password)
  18.     Case ""
  19.       Password.s="Password"
  20.     Default
  21.       Password.s=""
  22.   EndSelect
  23.   SendMessage_(GadgetID(#String_Password), #EM_SETCUEBANNER, 0, @Password)
  24. EndProcedure
  25.  
  26. Procedure OpenWindow_1()
  27.   OpenWindow(#Window, 300, 300, 444, 296, "Facebook Ultra Bot", #PB_Window_SystemMenu | #PB_Window_BorderLess | #PB_Window_ScreenCentered)
  28.   SetWindowColor(#Window, RGB(63,81,181))
  29.   StringGadget(#Window,0,0,0,0,"")
  30.  
  31.   TextGadget(#Text0, 20, 10, 404, 34, "Facebook Ultra Bot", #PB_Text_Center)
  32.   SetGadgetColor(#Text0, #PB_Gadget_FrontColor,RGB(255,255,255))
  33.   SetGadgetColor(#Text0, #PB_Gadget_BackColor,RGB(63,81,181))
  34.   LoadFont(33,"Courier New", 28, #PB_Font_Bold)
  35.   SetGadgetFont(#Text0, FontID(33))
  36.  
  37.   TextGadget(#Text1, 50, 62, 142, 34, "POSTER", #PB_Text_Center)
  38.   SetGadgetColor(#Text1, #PB_Gadget_FrontColor,RGB(3,169,244))
  39.   SetGadgetColor(#Text1, #PB_Gadget_BackColor,RGB(63,81,181))
  40.   LoadFont(44,"Courier New", 28, #PB_Font_Bold)
  41.   SetGadgetFont(#Text1, FontID(44))
  42.  
  43.  
  44.   TextGadget(#Text2, 254, 62, 142, 34, "PARSER", #PB_Text_Center)
  45.   SetGadgetColor(#Text2, #PB_Gadget_FrontColor,RGB(0,150,136))
  46.   SetGadgetColor(#Text2, #PB_Gadget_BackColor,RGB(63,81,181))
  47.   LoadFont(55,"Courier New", 28, #PB_Font_Bold)
  48.   SetGadgetFont(#Text2, FontID(55))
  49.  
  50.  
  51.   TextGadget(#Text3, 206, 62, 34, 34, "+", #PB_Text_Center)
  52.   SetGadgetColor(#Text3, #PB_Gadget_FrontColor,RGB(255,255,255))
  53.   SetGadgetColor(#Text3, #PB_Gadget_BackColor,RGB(63,81,181))
  54.   LoadFont(66,"Courier New", 25, #PB_Font_Bold)
  55.   SetGadgetFont(#Text3, FontID(66))
  56.  
  57.   TextGadget(#Text4, 120, 126, 206, 30, "Вход в Аккаунт", #PB_Text_Center)
  58.   SetGadgetColor(#Text4, #PB_Gadget_FrontColor,RGB(76,175,80))
  59.   SetGadgetColor(#Text4, #PB_Gadget_BackColor,RGB(63,81,181))
  60.   LoadFont(77,"Courier New", 18, #PB_Font_Bold)
  61.   SetGadgetFont(#Text4, FontID(77))
  62.  
  63.   StringGadget(#String_Login, 140, 176, 172, 24, "Login") ; Login
  64.   LoadFont(88,"Noto Mono", 11)
  65.   SetGadgetFont(#String_Login, FontID(88))
  66.  
  67.   StringGadget(#String_Password, 140, 212, 172, 24, "", #PB_String_Password)
  68.   LoadFont(99,"Noto Mono", 11)
  69.   SetGadgetFont(#String_Password, FontID(99))
  70.   PasswordChange()
  71.  
  72.   ButtonGadget(#Button_Enter, 178, 250, 100, 25, "Вход")
  73.   LoadFont(100,"Noto Mono", 12)
  74.   SetGadgetFont(#Button_Enter, FontID(100))
  75. EndProcedure
  76.  
  77. OpenWindow_1()
  78.  
  79.  
  80. Procedure Debugdata()
  81.   Protected Get_Login.s = GetGadgetText(#String_Login)
  82.   Debug "Логин: " + Get_Login + " Пароль: " + GetGadgetText(#String_Password) ; <<<=========
  83. EndProcedure
  84.  
  85. Repeat
  86.   Global Event = WaitWindowEvent()
  87.   Global  EventGadget=EventGadget()
  88.   Global EventType=EventType()
  89.   Global EventWindow=EventWindow()
  90.  
  91.   Select Event
  92.     Case #PB_Event_Gadget
  93.       Select EventGadget
  94.         Case #String_Login
  95.          
  96.           If EventType=#PB_EventType_Focus Or EventType=#PB_EventType_LostFocus
  97.             Select GetGadgetText(#String_Login)
  98.               Case "Login"
  99.                 SetGadgetText(#String_Login,"")
  100.               Case ""
  101.                 SetGadgetText(#String_Login,"Login")
  102.               Default
  103.             EndSelect
  104.           EndIf
  105.          
  106.         Case #String_Password
  107.           PasswordChange()
  108.         Case #Button_Enter
  109.           DebugData()
  110.       EndSelect
  111.     Case #PB_Event_CloseWindow
  112.       Select EventWindow
  113.         Case #Window
  114.           CloseWindow(#Window)
  115.           Break
  116.         Default
  117.           Debug "Закрытие данного окна еще не прописано"
  118.       EndSelect
  119.   EndSelect
  120. ForEver
  121. 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