[Resolvido]Conferir ip / host da rede cadastrado no BD

Bom dia a todos!

Vi essa função em um outro projeto e gostaria de aplicar em meus trabalhos, o sistema só abre se o ip ou host da máquina que esta abrindo o access estiver cadastrado, evitando a distribuição do sistema não autorizado.

só que não sei aplicar esse codigo, alguém por acaso tem algo similar (além de uma cadastro de usuario e senha)



Dim hostname As String * 256
Dim hostent_addr As Long
Dim host As HOSTENT
Dim hostip_addr As Long
Dim temp_ip_address() As Byte
Dim i As Integer
Dim ip_address As String

If gethostname(hostname, 256) = SOCKET_ERROR Then
MsgBox "Windows Sockets error " & Str(WSAGetLastError())
Exit Sub
Else
hostname = Trim$(hostname)
End If

hostent_addr = gethostbyname(hostname)

If hostent_addr = 0 Then
MsgBox "Winsock.dll is not responding."
Exit Sub
End If

RtlMoveMemory host, hostent_addr, LenB(host)
RtlMoveMemory hostip_addr, host.hAddrList, 4

'MsgBox hostname, , "O Host é"
'get all of the IP address if machine is multi-homed

Do
ReDim temp_ip_address(1 To host.hLength)
RtlMoveMemory temp_ip_address(1), hostip_addr, host.hLength

For i = 1 To host.hLength
ip_address = ip_address & temp_ip_address(i) & "."
Next
ip_address = Mid$(ip_address, 1, Len(ip_address) - 1)

txt_ip = ip_address
txt_host = hostname



'MsgBox ip_address, , "O IP é:"

ip_address = ""
host.hAddrList = host.hAddrList + LenB(host.hAddrList)
RtlMoveMemory hostip_addr, host.hAddrList, 4
Loop While (hostip_addr <> 0)

frm_confere_host.Requery


end sub

Boa tarde... Creio que a melhor solução para isto está no registro do sistema.

Veja no repositório o SysBase (sistema base para confecção de sistema)
Nele tem a facilidade de registro com chave de liberação para uma ou mais copias.

cumprimentos.

Muito interessante, vou estudar o sistema. obrigado

O Fórum agradece o Retorno.