PC SOFT

GRUPOS DE DISCUSSÃO PROFISSIONAL
WINDEVWEBDEV e WINDEV Mobile

Inicio → WINDEV 25 → [WINDEV19][WINDEV MOBILE 19] Como conectar-se a uma VPN
[WINDEV19][WINDEV MOBILE 19] Como conectar-se a uma VPN
Iniciado por pedrosao, fev., 21 2015 2:43 AM - Sem resposta
Membro registado
42 mensagems
Popularité : +7 (7 votes)
Publicado em fevereiro, 21 2015 - 2:43 AM
A função NetOpenRemoteAccess permite estabelecer uma conexão remota e especialmente uma conexão VPN.
A função NetCloseRemoteAccess permite fechar a conexão.
Por exemplo, para estabelecer uma conexão remota com um PC

// Inicia uma conexão de internet em um PC
// O nome da conexão usa o nome definido na conexão do Painel de controle.
Report is int = NetOpenRemoteAccess("Connection_LiveBox")
IF Report = 0 THEN
...
NetCloseRemoteAccess()
ELSE
Error("Error durante a conexão", NetMsgError(Report))
END
Para abrir uma conexão em um smartphone
// Abre uma conexão a partir de um Smartphone
sConnectionName is string
nCntReturn is int

// Nome da conexão é dado pelo provedor
sConnectionName = "Bouygues Internet"

// Estabiliza a conexãon
nCntReturn = NetOpenRemoteAccess(sConnectionName)
IF nCntReturn = 0 THEN
// Processo requerido
// ...
NetCloseRemoteAccess(sConnectionName)
ELSE
Error("Erro durante a conexão:", NetMsgError(nCntReturn))
END


O retorno desta função é um inteiro com as seguintes características:
0 (zero) se a conexão for bem sucedida;
De outra forma, ocorre um erro que pode ser especificado pela função NetMsgError.