Beiträge von Kleiner

  • [abgeschlossen] µitLight August '10

    Hi!


    Ihr seit mir ja welche ;) bin dabei!

    Hir meine beiden!
    VerEnd_S ist der Vernam-Algorithmus

    Beispiel:

    Spoiler anzeigen
    [autoit]

    $String = 'For better system integration you can consider to.For better system integration you can consider to.For better system integration you can consider to.' & @CRLF & _
    'For better system integration you can consider to.For better system integration you can consider to.For better system integration you can consider to.' & @CRLF & _
    'For better system integration you can consider to.For better system integration you can consider to.For better system integration you can consider to.' & @CRLF & _
    'For better system integration you can consider to.For better system integration you can consider to.For better system integration you can consider to.' & @CRLF & _
    'For better system integration you can consider to.For better system integration you can consider to.For better system integration you can consider to.' & @CRLF & _
    'For better system integration you can consider to.For better system integration you can consider to.For better system integration you can consider to.' & @CRLF & _
    'For better system integration you can consider to.For better system integration you can consider to.For better system integration you can consider to.' & @CRLF & _
    'For better system integration you can consider to.For better system integration you can consider to.For better system integration you can consider to.' & @CRLF & _
    'For better system integration you can consider to.For better system integration you can consider to.For better system integration you can consider to.' & @CRLF & _
    'For better system integration you can consider to.For better system integration you can consider to.For better system integration you can consider to.' & @CRLF & _
    'For better system integration you can consider to.For better system integration you can consider to.For better system integration you can consider to.' & @CRLF & _
    'For better system integration you can consider to.For better system integration you can consider to.For better system integration you can consider to.' & @CRLF & _
    'For better system integration you can consider to.For better system integration you can consider to.For better system integration you can consider to.' & @CRLF & _
    'For better system integration you can consider to.For better system integration you can consider to.For better system integration you can consider to.' & @CRLF & _
    'For better system integration you can consider to.For better system integration you can consider to.For better system integration you can consider to.' & @CRLF & _
    'For better system integration you can consider to.For better system integration you can consider to.For better system integration you can consider to.' & @CRLF & _
    'For better system integration you can consider to.For better system integration you can consider to.For better system integration you can consider to.' & @CRLF & _
    'For better system integration you can consider to.For better system integration you can consider to.For better system integration you can consider to.' & @CRLF & _
    'For better system integration you can consider to.For better system integration you can consider to.For better system integration you can consider to.' & @CRLF & _
    'For better system integration you can consider to.For better system integration you can consider to.For better system integration you can consider to.' & @CRLF & _
    'For better system integration you can consider to.For better system integration you can consider to.For better system integration you can consider to.' & @CRLF & _
    'For better system integration you can consider to.For better system integration you can consider to.For better system integration you can consider to.' & @CRLF & _
    'For better system integration you can consider to.For better system integration you can consider to.For better system integration you can consider to.' & @CRLF & _
    'For better system integration you can consider to.For better system integration you can consider to.For better system integration you can consider to.W ü ö ä Ä Ü Ö ß'

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

    Local $Password = 'Portal - .: autoit.de :. - Das deutsche AutoIt-Forum'

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

    Local $Encod = EncodeString($String, $Password, 0)
    ConsoleWrite( '!EncodeString($String, $Password, 0) : ' & @CRLF & $Encod & @CRLF )

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

    Local $Decod = DecodeString($Encod, $Password, 0)
    ConsoleWrite( @CRLF & '+DecodeString($String, $Password, 0) : ' & @CRLF & $Decod & @CRLF & @CRLF )

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

    Local $Encod_2 = VerEnd_S($Decod, $Password)
    ConsoleWrite( '!Encod VerEnd_S($String, $Password, 0) : ' & @CRLF & $Encod_2 & @CRLF )

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

    Local $Decod_2 = VerEnd_S($Encod_2, $Password)
    ConsoleWrite( @CRLF & @CRLF & '+Decod VerEnd_S($String, $Password, 0) : ' & @CRLF & $Decod_2 & @CRLF )

    [/autoit]

    Code:

    Spoiler anzeigen
    [autoit]

    #include <String.au3>
    ;===================================================================================================================================#
    ;~ Function Name......: Encode_DecodeString($StEncode, Const $Stschluss, Const $En_De = 0, Const $Str_Dat = 0)
    ;
    ;~ Description........: Verschlüsselung vom Datein oder String´s
    ;
    ;~ $StEncode..........: Pfad&Datei o. String der o. die Verschlüsselt werden
    ;~ $Stschluss.........: Verslüsselung metode ( Passwor ) kann leer gelassen werden
    ;~ $En_De.............: Encoden = 0 o. Decoden = 1
    ;~ $Str_Dat...........: Ein String = 0 eine Datei = 1
    ;~ $Leer..............: Leerzeilen entfernen 0/nein(Standart) - 1/ja
    ;
    ;~ Return Value(s)....: Erfolg String mit der Verschlüsslung
    ;
    ;~ Error´s............; -1 $StEncode ist Leer
    ; -2 Datei konnte nicht gefunden werden
    ; -3 Datei konnte nicht Geöffnet werden
    ; -4 Keine String
    ;
    ;~ Author(s).........: Kleiner27 (http://www.autoit.de)
    ;====================================================================================================================================#
    Func Encode_DecodeString($StEncode, Const $Stschluss, Const $En_De = 0, Const $Str_Dat = 0, Const $Leer = 0)
    If Not $StEncode Then Return SetError(1, 0, -1)
    Local $F_Open, $A_Red, $Red_Line
    Switch $En_De
    Case 0
    Switch $Str_Dat
    Case 0
    If Not IsString($StEncode) Then Return SetError(1, 0, -4)
    Return EncodeString($StEncode, $Stschluss, $Str_Dat)
    Case 1
    If Not FileExists($StEncode) Then Return SetError(1, 0, -2)
    $F_Open = FileOpen($StEncode, 0)
    If ($F_Open = -1) Then Return SetError(1, 0, -3)
    While True
    $Red_Line = FileReadLine($F_Open)
    If @error Then ExitLoop
    If $Leer Then
    If $Red_Line Then $A_Red &= EncodeString($Red_Line, $Stschluss, $Str_Dat)
    Else
    $A_Red &= EncodeString($Red_Line, $Stschluss, $Str_Dat)
    EndIf
    WEnd
    FileClose($F_Open)
    Return $A_Red
    EndSwitch
    Case 1
    Switch $Str_Dat
    Case 0
    If Not IsString($StEncode) Then Return SetError(1, 0, -4)
    Return DecodeString($StEncode, $Stschluss, $Str_Dat)
    Case 1
    If Not FileExists($StEncode) Then Return SetError(1, 0, -2)
    $F_Open = FileOpen($StEncode, 0)
    If ($F_Open = -1) Then Return SetError(1, 0, -3)
    While True
    $Red_Line = FileReadLine($F_Open)
    If @error Then ExitLoop
    $A_Red &= DecodeString($Red_Line, $Stschluss, $Str_Dat)
    WEnd
    FileClose($F_Open)
    Return $A_Red
    EndSwitch
    EndSwitch
    EndFunc ;==>Encode_DecodeString

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

    Func EncodeString($StEncode, $Stschluss, $Str_Dat)
    $StEncode = StringReplace(StringReplace(StringReplace(StringReplace(StringReplace(StringReplace(StringReplace($StEncode, 'Ü', '0xUx0', 0, 1), 'ü', '0xux0', 0, 1), 'Ä', '0xAx0', 0, 1), 'ä', '0xax0', 0, 1), 'Ö', '0xOx0', 0, 1), 'ö', '0xox0', 0, 1), 'ß', '0xsx0')
    Local $A_Enc = StringToASCIIArray($Stschluss)
    Local $UB = StringLen($StEncode)
    Local $UB_I = UBound($A_Enc)
    Local $Result
    If $Stschluss Then
    $A_Enc = StringToASCIIArray(_StringRepeat($Stschluss, Round($UB / StringLen($Stschluss)) + 1))
    Else
    ReDim $A_Enc[$UB + 1]
    For $i = $UB_I To $UB
    $A_Enc[$i] = Asc(Int(($UB - $i) + 1))
    Next
    EndIf
    For $i = 1 To $UB
    $Result &= Chr((Asc(StringRight($StEncode, ($UB - $i) + 1)) + $A_Enc[$i]))
    Next
    If $Str_Dat Then Return $Result & @CRLF
    Return $Result
    EndFunc ;==>EncodeString

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

    Func DecodeString($StDecode, $Stschluss, $Str_Dat)
    If ($StDecode = -1) Then Return SetError(1, 0, -1)
    Local $A_Dec = StringToASCIIArray($Stschluss)
    Local $UB = StringLen($StDecode)
    Local $UB_I = UBound($A_Dec)
    Local $Result
    If $Stschluss Then
    $A_Dec = StringToASCIIArray(_StringRepeat($Stschluss, Round($UB / StringLen($Stschluss)) + 1))
    Else
    ReDim $A_Dec[$UB + 1]
    For $i = $UB_I To $UB
    $A_Dec[$i] = Asc(Int(($UB - $i) + 1))
    Next
    EndIf
    For $i = 1 To $UB
    $Result &= Chr((Asc(StringRight($StDecode, ($UB - $i) + 1)) - $A_Dec[$i]))
    Next
    $Result = StringReplace(StringReplace(StringReplace(StringReplace(StringReplace(StringReplace(StringReplace($Result, '0xUx0', 'Ü', 0, 1), '0xux0', 'ü', 0, 1), '0xAx0', 'Ä', 0, 1), '0xax0', 'ä', 0, 1), '0xOx0', 'Ö', 0, 1), '0xox0', 'ö', 0, 1), '0xsx0', 'ß')
    If $Str_Dat Then Return $Result & @CRLF
    Return $Result
    EndFunc ;==>DecodeString

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

    Func EncDecString($StEncode, Const $Stschluss, Const $Str_Dat = 0)
    If Not $StEncode Then Return SetError(1, 0, -1)
    Switch $Str_Dat
    Case 0
    If FileExists($StEncode) Or Not IsString($StEncode) Then Return SetError(1, 0, -4)
    Return VerEnd_S($StEncode, $Stschluss)
    Case 1
    If Not FileExists($StEncode) Then Return SetError(1, 0, -2)
    Local $F_Open = FileOpen($StEncode, 0), $F_Rad
    If ($F_Open = -1) Then Return SetError(1, 0, -3)
    $F_Rad = FileRead($F_Open)
    FileClose($F_Open)
    Return VerEnd_S($F_Rad, $Stschluss)
    EndSwitch
    EndFunc ;==>EncDecString
    ;===================================================================================================================================#
    ;~ Function Name......: VerEnd_S($sEncDec, $sPass)
    ;~ Description........: Verschlüsselung von String´s
    ;
    ;~ $sEncDec...........: String der Verschlüsselt werden soll
    ;~ $sPass.............: Verslüsselung metode ( Passwor ) kann leer gelassen werden
    ;
    ;~ Return Value(s)....: Erfolg String mit der Verschlüsslung
    ;
    ;~ Author(s).........: Kleiner27 (http://www.autoit.de)
    ;====================================================================================================================================#
    Func VerEnd_S($sEncDec, $sPass)
    If Not $sPass Then $sPass = 'abcdefghijklmnopqrstuvwxyz'
    Local $iEncDec, $iPass, $UB, $UB_1, $UB_2
    $UB = StringLen($sEncDec)
    $UB_1 = StringLen($sPass)
    For $i = 1 To $UB_1
    $iPass &= '0D9158ac' & StringMid($sPass, $i, 1) & '09158Gac' & Asc(StringMid($sPass, $i, 1)) & '0X91ac58' & Chr(122 - $i)
    Next
    $sPass = ''
    $UB_2 = Round($UB / StringLen($iPass)) + 1
    For $i = 0 To $UB_2
    $sPass &= $iPass
    Next
    For $i = 1 To $UB
    $iEncDec &= Chr(BitXOR(Asc(StringMid($sEncDec, $i, 1)), Asc(StringMid($sPass, $i, 1))))
    Next
    Return $iEncDec
    EndFunc ;==>VerEnd_S

    [/autoit]


    LG Kleiner

  • Fileliste mit dateien von heute

    Hi!


    Alle datein beim auslesen auf datum prüfen und nur diese ausgeben die von heute sind!
    o. in eine Array Speichen und dann Prüfen!

    Sorry , beim auslesen wird ein Array :whistling: erstellt bevor du dir ausgabe anzeigst Filterst du dein Array.

    Mit: ;)

    [autoit]

    FileGetTime

    [/autoit]

    Lg Kleiner

  • IsPrim(Zahl)

    Hi!

    nuts
    Den Post habe ich wohl übersehen :huh:
    Mein test´s: Primzahl(9999991) * 10000 (Durchgängen)

    Spoiler anzeigen
    [autoit]

    Prüfung auf Prim _GetPrimeFactors(9999991) * 10000 Durchgänge : 9.6828 msc
    Prüfung auf Prim IsPrime2(9999991) * 10000 Durchgänge : 4.5376 msc
    Prüfung auf Prim IsPrim(9999991) * 10000 Durchgänge : 3.7693 msc

    [/autoit]

    @TheShadowAE
    Wie arbeitet man mit deiner Func?

    LG Kleiner

  • IsPrim(Zahl)

    Hi!

    Leute habe mich mit den Primzahlen bechäftigt !
    Als ich diese Thema gelesen habe dachte ich mir komm schau mal was du kanns wobei hir auch schon ein Wettbewerb gab!

    08. Januar 2010: In einer Gemeinschaftsaktion haben internationale Institute einen 768-Bit-Schlüssel geknackt. Schon bald wollen sie den 1024-Bit-Schlüssel auslesen. Experten warnen vor großen Sicherheitslücken.
    Die heute gebräuchlichen Schlüssel zur Sicherung etwa von Kreditkartennummern im Internet könnten nach Erkenntnissen von Forschern schon in einigen Jahren unsicher werden. Ein internationales Team unter Bonner Beteiligung hat jetzt einen 768 Bit langen Schlüssel geknackt. Das sei eine Zahl mit 232 Stellen und damit Weltrekord, teilte die Universität Bonn am Freitag mit.
    Damit sind die Forscher dem aktuell gängigen Schlüssel von 1024 Bit schon ein Stück näher gekommen. Die Forscher nutzten ein Computernetzwerk. Auf einem herkömmlichen PC hätte das Knacken dieses Schlüssels nach ihren Angaben rund 2.000 Jahre gedauert.
    Viele Verfahren zur Verschlüsselung sensibler Daten beruhen darauf, dass es äußerst schwierig ist, große Zahlen in ihre sogenannten Primfaktoren zu zerlegen. Primfaktoren sind diejenigen Primzahlen, die multipliziert die gesuchte Zahl ergeben. So hat etwa die Zahl 21 die Primfaktoren 3 und 7 (3 mal 7 gleich 21). Drei US-Forscher entwickelten 1977 ein Verfahren zur Datenverschlüsselung und nutzten es später auch kommerziell. Ihre nach ihren Initialen "RSA" genannte Technik steckt inzwischen in jedem Internet-Browser. Ein kleines Programm verschlüsselt dort etwa Kreditkartennummern so, dass böswillige Lauscher mit ihnen nichts anfangen können.
    Die jetzt geknackte Zahl trägt die nüchterne Bezeichnung RSA-768, das heißt, sie hat 768 Bit. In Dezimalschreibweise entspricht das 232 Stellen. Damit handelt es sich um das größte Zahlenungetüm von allgemeiner Form, das bislang in seine Primfaktoren zerlegt wurde. "Die Zerlegung eines 1024-Bit-Schlüssels wäre um drei Größenordnungen schwieriger als das jetzt abgeschlossene Projekt", sagte Prof. Jens Franke vom Institut für Mathematik der Universität Bonn. Dennoch werde der erste 1024-Bit-Schlüssel vermutlich noch vor Ende des Jahrzehnts geknackt.

    So da habe ich mich halt versucht, die Funktionen von Wettbewerb habe ich nicht schlagen können! :huh:
    Aber ich habe eine Möglichkeit gefunden Primzahlen zu Prüfen!

    Func: IsPrim

    Spoiler anzeigen
    [autoit]

    ; #FUNCTION# ;=============================================================================================
    ;
    ; Name...........: IsPrim($maxZahl)
    ; Description ...: Prüft ob eine Zahl eine Primzahl ist
    ; Syntax.........: $maxZahl = eine Zahl
    ; Parameters ....:
    ; Return values .: 1/ ist 0/keine Primzahl
    ;
    ;
    ; Author ........: Kleiner27 (http://www.AutoIT.de)
    ;
    ; ;=========================================================================================================

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

    Func IsPrim($maxZahl)
    If ($maxZahl < 2) Then Return 0
    If ($maxZahl = 2) Or ($maxZahl = 3) Then Return 1
    If (Mod($maxZahl, 2)) * (Mod($maxZahl, 3)) > 0 Then
    For $i = 6 To Round(Sqrt($maxZahl) + 1) Step 6
    If (((Mod($maxZahl, ($i - 1))) * (Mod($maxZahl, ($i + 1)))) = 0) Then Return 0
    Next
    Return 1
    EndIf
    Return 0
    EndFunc ;==>IsPrim

    [/autoit]


    und noch IsPrim_2 die bei 1000000 rund 4 sec. braucht

    Spoiler anzeigen
    [autoit]

    ; #FUNCTION# ;=============================================================================================
    ;
    ; Name...........: IsPrim_2($Prim)
    ; Description ...: Prüft ob eine Zahl eine Primzahl ist
    ; Syntax.........: $Prim = eine Zahl
    ; Parameters ....:
    ; Return values .: True /False
    ;
    ;
    ; Author ........: Kleiner27 (http://www.AutoIT.de)
    ;
    ; ;=========================================================================================================
    Func IsPrim_2($Prim)
    Dim $Qu_W = Sqrt($Prim)
    Dim $p[$Prim + 1]
    Dim $lngP = 1
    Do
    Do
    $lngP += 1
    Until Not $p[$lngP]
    For $lngI = $lngP To $Prim Step $lngP
    $p[$lngI] = 1
    Next
    Until ($lngP > $Qu_W)
    Return Not $p[$Prim]
    EndFunc ;==>IsPrime

    [/autoit]


    Und die GetPrim die bei maxZahl ( 1299710) rund 12 Optimiert auf rund 6-6.5 sec. braucht

    Spoiler anzeigen
    [autoit]

    ; #FUNCTION# ;=============================================================================================
    ;
    ; Name...........: GetPrim($MaxZ, $Delim = ' ')
    ; Description ...: Listet die Primzahlen bis Max
    ; Syntax.........: $MaxZ = eine Zahl / $Delim Trennung der ausgabezahlen
    ; Parameters ....:
    ; Return values .: Alle Primzahlen bis Max
    ;
    ;
    ; Author ........: Kleiner27 (http://www.AutoIT.de)
    ;
    ; ;=========================================================================================================

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

    Func GetPrim($MaxZ, $Delim = ' ')
    If ($MaxZ < 2) Then Return 0
    If ($MaxZ = 3) Then Return 2
    Dim $Flag[$MaxZ + 1], $Prim = 2 & $Delim
    For $i = 1 To $MaxZ Step 2
    $Flag[$i] = 1
    Next
    For $i = 3 To $MaxZ Step 2
    If ($Flag[$i]) Then
    For $e = ($i ^ 2) To $MaxZ Step $i
    $Flag[$e] = 0
    Next
    $Prim &= $i & $Delim
    EndIf
    Next
    Return $Prim
    EndFunc ;==>GetPrim

    [/autoit]

    LG Kleiner

  • Eine VBScript IIf ()-Funktion in AutoIT

    Hi Leute!

    Habe schon der Öffteren mich über viele If abfragen geergert und in anderen Foren die IIF abfrage von VB gesehen, da habe "Versucht" :rolleyes: in AutoIT ein IIF Func zu Skripten.
    Rausgekommen ist nichts wildes aber man kann schon eineige zeilen Code Sparen! :D

    Hir die IIF.au3 ich denke sie ist Selbsterklärend
    Ich hoffe das ich keine Operatoren Vergessen habe! :D


    Spoiler anzeigen
    [autoit]

    ;===================================================================================================================================#
    ;~ Function Name....: IIF($expr, $Truepart = True, $Falsepart = False, $Spr = -1, $sOP = 0, $sOr = 0)
    ;
    ;~ Description......: If Abfrage
    ;~ $expr............: Wert zu Prüfung
    ;~ $Truepart........: Wenn Wert bei der Prüfung Wahr = ausgabe ( z.B True [Standart])
    ;~ $Falsepart.......: Wenn Wert bei der Prüfung Falsch = ausgabe ( z.B False [Standart])
    ;~ $Spr.............: Wert zu Prüfung mit $expr (Standart -1 wird nur $expr auf Bool True/False Überprüft)
    ;
    ;~ $sOP.............: Mit welcher Operation soll geprüft werden:0 '=
    ; 1 '==
    ; 2 '<>
    ; 3 '>
    ; 4 '<
    ; 5 '>=
    ; 6 '<=
    ; 7 'Or
    ; 8 'Not
    ;
    ;~ $sOr.............: Prüfung für die Or anweisung Standart : 0 '($expr = $Spr) Or ($expr <> $Spr)
    ; 1 '($expr = $Spr) Or ($expr > $Spr)
    ; 2 '($expr = $Spr) Or ($expr < $Spr)
    ; 3 '($expr = $Spr) Or ($expr >= $Spr)
    ; 4 '($expr = $Spr) Or ($expr <= $Spr)
    ; 5 '($expr <> $Spr) Or ($expr > $Spr)
    ; 6 '($expr <> $Spr) Or ($expr < $Spr)
    ; 7 '($expr <> $Spr) Or ($expr >= $Spr)
    ; 8 '($expr <> $Spr) Or ($expr <= $Spr)
    ; 9 '($expr > $Spr) Or ($expr < $Spr)
    ; 10 '($expr > $Spr) Or ($expr <= $Spr)
    ; 11 '($expr > $Spr) Or ($expr >= $Spr)
    ; 12 '($expr < $Spr) Or ($expr <= $Spr)
    ; 13 '($expr < $Spr) Or ($expr >= $Spr)
    ;
    ;~ Return Value(s)..: Auswertung der Prüfung True/False Benutzer(Ausgabe)
    ;
    ;~ Author(s)........: Kleiner (http://www.autoit.de)
    ;====================================================================================================================================#

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

    Func IIF($expr, $Truepart = True, $Falsepart = False, $Spr = -1, $sOP = 0, $sOr = 0)
    If ($Spr = -1) Then
    If $expr Then Return $Truepart
    Else
    Switch $sOP
    Case 0
    If ($expr = $Spr) Then Return $Truepart
    Case 1
    If ($expr == $Spr) Then Return $Truepart
    Case 2
    If ($expr <> $Spr) Then Return $Truepart
    Case 3
    If ($expr > $Spr) Then Return $Truepart
    Case 4
    If ($expr < $Spr) Then Return $Truepart
    Case 5
    If ($expr >= $Spr) Then Return $Truepart
    Case 6
    If ($expr <= $Spr) Then Return $Truepart
    Case 7
    Switch $sOr
    Case 0
    If ($expr = $Spr) Or ($expr <> $Spr) Then Return $Truepart
    Case 1
    If ($expr = $Spr) Or ($expr > $Spr) Then Return $Truepart
    Case 2
    If ($expr = $Spr) Or ($expr < $Spr) Then Return $Truepart
    Case 3
    If ($expr = $Spr) Or ($expr >= $Spr) Then Return $Truepart
    Case 4
    If ($expr = $Spr) Or ($expr <= $Spr) Then Return $Truepart
    Case 5
    If ($expr <> $Spr) Or ($expr > $Spr) Then Return $Truepart
    Case 6
    If ($expr <> $Spr) Or ($expr < $Spr) Then Return $Truepart
    Case 7
    If ($expr <> $Spr) Or ($expr >= $Spr) Then Return $Truepart
    Case 8
    If ($expr <> $Spr) Or ($expr <= $Spr) Then Return $Truepart
    Case 9
    If ($expr > $Spr) Or ($expr < $Spr) Then Return $Truepart
    Case 10
    If ($expr > $Spr) Or ($expr <= $Spr) Then Return $Truepart
    Case 11
    If ($expr > $Spr) Or ($expr >= $Spr) Then Return $Truepart
    Case 12
    If ($expr < $Spr) Or ($expr <= $Spr) Then Return $Truepart
    Case 13
    If ($expr < $Spr) Or ($expr >= $Spr) Then Return $Truepart
    EndSwitch
    Case 8
    If Not $expr Then Return $Truepart
    EndSwitch
    EndIf
    Return $Falsepart
    EndFunc ;==>IIF

    [/autoit]

    Edit:/ Beachten mein Post einfach nicht bitte diesen ---> Link ( _Iif() ) Danke :rolleyes:
    LG Kleiner

  • MsgBox mit Hilfe-Button

    Hi!


    Ich finde den Hilfe butten sehr Hilfreich weil viele Msg dazu genutzt werden fehler meldungen auszugeben oder auch ereignisse!
    Supper :D
    Ich bin dafür das der HilfeButton in der Hilfe aufgenommen wird ^^


    LG Kleiner

  • Uhrzeit der selbstgeschriebenen Uhr springt

    Hi!


    Mach es doch ein wenig kürzer! ;)

    Spoiler anzeigen
    [autoit]

    #include <WindowsConstants.au3>
    #include <GUIConstants.au3>
    #include <StaticConstants.au3>

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

    $Form1Uhr = GUICreate("Uhr", 330, 96, 880, 1, 0, BitOR($WS_EX_TOOLWINDOW, $WS_EX_TOPMOST))
    $Label1Stunden = GUICtrlCreateLabel(@HOUR & ':' & @MIN & ':' & @SEC, 10, 16, 320, 65)
    GUICtrlSetFont(-1, 40, 400, 0, "Courier New")
    GUISetState()

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

    While 1 * Sleep(1000)
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    Case Else
    GUICtrlSetData($Label1Stunden,StringFormat('%02d:%02d:%02d', @HOUR, @MIN, @SEC))
    EndSwitch
    WEnd

    [/autoit]

    LG Kleiner