Script ArchiCrypt Stealth VPN

    So ich hab mir das tool mal installiert und muss feststellen das es 1a ohne Probleme klappt mit sämtlichen hier geposteten möglichkeiten.
    Also denk ich mal du musst da irgent was falsch machen.

    Ich habe es bei mir getestet.
    So geht es bei mir:

    Spoiler anzeigen
    [autoit]


    Run(@ProgramFilesDir & "\ArchiCrypt Stealth VPN\VPNClient.exe")
    WinWaitActive("ArchiCrypt Stealth VPN")
    WinActivate("ArchiCrypt Stealth VPN", "ArchiCrypt Stealth VPN")
    ControlClick("ArchiCrypt Stealth VPN", "Freischalten", "Button2", "left")

    [/autoit]

    Noch ne Frage willst du die Lizenz Nr. per Hand eintragen oder Automatisiert?

    Hi Leude,

    vielen vielen Dank! jetzt gehts. Super! ihr habt mir wirklich geholfen!

    Jetzt warte ich noch bis meine Lizenz da ist, hoffentlich bald und dann ändere ich das Skript nur noch auf den Button verbinden um! das wars dann


    DANKE

    Ich mus mal wesch jetzt, bin aber später nochmal online, falls noch was ist, thx

    Ich würd später noch gerne herausfinden weiso auf meinem System nich jede Lösung fkt

    Ich habe dein Script noch etwas verbessert:
    Hoffe das es dir so gefällt.

    Spoiler anzeigen
    [autoit]


    #Region ;**** Directives created by AutoIt3Wrapper_GUI ****
    #AutoIt3Wrapper_Res_Fileversion=1.0.0.0
    #AutoIt3Wrapper_Res_Fileversion_AutoIncrement=y
    #AutoIt3Wrapper_Res_Language=1031
    #EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
    #cs ----------------------------------------------------------------------------

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

    AutoIt Version: 3.2.12.1
    Author: micneu

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

    Script Function:
    Template AutoIt script.

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

    #ce ----------------------------------------------------------------------------

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

    ; Script Start - Add your code below here
    Global $VPNSoftware
    Global $ISTda
    $VPNSoftware = @ProgramFilesDir & "\ArchiCrypt Stealth VPN\VPNClient.exe"
    $ISTda = FileExists($VPNSoftware)
    If $ISTda = 1 Then
    Run($VPNSoftware)
    WinWaitActive("ArchiCrypt Stealth VPN")
    WinActivate("ArchiCrypt Stealth VPN", "ArchiCrypt Stealth VPN")
    ControlClick("ArchiCrypt Stealth VPN", "Freischalten", "Button2", "left")
    Else
    MsgBox(0, "Fehler!", "Es Fehlt die Software!" & _
    @CRLF & "Bitte lassen Sie die Software von ihrem Administrator Installieren.")
    Exit
    EndIf

    [/autoit]

    Einmal editiert, zuletzt von micneu (20. August 2008 um 12:38)

    man kann den button evtl auch so ansprechen:

    ControlFocus("ArchiCrypt Stealth VPN", "", "[CLASS:Button; INSTANCE:2]")

    bzw. gleich ENTER senden:

    ControlSend("ArchiCrypt Stealth VPN", "", "[CLASS:Button; INSTANCE:2]", "{ENTER}")

    So Leude,

    nochmal ganz kurz zum Thema:
    die fkt. Lösung stammt von rewejo und sieht so aus:

    Code
    Run("VPNClient.exe")
WinWait("ArchiCrypt Stealth VPN","panel")
ControlClick("ArchiCrypt Stealth VPN","panel","Button1")

    Soweit sogut. Was ich nur jetzt nicht verstehe, und auch nirgends finde ist der String "panel". Was sagt der denn aus, bzw. was bewirkt der? Ohne panel gehts nämlich nicht, das habe ich getestet. Ne kleine Erkärung wäre cool...

    Gruss und Danke

    Ich habe zwar die Software nicht installiert, aber warscheinlich wird der Button erst nach dem Erzeugen des Fensters erstellt, genauso wie der Text 'panel'. Wenn also der Text noch nicht vorhanden ist, ist auch vielleicht der Button noch nicht da und der ControlClick geht ins Leere. Was mir noch aufgefallen ist: War es jetzt 'Button1' oder 'Button2'???