Beiträge von L3viathan

  • Villigers - Highscoreliste und Endgültige Version

    Ich kann mich nicht in die Highscores eintragen. Hast du das PWD rausgenommen, nachdem der Hacker da :S war?
    edit: Ein bisschen selbst schuld:

    Zitat von Scripter192

    jo schon klar ... aber wenn man die exe decompiliert, dann hat man die zugangsdaten ... was aber eigentlich illegal ist ...

    Wenn da keiner anbeißt...

  • DeskBAR

    Eine sehr einfache Sache wäre der POPUP-Style, sodass keine Fensterränder mehr zu sehen sind:

    [autoit]

    GUICreate("Bla",1,1,1,1,$WS_POPUP)

    [/autoit]

  • µit - März

    Bei mir ist es genau wie bei Funkey: Bloß hat mich nicht die Lust, sondern das Können verlassen.
    Hier meine Version, mit grafischer Oberfläche, ohne Benchmarkanbindung, ohne Backtracking...

  • µit Light April '09

    Zitat

    ! D:\Files\AUTOIT\µit Light\APRIL\franzp\maus.zip: Unknown method in maus.au3
    ! D:\Files\AUTOIT\µit Light\APRIL\franzp\maus.zip: No files to extract


    Er fragt nichtmal nach dem PWD...
    Schicks mir doch bitte nochmal unverschlüsselt als PN...

  • _MsgBoxEx.au3

    Idee:

    Spoiler anzeigen
    [autoit]

    Global $GUI_EVENT_CLOSE = -3
    Global Const $ES_READONLY = 2048
    Global Const $WS_VSCROLL = 0x00200000
    _MsgBoxEx("Test","Dies ist ein Test Text",2,"OK|OK2")
    _MsgBoxEx("Test","Dies ist ein Test Text",3,"OK|OK2|OK3",0xFF0000)
    ; ==========================================================================================================
    ; ##
    ; Name: _MsgBoxEx ##
    ; Funktion: Eine MsgBox bei der sich Farbe, Anzahl der Buttons und Beschriftung der Buttons ändern lässt. ##
    ; Rückgabewert : Zahl des ausgewählten Buttons Bsp. 1 = 1 Button 2 = 2 Button ##
    ; $Title: Titel der MsgBox. ##
    ; $Text: Text, der MsgBox. ##
    ; $Buttons_Names = Namen der Buttons sie werden mit einem | abgetrennt ##
    ; $Color: Farbe der MsgBox ##
    ; Author : nof@ker ##
    ; ==========================================================================================================
    Func _MsgBoxEx($Title,$Text,$Buttons_Names = "OK",$Color = 0xCCCCCC)
    Global $Value = 0
    Opt("GUIOnEventMode",1)
    $Buttons_Splitted=StringSplit($Buttons_Names,"|")
    $Buttons=$Buttons_Splitted[0]
    Global $GUI_MSGBOX=GUICreate($Title,($Buttons*100),100)
    GUISetState()
    GUISetBkColor($Color)
    $PosButts=0
    Dim $Buttons_Create[$Buttons_Splitted[0]+1]
    For $i=1 to Ubound($Buttons_Splitted,1)-1
    $Buttons_Create[$i]=GUICtrlCreateButton($Buttons_Splitted[$i],$PosButts,100-25,100)
    $PosButts=$PosButts+100
    Next
    For $i=1 to Ubound($Buttons_Create,1)-1
    GUICtrlSetOnEvent($Buttons_Create[$i],"_Return")
    Next
    $Edit=GUICtrlCreateEdit($Text,0,0,($Buttons*100),70,$ES_READONLY+$WS_VSCROLL)
    GUISetOnEvent($GUI_EVENT_CLOSE,"_Exit")
    Do
    Sleep(1000)
    Until $Value = 1
    Return $Return
    EndFunc ;==>_MsgBoxEx
    ;Name : _Exit
    ; Interne Funktion
    Func _Exit()
    Global $Value = 1
    Global $Return = 0
    GuiDelete($GUI_MSGBOX)
    SetError(@error,1)
    EndFunc ;==> _Exit
    ;Name : _Return
    ; Interne Funktion
    Func _Return()
    Global $Return = @GUI_CtrlId - 2
    Global $Value = 1
    GUIDelete($GUI_MSGBOX)
    EndFunc ;==> _Return

    [/autoit]


    Ich hoffe, du siehst den Unterschied. ;)

  • µit Light April '09

    Sehr schön, danke war10ck. :)

    Nicht vergessen: Die Frist läuft am 30. um 23:59 ab. Auswertung gibts dann am Montag (04.05. '09) oder Dienstag.
    Und nochmal: Es braucht sich hier keiner zu genieren, nur weil Progandy mitmacht. Erstens hat Progandy nicht zwangsläufig gewonnen, zweitens wird es mehrere Preise geben und drittens ist es ja auch µit Light "Olympia-edition": Dabei sein ist alles. :D

  • Mein erster Prüfsummenberechner

    Ich poste mal meine Version:

    Spoiler anzeigen
    [autoit]

    $Zahl=InputBox("","")
    $rechts=StringRight($Zahl,4)
    $links=StringLeft($Zahl,4)
    $nextes=$rechts+$links
    $pruef=_MathEx_Checksum($rechts,1)+_MathEx_Checksum($links,1)+_MathEx_Checksum($nextes,1)
    MsgBox(0,"",$Zahl & "-" & $nextes & "-" & $pruef)
    ; #FUNCTION# ====================================================================================================================
    ; Name...........: _MathEx_Checksum
    ; Description ...: Returns the Checksum of a number
    ; Syntax.........: _MathEx_Checksum($number[, $modus=0])
    ; Parameters ....: $number - Number to calc
    ; $modus - The kind of checksum: 0: normal; 1:iterate; 2:alternate
    ; Return values .: Success - The checksum
    ; Failure - -1, sets @error
    ; |1 - $number or $modus is not an integer
    ; Author ........: BugFix <BugFix at autoit dot de>, Matthias Gianfelice <matthias at gianfelice dot de>
    ; ===============================================================================================================================
    Func _MathEx_Checksum($number, $modus = 0)
    $integer_number_mathex_checksum = Number($number)
    If IsInt($integer_number_mathex_checksum) = 1 And $integer_number_mathex_checksum > 0 And IsInt($modus) Then
    While StringLen($integer_number_mathex_checksum) > 1
    Local $array_number_mathex_checksum = StringSplit($integer_number_mathex_checksum, '', 2)
    $integer_number_mathex_checksum = 0
    If $modus = 2 Then
    Local $mul = -1
    For $i = UBound($array_number_mathex_checksum) - 1 To 1 Step -1
    $array_number_mathex_checksum[$i - 1] = $array_number_mathex_checksum[$i] + ($mul * $array_number_mathex_checksum[$i - 1])
    $mul *= -1
    Next
    Return $array_number_mathex_checksum[0]
    Else
    For $i = 0 To UBound($array_number_mathex_checksum) - 1
    $integer_number_mathex_checksum += $array_number_mathex_checksum[$i]
    Next
    If $modus = 0 Then ExitLoop
    EndIf
    WEnd
    Return $integer_number_mathex_checksum
    Else
    SetError(1)
    Return -1
    EndIf
    EndFunc

    [/autoit]