Windev Mobile Vpn

Windev Mobile Vpn

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)
ELSEError("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.
•  
•