test 3 - Форум MMB

Дата: Суббота, 16 Апреля 2011, 17:57 | Сообщение # 1

Наш дизайнер

Группа: Модераторы

Сообщений: 2266

Репутация: 135

Награды: 32

Статус: Offline

Добавлено (16 Апрель 2011, 17:57)
---------------------------------------------
ап

Win7x64 SP1 Neobook v5.70 (Trial)
WinXP SP3 Neobook v5.62

Дата: Воскресенье, 17 Апреля 2011, 10:47 | Сообщение # 2

Ветеран форума

Группа: Проверенные

Сообщений: 552

Репутация: 85

Награды: 12

Статус: Offline

Quote (DEMBEL)

Добавлено (16 Апрель 2011, 17:57)
---------------------------------------------
ап

Если хелп и форум не помогли, тогда все ответы здесь

Дата: Воскресенье, 17 Апреля 2011, 10:51 | Сообщение # 3

Наш дизайнер

Группа: Модераторы

Сообщений: 2266

Репутация: 135

Награды: 32

Статус: Offline

как ты сказал, я сделал алгоритм более простым, без предварительных проверок. показываться темы будут всегда правильно, как они есть. а отсев и слив в базу будет на этапе снятия галочки на новых/обновленных темах, вот тут надо не протупить...

Win7x64 SP1 Neobook v5.70 (Trial)
WinXP SP3 Neobook v5.62

Дата: Воскресенье, 17 Апреля 2011, 11:06 | Сообщение # 4

Ветеран форума

Группа: Проверенные

Сообщений: 552

Репутация: 85

Награды: 12

Статус: Offline

Code

Call "LOG" "[PubDir]LOG" "Получаем все сообщения"
SearchStr "<tr id=" "[Get]" "[%18]" ""
StrDel "[Get]" "1" "[%18]-1" "[Get]"
SetVar "[%18]" ""
hpwLine "[Get]" "1" "[Get]"
Call "LOG" "[PubDir]LOG" "Убираем сообщения с логином пользователя"
StrParse "[Get]" "<tr" "[hash]" ""
SetVar "[%24]" "10"
Loop "2" "[%24]+1" "[n]"
      If "[Login2]" "<>" ""
                GoSub "Login"
           Else
                hpwLineAdd "[Spisok]" "<tr[hash[n]]" "[Spisok]"
      EndIf
EndLoop
DeleteArray "[hash]" "All"
ClearVariables "[%24],[%8],[%9],[%22],[n]"
Call "LOG" "[PubDir]LOG" "Ищем новые сообщения"
hpwLineCount "[Spisok]" "[%25]"
SetVar "[N_STROKI]" "[%25]"
Loop "1" "[%25]" "[n]"
      hpwLine "[Spisok]" "[N_STROKI]" "[%3]"
      hpwStrSearch "Есть новые сообщения" "[%3]" "1" "" "[%3]"
      If "[%3]" "=" "0"
                hpwLineDelete "[Spisok]" "[N_STROKI]" "[Spisok]"
                SetVar "[N_STROKI]" "[N_STROKI]-1"
           else
                SetVar "[N_STROKI]" "[N_STROKI]-1"
      EndIf
EndLoop
ClearVariables "[N_STROKI],[%25],[n],[%3]"
Call "LOG" "[PubDir]LOG" "Удаляем все кроме названия темы, даты, и от кого сообщение"
hpwLineCount "[Spisok]" "[%26]"
Loop "1" "[%26]" "[n]"
      hpwLine "[Spisok]" "[n]" "[%20]"
      StrParse "[%20]" "<td" "[hash]" ""
      ClearVariables "[hash2],[hash3],[hash5],[hash6],[hash7]"
      StrIns "" "[hash1]<td[hash4]<td[hash8]" "1" "[%20]"
      SearchStr "<div " "[%20]" "[%4]" ""
      hpwStrSearch "</div>" "[%20]" "[%4]" "" "[%5]"
      StrDel "[%20]" "[%4]" "[%5]-[%4]+6" "[%20]"
      StrReplace "[%20]" "Сообщение от: " "" "[%20]" ""
      hpwLineReplace "[Spisok]" "[%20]" "[n]" "[Spisok]"
      DeleteArray "[hash]" "All"
EndLoop
ClearVariables "[%20],[%26],[n],[%4],[%5]"
Call "LOG" "[PubDir]LOG" "Сравниваем списки и ищем прочитанные сообщения"
hpwLineCount "[Spisok]" "[%27]"
SetVar "[%21]" "[%27]"
hpwLineCount "[Spisok1]" "[%35]"
Loop "1" "[%27]" "[n]"
           hpwLine "[Spisok]" "[%21]" "[%6]"
      Loop "1" "[%35]" "[%36]"
           hpwLine "[Spisok1]" "[%36]" "[%7]"
           hpwListEqual "[%6]" "[%7]" "[Z]"
           If "[Z]" "=" "1"
                     ExitLoop
           EndIf
      EndLoop
      If "[Z]" "=" "1"
                hpwLineDelete "[Spisok]" "[%21]" "[Spisok]"
                SetVar "[%21]" "[%21]-1"
           else
                SetVar "[%21]" "[%21]-1"
      EndIf
EndLoop
ClearVariables "[%21],[%27],[n],[%6],[%7],[Z],[%35],[%36]"
hpwLineCount "[Spisok]" "[Post]"
GoSub "Popup"

Code

:Popup
Call "LOG" "[PubDir]LOG" ":Popup"
If "[Post]" "<=" "0"
                    SetVar "[Img]" "Ico/1_2.gif"
                    SetVar "[Post1]" ""
                    SetVar "[Yes]" "Нет новых сообщений"
                    SetVar "[Url]" "http://mmbuilder.ru/forum/0-0-1-34"
                    Call "LOG" "[PubDir]LOG" "Нет новых сообщений"
                Else
                    If "[Post]-[Post1]" ">" "0"
                        If "[CheckBox3]" "=" "Checked"
                    PlaySoundFile "[Sound]" "Normal"
                        EndIf
                         Call "LOG" "[PubDir]LOG" "Есть новые сообщения"
                          Math "[Post]-[Post1]" "-1" "[Post2]"
                          SetVar "[Post1]" "[Post]"
                         Call "LOG" "[PubDir]LOG" "Отображаем всплывающее окно новых сообщений"
                          CustomWindow "" "-1000" "-1000" "Container5" "NoBorder"
                          zmShowCustomWindow "Container5" "Show"
                          GetObjectInfo "Container5" "Width" "[Width]"
                          GetObjectInfo "Container5" "Height" "[Height]"
                          SetVar "[X1]" "[W]-[Width]"
                          SetVar "[Y1]" "[H]-[Height]"
                          zmSetCustomWindowPos "Container5" "[X1]" "[Y1]" "[Width]" "[Height]" "ScreenPos" ""
                          zmAnimateCustomWindow "Container5" "SlideTop" "500" "True" "False"
                          SetVar "[Img]" "Ico/1_1.gif"
                          SetVar "[Yes]" "Есть новые сообщения"
                          SetVar "[Url]" "Index1.htm"
                         Call "LOG" "[PubDir]LOG" "Запускаем таймер на закрытие всплывающего окна новых сообщений"
                          TimerStart "Timer3" "10000"
                      Else
                          SetVar "[Img]" "Ico/1_1.gif"
                          SetVar "[Post1]" "[Post]"
                          SetVar "[Yes]" "Есть новые сообщения"
                          SetVar "[Url]" "Index1.htm"
                      Call "LOG" "[PubDir]LOG" "Есть не прочитанные сообщения"
                    EndIf
EndIf
Return

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

Добавлено (17 Апрель 2011, 11:04)
---------------------------------------------
Поиск с логином забыл добавить.

Code

:Login
hpwStrRevSearch "</a></span></td></tr>" "[hash[n]]" "1" "" "[%8]"
hpwStrSearch ">" "[hash[n]]" "[%8]-30" "" "[%9]"
SubStr "[hash[n]]" "[%9]+1" "[%8]-[%9]-1" "[%22]"
.Если не совпадает, добавляем строку
If "[%22]" "<>" "[Login2]"
            hpwLineAdd "[Spisok]" "<tr[hash[n]]" "[Spisok]"
        Else
            SetVar "[%24]" "[%24]+1"
EndIf
Return

Добавлено (17 Апрель 2011, 11:06)
---------------------------------------------
плагин здесь еще hpwControl. Мож и еще какой есть.

Если хелп и форум не помогли, тогда все ответы здесь

Дата: Воскресенье, 17 Апреля 2011, 11:06 | Сообщение # 5

Наш дизайнер

Группа: Модераторы

Сообщений: 2266

Репутация: 135

Награды: 32

Статус: Offline

обосраться... ладно, попробую

Win7x64 SP1 Neobook v5.70 (Trial)
WinXP SP3 Neobook v5.62

Дата: Воскресенье, 17 Апреля 2011, 11:10 | Сообщение # 6

Ветеран форума

Группа: Проверенные

Сообщений: 552

Репутация: 85

Награды: 12

Статус: Offline

Quote (DEMBEL)

обосраться...

че так?

С утра надо первым делом это делать после завтрака. Что б после не приспичело.

Че не понятно, спрашивай, что б долго не разбираться.

Добавлено (17 Апрель 2011, 11:10)
---------------------------------------------
Тут половина выбросится, у тебя же парсер другой.

Если хелп и форум не помогли, тогда все ответы здесь

Дата: Воскресенье, 17 Апреля 2011, 11:10 | Сообщение # 7

Наш дизайнер

Группа: Модераторы

Сообщений: 2266

Репутация: 135

Награды: 32

Статус: Offline

да у меня бошка ломит после ночного пива и футбола...

Win7x64 SP1 Neobook v5.70 (Trial)
WinXP SP3 Neobook v5.62

Дата: Воскресенье, 17 Апреля 2011, 11:11 | Сообщение # 8

Ветеран форума

Группа: Проверенные

Сообщений: 552

Репутация: 85

Награды: 12

Статус: Offline

Quote (DEMBEL)

после ночного пива

Эх, а мне хорошо! Месяц уж точно наверно не пил.

Если хелп и форум не помогли, тогда все ответы здесь

Дата: Воскресенье, 17 Апреля 2011, 11:12 | Сообщение # 9

Наш дизайнер

Группа: Модераторы

Сообщений: 2266

Репутация: 135

Награды: 32

Статус: Offline

футбик не смотрел?

Win7x64 SP1 Neobook v5.70 (Trial)
WinXP SP3 Neobook v5.62

Дата: Воскресенье, 17 Апреля 2011, 11:15 | Сообщение # 10

Ветеран форума

Группа: Проверенные

Сообщений: 552

Репутация: 85

Награды: 12

Статус: Offline

Quote (DEMBEL)

футбик не смотрел?

Я его терпеть не могу. И не понимаю людей которым это нравится.

Райкин по моему говорил, 22 бугая один мяч по полю гоняют. Им бы динамо к ноге, сколько пользы было бы.

А так, очередной развод людей на бабки.

Тебе из всего кода только вот этот кусок наверно может пригодится.

Code

Call "LOG" "[PubDir]LOG" "Сравниваем списки и ищем прочитанные сообщения"
hpwLineCount "[Spisok]" "[%27]"
SetVar "[%21]" "[%27]"
hpwLineCount "[Spisok1]" "[%35]"
Loop "1" "[%27]" "[n]"
           hpwLine "[Spisok]" "[%21]" "[%6]"
      Loop "1" "[%35]" "[%36]"
           hpwLine "[Spisok1]" "[%36]" "[%7]"
           hpwListEqual "[%6]" "[%7]" "[Z]"
           If "[Z]" "=" "1"
                     ExitLoop
           EndIf
      EndLoop
      If "[Z]" "=" "1"
                hpwLineDelete "[Spisok]" "[%21]" "[Spisok]"
                SetVar "[%21]" "[%21]-1"
           else
                SetVar "[%21]" "[%21]-1"
      EndIf
EndLoop

Если хелп и форум не помогли, тогда все ответы здесь

Дата: Среда, 27 Апреля 2011, 22:43 | Сообщение # 11

Наш дизайнер

Группа: Модераторы

Сообщений: 2266

Репутация: 135

Награды: 32

Статус: Offline

Добавлено (23 Апрель 2011, 15:15)
---------------------------------------------
fg

Добавлено (26 Апрель 2011, 16:31)
---------------------------------------------
ап

Добавлено (26 Апрель 2011, 16:43)
---------------------------------------------
fg

Добавлено (26 Апрель 2011, 17:11)
---------------------------------------------
fg

Добавлено (26 Апрель 2011, 17:36)
---------------------------------------------
fg

Добавлено (26 Апрель 2011, 17:38)
---------------------------------------------
gh

Добавлено (26 Апрель 2011, 18:21)
---------------------------------------------
ап

Добавлено (26 Апрель 2011, 18:22)
---------------------------------------------
ап

Добавлено (27 Апрель 2011, 14:27)
---------------------------------------------
fg

Добавлено (27 Апрель 2011, 15:42)
---------------------------------------------
ап

Добавлено (27 Апрель 2011, 15:43)
---------------------------------------------
ап

Добавлено (27 Апрель 2011, 15:44)
---------------------------------------------
ап

Добавлено (27 Апрель 2011, 15:47)
---------------------------------------------
гнегенгенгенгентеки

Добавлено (27 Апрель 2011, 15:48)
---------------------------------------------
рпв

Добавлено (27 Апрель 2011, 21:03)
---------------------------------------------
fg

Добавлено (27 Апрель 2011, 21:36)
---------------------------------------------
fg

Добавлено (27 Апрель 2011, 22:38)
---------------------------------------------
ап

Добавлено (27 Апрель 2011, 22:39)
---------------------------------------------
ап

Добавлено (27 Апрель 2011, 22:43)
---------------------------------------------
ап

Win7x64 SP1 Neobook v5.70 (Trial)
WinXP SP3 Neobook v5.62

Дата: Среда, 27 Апреля 2011, 22:47 | Сообщение # 12

Ветеран форума

Группа: Проверенные

Сообщений: 552

Репутация: 85

Награды: 12

Статус: Offline

Поставил эту тему в игнор, не работает,

Если хелп и форум не помогли, тогда все ответы здесь

Дата: Среда, 27 Апреля 2011, 23:46 | Сообщение # 13

Наш дизайнер

Группа: Модераторы

Сообщений: 2266

Репутация: 135

Награды: 32

Статус: Offline

вижу

Win7x64 SP1 Neobook v5.70 (Trial)
WinXP SP3 Neobook v5.62

Дата: Среда, 27 Апреля 2011, 23:48 | Сообщение # 14

Ветеран форума

Группа: Проверенные

Сообщений: 552

Репутация: 85

Награды: 12

Статус: Offline

Добавлено (27 Апрель 2011, 23:48)
---------------------------------------------
Что , футбол кончился?

Если хелп и форум не помогли, тогда все ответы здесь

Дата: Пятница, 29 Апреля 2011, 23:14 | Сообщение # 15

Наш дизайнер

Группа: Модераторы

Сообщений: 2266

Репутация: 135

Награды: 32

Статус: Offline

перерыв, 0-0

Добавлено (29 Апрель 2011, 17:03)
---------------------------------------------
ап

Добавлено (29 Апрель 2011, 17:16)
---------------------------------------------
ап

Добавлено (29 Апрель 2011, 17:17)
---------------------------------------------
ап

Добавлено (29 Апрель 2011, 22:34)
---------------------------------------------
fg

Добавлено (29 Апрель 2011, 22:48)
---------------------------------------------
fg

Добавлено (29 Апрель 2011, 23:09)
---------------------------------------------
fg

Добавлено (29 Апрель 2011, 23:14)
---------------------------------------------
fg

Win7x64 SP1 Neobook v5.70 (Trial)
WinXP SP3 Neobook v5.62

Сергей

Дата: Пятница, 29 Апреля 2011, 23:31 | Сообщение # 16

Необукер

Группа: Проверенные

Сообщений: 858

Репутация: 64

Награды: 22

Статус: Offline

-..-.--...---.-.-..--...-..---.

Добавлено (29 Апрель 2011, 23:31)
---------------------------------------------
_._..._.._.__._._.___.._.._...__.____.._.._..._.

Дата: Понедельник, 02 Мая 2011, 13:40 | Сообщение # 17

Наш дизайнер

Группа: Модераторы

Сообщений: 2266

Репутация: 135

Награды: 32

Статус: Offline

ап

Добавлено (01 Май 2011, 18:02)
---------------------------------------------
ап

Добавлено (01 Май 2011, 18:04)
---------------------------------------------
ап

Добавлено (02 Май 2011, 11:12)
---------------------------------------------
ап

Добавлено (02 Май 2011, 13:06)
---------------------------------------------
ап

Добавлено (02 Май 2011, 13:07)
---------------------------------------------
ап

Добавлено (02 Май 2011, 13:19)
---------------------------------------------
сп

Добавлено (02 Май 2011, 13:19)
---------------------------------------------
ап

Добавлено (02 Май 2011, 13:20)
---------------------------------------------
ап

Добавлено (02 Май 2011, 13:22)
---------------------------------------------
ап

Добавлено (02 Май 2011, 13:40)
---------------------------------------------
ап

Win7x64 SP1 Neobook v5.70 (Trial)
WinXP SP3 Neobook v5.62

Дата: Понедельник, 02 Мая 2011, 20:33 | Сообщение # 18

Ветеран форума

Группа: Проверенные

Сообщений: 293

Репутация: 48

Награды: 5

Статус: Offline

оп

Добавлено (02 Май 2011, 15:05)
---------------------------------------------
хоп

Добавлено (02 Май 2011, 15:15)
---------------------------------------------
ла-ла-лэй

Добавлено (02 Май 2011, 20:33)
---------------------------------------------
йоу

[spoiler=С уважением, Вадим]WinXP SP3 x32, NB5.7.1, FF7.0.1
Справочные материалы:
База по командам NB
Справка к Report Designer
Удобный и красивый интерфейс
Полезные словари
Статьи:
Как читать и писать код
Создаем файл справки CHM
Проекты:
Корпоративная культура
Эмоциональный интеллект
Фото Экрана - на E-mail
Индекс массы тела
Тренировка интуиции
Копилка буфера обмена
Часто спрашивают:
Реализация триальности программы[/spoiler]

Дата: Понедельник, 02 Мая 2011, 20:41 | Сообщение # 19

Любопытный

Группа: Проверенные

Сообщений: 32

Репутация: 23

Награды: 2

Статус: Offline

Добавлено (02 Май 2011, 20:39)
---------------------------------------------
раз

Добавлено (02 Май 2011, 20:40)
---------------------------------------------
два

Добавлено (02 Май 2011, 20:40)
---------------------------------------------
три

Добавлено (02 Май 2011, 20:41)
---------------------------------------------
проверка

Alien

Дата: Понедельник, 02 Мая 2011, 21:22 | Сообщение # 20

Поднаторевший

Группа: Проверенные

Сообщений: 141

Репутация: 51

Награды: 7

Статус: Offline

тааак, ещё одна для меня загадка
вы эти сообщения тестите программно? где-то в NB информере зарыта функция ответа на сообщения?

Подсветка синтаксиса NeoBook с помощью BBcode.
[spoiler=Other]Win7 x86, NB5.7.0, FF8.0.1
Демо проекты
• Шаблоны NB
• Tower Defence
• Mass Rename Files
• Multi Language
• Божья коровка
Готовые проекты
• IP's Scaner
• Охота на лягушек
Функции
• tagParser
• Xml Parser
• Сборник VBS
Плагины
• alConsole
• alStartUp
• alMySQL
• sysInfo
• alTCP[/spoiler]

Дата: Вторник, 03 Мая 2011, 20:31 | Сообщение # 21

Любопытный

Группа: Проверенные

Сообщений: 32

Репутация: 23

Награды: 2

Статус: Offline

ап

Добавлено (03 Май 2011, 20:29)
---------------------------------------------
и тигры у ног моих сели

Добавлено (03 Май 2011, 20:30)
---------------------------------------------
ап

Добавлено (03 Май 2011, 20:31)
---------------------------------------------
и с лестниц в глаза мне глядят

Alien

Дата: Вторник, 03 Мая 2011, 20:35 | Сообщение # 22

Поднаторевший

Группа: Проверенные

Сообщений: 141

Репутация: 51

Награды: 7

Статус: Offline

Дата: Вторник, 03 Мая 2011, 21:39 | Сообщение # 23

Ветеран форума

Группа: Проверенные

Сообщений: 293

Репутация: 48

Награды: 5

Статус: Offline

листья жгут

Добавлено (03 Май 2011, 20:55)
---------------------------------------------
листья жгууут

Добавлено (03 Май 2011, 21:05)
---------------------------------------------
как прощааальный салюют...

Добавлено (03 Май 2011, 21:14)
---------------------------------------------
в сентябреее листья жгут

Добавлено (03 Май 2011, 21:39)
---------------------------------------------
листья жгууут

Дата: Вторник, 03 Мая 2011, 21:43 | Сообщение # 24

Любопытный

Группа: Проверенные

Сообщений: 32

Репутация: 23

Награды: 2

Статус: Offline

ап

Добавлено (03 Май 2011, 21:43)
---------------------------------------------
ап

Дата: Вторник, 03 Мая 2011, 21:43 | Сообщение # 25

Ветеран форума

Группа: Проверенные

Сообщений: 293

Репутация: 48

Награды: 5

Статус: Offline

А льву мясо не докладывают...

Дата: Вторник, 03 Мая 2011, 22:06 | Сообщение # 26

Любопытный

Группа: Проверенные

Сообщений: 32

Репутация: 23

Награды: 2

Статус: Offline

Quote (Вадим)

А льву мясо не докладывают...

Добавлено (03 Май 2011, 21:45)
---------------------------------------------
ап

Добавлено (03 Май 2011, 22:02)
---------------------------------------------
ап

Добавлено (03 Май 2011, 22:06)
---------------------------------------------
и кружатся на карусели

LiveD

Дата: Вторник, 03 Мая 2011, 23:27 | Сообщение # 27

Новый участник

Группа: Проверенные

Сообщений: 2

Репутация: 0

Награды: 0

Статус: Offline

ывыввыыв

Добавлено (03 Май 2011, 23:27)
---------------------------------------------
выыыыыыыыыыыыы

Добавлено (03 Май 2011, 23:27)
---------------------------------------------
А льву мясо не докладывают...

Windows 7 Ultimate X64
NeoBook 5.6.2

Дата: Среда, 18 Мая 2011, 00:37 | Сообщение # 28

Наш дизайнер

Группа: Модераторы

Сообщений: 2266

Репутация: 135

Награды: 32

Статус: Offline

Добавлено (11 Май 2011, 16:39)
---------------------------------------------
fg

Добавлено (11 Май 2011, 16:40)
---------------------------------------------
fg

Добавлено (11 Май 2011, 17:01)
---------------------------------------------
fg

Добавлено (11 Май 2011, 17:02)
---------------------------------------------
fg

Добавлено (11 Май 2011, 17:06)
---------------------------------------------
fg

Добавлено (11 Май 2011, 17:29)
---------------------------------------------
fg

Добавлено (11 Май 2011, 17:30)
---------------------------------------------
fg

Добавлено (11 Май 2011, 17:31)
---------------------------------------------
fg

Добавлено (11 Май 2011, 17:32)
---------------------------------------------
fg

Добавлено (12 Май 2011, 17:22)
---------------------------------------------
ап

Добавлено (12 Май 2011, 17:39)
---------------------------------------------
ап

Добавлено (13 Май 2011, 18:18)
---------------------------------------------
ап

Добавлено (13 Май 2011, 18:29)
---------------------------------------------
ап

Добавлено (17 Май 2011, 15:33)
---------------------------------------------
ап

Добавлено (18 Май 2011, 00:37)
---------------------------------------------
ап

Win7x64 SP1 Neobook v5.70 (Trial)
WinXP SP3 Neobook v5.62

Alien

Дата: Четверг, 19 Мая 2011, 08:58 | Сообщение # 29

Поднаторевший

Группа: Проверенные

Сообщений: 141

Репутация: 51

Награды: 7

Статус: Offline

ап

Добавлено (19 Май 2011, 08:58)
---------------------------------------------
ап