Mikrotik.moscow [тема: API в Visual Basic 6 работает отлично!]

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

Tue, 05 Aug 2014 17:18:00 -0400

API в Visual Basic 6 работает отлично! RouterOS в форуме RouterOS.
Привет! Используя эту программу, какая команда удаляет подключение по IP и как его добавить? Спасибо!
05.08.2014 17:18:00, edilsonlsouza.

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

Tue, 05 Aug 2014 17:05:00 -0400

API в Visual Basic 6 работает отлично! RouterOS в форуме RouterOS.
Привет! В этой программе какая команда используется, чтобы отключить устройство, подключённое по IP, и как его добавить?
05.08.2014 17:05:00, edilsonlsouza.

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

Sat, 22 Feb 2014 21:10:00 -0500

API в Visual Basic 6 работает отлично! RouterOS в форуме RouterOS.
Попробуйте так: /ip/hotspot/user/add O=name=user1 O=password=111 O=limit-uptime=00:01:00
22.02.2014 21:10:00, drprotic.

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

Sat, 22 Feb 2014 14:05:00 -0500

API в Visual Basic 6 работает отлично! RouterOS в форуме RouterOS.
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
22.02.2014 14:05:00, drprotic.

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

Thu, 22 Aug 2013 09:53:00 -0400

API в Visual Basic 6 работает отлично! RouterOS в форуме RouterOS.
нет, ты можешь изменить пробел в строке, и почитать про запросы API здесь http://wiki.mikrotik.com/wiki/API#Query_word
22.08.2013 09:53:00, amongdota.

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

Thu, 22 Aug 2013 09:31:00 -0400

API в Visual Basic 6 работает отлично! RouterOS в форуме RouterOS.
Спасибо, 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-кодом для создания пользователя. Извиняюсь за мой плохой английский, это мой первый пост.
22.08.2013 09:31:00, amongdota.

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

Tue, 09 Oct 2012 05:39:00 -0400

API в Visual Basic 6 работает отлично! RouterOS в форуме RouterOS.
У тебя есть исходники на VB.NET?
09.10.2012 05:39:00, bastakboys.

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

Thu, 26 Apr 2012 10:21:00 -0400

API в Visual Basic 6 работает отлично! RouterOS в форуме RouterOS.
Спасибо. В любом случае у меня новая проблема. Какая команда нужна, чтобы включить пользователя? Хмм, так этот API может выполнять только однострочные команды?
26.04.2012 10:21:00, ax045Y.

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

Tue, 24 Apr 2012 20:55:00 -0400

API в Visual Basic 6 работает отлично! RouterOS в форуме RouterOS.
@ax045Y Не используйте Package and Deployment Wizard для компиляции проекта, вместо этого используйте команду VB6 IDE «File/Make…». В таком случае компилятор покажет, что именно и где не так с кодом. Этот пример с API работает нормально, проблема в функции «CRAM_MD5» в «MD5.cls». Уберите эту функцию — и вы сможете скомпилировать этот пример в .EXE. Надеюсь, поможет.
24.04.2012 20:55:00, ditonet.

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

Tue, 24 Apr 2012 18:25:00 -0400

API в Visual Basic 6 работает отлично! RouterOS в форуме RouterOS.
Что не так с моим? При компиляции для создания .exe файла выдает ошибку.
24.04.2012 18:25:00, ax045Y.

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

Sat, 21 Apr 2012 23:01:00 -0400

API в Visual Basic 6 работает отлично! RouterOS в форуме RouterOS.
Да, всё отлично работает!!!
21.04.2012 23:01:00, lucho512.

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

Sat, 21 Apr 2012 20:33:00 -0400

API в Visual Basic 6 работает отлично! RouterOS в форуме RouterOS.
Этот скрипт корректно работает на версии 5.12?
21.04.2012 20:33:00, ax045Y.

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

Thu, 12 Apr 2012 12:16:00 -0400

API в Visual Basic 6 работает отлично! RouterOS в форуме RouterOS.
Скрипт у меня работает нормально, API включено, и я могу войти в роутер. Когда я нажимаю SEND, вижу те же результаты. Проблема в том, что когда я нажимаю SEND снова, получаю СТАРЫЙ результат плюс новый. Я очистил текстовое поле перед нажатием SEND (txtout.text = “”), но проблема осталась. Кажется, буфер не очищается после выполнения команды. Думаю, дело в переменной inbuf1. Спасибо за помощь.
12.04.2012 12:16:00, DorisLam.

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

Mon, 10 Oct 2011 08:48:00 -0400

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

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

Thu, 08 Sep 2011 19:28:00 -0400

API в Visual Basic 6 работает отлично! RouterOS в форуме RouterOS.
Потребовалось 9 месяцев, чтобы попытаться это исправить, я знал, что нужно сделать, чтобы включить API, спасибо, Normis.
08.09.2011 19:28:00, inibir.

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

Tue, 06 Sep 2011 08:55:00 -0400

API в Visual Basic 6 работает отлично! RouterOS в форуме RouterOS.
Ты включил API на RouterOS?
06.09.2011 08:55:00, normis.

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

Tue, 06 Sep 2011 07:32:00 -0400

API в Visual Basic 6 работает отлично! RouterOS в форуме RouterOS.
Не работает, он возвращает это сообщение (Подключение) ws_Error: Соединение принудительно отвергнуто.
06.09.2011 07:32:00, inibir.

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

Sat, 05 Nov 2011 15:06:00 -0400

API в Visual Basic 6 работает отлично! RouterOS в форуме RouterOS.
ip - сервис, ты включил API? Я использовал ros 5.8, и всё работает отлично. Отличная работа, TS.
05.11.2011 15:06:00, lucubrb.

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

Mon, 09 May 2011 16:52:00 -0400

API в Visual Basic 6 работает отлично! RouterOS в форуме RouterOS.
Привет, форум! После долгих поисков я наконец-то нашёл пример работы с API на VB6, который выложил Royce3. Мне пришлось немного подправить код, чтобы он заработал нормально. Оставляю это здесь, чтобы вы могли попробовать — ведь в VB6 вообще сложно найти что-то для работы с API. Надеюсь, это будет полезно. Делитесь своими успехами, я продолжаю работать! Всем привет!

MKT API Test.rar (11.4 KB)
09.05.2011 16:52:00, lucho512.