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

Dragokas · 4 Мар 2014

Здесь можно свободно тестировать возможности движка редактора форума...
Сложные оформления текста и т.п.

Dragokas · 19 Мар 2014

shell

evice Metadata Store| Скрытая папка «DeviceMetadataStore»
[table=head]1|2|3
shell

evice Metadata Store| Скрытая папка «DeviceMetadataStore»
[/table]
shell:Device Metadata Store
[table=head]1|2|3
shell:Device Metadata Store| Скрытая папка «DeviceMetadataStore»
[/table]

Dragokas · 28 Июн 2014

Выравнивание кода.

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 / VBA:

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 · 28 Июн 2014

VB.NET / VBA:

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 · 5 Авг 2014

Код:

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 Сен 2014

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

akok · 1 Сен 2014

#произвольныйхэштегБез патча не работает, с патчем ошибка выпадает.

ScriptMakeR · 29 Окт 2014

[encadre]Тестим текстбоксы[/encadre]Какой-то контент[encadre]Тестим текстбоксы без контента[/encadre][encadre=Текстбокс]А так?[/encadre]Мнооооооооооооооооооооооооооооооооооооооооооооооооооооооооооооооооооооооооооооооооооооооооооооооооооооооооооооооооооооооооооооооооооооооооооооооооооооооооооооооооооооооооооооооооооооооооооооооооооого контента[encadre= :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 · 29 Окт 2014

[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 · 29 Окт 2014

А как? И еще. По высоте можно?

Dragokas · 29 Окт 2014

[slider=100%]

Сильно не увлекайся

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

ScriptMakeR · 29 Окт 2014

Спасибо
[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]
Так, вроде, лучше

akok · 1 Ноя 2014

Тест

Dragokas · 9 Ноя 2014

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

ScriptMakeR · 2 Мар 2015

[hidden]текст[/hidden]
[hide]текст[/hide]

regist · 2 Мар 2015

ScriptMakeR, хайда тут нет, только спойлер.

ScriptMakeR · 2 Мар 2015

Уже понял, а жаль, что нет.

Dragokas · 12 Апр 2016

Перейти к якорю 1.

Перейти к якорю 2.

Перейти к несуществующему якорю.

-------------------------

Якорь 1 -
Текст под якорем 1

Dragokas · 13 Апр 2016

Якорь 2 -
Текст под якорем 2

Dragokas · 13 Апр 2016

Empty

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

Dragokas

Angry & Scary Developer

Dragokas

Angry & Scary Developer

Dragokas

Angry & Scary Developer

Dragokas

Angry & Scary Developer

Dragokas

Angry & Scary Developer

vlady

Новый пользователь

akok

ScriptMakeR

Dragokas

Angry & Scary Developer

ScriptMakeR

Dragokas

Angry & Scary Developer

ScriptMakeR

akok

Dragokas

Angry & Scary Developer

ScriptMakeR

regist

гоняюсь за туманом

ScriptMakeR

Dragokas

Angry & Scary Developer

Dragokas

Angry & Scary Developer

Dragokas

Angry & Scary Developer