Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > [ "Начинающим" ]
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 23.01.2018, 23:10
oleg777 oleg777 вне форума
Прохожий
 
Регистрация: 23.01.2018
Сообщения: 7
Версия Delphi: Delphi 7
Репутация: 10
По умолчанию Передача команды в Telnet

Доброго времени суток. Нужно реализовать такую задачу, есть несколько железок. Нужно по telnet отправить команду на перезагрузку. Вообщем подключится, потом дождаться "login" ввести его, потом "password" соответственно вести его тоже а потом дождаться шелла и выполнить перезагрузку. Вы меня не судите строго, я в общем то вообще профан, но у меня есть непреодолимое желание научится писать) Вы хоть чуть с кодом помогите, а я как нибудь там сам)
Ответить с цитированием
  #2  
Старый 24.01.2018, 20:41
Аватар для Alegun
Alegun Alegun вне форума
LMD-DML
 
Регистрация: 12.07.2009
Адрес: Богородское
Сообщения: 3,025
Версия Delphi: D7E
Репутация: 1834
По умолчанию

Код:
if WinExec(
'telnet IP железки 23 {port} login password ! {вызов shell} logout goodbye{quit}'
, SW_HIDE) < 32 then
     ShowMessage('Не удалось выполнить WinExec!');
Ответить с цитированием
Ответ


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 05:30.


 

Сайт

Форум

FAQ

RSS лента

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2023

ВКонтакте   Facebook   Twitter