Advertisement
Guest User

Test

a guest
Dec 13th, 2019
161
0
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
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement