PureBasic - форум

Информация о пользователе

Привет, Гость! Войдите или зарегистрируйтесь.


Вы здесь » PureBasic - форум » Вопросы по PureBasic » Много вопросов.


Много вопросов.

Сообщений 1 страница 2 из 2

1

Здравствуйте,возможно я вас задолбал своими темами,но все же) Сегодня у меня целых 4 вопроса,1 мой вопрос если у меня есть одна папка где лежит моей exe и папка например Photo nomber 1 и там лежит фото которое я хочу вставить в свое окно(в exe)например на задний план,как мне это сделать? 2 вопрос как изменить значок в левом верхнем углу левее значков свернуть и тд. 3 Как мне сделать что бы например у меня есть гаджет кнопка,и в папке с exe есть например папка programs,и там лежит 2 exe и я хочу что бы по нажатию на один гаджет открывался этот exe который лежит в папке. 4 Вопрос,хочу сделать хорошое окно авторизации каким способом,когда открывается exe Там есть полное окно Login: Password: и как я буду изменять логин и пороль,я хочу что бы база бралась от сайта с тексом тоесть,я как-то создам сайт с текстовым документом,и там я буду прописовать так Weyz_Halofite sss444sss 06.08.2020 1 это логин 2 это пороль, 3 это до кого оно действует,и программа будет брать эти данные с сайта и если подписка или пороль логин неправильный то основная программа не открывалась,вы можете написать мне в вк https://vk.com/ogskater возможно я заплочу если вы это сделаете) Ну если вы оооооочень добрый человек то можете сказать как это сделать,спасибо за внимание,удачи всем! Вот кстати код моей программы.

Код:
OpenWindow(1,400,400,1000,350,"Storm Project",#PB_Window_MinimizeGadget|#PB_Window_ScreenCentered|#PB_Window_SizeGadget)
 
TextGadget(230, 5, 5, 150, 75, "𝙂𝙡𝙪𝙞𝙣𝙜 𝙥𝙧𝙤𝙜𝙧𝙖𝙢𝙨")
TextGadget(231, 5, 88, 150, 75, "𝘿𝙚𝙘𝙤𝙢𝙥𝙞𝙡𝙚𝙧")
ButtonGadget(2,5,60,150,25,"Склейщик Asi/Sf Файлов")
ButtonGadget(3,5,30,150,25,"Склейщик Lua Файлов ")
ButtonGadget(4,5,110,150,25,"Декомпилер Lua Файлов")
ButtonGadget(5,5,140,150,25,"Anti Decompiler Lua")
ButtonGadget(6,845,280,150,25,"Авторы")
ButtonGadget(7,845,240,150,25,"Проверка на вирусы")
ButtonGadget(8,845,210,150,25,"Sms Bomber")
ButtonGadget(9,845,180,150,25,"Создать свой стилер")
SetWindowColor(1, RGB(211, 211, 211))
SetGadgetColor(2, #PB_Gadget_TitleBackColor, RGB(10, 230, 120))
SetGadgetColor(230, #PB_Gadget_BackColor, RGB(248, 248, 255))
SetGadgetColor(231, #PB_Gadget_BackColor, RGB(248, 248, 255))
SetGadgetColor(231, #PB_Gadget_FrontColor, RGB(255, 0, 0))
SetGadgetColor(230, #PB_Gadget_FrontColor, RGB(255, 0, 0))
CreateMenu(0, WindowID(1))
MenuTitle("Файл")
MenuItem(0, "Выход")

CreateStatusBar(0, WindowID(1))
AddStatusBarField(0)
AddStatusBarField(100)
StatusBarText(0, 1, "Storm Project 1.0")

Repeat
  Event=WaitWindowEvent()
  Gadget=EventGadget()
  
  If Event=#PB_Event_Gadget And Gadget=2
    MessageRequester("Storm Project","Данный раздел находится в разработке.")   
    EndIf
    If Event=#PB_Event_Gadget And Gadget=3
    RunProgram("https://luajit.ru/")
    MessageRequester("Storm Project","Вы были перенесены на склейщик Lua файлов.")
    EndIf
      If Event=#PB_Event_Gadget And Gadget=4
    RunProgram("https://luajit.ru/conv?/")
    MessageRequester("Storm Project","Вы были перенесены на Декомпилятор Lua Файлов.")   
    EndIf
    If Event=#PB_Event_Gadget And Gadget=5
      MessageRequester("Storm Project","Данный раздел находится в разработке.")
    EndIf
    If Event=#PB_Event_Gadget And Gadget=6
      MessageRequester("Авторы","Авторы: Weyz VK - https://vk.com/ogskater                                                  Murzik VK - https://vk.com/murzik_gandon_pidoras.                          Sweezy VK - https://vk.com/oglook00.")
      EndIf
      If Event=#PB_Event_Gadget And Gadget=7
        RunProgram("https://www.virustotal.com/gui/home/upload")
        MessageRequester("Storm Project","Вы были перенесены на сайт для проверки на вирусы.(Virus Total)")
              EndIf
      If Event=#PB_Event_Gadget And Gadget=8
        RunProgram("https://smsbomber.online/unlimited-bomber.php")
        MessageRequester("Storm Project","Вы были перенесены на сайт Sms Bomber введите номер жертвы и нажмите Bomb.")
                      EndIf
      If Event=#PB_Event_Gadget And Gadget=9
        RunProgram("http://free-steal.ru/auth/")
      MessageRequester("Storm Project","Вы были перенесены на сайт для создание своего стилеря,или же управление им.")

  ElseIf Event=#PB_Event_Menu
    Select EventMenu()
      Case 0
        Break
    EndSelect
  EndIf 
Until Event = #PB_Event_CloseWindow 
End

0

2

Файл на сайте наверно должен быть зашифрован, а прога расшифрует его.

Теоретически если чел преведёт дату назад, то прога опять работает. Значит надо пересылать текущее время пользователя и если оно меняется на вчера, то блокировать. Либо писать дату в реестре, но реестр легко отслеживается.

Шифровать допустим логин паролем получаем шифрованную строку. Если чел передал эти данные, то можно сгенерировать у себя ключ, который совпадет с ключом на стороне клиента. Дата проверяется функцией Date, шифрование в разделе Cipher.

Иконка прописывается в настройках компилятора или так:

Код:
SendMessage_(WindowID(0),#WM_SETICON,#False,5)

Взять значок с окна гаджету так

Код:
ImageGadget(1, 10, 10, 0, 0, GetClassLongPtr_(WindowID(0), #GCL_HICON), 0)

Для запуска прог RunProgram

Фон окна

Код:
	If Bool(FPathPic$) And FileSize(FPathPic$) > 11
    hImg=LoadImage(0, FPathPic$)
    SetWindowBackgroundPattern(0,ImageID(0))
	Else
    If FBkColor
    	SetWindowColor(0, FBkColor)
    EndIf
	EndIf

; Danilo
; https://www.purebasic.fr/english/viewtopic.php?p=436446#p436446
Procedure SetWindowBackgroundPattern(win, imageID)
	brush = CreatePatternBrush_(imageID)
	If brush
    SetClassLongPtr_(WindowID(win),#GCL_HBRBACKGROUND,brush)
    InvalidateRect_(WindowID(win),0,#True)
    UpdateWindow_(WindowID(win))
    ProcedureReturn brush
	EndIf
EndProcedure

Пользуйся вкладкой "Поиск" в справке, это поможет решить часть вопросов.
Код-архив, просто делай поиск по имени файлов или по содержимому прогой TextReplace.
Может Launcher код чем то поможет, там взят код фона. Значок окну взят из код-архива. Остальное из справки.

Отредактировано AZJIO (20.08.2020 20:40:31)

0


Вы здесь » PureBasic - форум » Вопросы по PureBasic » Много вопросов.