Рассылка закрыта

При закрытии подписчики были переданы в рассылку "RFpro.ru: Ассемблер? Это просто! Учимся программировать" на которую и рекомендуем вам подписаться.

Вы можете найти рассылки сходной тематики в Каталоге рассылок.

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

Автор

Калашников Олег

Статистика

7.862 подписчиков
-1 за неделю

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

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

RusFAQ.ru: программирование на языке Assembler

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

---

RusFAQ.ru: программирование на языке Assembler

Выпуск № 661
от 09.11.2003, 14:09

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

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

---

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

never_again Статус: Доверительный Общий рейтинг: 136.2 [Подробней >>]	Евгений Иванов Статус: Профессиональный Общий рейтинг: 142.43 URL: Super Assembler Software Телефон: НСС +7 831 3107039 [Подробней >>]	Bob Johnson Статус: Профессиональный Общий рейтинг: 149.2 URL: Программирование [Подробней >>]
Maverick Статус: Профессиональный Общий рейтинг: 122.83 URL: Эхоконференция по вирмейкингу Телефон: 89039415024 (BeeLine GSM) [Подробней >>]	PUSH Статус: Начальный Общий рейтинг: 106.74 [Подробней >>]	dr_dolphin Статус: Доверительный Общий рейтинг: 117.67 [Подробней >>]
_vt Статус: Профессиональный Общий рейтинг: 120.37 [Подробней >>]	Gibbel Статус: Профессиональный Общий рейтинг: 106.49 URL: Savage Metal Club - жизнь в стиле рок-н-ролл Телефон: +7 901 710 3146 [Подробней >>]	St Статус: Профессиональный Общий рейтинг: 105.95 [Подробней >>]
Artemy Статус: Начальный Общий рейтинг: 113.51 [Подробней >>]	ASMодей Статус: Профессиональный Общий рейтинг: 112.65 [Подробней >>]

---

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

Вопрос № 4421. Уважаемые Эксперты! Подскажите пожалуйста, как переключить видеостраницу, используя только регистры ... (ответов: 2)
Вопрос № 4422. Здравствйте. я начинающий программист на ассемблере, занимаюсь по рассылкам Калашникова Олега. Я дош... (ответов: 7)
Вопрос № 4423. Здравствуйте, уважаемые. Есть ли какая-нибудь функция (wininet или winsock), которая определяла бы с... (ответов: 3)
Вопрос № 4424. Доброго времени суток уважаемые эксперты. Возникло у меня несколько вопросов.. Можно наверное уперет... (ответов: 4)
Вопрос № 4425. Здравствуйте! 1)как работать с сом портом в вин хр какие винапи использовать. в 98 моя прога работае... (ответов: 3)
Вопрос № 4426. Доброго времени суток, эксперты! Как можно получить значение какой-либо системной переменной, наприм... (ответов: 4)
Вопрос № 4427. Здравствуйте эксперты! Мне нужно вывести точку в режиме 13h на языке Си. Помимо этого мне нужна проц... (ответов: 4)
Вопрос № 4428. У меня такая проблема. Программировал под Delphi и ТР7 LPT1 порт т.е. отпускал на выход 8 бит данных... (ответов: 2)
Вопрос № 4429. Вопрос немного не по теме рассылки. Есть ли подобная рассылка по Delphi с возможностью задавать вопр... (ответов: 2)
Вопрос № 4430. Уважаемые эксперты ! Вы не могли бы дать пример или хорошую документацию по работе с fat12. В интерн... (ответов: 1)
Вопрос № 4431. Привет всем! Может кто-нибудь дать пример, определяющий находится комп в онлайне или нет. Если можно... (ответов: 3)
Вопрос № 4432. ПРИВЕТ,пришлите,пожалуйста,программу: Ввести с клавиатуры массив z(5)в котором каждый элемент состо... (ответов: 2)
Вопрос № 4433. Доброго времени суток. Уважаемые господа эксперты. При установке какого либо видеорежима стандартным... (ответов: 3)

---

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

---

Вопрос № 4421

Уважаемые Эксперты!
Подскажите пожалуйста, как переключить видеостраницу, используя только регистры контроллера CRT?
Спасибо!

---

Вопрос отправлен: 04.11.2003, 01:20
Отправитель: equalizer
[Следующий вопрос >>] [Список вопросов]

---

Отвечает never_again

Здравствуйте, equalizer!
почитай Зубкова.

---

Ответ отправлен: 04.11.2003, 11:06
Отправитель: never_again

---

Отвечает Евгений Иванов

Доброе время суток, equalizer!
http://superforest.narod.ru/research_computer2tv.htm
proc get_port_data
mov dx,3D4h
mov al,0Ch
call port_read_w
mov bh,ah
mov al,0Dh
call port_read_w
mov bl,ah
mov ax,bx
mov cx,wptr [cs:sch2] ;#E
ret
endp
proc set_port_data
mov dx,3D4h
mov bl,al
mov al,0Ch
out dx,ax
inc ax
mov ah,bl
out dx,ax
ret
endp
up_up: ;=4d
pusha
call get_port_data
mov bx,80*12
cmp ch,13
jnc m84d
mov bx,80
m84d:
cmp ch,159
jnz m94d
mov bx,200
m94d:
sub ax,bx
jc top_up
ret_all_move:
mov wptr [cs:data_scroll-2],ax
call set_port_data
ret_up_up:
popa
test bptr [cs:sch2],4
jnz m90i92
ret
m90i92:
pop ax
jmp m90i9
top_up:
sub ax,ax
jmp ret_all_move
down_down:
pusha
call get_port_data
mov bx,80*12
cmp ch,13
jnc m154d
mov bx,80
m154d:
cmp ch,159
jnz m164d
mov bx,200
m164d:
add ax,bx
jnc ret_all_move
ret_up_up3:
jmp ret_up_up
up_up_speed:
pusha
call get_port_data
mov bx,80*64
test cl,4
jz m174d2
mov bx,80*14
m174d2:
cmp ch,156
jc m174d3
mov bx,80*28
m174d3:
cmp ch,159
jnz sfera1
mov bx,100*28
sfera1:
cmp ch,13
jnc m174d
mov bx,80*4
test cl,4
jz m174d
mov bx,80*2
m174d:
sub ax,bx
jnc ret_all_move3
top_up2:
jmp top_up
ret_all_move3:
jmp ret_all_move
down_down_speed:
pusha
call get_port_data
mov bx,80*64
test cl,4
jz m254d2
mov bx,80*14
m254d2:
cmp ch,156
jc m254d3
mov bx,80*28
m254d3:
cmp ch,159
jnz sfera2
mov bx,100*28
sfera2:
cmp ch,13
jnc m254d
mov bx,80*4
test cl,4
jz m254d
mov bx,80*2
m254d:
add ax,bx
jnc ret_all_move3
ret_up_up2:
jmp ret_up_up3
left_left:
pusha
call get_port_data
sub ax,1
jnc ret_all_move2
top_up3:
jmp top_up2
right_right:
pusha
call get_port_data
inc ax
jz ret_up_up2
ret_all_move2:
jmp ret_all_move3
left_left_speed:
pusha
call get_port_data
mov bx,10
cmp ch,156
jc m294d
mov bx,40
m294d:
cmp ch,159
jnz sfera3
mov bx,50
sfera3:
sub ax,bx
jc top_up3
jmp ret_all_move2
right_right_speed:
pusha
call get_port_data
mov bx,10
cmp ch,156
jc m394d
mov bx,40
m394d:
cmp ch,159
jnz sfera4
mov bx,50
sfera4:
add ax,bx
jc ret_up_up2
jmp ret_all_move2

* EMan: -=- Любовь существует! =-=

---

Ответ отправлен: 04.11.2003, 11:09
Отправитель: Евгений Иванов

---

Вопрос № 4422

Здравствйте.
я начинающий программист на ассемблере, занимаюсь по рассылкам Калашникова Олега. Я дошёл до цикла (loop). Написал (точнее списал с рассылки) прогу прокомпилировал, а компилятор и говорит, что ,мол, у меня не легальная инструкция. Скорее всего он имеет в виду loop, т.к. без цикла всё идёт. У меня четвёртый пентиум, стоит винд ХР.
Может эта инструкция не поддерживается пентиумом??? (хотя мне должна)
Помогите, пожалуйста, товарищи эксперты, у меня обучение на ассемблере из-зи этого стоит.
До свидания.

---

Вопрос отправлен: 04.11.2003, 07:51
Отправитель: Alexander_B
[Следующий вопрос >>] [Список вопросов]

---

Отвечает Bob Johnson

Здравствуйте, Alexander_B!
Версия виндов или пентиума тут значения не имеет. Проверь свою прогу, может ты русскими буквами что-то написал... Еще вначало поставь .386, хотя это не должно влиять.

* EMan1.5: ---===*** The game we play ***===---

---

Ответ отправлен: 05.11.2003, 21:20
Отправитель: Bob Johnson

---

Отвечает Евгений Иванов

Здравствуйте, Alexander_B!
:-)
Применяй:
dec ecx
jnz @@m1
:-)
Чао!
(Дело конечно, не в loop ...:-)

* EMan: -=- Любовь существует! =-=

---

Ответ отправлен: 04.11.2003, 11:21
Отправитель: Евгений Иванов

---

Отвечает never_again

Добрый день, Alexander_B!
всё твой пень 4 поддерживает, не волнуйся. ты б лучше код прицепил, а то так можно всю жизнь гадать чего он орёт на
illigal instruction.

---

Ответ отправлен: 04.11.2003, 11:04
Отправитель: never_again

---

Отвечает Maverick

Доброе время суток, Alexander_B!
Хм, т.е. как так не поддерживается? Все должно работать, давай код.

---

Ответ отправлен: 05.11.2003, 13:27
Отправитель: Maverick

---

Отвечает PUSH

Доброе время суток, Alexander_B!loop pentium поддерживает естесно.После инструкции loop должна следовать метка и этa
метка должна быть в программе:
met_1:
..........
..........
loop met_1
Компилятор должен еще саказать и номер
строки,в которой произошла ошибка,посмотрите,может просто неправильно записано
что либо (в EDIT.COM удобно смотреть номера строк)

---

Ответ отправлен: 05.11.2003, 05:26
Отправитель: PUSH

---

Отвечает dr_dolphin

Здравствуйте, Alexander_B!
Я бы помог с удовольствием, но для этого мне нужен текст программы. В будущем присылайте вопросы такого типа с текстом программы !!!
Пока !

---

Ответ отправлен: 05.11.2003, 07:21
Отправитель: dr_dolphin

---

Отвечает _vt

Добрый день, Alexander_B!
Скорее всего, вы где-то опечатались... Возможно, некорректно выходите из программы (не хватает ret ), в любом случае все программы оттуда работают... Привели бы кусок кода, что ли...

*** E-Man - can help you***

---

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

---

Вопрос № 4423

Здравствуйте, уважаемые.
Есть ли какая-нибудь функция (wininet или winsock), которая определяла бы соединен ли сейчас комп с инетом или нет? Только чтобы окошко с соединением не вылазило
Спасибо

---

Вопрос отправлен: 04.11.2003, 10:35
Отправитель: Faraon (faraon@hotmail.kz)
[Следующий вопрос >>] [Список вопросов]

---

Отвечает Gibbel

Здравствуйте, Faraon!
Вообще-то не совсем корректный вопрос...
Советую почитать эту статью.

---

Ответ отправлен: 04.11.2003, 12:40
Отправитель: Gibbel

---

Отвечает Bob Johnson

Добрый день, Faraon!
См. ответ на вопрос 4431 (http://rusfaq.ru/cgi-bin/info.cgi?Action=GetQuestion&ID=2947637.16942729 до выхода рассылки).

* EMan1.5: ---===*** The game we play ***===---

---

Ответ отправлен: 05.11.2003, 21:21
Отправитель: Bob Johnson

---

Отвечает dr_dolphin

Здравствуйте, Faraon!
Да конечно есть это rasGetConnectStatus.

Пока !

---

Ответ отправлен: 05.11.2003, 07:22
Отправитель: dr_dolphin

---

Вопрос № 4424

Доброго времени суток уважаемые эксперты.
Возникло у меня несколько вопросов.. Можно наверное упереться и попытаться самому дойти,
но я не мазахист, да и вы тут для того и собрались чтобы всякие вопросы разрешать..
Ближе к делу.
В приложенном коде создается рабочий тред который должен 9000 раз добавлять к eax еденичку.
По окончании выполненной работы он посылает окну сообщения WM_FINISH и WM_PAINT.
В ответ на WM_FINISH выдается сообщение о том, что вычисления закончены. А в ответ
на WM_PAINT должна рисоваться строка Stri (Но не рисуется!! гадина.. :( ). Это первый вопрос.
Второй: Когда тред посылает WM_FINISH то приходится вставлять проверку что это сообщение
послано именно тредом (иначе оно выскакивает при загрузки основного окна.. :(.
(Ума не приложу откуда оно в начале берется? Я ж его не посылаю! От сырости что-ли завелось? :) )).
Кроме того был бы признателен если бы кто подсказал как Русские буковки рисовать..
У меня аброкадабра какая-то получается.
И еще вопрос: Как преобразовать значение регистра в строку символов чтобы их нарисовать..
(Знаю, что в рассылке этот вопрос уже был, но в явном виде я его найти не смог.. :( ).
И еще для общего развития. Вот мы рисуем какую-нибудь бяку в окне когда прходит WM_PAINT.
И потом нам уже не надо перерисовывать то что мы нарисовали? Или окно постоянно обновляется
и WM_PAINT приходит постоянно? Или если не постоянно то в каких случаях? Ну когда происходит
загрузка окна или обновление это понятно, а еще есть что-нибудь?
Спасибо.
Ramala.

Приложение:
.386 .model flat,stdcall option casemap:none WinMain proto :DWORD,:DWORD,:DWORD,:DWORD include masm32includewindows.inc include masm32includeuser32.inc include masm32includekernel32.inc include masm32includegdi32.inc includelib masm32libuser32.lib includelib masm32libkernel32.lib includelib masm32libgdi32.lib RGB macro red,green,blue xor eax,eax mov ah,blue shl eax,8 mov ah,green mov al,red endm .data ClassName db "SimpleWinClass",0 AppName db "Our First Window",0 MenuName db "FirstMenu",0 ButtonText db "Начать!",0 ButtonClassName db "button",0 OurText db "Проверка печати в окне",0 TestString db "Colichestvo variantov:",0 FontName db "Roman",0 StopText db "Остановить",0 SuccessString db "Вычисление выполнено!",0 Stri db "11111111111111111",0 .data? hInstance HINSTANCE ? CommandLine LPSTR ? hwndButton HWND ? hwnd HWND ? hwndStop HWND ? ThreadID DWORD ? .const WM_FINISH equ WM_USER+100h ButtonID equ 1 StopID equ 2 .code start: invoke GetModuleHandle, NULL mov hInstance,eax invoke GetCommandLine invoke WinMain, hInstance,NULL,CommandLine, SW_SHOWDEFAULT invoke ExitProcess,eax WinMain proc hInst:HINSTANCE,hPrevInst:HINSTANCE,CmdLine:LPSTR,CmdShow:DWORD LOCAL wc:WNDCLASSEX LOCAL msg:MSG mov wc.cbSize,SIZEOF WNDCLASSEX mov wc.style, CS_HREDRAW or CS_VREDRAW mov wc.lpfnWndProc, OFFSET WndProc mov wc.cbClsExtra,NULL mov wc.cbWndExtra,NULL push hInst pop wc.hInstance mov wc.hbrBackground,9 mov wc.lpszMenuName,offset MenuName mov wc.lpszClassName,OFFSET ClassName invoke LoadIcon,NULL,IDI_APPLICATION mov wc.hIcon,eax mov wc.hIconSm,eax invoke LoadCursor,NULL,IDC_ARROW mov wc.hCursor,eax invoke RegisterClassEx, addr wc INVOKE CreateWindowEx,WS_EX_CLIENTEDGE,ADDR ClassName,ADDR AppName, WS_OVERLAPPEDWINDOW,CW_USEDEFAULT, CW_USEDEFAULT,600,400,NULL,NULL, hInst,NULL mov hwnd,eax INVOKE ShowWindow, hwnd,SW_SHOWNORMAL INVOKE UpdateWindow, hwnd message_loop: INVOKE GetMessage, addr msg,NULL,NULL,NULL test eax,eax jz exit INVOKE TranslateMessage, ADDR msg INVOKE DispatchMessage, ADDR msg jmp message_loop exit: push msg.wParam call ExitProcess WinMain endp ;****************************Процедура Окна ******************************** WndProc proc hWnd:HWND, uMsg:UINT, wParam:WPARAM, lParam:LPARAM LOCAL hdc:HDC LOCAL ps:PAINTSTRUCT LOCAL hfont:HFONT cmp uMsg,WM_DESTROY je destroy ;****************************Обоаботка сообщений ******************************** cmp uMsg,WM_CREATE je create cmp uMsg,WM_COMMAND je command cmp uMsg,WM_PAINT je paint cmp uMsg,WM_FINISH je complete ;****************************Конец Обработки ******************************** invoke DefWindowProc,hWnd,uMsg,wParam,lParam jmp finish ;**********************Метки Обработки сообщений ******************************** destroy: invoke PostQuitMessage,NULL create: invoke CreateWindowEx,NULL, ADDR ButtonClassName,ADDR ButtonText, WS_CHILD or WS_VISIBLE or BS_DEFPUSHBUTTON, 200 ,200,140,25,hWnd,ButtonID,hInstance,NULL mov hwndButton,eax invoke CreateWindowEx,NULL, ADDR ButtonClassName,ADDR StopText, WS_CHILD or WS_VISIBLE or BS_DEFPUSHBUTTON, 200 ,225,140,25,hWnd,StopID,hInstance,NULL mov hwndStop,eax command: mov eax,wParam xor edx,edx cmp lParam,edx jne button jmp N11 button: cmp ax,ButtonID je button1 jmp N1 button1: shr eax,16 cmp ax,BN_CLICKED je clicked clicked: mov eax,OFFSET ThreadProc invoke CreateThread,NULL,NULL,eax,0,0, ADDR ThreadID invoke CloseHandle,eax N1: shr eax,16 cmp ax,BN_CLICKED je stop stop: N11: paint: xor eax,eax mov eax,333 cmp eax,lParam jnz A invoke BeginPaint,hWnd, ADDR ps mov hdc,eax invoke CreateFont,0,14,0,0,400,0,0,0,DEFAULT_CHARSET, OUT_OUTLINE_PRECIS , CLIP_DEFAULT_PRECIS, DEFAULT_QUALITY, DEFAULT_PITCH, ADDR FontName invoke SelectObject, hdc, eax mov hfont,eax RGB 255,255,255 invoke SetTextColor,hdc,eax RGB 0,0,0 invoke SetBkColor,hdc,eax invoke TextOut,hdc,300,10,ADDR Stri,SIZEOF Stri invoke SelectObject,hdc, hfont invoke EndPaint,hWnd, ADDR ps A: invoke BeginPaint,hWnd, ADDR ps mov hdc,eax invoke CreateFont,0,14,0,0,400,0,0,0,DEFAULT_CHARSET, OUT_OUTLINE_PRECIS , CLIP_DEFAULT_PRECIS, DEFAULT_QUALITY, DEFAULT_PITCH, ADDR FontName invoke SelectObject, hdc, eax mov hfont,eax RGB 255,255,255 invoke SetTextColor,hdc,eax RGB 0,0,0 invoke SetBkColor,hdc,eax invoke TextOut,hdc,5,10,ADDR TestString,SIZEOF TestString invoke SelectObject,hdc, hfont invoke EndPaint,hWnd, ADDR ps complete: mov eax,222 cmp eax,lParam jne N3 invoke MessageBox,NULL,ADDR SuccessString,ADDR AppName,MB_OK N3: finish: ret WndProc endp ThreadProc PROC USES ecx Param:DWORD mov ecx,9000 xor eax,eax Loop1: add eax,1 dec ecx jz Get_out jmp Loop1 Get_out: invoke PostMessage,hwnd,WM_PAINT,NULL,333 invoke PostMessage,hwnd,WM_FINISH,NULL,222 ret ThreadProc ENDP end start

---

Вопрос отправлен: 04.11.2003, 13:39
Отправитель: Ramala (Ramala@hotmail.ru)
[Следующий вопрос >>] [Список вопросов]

---

Отвечает St

Привет, Ramala!
Я попытался понять что в вашей программе не так, почему не выводится одна надпись, хотя выводится другая, но не понял. Но заметил, что вы после обработки сообщений не перескакиваете на метку finish, а продолжаете выполнять код отвечающий за обработку других сообщений, может быть в этом и состоит проблема?
Насчет WM_PAINT - окно надо перерисовывать самому каждый раз когда приходит это сообщение, ведь оно посылается не только когда надо нарисовать что-то самому, это можно сделать и в любом другом месте программы (GetDC-ReleaseDC), но и например когда окно было скрыто под другим и появилось из-под него, тогда WM_PAINT посылается виндами и окно надо перерисовать полностью.
St

---

Ответ отправлен: 05.11.2003, 12:49
Отправитель: St

---

Отвечает Евгений Иванов

Доброе время суток, Ramala!
Надо перерисовывать по WM_PAINT! Всегда (кроме прокрутки и сдвига окна - это просто видеопамять копируется для убыстрения)! Поэтому рисуй в совместимом DC и при wm_paint выводи!
Бывай!

* EMan: -=- Любовь существует! =-=

---

Ответ отправлен: 04.11.2003, 13:55
Отправитель: Евгений Иванов

---

Отвечает never_again

Добрый день, Ramala!
>> Как преобразовать значение регистра в строку символов
>> чтобы их нарисовать..
P.S. макросы apush и apop просто пушают или попают (нравится мне это слово!:) ) всё, что прописано между < и >

Приложение:
;-----------------TURNS THE HEXDECIMAL NUMBER STORED IN AX TO STRING ; ax = hex number to print ; ax is not affected hex_to_string proc apush <eax,ebx,ecx,edx,ebp> mov ebp,esp mov ecx,10 ; number of posible decemal digits in number ; stored in eax mov ebx,0 to_zero: mov byte ptr hex_to_string_buf[ebx],0 inc ebx loop to_zero mov ebx,10 ; decimal base to_loop: xor edx,edx div ebx push edx cmp eax,0 jnz to_loop mov ebx,0 to_prt: pop edx cmp dl,0 or dl,30h mov hex_to_string_buf[bx],dl inc ebx cmp ebp,esp jnz to_prt apop <ebp,edx,ecx,ebx,eax> ret ; no need to remember variables the procedure needs :))) .data? hex_to_string_buf db 10 dup(?) .code hex_to_string endp ;-----------------END HEX TO STRING

---

Ответ отправлен: 04.11.2003, 19:01
Отправитель: never_again

---

Отвечает Artemy

Здравствуйте, Ramala!
; --------- cut ---------
paint:
xor eax,eax
mov eax,333
cmp eax,lParam
jnz A
; --------- end ---------
это вообще чо такое? :-[ ]
Есть два варианта:
1. Поменять MOV на AND.
2. Удалить строку с XOR и поменять JNZ на JE

---

Ответ отправлен: 05.11.2003, 13:35
Отправитель: Artemy

---

Вопрос № 4425

Здравствуйте!
1)как работать с сом портом в вин хр какие винапи использовать.
в 98 моя прога работает.
2)как написать простой драйвер (запись в сом порт и чтение из него) в линуксе...
буду благодарен за любую информацию

---

Вопрос отправлен: 04.11.2003, 14:25
Отправитель: zag (charizmar@rambler.ru)
[Следующий вопрос >>] [Список вопросов]

---

Отвечает Bob Johnson

Здравствуйте, zag!
1. Через CreateFile, ReadFile и WriteFile.

* EMan1.5: ---===*** The game we play ***===---

---

Ответ отправлен: 05.11.2003, 21:22
Отправитель: Bob Johnson

---

Отвечает dr_dolphin

Доброе время суток, zag!
OpenFile, CloseHandle,ReadFile, WriteFile

Пока !

---

Ответ отправлен: 05.11.2003, 07:25
Отправитель: dr_dolphin

---

Отвечает Евгений Иванов

Здравствуйте, zag!
CreateFile.

* EMan: -=- Любовь существует! =-=

---

Ответ отправлен: 05.11.2003, 00:16
Отправитель: Евгений Иванов

---

Вопрос № 4426

Доброго времени суток, эксперты!
Как можно получить значение какой-либо системной переменной, например, PATH или COMSPEC?
Заранее спасибо!

---

Вопрос отправлен: 04.11.2003, 17:03
Отправитель: AlX1024
[Следующий вопрос >>] [Список вопросов]

---

Отвечает Bob Johnson

Доброе время суток, AlX1024!
GetEnvironmentVariable.

* EMan1.5: ---===*** The game we play ***===---

---

Ответ отправлен: 05.11.2003, 21:23
Отправитель: Bob Johnson

---

Отвечает Artemy

Добрый день, AlX1024!
Для вин32 используй ф-цию API:
GetEnvVariableValue

---

Ответ отправлен: 05.11.2003, 14:03
Отправитель: Artemy

---

Отвечает dr_dolphin

Приветствую Вас, AlX1024!
Воспользуйся WinAPI:
GetEnviromentStrings, GetEnviromentVariable
До встречи...

---

Ответ отправлен: 05.11.2003, 07:27
Отправитель: dr_dolphin

---

Отвечает Евгений Иванов

Добрый день, AlX1024!
The GetEnvironmentVariable function retrieves the value of the specified variable from the environment block of the calling process. The value is in the form of a null-terminated string of characters.
DWORD GetEnvironmentVariable(
LPCTSTR lpName, // address of environment variable name
LPTSTR lpBuffer, // address of buffer for variable value
DWORD nSize // size of buffer, in characters
);
Parameters
lpName
Points to a null-terminated string that specifies the environment variable.
lpBuffer
Points to a buffer to receive the value of the specified environment variable.
nSize
Specifies the size, in characters, of the buffer pointed to by the lpBuffer parameter.

* EMan: -=- Любовь существует! =-=

---

Ответ отправлен: 05.11.2003, 00:17
Отправитель: Евгений Иванов

---

Вопрос № 4427

Здравствуйте эксперты!
Мне нужно вывести точку в режиме 13h на языке Си.
Помимо этого мне нужна процедура рисования прямой на Си.
---
Где можно дастать библиотеку с этими функциями? Можно написать самому, но так лень в ручную все это делать:)
---
Использую visual C++ 6.0

---

Вопрос отправлен: 04.11.2003, 17:19
Отправитель: kuper (kuper@hotbox.ru)
[Следующий вопрос >>] [Список вопросов]

---

Отвечает Artemy

Доброе время суток, kuper!
> Мне нужно вывести точку в режиме 13h на языке Си
Я бы сделал так примерно так:
void Pset( int x, int y, char color)
{
asm { mov ax,0xA000;
push ax;
pop es;
mov ax,y;
xor dx,dx;
mov bx,320;
mul bx;
add ax,x;
mov bx,ax;
mov es:[bx],color;}
}
а насчет остального... чем тебя bgi сервис не устраивает?

---

Ответ отправлен: 04.11.2003, 17:37
Отправитель: Artemy

---

Отвечает never_again

Приветствую Вас, kuper!
переключаешься в режим 13Н и переносишь es на 0а000h
в di кладёшь точку (320*у+х)
точку выводишь командой stosb

---

Ответ отправлен: 04.11.2003, 18:50
Отправитель: never_again

---

Отвечает Евгений Иванов

Приветствую Вас, kuper!
Вот рисовка линии - изменить для 256 цветов проще простого!
(А это для 16-цветных режимов - из моей игры Калах)...
Ну а точку то вообще просто - умножай координату Y на 320, потом
прибавляй X.
Удачи!
;IN->w[KX],w[KY]-первая точка; CX,DX-вторая точка; b[INK]-цвет;
proc Line ;=l1 =======================================
pusha
mov bx,101h
mov ax,cx
sub ax,wptr [bp+KX-dat]
jnc m10l1
mov bh,-1
neg ax
m10l1:
mov cx,ax
push dx
mov dx,3CEh
mov ax,205h
out dx,ax
pop ax
sub ax,wptr [bp+KY-dat]
jnc m20l1
mov bl,-1
neg ax
m20l1:
mov dx,ax
line_all:
mov wptr [bp+Zip1-dat],bx
cmp cx,dx
jnc m25l1
mov di,cx
sub bh,bh
jmp m30l1
m25l1:
or cx,cx
jz m90l1
mov di,dx
mov dx,cx
sub bl,bl
m30l1:
mov si,dx
mov ax,dx
shr ax,1
m33l1:
add ax,di
jc m35l1
cmp ax,si
jc m37l1
m35l1:
sub ax,si
mov cx,ax
push cx dx
mov cx,wptr [bp+Zip1-dat]
jmp m40l1
m37l1:
mov cx,ax
push cx dx bx
pop cx
m40l1:
movsx dx,cl
movsx cx,ch
add dx,wptr [bp+KY-dat]
add cx,wptr [bp+KX-dat]
mov wptr [bp+KX-dat],cx
mov wptr [bp+KY-dat],dx
push bx ;Рисуем точку
mov bx,cx
shr bx,3
imul ax,dx,Xmax/8
add bx,ax
mov al,[es:bx]
mov dx,3CEh
and cl,7
mov ax,8008h
shr ah,cl
out dx,ax
mov cl,bptr [bp+INK-dat]
mov [es:bx],cl
pop bx ;
pop dx cx
mov ax,cx
dec dx
jnz m33l1
m90l1:
mov dx,3CEh
mov ax,0FF08h
out dx,ax
jcxz $+2
mov ax,5
out dx,ax
popa
ret
endp
;IN -> w[KX],w[KY]-первая точка;
;CX,DX-смещение знаковое до 2 точки; b[INK]-цвет;
proc LineTo ;=l2 =======================================
pusha
mov bx,101h
cmp cx,0
jnl m10l2
mov bh,-1
neg cx
m10l2:
cmp dx,0
jnl m20l2
mov bl,-1
neg dx
m20l2:
jmp line_all
endp

* EMan: -=- Любовь существует! =-=

---

Ответ отправлен: 05.11.2003, 00:18
Отправитель: Евгений Иванов

---

Отвечает Bob Johnson

Приветствую Вас, kuper!
А как ты на VC пишешь программы под дос?

* EMan1.5: ---===*** The game we play ***===---

---

Ответ отправлен: 05.11.2003, 21:24
Отправитель: Bob Johnson

---

Вопрос № 4428

У меня такая проблема.
Программировал под Delphi и ТР7 LPT1 порт т.е. отпускал на выход 8 бит данных получал 4бита
Понадобилось более на шине ISA собрал схемку 16 бит на 16
теперь понадобился АЦП
Можно конечно примостить но это громоздко и много времени на отладку

Просьба:

Хотелось бы использовать АЦП звуковой карточки
если можете пришлите что куда и зачем

---

Вопрос отправлен: 04.11.2003, 18:00
Отправитель: Сергей
[Следующий вопрос >>] [Список вопросов]

---

Отвечает Евгений Иванов

Доброе время суток, Сергей!
Используй BASS.DLL
BASS is a sound system for use in Win32 (9x/ME/2K/XP) software. It's
purpose is to provide powerful (yet easy to use) sample, stream, MOD
music, audio CD and recording functions.
The latest version of BASS can always be found at the BASS website:
http://www.un4seen.com/
Бывай!

* EMan: -=- Любовь существует! =-=

---

Ответ отправлен: 05.11.2003, 00:19
Отправитель: Евгений Иванов

---

Отвечает Bob Johnson

Доброе время суток, Сергей!
Под винды - используй directsound, конкретно - IDirectSoundCapture.

* EMan1.5: ---===*** The game we play ***===---

---

Ответ отправлен: 05.11.2003, 21:24
Отправитель: Bob Johnson

---

Вопрос № 4429

Вопрос немного не по теме рассылки. Есть ли подобная рассылка по Delphi с возможностью задавать вопросы и получать ответы. Конкретно хочется узнать как форматировать текст в компоненте Stringgrid и как получить ширину произвольного столбца. Заранее благодарен, может кто-то из универсальных программистов ответит.

---

Вопрос отправлен: 04.11.2003, 20:02
Отправитель: Сычев Юрий (ywizard@yandex.ru)
[Следующий вопрос >>] [Список вопросов]

---

Отвечает ASMодей

Доброе время суток, Сычев Юрий!
Ширину столбца можно получить из свойства ColWidths[index], а вот форматирование похоже можно изменить только при прорисовке текста StringGrid'а (это можно сделать при обработке сообщения OnDrawCell). А вообще для дельфи на RusFAQ.ru есть своя рассылка.

---

Ответ отправлен: 05.11.2003, 08:03
Отправитель: ASMодей

---

Отвечает Евгений Иванов

Добрый день, Сычев Юрий!
LVM_GETCOLUMNWIDTH
wParam = (WPARAM) (int) iCol;
lParam = 0;

// Corresponding macro
int ListView_GetColumnWidth(HWND hwnd, int iCol);

The LVM_GETCOLUMNWIDTH message retrieves the width of a column in report or list view. You can send this message explicitly or by using the ListView_GetColumnWidth macro.
Parameters
hwnd
Handle to the list view control.
iCol
Index of the column. This parameter is ignored in list view.
Return Value
Returns the column width if successful or zero otherwise.

* EMan: -=- Любовь существует! =-=

---

Ответ отправлен: 05.11.2003, 00:20
Отправитель: Евгений Иванов

---

Вопрос № 4430

Уважаемые эксперты !
Вы не могли бы дать пример или хорошую документацию по работе с fat12.
В интернете я стоящего почти не нашел :(
Заранее благодарен.

---

Вопрос отправлен: 04.11.2003, 22:46
Отправитель: Дмитрий (leg_@rambler.ru)
[Следующий вопрос >>] [Список вопросов]

---

Отвечает never_again

Приветствую Вас, Дмитрий!
да кажись такая же работа. только файлов поменьше влазит 2^12 всего...

---

Ответ отправлен: 05.11.2003, 00:56
Отправитель: never_again

---

Вопрос № 4431

Привет всем! Может кто-нибудь дать пример, определяющий находится комп в онлайне или нет. Если можно то с кодом... Заранее спасибо!

---

Вопрос отправлен: 04.11.2003, 23:34
Отправитель: Neo
[Следующий вопрос >>] [Список вопросов]

---

Отвечает Gibbel

Доброе время суток, Neo!
Попробуй подключиться к какому-либо серверу. Если не получается, значит в offline.

---

Ответ отправлен: 05.11.2003, 12:42
Отправитель: Gibbel

---

Отвечает never_again

Доброе время суток, Neo!
очень просто! кликни на Internet Explorer и если страница загрузилась значит комп on-line

---

Ответ отправлен: 05.11.2003, 00:51
Отправитель: never_again

---

Отвечает Bob Johnson

Добрый день, Neo!
Если ты ориентируешься на dial-up подключение (т.е. не по ЛС), то можно вызывать функцию RasEnumConnections, которая вернет все активные в данный момент соединения. Если же нужен именно контроль наличия интернета на компьютере независимо от типа подключения, то можно пробовать соединяться с каким-либо заранее известным адресом, типа microsoft.com. Вообще-то я давно видел в msdn что-то подобное, но не помню сейчас.

* EMan1.5: ---===*** The game we play ***===---

---

Ответ отправлен: 05.11.2003, 21:25
Отправитель: Bob Johnson

---

Вопрос № 4432

ПРИВЕТ,пришлите,пожалуйста,программу:
Ввести с клавиатуры массив z(5)в котором каждый элемент состоит из двух символов.В каждом елементе округлить биты под четным номером и вывести двойное изображение на экран.

---

Вопрос отправлен: 05.11.2003, 12:46
Отправитель: АРЗУ РАГИМОВА (PLUTONKA@list.ru)
[Следующий вопрос >>] [Список вопросов]

---

Отвечает Artemy

Приветствую Вас, АРЗУ РАГИМОВА!
Разъясни плз, что значит округлить биты
и что такое двойное изображение :)

---

Ответ отправлен: 05.11.2003, 13:39
Отправитель: Artemy

---

Отвечает never_again

Доброе время суток, АРЗУ РАГИМОВА!
Девушка, милая. Вы ведь этот вопрос уже задавали...

>> Ввести с клавиатуры массив z(5)в котором каждый элемент >> состоит из двух символов.
Ass equ 5 ; array 'super' size
.model small
.stack 100h
.data
z dw Ass dup (?)
.code
assume ds:@data
start:
push @data
pop ds
pop es

mov di,offset z
mov cx,Ass
shl cx,1 ; becouse of word
L:
mov ah,01h
int 21h ; get ASCII
stosb ; put to array
int 21h ; get ASCII
stosb ; put to array
loop L
mov ah,4ch ; exit to dos
int 21h
end start
>> В каждом елементе округлить биты под четным номером
Ещё раз спрашиваю, солнышко, что вы подрозумеваете под округлением битов - замена на противоположный, обнуление или установка в 1 ?
>> вывести двойное изображение на экран
опять же, что вы имеете в виду? Если вывод на экран содержимого массива в двоичном коде, то как - побайтово, пословно или весь массив подряд?
Вот подпрограмма выводящая на экран 1 байт в двоичном коде:
; al = byte to print
print_bin_byte proc
mov cx,8
mov ah,02h ; print symbol
pbb_L:
xor dl,dl ;
shl al,1 ; put a msb to carry
adc dl,0 ; get a msb from carry
or dl,30h ; turn it to ASCII
int 21h ; print symbol
loop pbb_l
ret
print_bin_byte endp
Удачи, лапочка.

---

Ответ отправлен: 05.11.2003, 23:30
Отправитель: never_again

---

Вопрос № 4433

Доброго времени суток.
Уважаемые господа эксперты.
При установке какого либо видеорежима стандартными функциями BIOS (int 10h) происходит сброс системы и компьютер перезагружается.
В свое время нашел в сети исходник, где перед установкой видеорежима производятся какие-то манипуляции со стеком (если не изменяет память), и в частности с регистрами BP и SP.
При использовании этого куска в своей программе вышеуказанная ошибка не возникала.
Но связи с некоторыми обстоятельствами драгоценный код был утерян (format c: и т.д.:)), а его назначение так и не понял, но без него программа не идет (см. выше).
Не могли бы вы привести пример такого кода с хотя бы скупыми комментариями, что и для чего.
Заранее спасибо.

---

Вопрос отправлен: 05.11.2003, 12:55
Отправитель: Сергей (intro@nikol.ru)
[Следующий вопрос >>] [Список вопросов]

---

Отвечает Artemy

Доброе время суток, Сергей!
Странно, у меня никогда таких проблем не было.
1. Посмотри какие резидентные программы висят на
int 10h и не грузи их.
2. Проверься на вирусы.
3. Попробуй:
push bp
mov bp,sp
...
но это скорее всего не поможет. Это вставляет С++
при входе в процедуру для извлечения передаваемых
параметров из стека.
Да... было бы неплохо посмотреть исходник.

---

Ответ отправлен: 05.11.2003, 13:55
Отправитель: Artemy

---

Отвечает Евгений Иванов

Здравствуйте, Сергей!
Всё должно работать!
Дело не в стеке и не в регистре BP.
Хотя регистр BP меняется многими функциями BIOS, так что будь осторожен!
Бывай!

* EMan: -=- Любовь существует! =-=

---

Ответ отправлен: 05.11.2003, 17:46
Отправитель: Евгений Иванов

---

Отвечает Bob Johnson

Добрый день, Сергей!
Такого быть не должно. Видеорежим меняется обычно так:
mov ax, 03
int 10h
mov ax, 4c00h
int 21h
при этом второй инт - это завершение программы. Если это у тебя будет глючить, то попробуй загрузиться в чистом досе (возможно какая-то левая резидентная программа перехватила 10-е прерывание и она уже глючит).

* EMan1.5: ---===*** The game we play ***===---

---

Ответ отправлен: 05.11.2003, 21:26
Отправитель: Bob Johnson

---

---

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

Внимание!
Мы рекомендуем открывать рассылку в программе Internet Explorer 5.0+ или отправлять вопросы с сайта по адресу: http://rusfaq.ru/cgi-bin/Message.cgi.

(C) 2002-2003 Команда RusFAQ.ru.

---

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

Ваше имя:

Ваш e-mail:

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

---

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

Ваш вопрос:


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


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

---

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

Программисту Assembler (32) C / C++ (26) Perl (3) Builder / Delphi (22) Pascal (20) Basic / VBA (6) Java / JavaScript (8) PHP (13) Криптография (9) WinAPI (14)

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

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

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

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

---

---

Задать вопрос | Регистрация эксперта | Поиск в базе | Чат | Форумы | Новости
Проект экспертов RusFAQ.ru | Фотоальбом | Virus.RusFAQ.ru | Администрирование
Профессиональная WEB-Студия B.I.T.

---

© 2001-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="Войти"> <!--</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}