Quick VPN & Remote

  • Hallo Community,

    warscheinlich ist dieses kleine Tool nichts für euch, aber für meine Kunden ist es Gold wert. Und jetzt, da ich es dank eurer Hilfe so verfeinern konnte ist es unbezahlbar :D

    Es handelt sich wie der Name schon sagt um ein Tool, das eine vorhandene VPN- und Remotelösung unterstützt.
    Nur noch ein Knopfdruck, und der VPN-Tunnel und die Remoteverbindung bauen sich auf.
    Die Einstellungen werden in der Registry unter HKEY_CURRENT_USER geschrieben.
    Es liegt auch eine kleine PDF anbei, die eine kleine Hilfestellung bietet.
    Ansonsten mich fragen :D

    Man kann damit jede Scriptbare VPN- und Remotelösung betreiben.

    Quick VPN and Remote Setup.txt in Quick VPN and Remote Setup.exe umbenennen für die Installation.
    autoit.de/wcf/attachment/3811/

    Hier der SourceCode:
    Quick VPN and Remote.au3

    [autoit]

    #include <GUIConstantsEx.au3>
    #include <ButtonConstants.au3>

    [/autoit][autoit][/autoit][autoit]

    $vpnsoftware = RegRead("HKEY_CURRENT_USER\SOFTWARE\ZoeLeah\Quick VPN & Remote\Setting", "vpnsoftware")
    $vpnopen = RegRead("HKEY_CURRENT_USER\SOFTWARE\ZoeLeah\Quick VPN & Remote\Setting", "vpnopen")
    $vpnclose = RegRead("HKEY_CURRENT_USER\SOFTWARE\ZoeLeah\Quick VPN & Remote\Setting", "vpnclose")
    $rdpsoftware = RegRead("HKEY_CURRENT_USER\SOFTWARE\ZoeLeah\Quick VPN & Remote\Setting", "rdpsoftware")
    $rdpopen = RegRead("HKEY_CURRENT_USER\SOFTWARE\ZoeLeah\Quick VPN & Remote\Setting", "rdpopen")
    $rdpzeit = RegRead("HKEY_CURRENT_USER\SOFTWARE\ZoeLeah\Quick VPN & Remote\Setting", "rdpzeit")

    [/autoit][autoit][/autoit][autoit]

    GUICreate("Quick VPN & Remote", 200, 40, 50, 50)
    GuiSetIcon(@SystemDir & "\mstsc.exe", 0)
    $bvpnopen = GUICtrlCreateButton("1", 0, 0, 40, 40, $BS_ICON)
    GUICtrlSetImage(-1, "shell32.dll", 14)
    $bvpnclose = GUICtrlCreateButton("2", 40, 0, 40, 40, $BS_ICON)
    GUICtrlSetImage(-1, "shell32.dll", 200)
    $bclose = GUICtrlCreateButton("close", 80, 0, 40, 40, $BS_ICON)
    GUICtrlSetImage(-1, "shell32.dll", 28)
    $bconfig = GUICtrlCreateButton("config", 120, 0, 40, 40, $BS_ICON)
    GUICtrlSetImage(-1, "shell32.dll", 22)
    $bhelp = GUICtrlCreateButton("help", 160, 0, 40, 40, $BS_ICON)
    GUICtrlSetImage(-1, "shell32.dll", 24)
    GUISetState()

    [/autoit][autoit][/autoit][autoit]

    While 1
    Switch GUIGetMsg()
    Case $GUI_EVENT_CLOSE
    ExitLoop
    Case $bvpnopen
    Run($vpnsoftware & " " & $vpnopen )
    sleep($rdpzeit)
    RunWait($rdpsoftware & " " & $rdpopen)
    Case $bvpnclose
    RunWait($vpnsoftware & " " & $vpnclose)
    Case $bclose
    ExitLoop
    Case $bconfig
    Run("VPNConfig.exe")
    Case $bhelp
    ShellExecute("Quick VPN and Remote.pdf")
    ;Run(@ProgramFilesDir & "\Internet Explorer\iexplore.exe " & @ScriptDir & "\hilfe.html")
    Case Else
    EndSwitch
    WEnd

    [/autoit]

    VPNConfig.au3

    [autoit]

    #include <GUIConstantsEx.au3>
    #include <ButtonConstants.au3>

    [/autoit][autoit][/autoit][autoit]

    $vpnsoftware = RegRead("HKEY_CURRENT_USER\SOFTWARE\ZoeLeah\Quick VPN & Remote\Setting", "vpnsoftware")
    $vpnopen = RegRead("HKEY_CURRENT_USER\SOFTWARE\ZoeLeah\Quick VPN & Remote\Setting", "vpnopen")
    $vpnclose = RegRead("HKEY_CURRENT_USER\SOFTWARE\ZoeLeah\Quick VPN & Remote\Setting", "vpnclose")
    $rdpsoftware = RegRead("HKEY_CURRENT_USER\SOFTWARE\ZoeLeah\Quick VPN & Remote\Setting", "rdpsoftware")
    $rdpopen = RegRead("HKEY_CURRENT_USER\SOFTWARE\ZoeLeah\Quick VPN & Remote\Setting", "rdpopen")
    $rdpzeit = RegRead("HKEY_CURRENT_USER\SOFTWARE\ZoeLeah\Quick VPN & Remote\Setting", "rdpzeit")

    [/autoit][autoit][/autoit][autoit]

    GUICreate("Quick VPN & Remote Konfiguration", 520, 185, 150, 150)
    GuiSetIcon(@SystemDir & "\mstsc.exe", 0)
    GUICtrlCreateLabel("VPN-Software:", 10, 8)
    $vpn1 = GUICtrlCreateInput( $vpnsoftware , 100, 5, 300, 20)
    $vpnsearch = GUICtrlCreateButton("Durchsuchen", 405, 5, 100, 20)
    GUICtrlCreateLabel("Startparameter VPN-Software:", 20, 33)
    $vpn2 = GUICtrlCreateInput( $vpnopen, 180, 30, 150, 20)
    GUICtrlCreateLabel("Stopparameter VPN-Software:", 20, 58)
    $vpn3 = GUICtrlCreateInput( $vpnclose, 180, 55, 150, 20)
    GUICtrlCreateLabel("Remote-Software:", 10, 83)
    $rdp1 = GUICtrlCreateInput( $rdpsoftware, 100, 80, 300, 20)
    $rdpsearch = GUICtrlCreateButton("Durchsuchen", 405, 80, 100, 20)
    GUICtrlCreateLabel("Startparameter Remote-Software:", 20, 108)
    $rdp2 = GUICtrlCreateInput( $rdpopen, 180, 105, 150, 20)
    GUICtrlCreateLabel("RDP zeitverzögert starten:", 20, 133)
    $rdp3 = GUICtrlCreateInput( $rdpzeit, 180, 130, 50, 20)
    GUICtrlCreateLabel("Millisekunden", 240, 133)
    $safe = GUICtrlCreateButton("Speichern", 150, 160, 100, 20, $BS_DEFPUSHBUTTON)
    $canchel = GUICtrlCreateButton("Abbrechen", 270, 160, 100, 20)
    GUISetState()

    [/autoit][autoit][/autoit][autoit]

    While 1
    Switch GUIGetMsg()
    Case $GUI_EVENT_CLOSE
    ExitLoop
    Case $vpnsearch
    $FileDialog = FileOpenDialog("Öffnen", @ProgramFilesDir, "(*.exe)")
    If Not @error Then GUICtrlSetData($vpn1, $FileDialog)
    Case $rdpsearch
    $FileDialog = FileOpenDialog("Öffnen", @ProgramFilesDir, "(*.exe)")
    If Not @error Then GUICtrlSetData($rdp1, $FileDialog)
    Case $safe
    RegWrite("HKEY_CURRENT_USER\SOFTWARE\ZoeLeah\Quick VPN & Remote\Setting", "vpnsoftware", "REG_SZ", GUICtrlRead($vpn1))
    RegWrite("HKEY_CURRENT_USER\SOFTWARE\ZoeLeah\Quick VPN & Remote\Setting", "vpnopen", "REG_SZ", GUICtrlRead($vpn2))
    RegWrite("HKEY_CURRENT_USER\SOFTWARE\ZoeLeah\Quick VPN & Remote\Setting", "vpnclose", "REG_SZ", GUICtrlRead($vpn3))
    RegWrite("HKEY_CURRENT_USER\SOFTWARE\ZoeLeah\Quick VPN & Remote\Setting", "rdpsoftware", "REG_SZ", GUICtrlRead($rdp1))
    RegWrite("HKEY_CURRENT_USER\SOFTWARE\ZoeLeah\Quick VPN & Remote\Setting", "rdpopen", "REG_SZ", GUICtrlRead($rdp2))
    RegWrite("HKEY_CURRENT_USER\SOFTWARE\ZoeLeah\Quick VPN & Remote\Setting", "rdpzeit", "REG_SZ", GUICtrlRead($rdp3))
    MsgBox(48, "Quick VPN & Remote Konfiguration", "Die Konfiguration wurde gespeichert." & @CRLF & "Bitte Quick VPN & Remote neu starten.")
    ExitLoop
    Case $canchel
    ExitLoop
    Case Else
    EndSwitch
    WEnd

    [/autoit]
  • Hallo ctec,

    dieses Tool ist keine Endsoftware für VPN. Es funktioniert mit jeder skriptbarer VPN-Software.
    Ich habe es mit dem Greenbow Client getestet und bei einem Kunden im Einsatz.
    Funktioniert aber auch mit Microsoft VPN oder anderen VPN-Clients, die skiptbar sind.
    Remote hab ich bisher nur die Remotedesktop Verbindung von Microsoft ausprobiert.
    Aber die anderen VNC Software sollten auch skriptbar sein.

    EDIT:
    Dieses Tool hat nichts mit der Linksys VPN Software QuickVPN zu tun.