Здравствуйте,
Подскажите, пожалуйста, в каком направлении смотреть.
Нужно реализовать на AutoIt-е СОМ-интерфейс, который на VBA выглядит примерно так
Заранее спасибо
Подскажите, пожалуйста, в каком направлении смотреть.
Нужно реализовать на AutoIt-е СОМ-интерфейс, который на VBA выглядит примерно так
Код:
' Обработка событий
Public WithEvents stClient As StServer
Private Sub Class_Initialize()
If stClient Is Nothing Then
Set stClient = New StServer
If Err.Number <> 0 Then MsgBox ("Error " & Err.Description)
If stClient Is Nothing Then
MsgBox ("Невозможно установить соединение")
Else
'MsgBox ("Соединение установлено")
End If
End If
End Sub
Private Sub Class_Terminate()
If stClient Is Nothing Then
MsgBox ("Соединение уже разорвано")
Else
Set stClient = Nothing
'MsgBox ("Соединение разорвано")
End If
End Sub
Private Sub stClient_Connected()
' обработка события
бла-бла-бла
End Sub
Private Sub stClient_Disconnected(ByVal reason As String)
' обработка события
бла-бла-бла
End Sub
'Методы
Private stSrv As StServerTest
Sub КнопкаСтарт_Щелчок()
' ---------------- установка соединения
If stSrv Is Nothing Then
Set stSrv = New StServerTest
If Not stSrv.stClient.IsConnected() Then MsgBox ("Убедитесь что установлено соединение с сервером")
Else
MsgBox ("Соединение уже установлено")
End If ' конец установки соединения
Call stSrv.stClient.Test(...)
...
end sub