Hey danke werde ich nachher gleich mal ausprobieren.
Gruß
Ronnie
Hey danke werde ich nachher gleich mal ausprobieren.
Gruß
Ronnie
Hallo Liebe AutoITler,
ich habe mal wieder eine Frage:
Aber zuerst mal den AutoIT Code:
[autoit]
#include <GUIConstants.au3>
GUICreate("Rakware USB-Support", 270, 100)
;1 Auswahl
GUICtrlCreateCombo ("Programmgruppe", 10, 10, 250, 0)
GUICtrlSetData(-1,"Programmgruppe","Programmgruppe")
;2. Auswahl
GUICtrlCreateCombo ("Programme", 10, 40, 250, 0)
GUICtrlSetData(-1,"Programme","Programme")
;Ausführen oder Installieren Button
GUICtrlCreateButton("Ausführen/Installieren", 180, 70, 80)
GUISetState ()
[/autoit][autoit][/autoit][autoit]While 1
$msg = GUIGetMsg()
If $msg = $GUI_EVENT_CLOSE Then ExitLoop
Wend
Hier noch die ini Datei:
Security;"Avira Premium Security Suite";"files\security\Avira_Premium_Security_Suite.exe";Installieren
Security;"Avira Removal Tool";"files\security\Avira_Removal_Tool.exe.exe";Ausführen
System;"PuTTY";"files\system\putty.exe";Installieren
Ich würde gern Informationen aus einer ini Datei auslesen, und in einer Verschachtelten GUICtrlCreateCombo ausgeben.
Also laut INI Datei soll die erste GUICtrlCreateCombo 2 Auswahlmöglichkeiten bieten:
1. Security
2. System
In der 2ten GUICtrlCreateCombo soll sich dann die Auswahl ändern, je nachdem was man in der ersten Auswahlmöglichkeit gewählt hat.
Wenn ich Security ausgewählt habe, sollte ich Avira Premium Security Suite bzw. Avira Removal Tool auswählen können.
Beim drücken des Button sollte dann die hinterlegte EXE Datei ausgeführt werden.
Die Beschriftung des Buttons sollte sich aus der Auswahl der 2 GUICtrlCreateCombo mit dem letzten Zeileneintrag der INI Datei ändern entweder in Ausführen oder Installieren.
Ist sowas machbar, wenn ja kann mir jemand helfen.
Vielen Dank im vorraus.
Gruß
Ronnie
Hallo BugFix,
vielen Dank für den Code.
Ich versuche mich mal das an meine Wünsche anzupassen.
Gruß
Ronnie
Hallo liebe AutoITler,
ich habe ein kleines Problem, ich habe eine CSV Datei mit folgendem Inhalt:
Gruppe;Mannschaftsname;Schütze;Geschlecht;Ergebnis
Verein;Robin Sherwood;Max;m;80
Verein;Robin Sherwood;Paul;m;82
Verein;Robin Sherwood;Ingo;m;83
Betrieb;Ladie Kracher;Georg;m;88
Betrieb;Ladie Kracher;Markus;m;90
Betrieb;Ladie Kracher;Sebl;m;50
Verein;Bensheim;Petra;w;87
Verein;Bensheim;Mathias;m;66
Verein;Bensheim;Otto;m;55
Betrieb;Deppisch;Heike;w;86
Betrieb;Deppisch;Sebastian;m;67
Betrieb;Deppisch;Heike;w;78
;;Ronnie;m;76
Alles anzeigen
Die erste Spalte gibt die Gruppenzugehörigkeit an.
Ist nichts vorhanden, ist es ein Einzelschütze.
Zweite Spalte ist der Gruppenname.
Dritte Spalte ist der Name des Schützen.
Vierte Spalte ist das Geschlecht.
Fünfte Spalte ist die Ringtreffer.
Kann man eine GUI erstellen, die mir 4 Auswertungen bringt?
1. Auswertung
Alle Ringtreffer die Verein als Gruppenzugehörigkeit haben sollen unter einem Gruppennamen dargestellt werden als Summe.
Summe absteigend mit Ranking.
2. Auswertung
Alle Ringtreffer die Betrieb als Gruppenzugehörigkeit haben sollen unter einem Gruppennamen dargestellt werden als Summe.
Summe absteigend mit Ranking.
3. Alle Männlichen Schützen mit Raking absteigend
4. ALle Weiblichen Schützen mit Ranking absteigend
Alles auf einer GUI nebeneinander.
Ist sowas möglich?
Wenn es möglich wäre, dann mit Reload Button, wenn die CSV geändert wurde, das die Statistik sich aktualisiert.
Gruß
Ronnie
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.
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
ich möchte auch dabei sein.
Hallo liebe Kommunity,
anfang der Woche habe ich ein Problem gehabt, dass unsere Kunden zur VPN- und Remoteaufbau zu viele Knöpfe etc. drücken müssen.
Auf der Suche nach Skriptingmöglichkeiten bin ich dann auf AutoIT gestoßen.
Einfach GEIL muss ich sagen.
Leider bin ich noch nicht so in die Tiefe gestoßen wie ich es bräuchte, hier aber mal mein kleines Tool, was ich bisher gemacht habe:
#include <GUIConstantsEx.au3>
#include <ButtonConstants.au3>
Opt('MustDeclareVars', 1)
_Main()
Func _Main()
Local $vpnopen, $vpnclose, $vpnconfig, $close, $help
GUICreate("Quick VPN & Remote", 120, 40)
$vpnopen = GUICtrlCreateButton("1", 0, 0, 40, 40, $BS_ICON)
GUICtrlSetImage(-1, "shell32.dll", 14)
$vpnclose = GUICtrlCreateButton("2", 40, 00, 40, 40, $BS_ICON)
GUICtrlSetImage(-1, "shell32.dll", 200)
$close = GUICtrlCreateButton("close", 80, 0, 40, 40, $BS_ICON)
GUICtrlSetImage(-1, "shell32.dll", 28)
GUISetState()
While 1
Switch GUIGetMsg()
Case $GUI_EVENT_CLOSE
ExitLoop
Case $vpnopen
Run("C:\Programme\ZyXEL\ZyWALL VPN Client\vpnconf.exe /open:Rogalla-Rogalla")
RunWait("C:\WINDOWS\system32\mstsc.exe")
Case $vpnclose
Run("C:\Programme\ZyXEL\ZyWALL VPN Client\vpnconf.exe /close:Rogalla-Rogalla")
Case $close
ExitLoop
Case Else
EndSwitch
WEnd
GUIDelete()
EndFunc ;==>_Main
Leider ist das ganze ein wenig STARR.
Ich könnte eure Hilfe gebrauchen, damit ich dieses Tool für meine Zwecke weiterentwickeln kann.
So sollte es in etwa grob aussehen:
#include <GUIConstantsEx.au3>
#include <ButtonConstants.au3>
Opt('MustDeclareVars', 1)
_Main()
Func _Main()
Local $vpnopen, $vpnclose, $vpnconfig, $close, $help
GUICreate("Quick VPN & Remote", 200, 40)
$vpnopen = GUICtrlCreateButton("1", 0, 0, 40, 40, $BS_ICON)
GUICtrlSetImage(-1, "shell32.dll", 14)
$vpnclose = GUICtrlCreateButton("2", 40, 00, 40, 40, $BS_ICON)
GUICtrlSetImage(-1, "shell32.dll", 200)
$close = GUICtrlCreateButton("close", 80, 0, 40, 40, $BS_ICON)
GUICtrlSetImage(-1, "shell32.dll", 28)
$vpnconfig = GUICtrlCreateButton("3", 120, 0, 40, 40, $BS_ICON)
GUICtrlSetImage(-1, "shell32.dll", 22)
$help = GUICtrlCreateButton("4", 160, 0, 40, 40, $BS_ICON)
GUICtrlSetImage(-1, "shell32.dll", 24)
GUISetState()
While 1
Switch GUIGetMsg()
Case $GUI_EVENT_CLOSE
ExitLoop
Case $vpnopen
Run(" %variablevpnprogramm% %variablevpnstartparameter% ")
RunWait(" %variableremotetool% % variableremotetoolstartparameter% ")
Case $vpnclose
Run(" %variableprogramm% %variablevpnstopparameter% ")
Case $close
ExitLoop
Case $vpnconfig
;
Case $help
;
Case Else
EndSwitch
WEnd
GUIDelete()
EndFunc ;==>_Main
Diese Variablen sollten in einer ini Datei gespeichert werden, die man über den $vpnconfig editieren kann:
%variablevpnprogramm%, %variablevpnstartparameter%, %variableremotetool% % variableremotetoolstartparameter%, %variablevpnstopparameter%
Die Programme sollte man über ein "Durchsuchen" Button auswählen können.
Leider bin ich noch nicht weiter in die Skriptsprache gedrungen, ja ich weiß ich muss mich dort noch weiter reinarbeiten, aber irgendwie steh ich unter Zeitdruck und wäre froh, ihr könntet mir weiterhelfen, damit ich das alles hin bekomme.
Über jede weitere Hilfe wäre ich dankbar.
Gruß
Ronnie
Edit BugFix: Bitte AutoIt-Tags verwenden statt php - hab das mal für dich gemacht.