Beiträge von stinger2k

  • Balloontip mit Inputfelder verknüpfen?

    Das löst nicht mein problem, in meiner berechnung geht es um beschlagsteile von fenstern wobei z.B. die Griffhöhe angegeben werden muss und diese nicht weniger als 260mm sein darf bzw. auch nicht weniger als 1/3 der Fensterhöhe...


    das heißt bei 2300 mm FH muss GH mindestens 766 mm betragen (1/3 von FH)

    bei 760 mm FH muss GH mindestens 260 mm betragen (mindest Maß vom Beschlagsstück)


    und dies wäre sehr schön wenn ein balloontip auf das input-feld für die Griffhöhe (GH) zeigen würde...


    Trotzdem danke...

  • Balloontip mit Inputfelder verknüpfen?

    Hallo Leute,


    kann mir jemand dabei helfen einen Balloontip aus einer if abfrage mit dem zugehörigen inputfeld zu verknüpfen. ?(


    Habe in meinem Script 8 Inputfelder und einen button "Berechnen", nun will ich wenn ich auf den Button klicke, die Inputfelder ausgelesen werden und bei einer falscheingabe ein Balloontip Hilfe leistet welche Eingaben in diesem Input erlaubt sind....


    Spoiler anzeigen
    [autoit]


    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $FB
    $FB_read = GUICtrlRead($FB)
    If $FB_read < 405 Then ToolTip("Fensterbreite (FB) unter 405 mm nicht zulässig", Default, Default, Default, 1, 1)
    If $FB_read >= 405 Then ToolTip("")
    If $FB_read > 1600 Then ToolTip("Fensterbreite (FB) über 1600 mm nicht zulässig", Default, Default, Default, 1, 1)
    Case $FH
    $FH_read = GUICtrlRead($FH)
    If $FH_read < 520 Then ToolTip("Fensterhöhe (FH) unter 520 mm nicht zulässig", Default, Default, Default, 1, 1)
    If $FH_read >= 520 Then ToolTip("")
    If $FH_read > 2400 Then ToolTip("Fensterhöhe (FH) über 2400 mm nicht zulässig", Default, Default, Default, 1, 1)
    $minGH = GUICtrlRead($FH)
    $mingh3 = $minGH / 3
    $ghdata = Round($mingh3, 0)
    GUICtrlSetData($GH, $ghdata)
    Case $GH
    $GH_read = GUICtrlRead($GH)
    If $GH_read < 260 Then ToolTip("Griffhöhe (GH) unter 260 mm nicht zulässig", Default, Default, Default, 1, 1)
    If $GH_read >= 260 Then ToolTip("")
    If $GH_read < $FH_read / 3 Then ToolTip("(GH) muss mindestens 1/3 der (FH) sein", Default, Default, Default, 1, 1)
    Case $GUI_EVENT_CLOSE
    Exit

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

    Case $Abbrechen
    Exit

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

    Case $Berechnen
    If $GH_read < $FH_read / 3 Then ToolTip("(GH) muss mindestens 1/3 der (FH) sein", Default, Default, Default, 1, 1)
    If $GH_read < 260 Then ToolTip("Griffhöhe (GH) unter 260 mm nicht zulässig", Default, Default, Default, 1, 1)
    If $GH_read >= 260 Then ToolTip("")
    If GUICtrlRead($FB) = "" Then MsgBox(64, "Fehler", "(FB) keine Maße zum berechnen!")
    If GUICtrlRead($FH) = "" Then MsgBox(64, "Fehler", "(FH) keine Maße zum berechnen!")
    If GUICtrlRead($GH) = "" Then MsgBox(64, "Fehler", "(GH) keine Maße zum berechnen!")
    rechnen ()
    eintragen ()
    EndSwitch
    WEnd

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

    Func rechnen()
    If GUICtrlRead($Einlassgetriebe) = $GUI_CHECKED Then
    $T1rech = GUICtrlRead($GH) - 222
    Else
    $T1rech = GUICtrlRead($GH) - 175
    EndIf
    If GUICtrlRead($Einlassgetriebe) = $GUI_CHECKED Then
    $T2rech = $FH_read - $GH_read - 222
    Else
    $T2rech = $FH_read - $GH_read - 175
    EndIf
    If GUICtrlRead($FB) < 600 Then $T3rech = $FB_read - 371
    If GUICtrlRead($FB) >= 600 Then $T3rech = $FB_read - 539
    $T4rech = $FH_read / 2 - 128
    $T5rech = $FB_read / 2 - 94
    $T1_1rech = $FH_read - 320
    EndFunc ;==>rechnen

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

    Func eintragen()
    GUICtrlSetData($T1, $T1rech)
    GUICtrlSetData($T2, $T2rech)
    GUICtrlSetData($T3, $T3rech)
    GUICtrlSetData($T4, $T4rech)
    GUICtrlSetData($T5, $T5rech)
    GUICtrlSetData($T1_1, $T1_1rech)
    EndFunc ;==>eintragen

    [/autoit]


    Habe es bereits mit den CoordMod´s probiert, bekomme es leider trotzdem nicht hin :cursing: .


    Danke für eure Antworten, euer....


    Stinger2k

  • Schleife um neu angeschlossene geräte (laufwerke) in einer combo hinzuzufügen

    Danke Oscar - das ist genau das was ich gesucht habe habe es selbst schon mit $WM_Devicechange versucht wusste aber nicht das ich den Einstiegspunkt als Constant einbinden muss - wieder etwas dazugelernt


    @ XovoxKingdom

    Mit deinem Beispiel funktioniert das zwar auch aber dabei springt der Zeiger bei geöffneter Combo alle x Sekunden auf das als Standardmäßig definiertes Item...


    Trotzdem vielen dank!


    mfg

    Stinger2k

  • Abfrage mit "DriveStatus" - einzelne Objekte aus Array entfernen

    Ich komme hier einfach nicht mehr weiter,


    wie kann ich es hinbekommen. einzelne objekte aus einem array zu entfernen bevor ich sie zu meiner Combobox hinzufüge wenn "DriveStatus" 'NOTREADY' ausgibt.

    vielleicht könnte mir dabei jemand helfen?


    [autoit]


    $Drives = ""
    $var = DriveGetDrive("all")

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

    If Not @error Then
    For $i = 1 To $var[0]
    $Drives &= $var[$i] & " "
    $lw = DriveStatus ($var[$i])
    _GUICtrlComboBox_AddString($Combo1, $var[$i] & "[" & $lw & "]")

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

    _GUICtrlComboBox_SetCurSel($Combo1, 0)

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

    Next
    EndIf

    [/autoit]

  • Key Abfrage mit zufälliger Verschlüsselungstärke

    Hallo


    Ich habe gerade begonnen mich in autoit einzuarbeiten... Wollte Fragen Was ihr davon haltet bzw. Vorschläge hättet wie man es bewerkstelligen könnte das die erstellte "key.chs" nur mit diesem Produkt funktioniert.

    Also nicht durch einfaches kopieren der Datei auch auf jedem anderen PC läuft...


    Mein bisheriger Code:


    Local $Serial, $Serial_Input, $verschl, $success, $fail, $entsch, $level
    $exist = FileExists("key.chs")

    $Serial = "IPS-E8180-K0204-N0809"
    $ueberpruefen = FileRead("key.chs")
    $random = Random(1, 15, 1)
    ;MsgBox(64, "", $random); Nur zum testen mit welchem Verschlüsselungsgrad
    $level = "$random"
    $false = _StringEncrypt(0, $ueberpruefen, "ovl72gft", $level)
    Select

    Case $exist = 0
    $aktivierung = "Bitte aktivieren Sie Ihr Produkt mit Ihrem persönl. Schlüssel" & @CRLF & @CRLF
    $aktivierung &= "Wenn Sie keinen Schlüssel besitzen, wenden Sie sich an dummy@mail.com"
    MsgBox(64, "Lizenz", $aktivierung)
    $random = Random(1, 15, 1)
    MsgBox(64, "", $random)
    $level = $random
    $Serial_Input = InputBox("Serial", "Bitte Serial eingeben!")
    If $Serial_Input = $Serial Then
    $verschl = _StringEncrypt(1, $Serial, "ovl62gft", $level)
    FileWrite("key.chs", $verschl)
    $ueberpruefen = FileRead("key.chs")
    $entsch = _StringEncrypt(0, $ueberpruefen, "ovl72gft", $level)
    $success = "Vielen Dank das Sie dieses Programm gekauft haben!" & @CRLF
    $success &= "Ihre Seriennummer lautet: " & $entsch
    MsgBox(64, "", $success)

    Else
    $fail = "Der eingegebene Schlüssel ist ungültig" & @CRLF
    $fail &= "Programm wird nicht ausgeführt"
    MsgBox(64, "Lizenz", $fail)
    Exit

    EndIf
    Case Not $false = $Serial
    MsgBox(64, "Lizenz", "Ihre Lizenzdatei gehört nicht zu diesem Produkt")
    Exit
    Case $false <> $Serial
    MsgBox(64, "Lizenz", "Ihre Lizenzdatei gehört nicht zu diesem Produkt")
    Exit
    EndSelect
    ;°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°