API в Visual Basic 6 работает отлично!

ip - сервис, ты включил API? Я использовал ros 5.8, и всё работает отлично. Отличная работа, TS.

Ты включил API на RouterOS?

РАБОТАЕТ ИДЕАЛЬНО!!! Я изучал Java и VB.NET, но, думаю, я всё ещё люблю эти классические вещи. Провёл год, создавая API на Visual Basic, но ничего не получилось.

Этот скрипт корректно работает на версии 5.12?

Что не так с моим? При компиляции для создания .exe файла выдает ошибку.

Спасибо. В любом случае у меня новая проблема. Какая команда нужна, чтобы включить пользователя? Хмм, так этот API может выполнять только однострочные команды?

Спасибо, lucho512, отличная работа, Doris. У меня была такая же проблема, и спустя несколько часов я изменил этот Private Sub ws_DataArrival(ByVal sent$)
.
.
.
end sub на этот Private Sub ws_DataArrival(ByVal bytesTotal As Long)
   If bErr Then Exit Sub
   Dim ar() As Byte, i&
   ReDim ar(0 To bytesTotal - 1)
   ws.GetData ar, vbByte, bytesTotal
   On Error Resume Next
   Err.Clear
   On Error GoTo 0
   inbuf1 = ar
   Dim WordLen&, StartIdx&, Idx&
   StartIdx = 0
   Do While True
       Idx = StartIdx
       WordLen = CalcWordLen(inbuf1, Idx)
       If WordLen < 0 Then
           Exit Do
       End If
       If WordLen = 0 Then
           SentenceArrived (inbuf2)
           inbuf2 = ""
       Else
           If inbuf1(Idx) = Asc("=") Then
               inbuf2 = inbuf2 & " "
           End If
           For i = 0 To WordLen - 1
               inbuf2 = inbuf2 & Chr(inbuf1(Idx + i))
           Next
       End If
       StartIdx = Idx + WordLen
   Loop
End Sub — это решило мою проблему. И для лучшего вида изменил это: Private Sub SendCommand(ByVal sCmd$)
.
.
.
End Sub на вот это Private Sub SendCommand(ByVal sCmd$)
   Dim ar$(), i&, buf() As Byte
   Out Replace(sCmd, " ", vbCrLf)
   ar = Split(sCmd, " ")
   For i = 0 To UBound(ar)
       EncodeWord buf, ar(i)
   Next
   EncodeWord buf, ""
   If ws.State = sckConnected Then ws.SendData buf
End Sub  
Я работаю с VB API, чтобы создавать и управлять пользователями hotspot, потому что в user manager максимальное количество активных сессий для lvl4 — 20, лучше использовать /ip/hotspot, чем /tool/user-manager. В hotspot активных пользователей может быть до 200. Ждите мой следующий ответ с полным VB-кодом для создания пользователя. Извиняюсь за мой плохой английский, это мой первый пост.

ax045Y написал: спасибо... в любом случае у меня новая проблема. Какая команда нужна, чтобы включить пользователя? Хмм, так этот API может выполнять только однострочные команды? Нет, можно менять пробелы в строке, и почитай про API-запросы здесь http://wiki.mikrotik.com/wiki/API#Query_word Это работает: /ip/hotspot/user/add O =name=user1 O =password=111 O =limit-uptime=00:01:00

Привет! В этой программе какая команда используется, чтобы отключить устройство, подключённое по IP, и как его добавить?