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
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
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
#include <GUIConstantsEx.au3>
#include <ButtonConstants.au3>
$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")
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()
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
VPNConfig.au3
[autoit]#include <GUIConstantsEx.au3>
#include <ButtonConstants.au3>
$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")
GUICreate("Quick VPN & Remote Konfiguration", 520, 185, 150, 150)
GuiSetIcon(@SystemDir & "\mstsc.exe", 0)
GUICtrlCreateLabel("VPN-Software:", 10,
$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()
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