ник: ЕЕД
"Ларчик" открылся...
1) копируем файл mswinsck.ocx (в прикреплении) в папку C:\WINDOWS\system32
2) из командной строки регистрируем в реестре
regsvr32 C:\WINDOWS\system32\mswinsck.ocx
3) лицензируем с помощью REGEDIT
[HKEY_CLASSES_ROOT\Licenses\2c49f800-c2dd-11cf-9ad6-0080c7e7b78d]
@="mlrljgrlhltlngjlthrligklpkrhllglqlr k"
4) В Access регистрируем файл из Tools\References как библиотеку.
После чего мы видим этот ActiveX как на панели элементов, для вставки в форму,
так и можем обратиться к нему как к объекту из программного модуля, например:
Option Compare Database
Option Explicit
Private Sub Form_Open(Cancel As Integer)
Dim Winsock1 As winsock
Set Winsock1 = New winsock
With Winsock1
MsgBox .LocalIP
End With
Set Winsock1 = Nothing
End Sub