Túneles VPN en VB.Net

VPNDesde hace un tiempo estoy desarrollando un soft para gestionar máquinas remotas y algunas de ellas es bajo túneles VPN asi que podeis echarle un vistazo a como abrir y cerrar dichos túneles desde VB:

Option Explicit
Dim si As SHELLEXECUTEINFO

Private Sub cmdClose_Click()
    Dim exitCode As Long
    If TerminateProcess(si.hProcess, exitCode) <> 0 Then
        CloseHandle (si.hProcess)
        MsgBox "Tunnel Closed!"
    End If
End Sub

Private Sub cmdOpen_Click()
    si.cbSize = Len(si)
    si.fMask = SEE_MASK_NOCLOSEPROCESS
    si.hwnd = frmMain.hwnd
    si.lpVerb = "open"
    si.lpFile = App.Path & "plink.exe"
    si.lpParameters = "-ssh -l tunnel -pw 123456 -L 3306:127.0.0.1:3306 -batch 127.0.0.1"
    si.lpDirectory = App.Path
    si.nShow = SW_HIDE

    If ShellExecuteEx(si) Then
        MsgBox "Tunnel Open!"
    Else
        MsgBox "Opening Failed!"
    End If
End Sub

Mañana seguiré avanzando sobre este tema y a ver si ya puedo sacar una buena Beta del soft con gestión…

Sobre Bosco López

/dev/null

Te puede interesar también

Certificándome en MySQL

Este año como muchos ya sabeis me he centrado en certificarme en todo los posible …

3 Comentarios

  1. Me interesta esto.. Pero no veo mas info.. Porfavor sigue publicando …

  2. Me interesa..
    Por favor sigue publicando sobre este tema …

Deja una respuesta

Tu dirección de correo electrónico no será publicada. Los campos obligatorios están marcados con *

Este sitio usa Akismet para reducir el spam. Aprende cómo se procesan los datos de tus comentarios.