Тема для теста

Dragokas

Very kind Developer
Команда форума
Супер-Модератор
Разработчик
Клуб переводчиков
Сообщения
5,868
Симпатии
5,728
Баллы
588
#1
Здесь можно свободно тестировать возможности движка редактора форума...
Сложные оформления текста и т.п.
 

Dragokas

Very kind Developer
Команда форума
Супер-Модератор
Разработчик
Клуб переводчиков
Сообщения
5,868
Симпатии
5,728
Баллы
588
#2
shell:Device Metadata Store| Скрытая папка «DeviceMetadataStore»

shell:Device Metadata Store
 
Последнее редактирование модератором:

Dragokas

Very kind Developer
Команда форума
Супер-Модератор
Разработчик
Клуб переводчиков
Сообщения
5,868
Симпатии
5,728
Баллы
588
#3
Выравнивание кода.

code
Код:
Function foo(arg)
  call level2()
    call level4()
      call level6()
        call level8()
    dim lr: lr = foo3()
    if (lr) then
        msgbox "ok"   
        WScript.Quit 0
    end if
    msgbox "Happy end !!!"
End Function
code=VB
Код:
Function foo(arg)
  call level2()
    call level4()
      call level6()
        call level8()
    dim lr: lr = foo3()
    if (lr) then
        msgbox "ok"   
        WScript.Quit 0
    end if
    msgbox "Happy end !!!"
    call tab()
    foo = true
End Function
code=vbnet
VB.NET:
Function foo(arg)
  call level2()
    call level4()
      call level6()
        call level8()
    dim lr: lr = foo3()
    if (lr) then
        msgbox "ok"  
        WScript.Quit 0
    end if
    msgbox "Happy end !!!"
End Function


Код:
Function CbkEnumWin(hwnd, lparam)
    DWX.GetWindowTextW hwnd, Buf, 128 ' Unicode
    Title = DWX.StrGet(Buf, "w")
    'DWX.GetWindowText hwnd, Buf, 256 ' ANSI
    'Title = DWX.StrGet(Buf, "s")
    If Len(Title) > 0 Then
        WinList = WinList & hwnd & vbTab & Title & vbCrLf
        n = n+1
    End If
    m = m+1
    CbkEnumWin = 1 ' Если вернуть 0, вызовы прекратятся.
End Function
Код:
    DWX.GetWindowTextW hwnd, Buf, 128 ' Unicode
    Title = DWX.StrGet(Buf, "w")
    'DWX.GetWindowText hwnd, Buf, 256 ' ANSI
    'Title = DWX.StrGet(Buf, "s")
    If Len(Title) > 0 Then
        WinList = WinList & hwnd & vbTab & Title & vbCrLf
        n = n+1
    End If
    m = m+1
    CbkEnumWin = 1 ' Если вернуть 0, вызовы прекратятся.
End Function
Код:
    Title = DWX.StrGet(Buf, "w")
    'DWX.GetWindowText hwnd, Buf, 256 ' ANSI
    'Title = DWX.StrGet(Buf, "s")
    If Len(Title) > 0 Then
        WinList = WinList & hwnd & vbTab & Title & vbCrLf
        n = n+1
    End If
    m = m+1
    CbkEnumWin = 1 ' Если вернуть 0, вызовы прекратятся.
End Function
Код:
    'DWX.GetWindowText hwnd, Buf, 256 ' ANSI
    'Title = DWX.StrGet(Buf, "s")
    If Len(Title) > 0 Then
        WinList = WinList & hwnd & vbTab & Title & vbCrLf
        n = n+1
    End If
    m = m+1
    CbkEnumWin = 1 ' Если вернуть 0, вызовы прекратятся.
End Function
Код:
    'Title = DWX.StrGet(Buf, "s")
    If Len(Title) > 0 Then
        WinList = WinList & hwnd & vbTab & Title & vbCrLf
        n = n+1
    End If
    m = m+1
    CbkEnumWin = 1 ' Если вернуть 0, вызовы прекратятся.
End Function
Код:
    If Len(Title) > 0 Then
        WinList = WinList & hwnd & vbTab & Title & vbCrLf
        n = n+1
    End If
    m = m+1
    CbkEnumWin = 1 ' Если вернуть 0, вызовы прекратятся.
End Function
Код:
        WinList = WinList & hwnd & vbTab & Title & vbCrLf
        n = n+1
    End If
    m = m+1
    CbkEnumWin = 1 ' Если вернуть 0, вызовы прекратятся.
End Function
Код:
    If Len(Title) > 0 Then
        WinList = WinList & hwnd & vbTab & Title & vbCrLf
        n = n+1
    End If
    m = m+1
Код:
    If Len(Title) > 0 Then
        WinList = WinList & hwnd & vbTab & Title & vbCrLf
        n = n+1
    End If

Код:
Function CbkEnumWin(hwnd, lparam)
    DWX.GetWindowTextW hwnd, Buf, 128 ' Unicode
    Title = DWX.StrGet(Buf, "w")
    'DWX.GetWindowText hwnd, Buf, 256 ' ANSI
    'Title = DWX.StrGet(Buf, "s")
    If Len(Title) > 0 Then
        WinList = WinList & hwnd & vbTab & Title & vbCrLf
        n = n+1
    End If
    m = m+1
    CbkEnumWin = 1 ' Если вернуть 0, вызовы прекратятся.
End Function

Код:
Function CbkEnumWin(hwnd, lparam)
    DWX.GetWindowTextW hwnd, Buf, 128 ' приплыли !
    Title = DWX.StrGet(Buf, "w")
    'DWX.GetWindowText hwnd, Buf, 256
    'Title = DWX.StrGet(Buf, "s")
    If Len(Title) > 0 Then
        WinList = WinList & hwnd & vbTab & Title & vbCrLf
        n = n+1
    End If
    m = m+1 ''''''''''
    CbkEnumWin = 1
End Function
 
Последнее редактирование:

Dragokas

Very kind Developer
Команда форума
Супер-Модератор
Разработчик
Клуб переводчиков
Сообщения
5,868
Симпатии
5,728
Баллы
588
#4
VB.NET:
Function CbkEnumWin(hwnd, lparam)
    DWX.GetWindowTextW hwnd, Buf, 128 ' Unicode
    Title = DWX.StrGet(Buf, "w")
    'DWX.GetWindowText hwnd, Buf, 256 ' ANSI
    'Title = DWX.StrGet(Buf, "s")
    If Len(Title) > 0 Then
        WinList = WinList & hwnd & vbTab & Title & vbCrLf
        n = n+1
    End If
    m = m+1
    CbkEnumWin = 1 ' Если вернуть 0, вызовы прекратятся.
End Function
...........

[bimg=25%|fright]https://safezone.cc/attachments/633374-1680x1050-kopija-jpg.18042/?temp_hash=59c7512205a9d1b16e2a7e10f39c79a5[/bimg]
akok, ооо, все вообще зашибись: bimg=40%|fright

Спасибо за потраченное время.А это процент от чего высчитывается? Что то не пойму.



 
Последнее редактирование модератором:

Dragokas

Very kind Developer
Команда форума
Супер-Модератор
Разработчик
Клуб переводчиков
Сообщения
5,868
Симпатии
5,728
Баллы
588
#5
Код:
C:\Users\Yana\Desktop\Launch Internet Explorer Browser.lnk 
C:\Users\Yana\Desktop\firefox.exe.lnk
C:\Users\Yana\Desktop\Google Chrome.lnk 
C:\Users\Yana\Desktop\Internet Explorer.lnk
 
Последнее редактирование:

vlady

Активный пользователь
Сообщения
1
Симпатии
0
Баллы
81
#6
Мы с @akok пытаемся выяснить, будут ли работать хэштеги, если они не предопределены заранее. Пожалуйста, добавьте кто-нибудь в этот топик сообщение с тегом #произвольныйхэштег
 
Последнее редактирование:

akok

Команда форума
Администратор
Сообщения
15,487
Симпатии
12,576
Баллы
2,203
#7
#произвольныйхэштегБез патча не работает, с патчем ошибка выпадает.
 

ScriptMakeR

Клуб переводчиков
Сообщения
1,445
Симпатии
517
Баллы
153
#8
[encadre]Тестим текстбоксы[/encadre]Какой-то контент[encadre]Тестим текстбоксы без контента[/encadre][encadre=Текстбокс]А так?[/encadre]Мнооооооооооооооооооооооооооооооооооооооооооооооооооооооооооооооооооооооооооооооооооооооооооооооооооооооооооооооооооооооооооооооооооооооооооооооооооооооооооооооооооооооооооооооооооооооооооооооооооого контента[encadre=:Dance4:]:Dance4:[/encadre]:Dance4:[slider]
{slide}:Dance4:{/slide}
{slide}:Shok:{/slide}
{slide}:Curtsey:{/slide}
{slide}:Give Rose:{/slide}
{slide}:Party2:{/slide}
{slide}:Kiss 3:{/slide}
{slide}:Girl In Love:{/slide}
{slide}:Yahoo:{/slide}
[/slider]Чет не понял. А у этой ↑↑↑ штуки есть настройки размера?
 
Последнее редактирование:

Dragokas

Very kind Developer
Команда форума
Супер-Модератор
Разработчик
Клуб переводчиков
Сообщения
5,868
Симпатии
5,728
Баллы
588
#9
[slider=100%]
{slide}:Dance4:{/slide}
{slide}:Shok:{/slide}
{slide}:Curtsey:{/slide}
{slide}:Give Rose:{/slide}
{slide}:Party2:{/slide}
{slide}:Kiss 3:{/slide}
{slide}:Girl In Love:{/slide}
{slide}:Yahoo:{/slide}
[/slider]
 

ScriptMakeR

Клуб переводчиков
Сообщения
1,445
Симпатии
517
Баллы
153
#10
:Shok: А как? И еще. По высоте можно?
 

Dragokas

Very kind Developer
Команда форума
Супер-Модератор
Разработчик
Клуб переводчиков
Сообщения
5,868
Симпатии
5,728
Баллы
588
#11
[slider=100%]

Сильно не увлекайся :)
Минимальная высота, думаю, фиксирована.
 

ScriptMakeR

Клуб переводчиков
Сообщения
1,445
Симпатии
517
Баллы
153
#12
Спасибо
[slider=bcenter|175x75]
{slide}:Dance4:{/slide}
{slide}:Shok:{/slide}
{slide}:Curtsey:{/slide}
{slide}:Give Rose:{/slide}
{slide}:Party2:{/slide}
{slide}:Kiss 3:{/slide}
{slide}:Girl In Love:{/slide}
{slide}:Yahoo:{/slide}
[/slider]
Так, вроде, лучше :)
 
Последнее редактирование:

Dragokas

Very kind Developer
Команда форума
Супер-Модератор
Разработчик
Клуб переводчиков
Сообщения
5,868
Симпатии
5,728
Баллы
588
#14
!"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~ЂЃ‚ѓ„…†‡€‰Љ‹ЊЌЋЏђ‘’“”•–—˜™љ›њќћџ ЎўЈ¤Ґ¦§Ё©Є«¬®Ї°±Ііґµ¶·ё№є»јЅѕїАБВГДЕЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯабвгдежзийклмнопрстуфхцчшщъыьэюя
 

regist

гоняюсь за туманом
Ассоциация VN/VIP
VIP
Разработчик
Сообщения
12,231
Симпатии
5,834
Баллы
918
#16
ScriptMakeR, хайда тут нет, только спойлер.
 

Dragokas

Very kind Developer
Команда форума
Супер-Модератор
Разработчик
Клуб переводчиков
Сообщения
5,868
Симпатии
5,728
Баллы
588
#18
Последнее редактирование:

Dragokas

Very kind Developer
Команда форума
Супер-Модератор
Разработчик
Клуб переводчиков
Сообщения
5,868
Симпатии
5,728
Баллы
588
#19
Якорь 2 -
Текст под якорем 2
 
/div>
Последнее редактирование:

Dragokas

Very kind Developer
Команда форума
Супер-Модератор
Разработчик
Клуб переводчиков
Сообщения
5,868
Симпатии
5,728
Баллы
588
#20
Empty
 
Сверху Снизу