Возможно ли такое написать на vbs. / Visual Basic

ReSQL.ru

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Новые сообщения | Избранное

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Возможно ли такое написать на vbs.

35 сообщений из 35, показаны все 2 страниц

все

Возможно ли такое написать на vbs.

#39067571

TYMAH3003

Гость

Добрый день
Помогите написать скрипт такого типа.
Создаёт папки исходя из текущей даты на копмьютере в C:\dok\октябрь(имя папки месяц. создаётся папка скриптом исходя из системного

времени)\01-10(эта папка также формируется исходя из сегоднешнего числа)\ папка с менет "10" и "12" создаются просто в корне папки

01-10. В итоге должно получиться так C:\dok\октябрь\01-10\ и в неи 2 папаки 10 и 12.
И ешё проходит копирование С:\дата\01-10(папка выбирается относительно текужего числа и месяца) и всё содержимое авбранной папки

копируется в папку С:\дата\сегодня . С заменой файлов без запроса. И в конце просто скрипк выполнен.
Спасибо.

Модератор: Тема перенесена из форума "Программирование".

...

Рейтинг:

0 / 0

03.10.2015, 12:45

| Ответить | Цитировать | Написать

Возможно ли такое написать на vbs.

#39067766

Akina

Участник

Откуда: Зеленоград, Москва, Россия

Сообщения: 20 644

Рейтинг: 0 / 0

TYMAH3003Помогите написать скрипт
Ну поскольку ты сам ещё ни хрена не сделал, единственное, чем мы можем тебе именно помочь - так это посочувствовать... авось поможет.

...

Рейтинг:

0 / 0

03.10.2015, 23:20

| Ответить | Цитировать | Написать

Возможно ли такое написать на vbs.

#39067767

x1ca4064

Участник

Сообщения: 1 191

Рейтинг: 0 / 0

TYMAH3003,

Посмотрите описание FileSystemObject.
Почему именно vbs? Можно обычный .bat использовать, ну и с требованиями определиться получше.

...

Рейтинг:

0 / 0

03.10.2015, 23:27

| Ответить | Цитировать | Написать

Возможно ли такое написать на vbs.

#39067885

i45

Участник

Сообщения: 8 244

Рейтинг: 0 / 0

http://www.tutorialspoint.com/vbscript/vbscript_fso_objects.htm

...

Рейтинг:

0 / 0

04.10.2015, 15:55

| Ответить | Цитировать | Написать

Возможно ли такое написать на vbs.

#39069349

TYMAH3003

Гость

Да Я просто совсем не бумбум вбс, бат могу попробоваб

Вот что вышло.
автор@echo On
md %systemdrive%\%date:~0,2%
md %systemdrive%\%date:~0,2%\%date:~0,2%-%date:~3,2%
md %systemdrive%\%date:~0,2%\%systemdrive%\%date:~0,2%-%date:~3,2%\10
md %systemdrive%\%date:~0,2%\%systemdrive%\%date:~0,2%-%date:~3,2%\12
md %systemdrive%\%date:~0,2%\%systemdrive%\%date:~0,2%-%date:~3,2%\15
md %systemdrive%\%date:~0,2%\%systemdrive%\%date:~0,2%-%date:~3,2%\17
md %systemdrive%\%date:~0,2%\%systemdrive%\%date:~0,2%-%date:~3,2%\‘а®злҐ
pause

Только вот проблема, md %systemdrive%\%date:~0,2% это создаётся папки в виде числа месаца, а возможно ли создание Октябрь, в текстовой форме
Спасибо

...

Рейтинг:

0 / 0

06.10.2015, 13:30

| Ответить | Цитировать | Написать

Возможно ли такое написать на vbs.

#39069367

Antonariy

Участник

Откуда: ☭

Сообщения: 80 221

Рейтинг: 0 / 0

i45 http://www.tutorialspoint.com/vbscript/vbscript_fso_objects.htm лучше это:

https://vbsabout.wordpress.com/2013/02/27/fsofolde/

там чистый vbs без html.

а это месяц названием: https://msdn.microsoft.com/en-us/library/58f13257(v=vs.84).aspx

...

Рейтинг:

0 / 0

06.10.2015, 13:38

| Ответить | Цитировать | Написать

Возможно ли такое написать на vbs.

#39069380

TYMAH3003

Гость

Вы конешно извините , но я совсем никак в это не могу разобраться(((((

...

Рейтинг:

0 / 0

06.10.2015, 13:48

| Ответить | Цитировать | Написать

Возможно ли такое написать на vbs.

#39069399

Akina

Участник

Откуда: Зеленоград, Москва, Россия

Сообщения: 20 644

Рейтинг: 0 / 0

TYMAH3003Только вот проблема, md %systemdrive%\%date:~0,2% это создаётся папки в виде числа месаца, а возможно ли создание Октябрь, в текстовой форме
Это тебе повезло, что у тебя системный формат даты mm-dd-yyyy. У меня на компе такая фигня, например, сейчас выведет число, а не месяц.
Да и чем тебе число хуже буквы? по крайней мере сортироваться будет правильно.

...

Рейтинг:

0 / 0

06.10.2015, 14:02

| Ответить | Цитировать | Написать

Возможно ли такое написать на vbs.

#39069436

Antonariy

Участник

Откуда: ☭

Сообщения: 80 221

Рейтинг: 0 / 0

TYMAH3003Вы конешно извините , но я совсем никак в это не могу разобраться(((((ну, либо придется поднапрячься, либо сюда: http://www.sql.ru/forum/job

...

Рейтинг:

0 / 0

06.10.2015, 14:26

| Ответить | Цитировать | Написать

Возможно ли такое написать на vbs.

#39069518

TYMAH3003

Гость

авторDim s
Set WshShell = CreateObject("WScript.Shell")
On Error Resume Next
dim d,m
d = day( date() )
m = month(date())
if d < 10 then
d = "0" & d
end if
if m < 10 then
m = "0" & m
end if

s = d & "-" & m
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.CreateFolder("C:\" & s)

Вот в корне диска создаётся папка с датой и месяцем
не могу понять как преобразовать число месяца в текст

авторDim MyVar
MyVar = MonthName(10, True) ' MyVar contains "Oct".
как его вписать не пойму

...

Рейтинг:

0 / 0

06.10.2015, 15:29

| Ответить | Цитировать | Написать

Возможно ли такое написать на vbs.

#39069523

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

TYMAH3003,

Модератор: Учимся использовать тэги оформления кода - FAQ

...

Рейтинг:

0 / 0

06.10.2015, 15:34

| Ответить | Цитировать | Написать

Возможно ли такое написать на vbs.

#39069545

Antonariy

Участник

Откуда: ☭

Сообщения: 80 221

Рейтинг: 0 / 0

TYMAH3003автор

Код: vbnet

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.

Dim s,d,m
d = day( date() )
m = month(date())
if d < 10 then
   d = "0" & d
end if
if m < 10 then
   m = "0" & m
end if

s = d & "-" & monthname(month(date()))
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.CreateFolder("C:\" & s)

Вот в корне диска создаётся папка с датой и месяцем
не могу понять как преобразовать число месяца в текст

авторDim MyVar
MyVar = MonthName(10, True) ' MyVar contains "Oct".
как его вписать не пойму

...

Рейтинг:

0 / 0

06.10.2015, 15:47

| Ответить | Цитировать | Написать

Возможно ли такое написать на vbs.

#39069578

TYMAH3003

Гость

Спасибо огромный

Код: vbnet

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.

Dim s,d,m,v
d = day( date() )
m = month(date())
if d < 10 then
   d = "0" & d
end if
if m < 10 then
   m = "0" & m
end if

s = monthname(month(date()))
v = d & "-" & m
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.CreateFolder("C:\" & s)
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.CreateFolder("C:\"& s"\" & V)

Не могу в папке создать другую папку
Точнее синтаксим пути как прописать
C:\Октябрь\06-10\ и далее 4 папки с именами 10 12 15 17
Путь как то не так указываю ошибка выскакивает

...

Рейтинг:

0 / 0

06.10.2015, 16:12

| Ответить | Цитировать | Написать

Возможно ли такое написать на vbs.

#39069595

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

амперсанд один потерял

...

Рейтинг:

0 / 0

06.10.2015, 16:23

| Ответить | Цитировать | Написать

Возможно ли такое написать на vbs.

#39069622

TYMAH3003

Гость

& s &
Спасибо работает

...

Рейтинг:

0 / 0

06.10.2015, 16:40

| Ответить | Цитировать | Написать

Возможно ли такое написать на vbs.

#39069721

TYMAH3003

Гость

Код: vbnet

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.

Dim s,d,m,v,f,g
d = day( date() )
m = month(date())
if d < 10 then
   d = "0" & d
end if
if m < 10 then
   m = "0" & m
end if

s = monthname(month(date()))
g = "E:\00DOCUMENTS\LOG\DATA"
v = d & "-" & m
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.CreateFolder("C:\" & s)
Set objFolder = objFSO.CreateFolder("C:\"& s &"\" & v)
Set objFolder = objFSO.CreateFolder("C:\"& s &"\"& v &"\"& 10)
Set objFolder = objFSO.CreateFolder("C:\"& s &"\"& v &"\"& 12)
Set objFolder = objFSO.CreateFolder("C:\"& s &"\"& v &"\"& 15)
Set objFolder = objFSO.CreateFolder("C:\"& s &"\"& v &"\"& 17)
Set objFolder = objFSO.CreateFolder("C:\"& s &"\"& v &"\"& "Срочные")

f = "E:\00DOCUMENTS\LOG\" & s & "\" & v & "\"*.tif
objFSO.CopyFile f , g, OverwriteExisting

неверная ссылка что то не так с параметром f
А как прописать переменную "F" ссылку на такую папку

Код: vbnet

f = "E:\00DOCUMENTS\LOG\терущий месац текстом(переменная s)\текущая дата (& s &"\" & v (формата 06-10))\*.tif"

И в папке 06-10 скопировать все тифы, как правильно построить ссылку.
Спасибо

...

Рейтинг:

0 / 0

06.10.2015, 17:52

| Ответить | Цитировать | Написать

Возможно ли такое написать на vbs.

#39069724

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

TYMAH3003неверная ссылка что то не так с параметром fкавычку теперь не там поставил
Смотри, даже тупо с форумной подсветкой синтаксиса ошибка видна

...

Рейтинг:

0 / 0

06.10.2015, 17:55

| Ответить | Цитировать | Написать

Возможно ли такое написать на vbs.

#39069725

TYMAH3003

Гость

Код: vbnet

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.

Dim s,d,m,v,f,g
d = day( date() )
m = month(date())
if d < 10 then
   d = "0" & d
end if
if m < 10 then
   m = "0" & m
end if

s = monthname(month(date()))
g = "E:\00DOCUMENTS\LOG\DATA"
v = d & "-" & m
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.CreateFolder("C:\" & s)
Set objFolder = objFSO.CreateFolder("C:\"& s &"\" & v)
Set objFolder = objFSO.CreateFolder("C:\"& s &"\"& v &"\"& 10)
Set objFolder = objFSO.CreateFolder("C:\"& s &"\"& v &"\"& 12)
Set objFolder = objFSO.CreateFolder("C:\"& s &"\"& v &"\"& 15)
Set objFolder = objFSO.CreateFolder("C:\"& s &"\"& v &"\"& 17)
Set objFolder = objFSO.CreateFolder("C:\"& s &"\"& v &"\"& "Срочные")

f = "E:\00DOCUMENTS\LOG\" & s & "\" & v & "\"*.tif
objFSO.CopyFile f , g, OverwriteExisting

неверная ссылка что то не так с параметром f
А как прописать переменную "F" ссылку на такую папку

Код: vbnet

f = "E:\00DOCUMENTS\LOG\терущий месац текстом(переменная s)\текущая дата (& s &"\" & v (формата 06-10))\*.tif"

И в папке 06-10 скопировать все тифы, как правильно построить ссылку.
Спасибо

...

Рейтинг:

0 / 0

06.10.2015, 17:55

| Ответить | Цитировать | Написать

Возможно ли такое написать на vbs.

#39069729

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

Ты собираешь пусть из переменных и текстовых констант. Константы берешь в кавычки, переменные - нет, все внимательно склеиваешь с помощью амперсенда

...

Рейтинг:

0 / 0

06.10.2015, 17:58

| Ответить | Цитировать | Написать

Возможно ли такое написать на vbs.

#39069742

TYMAH3003

Гость

авторСмотри, даже тупо с форумной подсветкой синтаксиса ошибка видна
Когда знаешь синтаксис то всё видно. А когда дизайнер компьютерной графики, то просто разные цветами код, и непонять куда эту кавычки.

...

Рейтинг:

0 / 0

06.10.2015, 18:07

| Ответить | Цитировать | Написать

Возможно ли такое написать на vbs.

#39069754

TYMAH3003

Гость

Ура

Код: vbnet

f = "E:\00DOCUMENTS\LOG\" & s & "\" & v & "\*.tif"

спасибо теперь понял как путь составлять

Ещё 1 момент если скрипт запустить второй раз то он пишет что файлы и папки существуют, мне нужна их перезапись,
Файлы тиф в папке "E:\00DOCUMENTS\LOG\DATA" пепезаписываются на такие же, но только из другой даты 07-10 к примеру

...

Рейтинг:

0 / 0

06.10.2015, 18:14

| Ответить | Цитировать | Написать

Возможно ли такое написать на vbs.

#39069903

TYMAH3003

Гость

По поводу перезаписи файлов решил.

Код: vbnet

objFSO.CopyFile f , g, 1

А как перезаписывать каталоги?
Или как проверять если он есть то создавать не нужно
Проверка только на месяц который текстом пишется

...

Рейтинг:

0 / 0

06.10.2015, 21:15

| Ответить | Цитировать | Написать

Возможно ли такое написать на vbs.

#39069905

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

Проверять

...

Рейтинг:

0 / 0

06.10.2015, 21:16

| Ответить | Цитировать | Написать

Возможно ли такое написать на vbs.

#39069924

The_Prist

Участник

Откуда: www.excel-vba.ru

Сообщения: 2 025

Рейтинг: 0 / 0

TYMAH3003как проверять если он есть то создавать не нужно

Код: vbnet

1.
2.
3.
4.

if dir("путь_к_каталогу",16) = "" then
mkdir "путь_к_каталогу"
'или objFSO.CreateFolder, как удобнее
end if

...

Рейтинг:

0 / 0

06.10.2015, 22:07

| Ответить | Цитировать | Написать

Возможно ли такое написать на vbs.

#39069963

TYMAH3003

Гость

Код: vbnet

1.
2.
3.
4.

Set objFSO = CreateObject("Scripting.FileSystemObject")
if dir("C:\" & s,16) = "" then
Set objFolder = objFSO.CreateFolder("C:\" & s)
end if

Пишу так не работает

...

Рейтинг:

0 / 0

06.10.2015, 23:08

| Ответить | Цитировать | Написать

Возможно ли такое написать на vbs.

#39069975

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

TYMAH3003Путь как то не так указываю ошибка выскакиваетTYMAH3003что то не так с параметром fTYMAH3003так не работаетИнтересно, ты догадаешься, наконец, писать текст ошибки или будешь продолжать считать, что мы видим твой экран?

...

Рейтинг:

0 / 0

06.10.2015, 23:17

| Ответить | Цитировать | Написать

Возможно ли такое написать на vbs.

#39069979

The_Prist

Участник

Откуда: www.excel-vba.ru

Сообщения: 2 025

Рейтинг: 0 / 0

TYMAH3003не работаета у меня работает. Для начала напишите в какой строке ошибка(если она есть) и какая ошибка.

...

Рейтинг:

0 / 0

06.10.2015, 23:24

| Ответить | Цитировать | Написать

Возможно ли такое написать на vbs.

#39070000

TYMAH3003

Гость

Код: vbnet

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.

Dim s,d,m,v,f,g,dir
d = day( date() )
m = month(date())
if d < 10 then
   d = "0" & d
end if
if m < 10 then
   m = "0" & m
end if

s = monthname(month(date()))
g = "E:\00DOCUMENTS\LOG\DATA"
v = d & "-" & m
Set objFSO = CreateObject("Scripting.FileSystemObject")
if dir("C:\" & s,16) = "" then
Set objFolder = objFSO.CreateFolder("C:\" & s)
end if
Set objFolder = objFSO.CreateFolder("C:\"& s &"\" & v)
Set objFolder = objFSO.CreateFolder("C:\"& s &"\"& v &"\"& 10)
Set objFolder = objFSO.CreateFolder("C:\"& s &"\"& v &"\"& 12)
Set objFolder = objFSO.CreateFolder("C:\"& s &"\"& v &"\"& 15)
Set objFolder = objFSO.CreateFolder("C:\"& s &"\"& v &"\"& 17)
Set objFolder = objFSO.CreateFolder("C:\"& s &"\"& v &"\"& "—рочные")

Строка 15 символ 1 несоответствие типа код 800A00D

...

Рейтинг:

0 / 0

07.10.2015, 00:23

| Ответить | Цитировать | Написать

Возможно ли такое написать на vbs.

#39070003

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

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

The_Prist,
эм, а есть ли функция Dir в vbs?

...

Рейтинг:

0 / 0

07.10.2015, 00:33

| Ответить | Цитировать | Написать

Возможно ли такое написать на vbs.

#39070004

Relic Hunter

Участник

Откуда: AB

Сообщения: 7 268

Рейтинг: 0 / 0

Shocker.Proэм, а есть ли функция Dir в vbs? эм, может свою написал?

...

Рейтинг:

0 / 0

07.10.2015, 00:37

| Ответить | Цитировать | Написать

Возможно ли такое написать на vbs.

#39070007

TYMAH3003

Гость

Код: vbnet

1.
2.
3.
4.
5.

If fso.FolderExists(dir & "\имя папки") Then
    fso.DeleteFolder dir & "\имя папки"
Else
    MsgBox "папка не существует"
End if

каким то таким образом

...

Рейтинг:

0 / 0

07.10.2015, 00:40

| Ответить | Цитировать | Написать

Возможно ли такое написать на vbs.

#39070009

TYMAH3003

Гость

Код: vbnet

1.
2.
3.
4.

If objFSO.FolderExists(dir & "C:\" & s) Then
Else
Set objFolder = objFSO.CreateFolder("C:\" & s)
End if

Работает таким образом

...

Рейтинг:

0 / 0

07.10.2015, 00:44

| Ответить | Цитировать | Написать

Возможно ли такое написать на vbs.

#39070011

The_Prist

Участник

Откуда: www.excel-vba.ru

Сообщения: 2 025

Рейтинг: 0 / 0

Shocker.Proа есть ли функция Dir в vbsУпс, мой косяк. Что-то не обратил внимания, что это все на VBS...

...

Рейтинг:

0 / 0

07.10.2015, 00:45

| Ответить | Цитировать | Написать

Возможно ли такое написать на vbs.

#39070013

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

TYMAH3003каким то таким образомгугл - наше все )

...

Рейтинг:

0 / 0

07.10.2015, 00:56

| Ответить | Цитировать | Написать

Возможно ли такое написать на vbs.

#39070187

TYMAH3003

Гость

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

Код: vbnet

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.

Dim s,d,m,v,f,g
d = day( date() )
m = month(date())
if d < 10 then
   d = "0" & d
end if
if m < 10 then
   m = "0" & m
end if

s = monthname(month(date()))
g = "E:\00DOCUMENTS\LOG\DATA"
v = d & "-" & m
Set objFSO = CreateObject("Scripting.FileSystemObject")
If objFSO.FolderExists(dir & "E:\00DOCUMENTS\" & s) Then 
Else
Set objFolder = objFSO.CreateFolder("E:\00DOCUMENTS\" & s)
End if 
If objFSO.FolderExists(dir & "E:\00DOCUMENTS\"& s &"\" & v) Then 
Else
Set objFolder = objFSO.CreateFolder("E:\00DOCUMENTS\"& s &"\" & v)
Set objFolder = objFSO.CreateFolder("E:\00DOCUMENTS\"& s &"\"& v &"\"& 10)
Set objFolder = objFSO.CreateFolder("E:\00DOCUMENTS\"& s &"\"& v &"\"& 12)
Set objFolder = objFSO.CreateFolder("E:\00DOCUMENTS\"& s &"\"& v &"\"& 15)
Set objFolder = objFSO.CreateFolder("E:\00DOCUMENTS\"& s &"\"& v &"\"& 17)
Set objFolder = objFSO.CreateFolder("E:\00DOCUMENTS\"& s &"\"& v &"\"& "Срочные")
End if 
f = "E:\00DOCUMENTS\LOG\" & s & "\" & v & "\*.tif"
objFSO.CopyFile f , g, 1
MsgBox "Сегодня " & d &" :число, месяц: " & s & ". Логотипы успешно созданы"

...

Рейтинг:

0 / 0

07.10.2015, 09:55

| Ответить | Цитировать | Написать

35 сообщений из 35, показаны все 2 страниц

все

Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Возможно ли такое написать на vbs.

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?all=1&fid=60&tid=2155776]:	0ms
get settings:	8ms
get forum list:	14ms
check forum access:	3ms
check topic access:	3ms
track hit:	35ms
get topic data:	10ms
get forum data:	3ms
get page messages:	71ms
get tp. blocked users:	1ms
others:	13ms

total:	161ms