OS/2 FAQ


OS/2 Communications FAQ - Cети. Статья 015

Q netware's automagical login
A
(DZ FAQ) Egons Bush, 2:5100/8

есть еще один чуть кpивоватый способ, но за то не надо все конфигуpиpовать :)

=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=

/**  LOGINPW - Login to netware with supplied password **/
/*    Syntax:  LOGINPW userid password                  */
/*      or     LOGINPW server\userid password           */

Trace off
arg UserId Password .
call APMT_INIT

rc = START_PROGRAM("LOGIN.EXE", UserId)
rc = SELECT_WINDOW("LOGIN.EXE",15)
if rc <> 0 then call ErrMsg 'OS/2 Window cannot be found'

search1 = 'ENTER YOUR PASSWORD:'
call WaitForString search1
if pos(search1, LastLine) > 0
then do
rc = KEYBOARD(Password)
rc = KEYBOARD('ENTER')
end
else call ErrMsg 'Password prompt could not be found'

APMT_CLOSE:
rc = END_SESSION();
call DropFunc
exit

/******************************************************************/
WaitForString:
arg waitstring
MaxTimes = 15          /* times to retry checking for string */
WaitTime = 2 * 1000    /* delay between checks of screen */
call get_LastLine
do i = 1 to MaxTimes while pos(waitstring, LastLine) = 0
rc = WAIT(waittime)
call get_LastLine
end
return

get_LastLine:
rc = SYSMENU_SELECT("Copy All")
if rc > 0 then
call ErrMsg "This window doesn't have a 'Copy All' menu item"

if  QUERY_CLIPBOARD_TEXT("clip") = 0 then do
LastLine = ""
do i = clip.0 to 1 by -1 until LastLine <> ""
if (length(clip.i) > 1)
then parse upper var clip.i LastLine
end
end
else call ErrMsg "Query Clipboard failed"
return

ErrMsg:
parse arg ErrStr
say ErrStr
rc = END_SESSION();

errorexit:
call DropFUNC
exit

DropFUNC:
call APMTDropFuncs;
call rxfuncdrop(APMTDropFuncs)
return

APMT_INIT:
signal on error name  errorexit
call rxfuncadd  'APMTLoadFuncs',  'apmtext', 'APMTLoadFuncs'
call APMTLoadFuncs;
rc = INIT_SESSION();
if rc \= 0 then do
say apmtmsg
signal errorexit
end
signal on halt name APMT_CLOSE
return
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
ему нужен APMTST (IBMEWS). freq: APMTST.ZIP, 190K.

Egons,
Team OS/2

ps: не я автоp этого .cmd.


К предыдущей статье | К оглавлению раздела | К следующей статье

Вернуться к списку разделов FAQ.

Если у вас есть вопросы или пожелания, пишите, мы будем рады.

Данный FAQ cоставили Ivan Borovicov и Viatcheslav Odintsov (2:5020/181) на основе OS/2 FAQ Дмитрия Завалишина (dz) и материалов переписки в группе эхоконференций su.os2.*. Оформление статей: Николай Королев. Программирование JSP для RU/2: Евгений Кулешов. Благодарности: Дмитрию Максимовичу (MaximDim) за громадную помощь на первых этапах и Дмитрию Бану (banshee) за его помощь при проверке текста.



Новые статьи на нашем сайте:


Комментариев к странице: 0 | Добавить комментарий
Домой | Проект ядро Core/2 | Проект OS/4 Download | Новости | Гостевая книга | Подробно обо всем | Нужные программы | Проекты | OS/2 FAQ | Всячина | За и Против | Металлолом | #OS2Russian | RDM/2 | Весёлые картинки | Наша галерея | Доска объявлений | Карта сайта | ПОИСК | ФОРУМ