СообЧа (СООБщество ЧАйников). Обмен опытом, вопросы, ответы. 08.07.03 (comp.soft.prog.soobcha) : Рассылка : Subscribe.Ru

СообЧа (СООБщество ЧАйников). Обмен опытом, вопросы, ответы. 08.07.03

Статистика

Подписаться Бесплатная «Золотая» новостная рассылка . Подписчиков 6.873 RSS

← Июль 2003 →
	1	2	3	4	5	6
7	8	9 09.07.2003 03:04:53 12:36:33	10	11	12	13
14	15	16	17	18	19	20
21	22	23	24	25	26	27
28	29	30	31

За последние 60 дней ни разу не выходила

Сайт рассылки: http://www.soobcha.org
Открыта: 16-08-2000
Адрес автора: comp.soft.prog.soobcha-owner@subscribe.ru

Автор valt***@s*****.org

6.873 подписчиков
0 за неделю

← Все выпуски →

← Июль 2003 →

9 09.07.2003 03:04:53 12:36:33

Информационный Канал Subscribe.Ru

***СООБщество ЧАйников***

Система Эксперт
Найдем ответ СообЧа!

08.07.03

Свежие FAQ на SoobCha.Ru

FAQ от системы Эксперт

Delphi

Как сделать интерфейс XP?
HTML
Как отправить заполненную форму по определенному адресу?
Internet
Можно ли выстроить цепочку прокси-серверов?
Prog
Как сделать, чтобы при запуске компашки сразу грузился проигрыватель со списком треков?
VB
Модуль для работы с ком портом.

Вопросы от системы Эксперт

Тема: Delphi
Тема: Games
Тема: ICQ
Тема: Internet
Тема: Linux
Тема: Local_Net
Тема: Printer
Тема: VB
Тема: VideoCards

FAQ от системы Эксперт

Тема: Delphi

Задался вопросом сделать интерфейс своей программы под интерфейс XP? На сайте www.afalinasoft.com нашел необходимые компоненты (Buttons, CheckBox, RadioButtons ...), выглядит красиво, но работают они только при включенном Delphi, иначе превращаются в са
мые обычные. Нашел еще один пакет похож на предыдущий, но таже проблема. Может кто-нибудь подскажет, где можно найти бесплатные, "работающие" компоненты?

Ответ:

Не надо никаких компонентов. Чтобы твоя прога поддерживала новый ХРшный интерфейс, в нее надо залинковать как ресурс следующий файл:

Делается это так: сохраняешь его куда-нибудь под любым именем (допустим, manifest.txt), создаешь рядом с ним файл, например, manifest.rc с одной строчкой:
1 24 "manifest.txt"
Потом компилируешь его прогой brcc32 из папки с Дельфой:
brcc32 manifest.rc
и получаешь файл manifest.res
А уж его можешь кидать в папки со своими проектами и прописывать в файле проекта строчку
{$R manifest.res}

[Наверх]

Тема: HTML

Какими средствами можно организовать следующую задачу:
Нужно заполнить форму на страничке и содержимое отправить по определенному адресу.

Ответ:

За отсутствием инфы о наименованиях форм, напишу несколько форм для заполнения и отправке на адрес www@www.ru:

[Наверх]

Тема: Internet

Для выхода в интернет я пользуюсь прокси-сервером.
Вопрос следующий: можно ли этот прокси-сервер заставить обращаться к другому прокси серверу и т.д. Т.е. строить что-то типа цепочек прокси-серверов? Если можно, то как?

Ответ:

Надо на самом прокси-сервере выставить Parent proxy .

[Наверх]

Тема: Prog

Хочу записать на болванку треки. Как сделать, чтобы при запуске компашки сразу грузился проигрыватель со списком треков. Короче сделать его загрузочным чтоли?
И еще если записать на болванку допустим программы, картинки. Как сделать чтобы при запуске компакта у него был свой интерфейс. Ну там типа кнопочки это то-то, или жми сюда и инсталируй. Короче на каком языке это все пишется и как это делается. Приветс
твуется любая информация, ссылки чем больше тем лучше. Заранее огромный сенкс!

Ответ:

AutoPlay Menu Studio
Благодаря своему интуитивно понятному интерфейсу, простоте и удобству в использовании, AutoPlay Menu Studio Pro можно назвать одной из лучших программ своего класса. При запуске приложения появляется окно выбора, предоставляющее опции Create a New Project (создать новый проект), Open Existing Project (открыть существующий проект), Open Last Project (открыть последний проект) и Exit (Выход).И вот перед нами заготовка нашей будущей менюшки, которую осталось только разукрасить на свой вкус и подстроить под свои нужды. AutoPlay Menu Studio имеет достаточно большое количество инструментов и предоставляет очень простые способы оформления и настройки объектов меню. Для этого достаточно просто щелкнуть правой кнопкой мыши на тексте, рисунке, гипперссылке или в
идеофайле (все это и есть объекты меню) и выбрать пункт меню Object Properties. Появится окно настройки свойств объекта, состоящее из нескольких вкладок.. На вкладке Actions устанавливаются разнообразные эффекты, которые будут сопровождать ваши действия
при работе с меню: проигрывание .wav-, .mp3- и .avi-файлов; запуск приложений; открытие документов, каталогов и сайтов; свертывание, восстановление и закрытие окна меню и многое другое. AutoPlay Menu Studio позволяет также создавать многостраничные меню.
Для создания новых страниц и редактирования уже существующих используются пункты меню Page. Чтобы было легче перемещаться между страницами в процессе редактирования, они представлены в виде вкладок внизу главного окна программы, что позволяет одним клик
ом мышью сразу же перейти к интересующему фрагменту меню.
После того как вы создали и оформили образ своего будущего меню, можно приступать и к его созданию. Для этого выбираете команду Build: в меню Project, далее появляется окно, в котором нужно задать имя исполняемого файла (по умолчанию - autorun.exe), выбр
ать каталог, в который будет помещаться меню, а также задать имя подкаталога, в котором будут храниться все так званые файлы поддержки. После всех этих процедур можно спокойно жать на ОК чтобы запустить процесс создания меню. И вот, все готово, осталось
только записать меню на болванку и наслаждаться удобством авторана каждый раз при загрузке CD в привод.
Скачать AutoPlay Menu Studio можно здесь: http://tucows.online.ru/mmedia/preview/213979.html.
Русификатор для AutoPlay Menu Studio лежит здесь: http://www.rip.net.ua/rusoft.php?id=219.

[Наверх]

Тема: VB

Народ подскажите где найти хэлп по работе с COM портами из под VB Очень интересует получение данных с порта Ну а если кто подскажет где можно найти исходники программ умеющих это делать то будет просто супер.

Ответ:

модуль для работы с ком-портом (кто как, а я просто терпеть не могу таскать за проектом всякие лишние компоненты - когда программа один файл - намного красивше):

Declare Sub Sleep Lib "kernel32" (ByVal milliseconds As Long)
Option Explicit
Global ComNum As Long
Global bRead(255) As Byte
Type COMSTAT
        fCtsHold As Long
        fDsrHold As Long
        fRlsdHold As Long
        fXoffHold As Long
        fXoffSent As Long
        fEof As Long
        fTxim As Long
        fReserved As Long
        cbInQue As Long
        cbOutQue As Long
End Type
Type COMMTIMEOUTS
        ReadIntervalTimeout As Long
        ReadTotalTimeoutMultiplier As Long
        ReadTotalTimeoutConstant As Long
        WriteTotalTimeoutMultiplier As Long
        WriteTotalTimeoutConstant As Long
End Type
Type DCB
        DCBlength As Long
        BaudRate As Long
        fBinary As Long
        fParity As Long
        fOutxCtsFlow As Long
        fOutxDsrFlow As Long
        fDtrControl As Long
        fDsrSensitivity As Long
        fTXContinueOnXoff As Long
        fOutX As Long
        fInX As Long
        fErrorChar As Long
        fNull As Long
        fRtsControl As Long
        fAbortOnError As Long
        fDummy2 As Long
        wReserved As Integer
        XonLim As Integer
        XoffLim As Integer
        ByteSize As Byte
        Parity As Byte
        StopBits As Byte
        XonChar As Byte
        XoffChar As Byte
        ErrorChar As Byte
        EofChar As Byte
        EvtChar As Byte
End Type
Type OVERLAPPED
        Internal As Long
        InternalHigh As Long
        offset As Long
        OffsetHigh As Long
        hEvent As Long
End Type
Type SECURITY_ATTRIBUTES
        nLength As Long
        lpSecurityDescriptor As Long
        bInheritHandle As Long
End Type
Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
Declare Function GetLastError Lib "kernel32" () As Long
Declare Function ReadFile Lib "kernel32" (ByVal hFile As Long, lpBuffer As Any, ByVal nNumberOfBytesToRead As Long, lpNumberOfBytesRead As Long, lpOverlapped As Long) As Long
Declare Function WriteFile Lib "kernel32" (ByVal hFile As Long, lpBuffer As Any, ByVal nNumberOfBytesToWrite As Long, lpNumberOfBytesWritten As Long, lpOverlapped As Long) As Long
Declare Function SetCommTimeouts Lib "kernel32" (ByVal hFile As Long, lpCommTimeouts As COMMTIMEOUTS) As Long
Declare Function GetCommTimeouts Lib "kernel32" (ByVal hFile As Long, lpCommTimeouts As COMMTIMEOUTS) As Long
Declare Function BuildCommDCB Lib "kernel32" Alias "BuildCommDCBA" (ByVal lpDef As String, lpDCB As DCB) As Long
Declare Function SetCommState Lib "kernel32" (ByVal hCommDev As Long, lpDCB As DCB) As Long
Declare Function CreateFile Lib "kernel32" Alias "CreateFileA" (ByVal lpFileName As String, ByVal dwDesiredAccess As Long, ByVal dwShareMode As Long, ByVal lpSecurityAttributes As Long, ByVal dwCreationDisposition As Long, ByVal dwFlagsAndAttributes As L
ong, ByVal hTemplateFile As Long) As Long
Declare Function FlushFileBuffers Lib "kernel32" (ByVal hFile As Long) As Long
Function fin_com()
    fin_com = CloseHandle(ComNum)
End Function
Function FlushComm()
    FlushFileBuffers (ComNum)
End Function
Function Init_Com(ComNumber As String, Comsettings As String) As Boolean
On Error GoTo handelinitcom
    Dim ComSetup As DCB, Answer, Stat As COMSTAT, RetBytes As Long
    Dim retval As Long
    Dim CtimeOut As COMMTIMEOUTS, BarDCB As DCB
    ' Open the communications port for read/write (&HC0000000).
    ' Must specify existing file (3).
    ComNum = CreateFile(ComNumber, &HC0000000, 0, 0&, &H3, 0, 0)
    If ComNum = -1 Then
        Init_Com = False
        Exit Function
    End If
    'Setup Time Outs for com port
    CtimeOut.ReadIntervalTimeout = 20
    CtimeOut.ReadTotalTimeoutConstant = 1
    CtimeOut.ReadTotalTimeoutMultiplier = 1
    CtimeOut.WriteTotalTimeoutConstant = 10
    CtimeOut.WriteTotalTimeoutMultiplier = 1
    retval = SetCommTimeouts(ComNum, CtimeOut)
    If retval = -1 Then
        retval = GetLastError()
        MsgBox "Unable to set timeouts for port " & ComNumber & " Error: " & retval
        retval = CloseHandle(ComNum)
        Init_Com = False
        Exit Function
    End If
    retval = BuildCommDCB(Comsettings, BarDCB)
    If retval = -1 Then
        retval = GetLastError()
        MsgBox "Unable to build Comm DCB " & Comsettings & " Error: " & retval
        retval = CloseHandle(ComNum)
        Init_Com = False
        Exit Function
    End If
    retval = SetCommState(ComNum, BarDCB)
    If retval = -1 Then
        retval = GetLastError()
        MsgBox "Unable to set Comm DCB " & Comsettings & " Error: " & retval
        retval = CloseHandle(ComNum)
        Init_Com = False
        Exit Function
    End If
    Init_Com = True
handelinitcom:
    Exit Function
End Function
Function ReadCommPure() As String
On Error GoTo handelpurecom
    Dim RetBytes As Long, i As Integer, ReadStr As String, retval As Long
    Dim CheckTotal As Integer, CheckDigitLC As Integer
    retval = ReadFile(ComNum, bRead(0), 255, RetBytes, 0)
    ReadStr = ""
    If (RetBytes > 0) Then
        For i = 0 To RetBytes - 1
            ReadStr = ReadStr & Chr(bRead(i))
        Next i
       Else
        FlushComm
    End If
    'Return the string read from serial port
    ReadCommPure = ReadStr
handelpurecom:
    Exit Function
End Function
Function WriteCOM32(COMString As String) As Integer
On Error GoTo handelwritelpt
    Dim RetBytes As Long, LenVal As Long
    Dim retval As Long
    If Len(COMString) > 255 Then
        WriteCOM32 Left$(COMString, 255)
        WriteCOM32 Right$(COMString, Len(COMString) - 255)
        Exit Function
    End If
    For LenVal = 0 To Len(COMString) - 1
        bRead(LenVal) = Asc(Mid$(COMString, LenVal + 1, 1))
    Next LenVal
'    bRead(LenVal) = 0
    retval = WriteFile(ComNum, bRead(0), Len(COMString), RetBytes, 0)
'    FlushComm
    WriteCOM32 = RetBytes
handelwritelpt:
    Exit Function
End Function

использование (код формы)

Private Sub Command1_Click()
WriteCOM32 ("твоя строка") ' запись в порт
End Sub
Private Sub Command2_Click()
' насчёт чтения: если данные идут непрерывно - либо таймер ставь
' либо сабклассингом, а то замучаешся на кнопку давить
    Dim Ans As String
    Ans = ReadCommPure() 'считывание буфера порта
    'Call proverka(Ans)' твоя функция проверки - то или не то пришло с порта
    text1.Text = Ans ' вывод в текстбокс, вполне возможно что переменная будет
' содержать символ с кодом 0 - тогда текстбокс после этого символа ничего не выведет
    FlushComm 'очистка
End Sub
Private Sub Form_Load()
Dim port As String
Dim speed As String
Dim bitdann As String
Dim stopbit As String
port = 1 'номер порта
speed = "38400" 'скорость
bitdann = "8"
stopbit = "1" 'стоповые биты
' иницализация
    If Not Init_Com("COM" + port + ":", speed + ",n," + bitdann + "," + stopbit) Then
        MsgBox "Порт COM" + Str(port) + " недоступен!", vbOKOnly + vbCritical, "Проверка"
        Exit Sub
    End If
End Sub
'выход и очистка ресурсов
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Call fin_com
Unload Me
End Sub

*******************************************************************
не завершать приложение из среды разработчика кнопкой "стоп", т.к. порт останется открытым и придётся сохранять проект и перезагружать бейсик

[Наверх]

Вопросы от системы Эксперт

Тема: Delphi

Подскажите, как отсылать почтовые сообщения чтобы не бело видно обратного адресса?
Ответить: mailto:expert@soobcha.ru?subject=Rass_UTW53LJ88

Я использую компонент библиотеки RxLib RxFolderMonitor для того, чтобы отследить изменения в определенной папке...Однако, нигде не нашел - как получить имя файла, который изменяется или создается например, то есть имя того, кто вызвал обработчик Change. Может кто сталкивался с этим - помогите плиз!
Ответить: mailto:expert@soobcha.ru?subject=Rass_UTW2HEH610

Делаю memory mapped file (asci file). Пишу в него (меняю 16 символов на другие 16) с помощью CopyMemory(адрес этих символов внутри мапнутого файла, адрес массива char, длина(16)). В Debuggere все проходит. Но в real time вылетает ошибка типа: нельзя делать write по такому то адресу.
1. Верно ли я пользуюсь CopyMemory?
2. Как сделать по-другому?
Ответить: mailto:expert@soobcha.ru?subject=Rass_UTX341A421
[Наверх]

Тема: Games

В игре red alirt 2 видео ролики спрятаны в файл Movies02.mix отсюда вопрос как их дотуда выкавареть? Может есть какая-нибуть прога способная их выкавыревать
Ответить: mailto:expert@soobcha.ru?subject=Rass_UTW2HEIO1Y
[Наверх]

Тема: ICQ

Версия программы: 2003a 3800
Недавно начал юзать ICQ, до этого вообще никогда с ней не сталкивался. И вот возникли какие-то непонятки:
1. Доходят далеко не все сообщения, жду уже из интереса 4 дня. Почему?
2. Не доходят в графике смайлики. Вместо них отображается что-то вроде ":-D" То бишь вместо жёлтого колобка выставляется его значение. Это нормально?
Аська и у меня, и у человека с которым я переписываюсь одна и та же (поставлена с одного диска).
Ответить: mailto:expert@soobcha.ru?subject=Rass_UTW2HEK72U
[Наверх]

Тема: Internet

Если есть возможность скинте мне танцоров для MP3dancer или дайте ссылку на бесплатных!
Ответить: mailto:expert@soobcha.ru?subject=Rass_UTW4EDR61W
[Наверх]

Тема: Linux

Есть ли такая GUI'ня к lame или vorbis-tools, которая была бы удобна? Т.е. вставил диск, выбрал в combobox'е битрейт, другие установки, задал шабло имён, нажал на кнопочку, ушёл пить чай, пришёл, а там всё готово. Glame не предлагать.
Ответить: mailto:expert@soobcha.ru?subject=Rass_UTW3C4QK5

Подскажите пожалуйста, как в ручную настроить оборудование? Например выставить (изменить) прерывания, адреса ввода-вывода в Linux.
Ответить: mailto:expert@soobcha.ru?subject=Rass_UTW53LJFJ

Имеется RH 7.3
Пытаюсь настроить DNS
В файлк Named.conf - есть строка что то вроде rndckey
Что это такое
Вношу изменения в этот файл а потом DNS не стартует
Ответить: mailto:expert@soobcha.ru?subject=Rass_UTX341B231

Сейчас использую KDE 3.0 как обновить до 3.1 (есть в наличии) как это делается если можно поподробней (со стадии чайника перешел на стадию котелка)
Ответить: mailto:expert@soobcha.ru?subject=Rass_UTX4RGT12

При помощи какой команды можно узнать к какому proxy-server'у коннектиться броузер в Линухе или где это пробить.
Ответить: mailto:expert@soobcha.ru?subject=Rass_UTW4EDQ6U
[Наверх]

Тема: Local_Net

Есть 100 Мб сеть из 14 компов. На всех машинах установлена w98.После установки на одной из машин W XP сеть начала тормозить. При открытии сетевого окружения на машинах с 98 машина подвисает. На машине с ХР открытие происходит гараздо дольше чем когда стояла везде 98. Если выключить машину с хрюшей, все нормально. Ни каких дополнительных сервисов на ХР не ставил. Подскажите в чем проблема. Может какие еще сервисы нужно поотключать.
Ответить: mailto:expert@soobcha.ru?subject=Rass_UTX4RGUU1W

Хотелось бы получить аргументированные и профессиональные данные о достоинствах и недостатках разных протоколов (ftp, http) для приема/передачи данных в/из InterNet в локальные сети. А то знакомый упорно утверждает, что лучше HTTP ничего нет ;-)
Ответить: mailto:expert@soobcha.ru?subject=Rass_UTU30MQH6M
[Наверх]

Тема: Printer

На работе стоит этакий недомерок - OkiPage 8W Lite. Ну, естественно, через какое-то время барабан пошеркался и его пришлось заменить, а вот сообщение "Печатающий барабан выработал свой ресурс" до сих пор осталось. Ну с этим бы еще можно было бы мириться, но появилось еще одно "замечательное" свойство этого "прекрасного" принтёра - не желает печатать весь документ целиком, вот и задаешь ему "Печатать с 1 по 1", "Печатать с 1 по 2" и т.д. Как с этими аномалиями бороться? Винды и дрв переставлял.
Ответить: mailto:expert@soobcha.ru?subject=Rass_UTX3419E1A
[Наверх]

Тема: VB

Подскажите как в VBA, отправить письмо с вложенным файлом (но не .xls), а то диалог о отправке письма создается, в нем автоматически можнл проставить адрессатов и тему сообщения но нельзя программно вложить файл
Ответить: mailto:expert@soobcha.ru?subject=Rass_UTW53LJ89
[Наверх]

Тема: VideoCards

Видеокарта: NVIDIA GeForce2 MX 100/200
В WinXP драйвера для неё находит сама система, и всё отлично работает. А в Win98 (пробовал 3 разных диска) после установки драйверов с использованием последнего детонатора (пробовал также и старые версии) система зависает через несколько секунд после запуска (при этом можно иногда увидет различные глюки, типа неотображаемой кнопки какого-нибудь меню или диалога или просто полосы на рабочем столе... но, как правило, просто не успеваю ничего такого обнаружить, так как Винда виснет даже не загрузив панель задач). Как известно, детонатор для WinXP и WinME один и тот же. Так вот, при использовании последней его версии в WinME всё также отлично идёт - никаких глюков. Ещё информация: отключение кеширования процессора из БИОСа помогает, но при этом всё идёт слишком медленно, так что такой вариант не приемлем. Пробовал ставить различные версии DirectX. DirectDraw и Direct3D включены - не помогает.
Сама по себе проблема решима, так как комп у меня уже давно, и в фирме, в которой я его покупал, мне уже 2 раза всё настраивали. Только вот не знаю как. А везти туда опять не хотелось бы, так как не совсем уверен в их добросовестности... да и с деньгами неувязка...
Ответить: mailto:expert@soobcha.ru?subject=Rass_UTR4NNLO4H
[Наверх]

Поиск по Базе знаний :
http://www.soobcha.ru/search/

Автоответчики.
Информация о системе Эксперт СообЧа (пустое сообщение):
mailto:reply.infoexpert@soobcha.ru

Информация о порядке регистрации в качестве эксперта (пустое сообщение):
mailto:reply.regexpert@soobcha.ru

Список тем для задания вопросов (пустое сообщение):
mailto:reply.subjexpert@soobcha.ru

Список всех автоответчиков СообЧа (пустое сообщение):
mailto:help@soobcha.org

Информация и заказ диска СообЧа:
http://soobcha.ru/cd/ или:
Для России: mailto:disk@soobcha.org?subject=page
Для Украины: mailto:disk_ua@soobcha.org?subject=page

Администратор системы:
mailto:expert_adm@soobcha.org
Копирование материалов рассылки допускается только по согласованию с администратором системы.
Рассылка создана программой Expert Page Generator.
(С) 2000-2003 СообЧа!

http://subscribe.ru/
E-mail: ask@subscribe.ru

Отписаться
Убрать рекламу

В избранное

{#template MAIN} <div id="loginForm" style="display:none;" class="subscriberu_popup"> <div class="popup_register"> {#include js_tmpl_auth_reg_tab} {#if $P.login_register_tab == 1} <form class="authentication-form" method="post" action="/MEMBERLOGIN_authen_cred"> <dl class="rg_block_options"> <dt id="js_tap_panel_auth"> <h1>Войти на сайт</h1> {* {#include js_tmpl_auth_reg_button} *} {#include js_tmpl_auth_reg_action} <hr class="logreg_line noPhones"> <div class="logreg_descr noPhones"><p>{#include js_tmpl_auth_reg_descr} </p></div> <div class="logreg_advice noPhones"> Если вы еще не с нами, то начните с <a href="#" onclick="rgNav('js_tab_reg');return false;" class="dashed" data-func="registr">регистрации</a> </div> <br><br> <a class="dashed auth-enter" href="/manage/author/"><b>Вход для авторов</b></a> </dt> </dl> </form> {#/if} {#if $P.login_register_tab == 2} <div class="rg_block_options"> <div id="js_tap_panel_auth"> <h1>Регистрация</h1> <div class="social_reg"> {* <div class="rg_description">{#include js_tmpl_soc_auth_reg_descr}</div> *} {#include js_tmpl_auth_reg_soc} <div class="rg_soc_auth_agree">{#include js_tmpl_auth_reg_agree}</div> </div> <div class="subscribe_reg"> {* <div class="rg_description"> #include js_tmpl_auth_reg_descr </div> *} {#include js_tmpl_auth_reg_action} </div> {* {#include js_tmpl_auth_reg_button} *} <div class="clr"> </div> <hr class="logreg_line noPhones"> <div class="logreg_descr noPhones">{#include js_tmpl_auth_reg_descr} {#include js_tmpl_soc_auth_reg_descr} </div> </div> </div> {#/if} </div> {* <div class="gray_bg register_shadow"></div> *} </div> {#/template MAIN} {#template js_tmpl_auth_reg_tab} <ul class="rg_nav"> <li id="js_tab_auth" class="{#if $P.login_register_tab == 1} rg_active_nav {#/if} rg_first_nav"><a onclick="rgNav('js_tab_auth');return false;" href="">Вход на сайт</a></li> <li id="js_tab_reg" class="{#if $P.login_register_tab == 2} rg_active_nav {#/if}"><a onclick="rgNav('js_tab_reg');return false;" href="">Регистрация </a></li> </ul> <span onclick="hidebo();" class="rg_closed"> </span> {#/template js_tmpl_auth_reg_tab} {#template js_tmpl_auth_reg_action} {#if $P.login_register_tab == 1} {#include js_tmpl_auth_reg_soc} {#/if} <div class="rg_forms"> <input type="hidden" id="login_register_destination" value="{$P.login_register_destination}"/> {#if $P.login_register_tab == 1} <div class="rg_for_input"> <span class="rg_text_inner">E-mail или код подписчика</span> <input id="credential_0" class="js_keydown_selector rg_input_text" data-js_submit="no" data-js_next_input_name="credential_1" name="" type="text" /> </div> <div class="rg_for_input"> <span class="rg_text_inner">Пароль</span> <input id="credential_1" class="js_keydown_selector rg_input_text" data-js_submit="yes" data-js_action="js_loginFormBut" name="" type="password" onkeyup="showAttention(this,!!window.event.shiftKey)" /> <span class="pswd_attention" id="attention_pswd"> <span class="icon_attention"></span> <span class="pswd_attention-text" id="attention-text_pswd1">Русская раскладка клавиатуры!</span> <span class="pswd_attention-text" id="attention-text_pswd2">У вас включен Caps Lock!</span> <span class="pswd_attention-text" id="attention-text_pswd3">У вас включен Caps Lock и русская раскладка клавиатуры!</span> </span> </div> <div class="rg_for_input input-alien"> <span class="chk noPhones"><input id="chk_alien" name="" type="checkbox" /></span><label for="chk_alien" class="noPhones"> Чужой компьютер</label> <a class="forgot_pass" href="/member/totalrecall">Забыли пароль?</a> </div> <div class="rg_for_input"> <em id="auth_msg" class="reg_error"></em> <input id="lf_typeauthid" value="email" type="hidden"> <input type="submit" class="button button-red logreg_submit" id="js_loginFormBut" value="Войти">  <div class="loading loading-cover" style="display: none;"><div class="loader"></div></div> </div> {#/if} {#if $P.login_register_tab == 2} <div class="rg_for_input"> <span class="rg_text_inner">E-mail</span> <input id="arfemail" class="js_keydown_selector rg_input_text" name="" type="text" data-js_submit="yes" data-js_action="js_regFormBut"/> </div> <div class="rg_for_input rg_set_lineh rg_for_input_wide"> <label class="js_tap_panel_checkbox"> <span class="chk"><input name="" id='js_tap_panel_checkbox_terms' type="checkbox" data-js_submit="yes" /></span> Я ознакомился и согласен с <a class="link_txd logreg_accLink" href="/faq/vereinbarung.html">условиями сервиса Subscribe.ru</a> </label> <br /> <label class="js_tap_panel_checkbox"> <span class="chk"><input name="" id='js_tap_panel_checkbox_personal' type="checkbox" data-js_submit="yes" /></span> Нажимая на кнопку "Готово!", я даю <a class="link_txd logreg_accLink" href="/faq/persverordnung.html">согласие на обработку персональных данных</a> </label> </div> {* <div style="float: left;position: absolute;left: 11em;"> <img src="http://www.kupivip.ru/images/vip/logo.png?1604" style="width: 86px; vertical-align: middle;display: block;"> </div> <div class="rg_for_input rg_set_lineh"> <label class="js_tap_panel_checkbox"><input name="" id="js_tap_panel_checkbox_kupivip" type="checkbox" data-js_submit="yes"> Я хочу получать новости о скидках на одежду</label> </div> *} <div class="rg_for_input"> <em id="reg_msg" class="reg_error rg_for_input_wide"></em> <em id="reg_msg2" class="reg_error rg_for_input_wide"></em> <input id="rf_typeauthid" value="email" type="hidden"> <a class="button button-red logreg_submit" id="js_regFormBut" href="#">Готово!</a> <div class="loading loading-cover" style="display: none;"><div class="loader"></div></div> </div> {#/if} </div> {#/template js_tmpl_auth_reg_action} {#template js_tmpl_auth_reg_agree} <div class="rg_for_input rg_set_lineh rg_for_input_wide"> <label class="js_tap_panel_checkbox"> <span class="chk"><input name="" id='js_tap_panel_checkbox_terms_reg' type="checkbox" data-js_submit="yes" /></span> Я ознакомился и согласен с <a class="link_txd logreg_accLink" href="/faq/vereinbarung.html">условиями сервиса Subscribe.ru</a></label> <em id="reg_msg_soc" class="reg_error rg_for_input_wide"></em> </div> {#/template js_tmpl_auth_reg_agree} {#template js_tmpl_auth_reg_button} <div class="rg_butons_socials"> {#if $P.login_register_tab == 1} <a class="rg_btn_soc rg_bs_01 js_tap_panel_selector" action="auth_email" href="#"><span><i></i>Email</span></a> <a class="rg_btn_soc rg_bs_01 js_tap_panel_selector" action="auth_openid" href="#"><span><i></i>OpenID</span></a> <a class="rg_btn_soc rg_bs_02 js_tap_panel_selector" action="auth_vkontakte" href="#"><span><i></i>Вконтакте</span></a> <a class="rg_btn_soc rg_bs_02 js_tap_panel_selector" action="auth_mailru" href="#"><span><i></i>Mail.Ru</span></a> {#/if} {#if $P.login_register_tab == 2} <a class="rg_btn_soc rg_bs_01 js_tap_panel_selector" action="reg_email" href="#"><span><i></i>Email</span></a> <a class="rg_btn_soc rg_bs_01 js_tap_panel_selector" action="reg_openid" href="#"><span><i></i>OpenID</span></a> <a class="rg_btn_soc rg_bs_02 js_tap_panel_selector" action="reg_vkontakte" href="#"><span><i></i>Вконтакте</span></a> <a class="rg_btn_soc rg_bs_02 js_tap_panel_selector" action="reg_mailru" href="#"><span><i></i>Mail.Ru</span></a> {#/if} </div> {#/template js_tmpl_auth_reg_button} {#template js_tmpl_auth_reg_descr} {#if $P.login_register_tab == 1} Для оформления подписки на выбранную рассылку, работы с интересующей вас группой или доступа в нужный вам раздел, просим авторизоваться на Subscribe.ru {#/if} {#if $P.login_register_tab == 2} Для регистрации укажите ваш e-mail адрес. Адрес должен быть действующим, на него сразу после регистрации будет отправлено письмо с инструкциями и кодом подтверждения. {#/if} {#/template js_tmpl_auth_reg_descr} {#template js_tmpl_soc_auth_reg_descr} Или зарегистрируйтесь через социальную сеть. {#/template js_tmpl_soc_auth_reg_descr} {#template js_tmpl_auth_reg_soc} <div class="rg_soc"> {#if $P.login_register_tab == 1} <a onclick="return _checkSocConfirm(event)" href="https://oauth.vk.com/authorize?client_id=3954260&scope=wall,offline,photos,groups,video,audio,email&redirect_uri={location.protocol+'//'+location.host}/member/login/vk/&response_type=code&v=5.15" class="login_register_vk_button"> <span class="login_register_vk_icon"></span> </a> {#/if} {#if $P.login_register_tab == 2} <a onclick="return _checkSocConfirm(event)" href="https://oauth.vk.com/authorize?client_id=3954260&scope=wall,offline,photos,groups,video,audio,email&redirect_uri={location.protocol+'//'+location.host}/member/join/vk&response_type=code&v=5.15" class="login_register_vk_button"> <span class="login_register_vk_icon"></span> </a> {#/if} </div> {#/template js_tmpl_auth_reg_soc}

{#template MAIN} <div id="loginForm" style="display:none;" class="subscriberu_popup"> <div class="popup_register"> {#include js_tmpl_auth_reg_tab} <dl class="rg_block_options"> <dt id="js_tap_panel_auth"> <p class="rg_description">{#include js_tmpl_auth_reg_descr}</p> <div class="clr"> </div> {#include js_tmpl_auth_reg_action} <div class="clr"> </div> </dt> </dl> </div>  </div> {#/template MAIN} {#template js_tmpl_auth_reg_tab} <ul class="rg_nav"> <li id="js_tab_reg" class="rg_active_nav rg_first_nav"><a href="" onclick="return false;" >Регистрация</a></li> </ul> <span onclick="hidebo();" class="rg_closed"> </span> {#/template js_tmpl_auth_reg_tab} {#template js_tmpl_auth_reg_descr} <strong>Пожалуйста, подтвердите ваш адрес.</strong><br><br>Вам отправлено письмо для подтверждения вашего адреса {$P.register_confirm_mail}.<br>Для подтверждения адреса перейдите по ссылке из этого письма. {#/template js_tmpl_auth_reg_descr} {#template js_tmpl_auth_reg_action} <div class="rg_forms confirm_code_from_letter"> <div class="rg_for_input"> <span class="rg_inp_descr" style="width:15em;">Или введите код из письма:</span> <input type="text" value="" id="confirm_code" name="" data-js_submit="yes" data-js_action="js_confirmFormBut" class="js_keydown_selector rg_input_text_conf" > </div> <div class="rg_for_input"><label>Не пришло письмо? <b>Пожалуйста, проверьте папку Спам</b><br /> (папку для нежелательной почты).</label><br /> <a href="" onclick="ajax_recall_code();return false" >Вышлите мне письмо еще раз!</a></div> <div class="rg_for_input"> <em class="reg_error" id="confirm_msg"></em> <a href="#" class="button button-red" id="js_confirmFormBut">Готово</a> <div class="loading loading-cover" style="display: none;"><div class="loader"></div></div> <br> </div> </div> {#/template js_tmpl_auth_reg_action}