PureBasic - форум

Информация о пользователе

Привет, Гость! Войдите или зарегистрируйтесь.

Вы здесь » PureBasic - форум » Вопросы по PureBasic » Нужна помощь

Нужна помощь

Страница: 1

Сообщений 1 страница 2 из 2

1

  • Автор: Artur
  • Активный участник
  • Зарегистрирован: 16.09.2013
  • Приглашений: 0
  • Сообщений: 45
  • Уважение: [+0/-0]
  • Позитив: [+1/-0]
  • Пол: Мужской
  • Возраст: 34 [1989-07-29]
  • Провел на форуме:
    1 день 10 часов
  • Последний визит:
    24.12.2015 13:20:46

Добрый день.
Есть такое оборудование ZYXEL IES-5000. Есть необходимость поиска слота, порта по мак адресу.
При вводе команды “show mac”, он выводит список мак адресов(только часть). Для полного вывода маков просит нажать клавишу “n”. Как это сделать не пойму.

Код:
InitNetwork()

Procedure.s SendData(Connect, Command.s)
Protected Result.s="", Count=0
 Command=Command+Chr(13)+Chr(10)
 SendNetworkData(Connect, @Command, Len(Command))
 Repeat
   Delay(20)
   If NetworkClientEvent(Connect) = #PB_NetworkEvent_Data
      *mem=AllocateMemory(10000)
        If *mem
          ReceiveNetworkData(Connect, *mem, 10000)
          In.s=PeekS(*mem)
          FreeMemory(*mem)
          Result = Result+In
        EndIf
   EndIf
   Count+1
 Until Count> = 40
ProcedureReturn Result
EndProcedure



Connect=OpenNetworkConnection("192.168.1.1", 23)
If Connect
  Delay(50)
  Otvet.s = SendData(Connect, "admin")
  Otvet.s = SendData(Connect, "1234")
  Otvet.s = SendData(Connect, "show mac")
  Delay(1000)
  
  InitKeyboard()
;   ExamineKeyboard()
KeyboardReleased(#PB_Key_P)

  CloseNetworkConnection(Connect)
Else
  MessageRequester("Ошибка", "Нет связи с коммутатором")
  End
EndIf

Debug Otvet.s

Отредактировано Artur (12.02.2014 15:40:15)

0

2

  • Автор: Пётр
  • Активный участник
  • Зарегистрирован: 14.06.2009
  • Приглашений: 0
  • Сообщений: 2944
  • Уважение: [+96/-5]
  • Позитив: [+1/-0]
  • Пол: Мужской
  • Провел на форуме:
    2 месяца 9 дней
  • Последний визит:
    Вчера 17:14:34

Должно это сработать.

Код:
InitNetwork()

Procedure.s SendData(Connect, Command.s)
Protected Result.s="", Count=0
 Command=Command+Chr(13)+Chr(10)
 SendNetworkData(Connect, @Command, Len(Command))
 Repeat
   Delay(20)
   If NetworkClientEvent(Connect) = #PB_NetworkEvent_Data
      *mem=AllocateMemory(10000)
        If *mem
          ReceiveNetworkData(Connect, *mem, 10000)
          In.s=PeekS(*mem)
          FreeMemory(*mem)
          Result = Result+In
        EndIf
   EndIf
   Count+1
 Until Count> = 40
ProcedureReturn Result
EndProcedure



Connect=OpenNetworkConnection("192.168.1.1", 23)
If Connect
  Delay(50)
  Otvet.s = SendData(Connect, "admin")
  Otvet.s = SendData(Connect, "1234")
  Otvet.s = SendData(Connect, "show mac")
  Delay(1000)
  Debug Otvet
  Otvet.s = SendData(Connect, "n")
  Debug Otvet
  CloseNetworkConnection(Connect)
Else
  MessageRequester("Ошибка", "Нет связи с коммутатором")
  End
EndIf

;Debug Otvet.s

+1

Страница: 1

Вы здесь » PureBasic - форум » Вопросы по PureBasic » Нужна помощь