PC SOFT

FORUMS PROFESSIONNELS
WINDEV, WEBDEV et WINDEV Mobile

|
|
|
FR
Accueil → WINDEV 25 → [WINDEV19][WINDEV MOBILE 19] Como conectar-se a uma VPN
[WINDEV19][WINDEV MOBILE 19] Como conectar-se a uma VPN
Débuté par pedrosao, 21 fév. 2015 02:43 - Aucune réponse
#1
Membre enregistré
42 messages
Posté le 21 février 2015 - 02:43
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.
→ Revenir à WINDEV 25