forum.boolean.name

forum.boolean.name (http://forum.boolean.name/index.php)

- PureBasic (http://forum.boolean.name/forumdisplay.php?f=90)

- - HELP (http://forum.boolean.name/showthread.php?t=14356)

}{@KeR

05.03.2011 21:49

HELP

Может у кого нибудь есть русский HELP(на PureBasic)
Но не такой где тупо вся страничка на русский переведена(Например оператор IF переведён как ЕСЛИ)

FireOwl

06.03.2011 00:05

Ответ: HELP

http://purebasic.info/purewiki/index...%D1%86%D0 %B0

http://purebasic.ru/

http://pure-basic.narod.ru/docs.html

http://www.mirashic.narod.ru/

З.Ы. Плюс бонус: ссыль.

}{@KeR

06.03.2011 19:35

Ответ: HELP

В пурике я пока нуб .....объясните люди !!!
Как надо написать чтобы выводило на экран сообщение как в блитце какая клавиша нажата...
На уроках остановился на этом пункте и чёт-то команды не работают

Пётр	07.03.2011 02:05

Ответ: HELP

Вот справка, переведенная на русский http://pure-basic.narod.ru/PureBasic.chm

Цитата:

Сообщение от }{@KeR (Сообщение 181598)

Как надо написать чтобы выводило на экран сообщение как в блитце какая клавиша нажата...

Это что-ль надо?

Код:

OpenWindow(0,0,0,230,150,"", #PB_Window_SystemMenu | #PB_Window_ScreenCentered) 

EditorGadget(0,10,10,210,130 )

Repeat

  Event=WaitWindowEvent()

  If Event=#WM_KEYDOWN                            ; Была нажата кнопка

    AddGadgetItem(0,-1,Str( EventwParam())+"  " ) ; Помещаем её код в редактор

    SendMessage_(GadgetID(0),#EM_SETSEL,-1,-1)    ; Прокрутка текста

  EndIf

Until Event=#PB_Event_CloseWindow

}{@KeR

07.03.2011 09:00

Ответ: HELP

Неее...Допустим нажал "1" на экране появилось 1......Нажал "Escape" появилось Escape

}{@KeR

07.03.2011 11:49

Ответ: HELP

Я вот чёт непойму....в Blitz"e набрал Print или Text и у тебя на экране текст появился.....как же это сделать в PureBasic???

Как вот в этом примере сделать чтобы текст под ProgressBar'ом появился????

Код:

If OpenWindow(0, 0, 0, 410, 70, "Window", #PB_Window_ScreenCentered | #PB_Window_Tool)

    ProgressBarGadget(0, 10, 10, 380, 20, 0, 10000)

    SetWindowColor(0,RGB(12,12,12))

    StickyWindow(0,1)

    

  Repeat

  For i=0 To 10000 Step 1

  SetGadgetState(0,i)

  Next 

    Event = WaitWindowEvent()



    If Event = #PB_Event_CloseWindow  

      Quit = 1

    EndIf



  Until Quit = 1

  

EndIf



End

}{@KeR

08.03.2011 08:51

Ответ: HELP

Ладно то забыли....уже разобрался

Как вот сделать проверку на существование процесса???
Если .ехе запущен то его уже не надо запускать....если вырубился то запустить

Nex	08.03.2011 14:56

Ответ: HELP

moka	08.03.2011 15:20

Ответ: HELP

Цитата:

Сообщение от }{@KeR (Сообщение 181869)

Написать сервис для системы, который будет осуществлять необходимую проверку, и вызывать процесс по необходимости..

Пётр	08.03.2011 18:13

Ответ: HELP

Цитата:

Неее...Допустим нажал "1" на экране появилось 1......Нажал "Escape" появилось Escape

Код:

If OpenWindow(0, 0, 0, 240, 70, "ShortcutGadget", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)

  ShortcutGadget(0, 20, 20, 200, 25, #PB_Shortcut_Control|#PB_Shortcut_A)

  SetActiveGadget(0)

    Repeat

      Event = WaitWindowEvent()

    Until Event = #PB_Event_CloseWindow

  EndIf

Цитата:

Как вот в этом примере сделать чтобы текст под ProgressBar'ом появился????

Код:

If OpenWindow(0, 0, 0, 410, 70, "Window", #PB_Window_ScreenCentered | #PB_Window_Tool)

  ProgressBarGadget(0, 10, 10, 380, 20, 0, 20)

  TextGadget(1,10,40,200,16,"")

  SetGadgetColor(1,#PB_Gadget_FrontColor,$FFFFFF)

  SetGadgetColor(1,#PB_Gadget_BackColor,RGB(12,12,12))

  SetWindowColor(0,RGB(12,12,12))

  StickyWindow(0,1)

  

  AddWindowTimer(0,0,10)

  

  Coint=0

  

  Repeat

    

    Event = WaitWindowEvent()

    

    If event = #PB_Event_Timer

      If EventTimer() = 0

        SetGadgetState(0,Coint)

        SetGadgetText(1,"Текущий прогресс - "+Str(Coint))

        Coint +1

        If Coint>20

          Coint=0

        EndIf

      EndIf

    EndIf

    

  Until Event = #PB_Event_CloseWindow

  

EndIf



End

Цитата:

Как вот сделать проверку на существование процесса???
Если .ехе запущен то его уже не надо запускать

Код:

If GetPidProcess("Explorer.exe") 

  MessageRequester("", "Прога запущена", #MB_OK)

Else

  MessageRequester("", "Прога НЕ запущена", #MB_OK)

EndIf

}{@KeR

09.03.2011 11:36

Ответ: HELP

Вообщето антивирус......Баннеры из инета задолбали

If GetPidProcess("Explorer.exe")???-у меня что-то нет этой функции

Пётр	09.03.2011 22:47

Ответ: HELP

Цитата:

Сообщение от }{@KeR (Сообщение 182026)

If GetPidProcess("Explorer.exe")???-у меня что-то нет этой функции

Друпию поставь.
Скачать можно здесь http://pure-basic.narod.ru/libs.html

FireOwl

09.03.2011 23:52

Ответ: HELP

Nex	10.03.2011 11:16

Ответ: HELP

FireOwl

10.03.2011 18:37

Ответ: HELP

Nex	10.03.2011 18:56

Ответ: HELP

baton4ik

10.03.2011 19:02

Ответ: HELP

Где вы умудряетесь их подхватывать? Никогда такого не было, даже когда специально заходил на зараженный порносайт. Антивирусами не пользуетесь?

moka	10.03.2011 19:06

Ответ: HELP

Я не пользуюсь антивирусниками, и для удивления АВТОМАТа, даже Adblocker'ом не пользовался для недавнего времени.
Тут дело пользователя, если ты ищешь что-то, то на сайтах где есть всякая херня, этого в 99% случаях не будет. Поэтому хорошо определять, сайт-паразит от потенциального с нужной инфой.
Банеры - никогда не жму на них.
Почта - никогда не открываю ехе (таких не шлют).

FireOwl

10.03.2011 19:11

Ответ: HELP

}{@KeR

10.03.2011 22:14

Ответ: HELP

В BLITZ'e есть команды WriteString$ и WriteLine$ подскажите как в пурике сделать WriteLine??

Venom2

10.03.2011 22:33

Ответ: HELP

Цитата:

Сообщение от }{@KeR (Сообщение 182260)

В BLITZ'e есть команды WriteString$ и WriteLine$ подскажите как в пурике сделать WriteLine??

WriteStringN, читай же справку епта!

}{@KeR

10.03.2011 22:52

Ответ: HELP

Пётр	11.03.2011 01:20

Ответ: HELP

Вложений: 1

Цитата:

Сообщение от Nex (Сообщение 182227)

На XP убирается путем нажатия на alt+ctrl+del (иногда нужно несколько раз что бы заметить процесс ибо баннер перекрывает диспетчер) и убиваем злобный процесс, удаляем .exe файл вируса, через спец. проги восстанавливаем рабочий стол (если он пропал).
На win7 надо активировать стандартного пользователя "Администратор", зайти через него и удалить .exe файл вируса.
Все просто и проверенно мной в "боевых" условиях. :)

Ну попробуй убери через alt+ctrl+del.:pooh_door:

PS.
Программа безвредная и кстати, написана на PureBasic. ;)

}{@KeR

11.03.2011 01:35

Ответ: HELP

Ты это типа вирус скинул.....Да ща прям я его запущу

Nex	11.03.2011 06:54

Ответ: HELP

Цитата:

Сообщение от Пётр (Сообщение 182290)

Ну попробуй убери через alt+ctrl+del.:pooh_door:

Эм? Я как бы написал с намеком на то, что я эти методы не раз использовал и всегда получалось убрать этот вирь. :crazy:

maxturbo

11.03.2011 08:47

Ответ: HELP

Цитата:

Сообщение от Nex (Сообщение 182296)

А если тебе вирь диспетчер задач отключит и реестр, то что тогда делать бушь? :) ctr+alt+del уже не помогут :)

Nex	11.03.2011 12:55

Ответ: HELP

Цитата:

Сообщение от maxturbo (Сообщение 182302)

А если тебе вирь диспетчер задач отключит и реестр, то что тогда делать бушь? :) ctr+alt+del уже не помогут :)

В баннерах на весь экран не разу такого не встречал хотя у друзей их много раз удалял.
А если в самой винде уже, то можно поставить прогу XPTweaker и через нее диспетчер задач и реестр включить.

SBJoker

11.03.2011 13:05

Ответ: HELP

Не так всё, перезагружаетесь в безопасный режим, и в нём чистите.

Пётр	11.03.2011 13:36

Ответ: HELP

Цитата:

Сообщение от }{@KeR (Сообщение 182292)

Ты это типа вирус скинул.....Да ща прям я его запущу

А еще хакером себя называешь! :-D
Видимо не знаешь что такое виртуальная машина - кулцхакер! :-D

Не вирус это, просто пример блокиратора рабочего стола. Он не прописывается в автозагрузку и не выполняет ни каких других действий, кроме блокировки компа.
После его запуска, нужно ввести пароль (там же в окне он написан) и блокиратор закроется.

}{@KeR

11.03.2011 20:25

Ответ: HELP

Паследний раз у меня был баннер на весь рабочий стол....Значков есстественно небыло....Ctrl+Atl+Del неработал.....в безопасном режиме тоже этот баннер запускался....в таких случаях когда ваще полность комп заблокирован то приходиться только винду переустанавливать.....
Щас хакеры умные пошли....1 год назад эти баннеры слёгкостью удалялись

moka	11.03.2011 21:01

Ответ: HELP

Баннер, ты о веб баннерах? Эм.. Этож веб окно блин. О каких баннерах ты говоришь.
http://en.wikipedia.org/wiki/Web_banner
Читай внимательно.
В Сейф моде всё что было на авторане не будет запущено. Если это страница в броузере плодит окна, так сбрось страницы в броузере, или отруби интернет открой броузер, закрой "плохую" страницу и вруби интернет обратно (кэшь перед этим процессом тоже нужно отчистить).
Практически всегда есть возможность исправить тупость юзера не прибегая к полной переустановки системы. Единственная причина до сих пор мне известная, что вела к переустановке - тупость юзера, который не знает как исправить то или иное, и обычно понятия не имеет об этом.

Хакеры не занимаются плодящимися окнами или т.п., этим занимаются рекламщики и спамеры.
Если это плагин на броузер, то его всегда можно почистить, на крайний случай сбросить настройки броузера или переставить его.
Если это XP и использовался IE, то в первую очередь полбу юзеру за использование этого броузера. Далее нужна чистка, часто в реестре всякая хрень. Переустановить броузер естественно не удастся. В Win7 можно снести IE.

Повторюсь - только тупой пользователь ловит себе фигню. Разумный пользователь никак этого не делает, т.к. это нужно намеренно ступить.
Вся пропоганда из фильмов, журналов, сми и говорящих генераторов (хомячков), сильно всё прекрашивает и искажает. Реальная "хакерская" хрень, это совсем другой мир, не имеющий практически ничего общего с тем как его представляют в народе.

maxturbo

11.03.2011 21:06

Ответ: HELP

Цитата:

Сообщение от Nex (Сообщение 182311)

Ну если заблокирован рабочий стол и т. д. то каким методом ты поставишь XPTweaker??? :) Если только загружаться в безопасный, тоже не вариант :) Те кто их пишет могут и безопасный вырубать, мне попадался такой зверь, отрубал диспетчер + реестр, так он еще казел этот вирус и в безопасном грузился, чистил методом загрузки с LiveCD, оч хорошая вещь :) Их найти легко эти вирусы )))

Цитата:

Сообщение от SBJoker (Сообщение 182314)

Не так всё, перезагружаетесь в безопасный режим, и в нём чистите.

Не всегда помогает такой вариант :) Зависит все от Режиссера который создал вирус, может и не блокировать ни то ни другое, может нахер и диспетчер снести и безопасный режим и реестр, делов то :) Пару значений в реестр и готово :) и нет ни SafeMode ни RegEdit ни TaskMgr :)

Цитата:

Сообщение от }{@KeR (Сообщение 182375)

Зачем менять винду то сразу??? Я при установки винды ставлю сразу консоль восстановления, один раз был случай прям через этот консоль удалял этот вирус, так как знал его место расположение. Если руки не кривые, то винду всегда можно восстановить , даже из полной жопы в которую ее загнал юзер...
Я винду уже второй год не меняю и она работает на ура, вирусов этих давно не цеплял, а если цеплял то обходился без перестановки ОС....

Crayzi

08.06.2011 08:28

Ответ: HELP

Crayzi

28.06.2011 14:25

Ответ: HELP

(Blitz3D>>>PureBasic)
Я так понял что

Код:

Type Proba

   Field x%

   Field y%

   Field Text$

End Type

Код:

Structure Proba

  x.l

  y.l

  Text.s

EndStructure

Посмотрел доступные команды для "Structure", но покачто не нащел аналогов "Object" и "Handle", есть ли таковые в структурах?
П.с. Возможно команда "MyList()" имеет к этому какоето отношение?

Часовой пояс GMT +4, время: 13:59.