Beiträge von PrideRage

  • Schleife - Variable aus Datei

    Hallo.
    Du kannst es so lösen:

    Spoiler anzeigen
    [autoit]

    #include <File.au3>
    $Array
    $File = _FileReadToArray("test.txt", $Array)
    For $i = 0 To UBound($Array) - 1
    If StringInStr("Welche Variable soll gefunden werden?", $Array[$i])
    ;Eingabe
    EndIf
    Next

    [/autoit]

    Nach StringInStr kannst du dann den Namen einer Variable angeben.
    Beispiel:
    Du möchtest die Variable $var1 in test.txt finden, die $var1, $var2 und $var3 beinhaltet,
    dann musst du die StringInStr funktion so ändern:

    [autoit]

    StringInStr("$var1", $Array[$i])

    [/autoit]


    MfG. PrideRage

  • Crown-Master

    Es ist iwie nur noch leichter geworden :S
    Habe mit einem mal 900 Mio gewonnen xD
    Damit habe ich auch nen Bug gefunden.
    Hatte 500 mio, als ich dann 900 mio bekam hat sich mein Kontostand nicht erhöht :(
    Es macht trotzdem weiterhin spaß, aber du könntest die Gewinnsummen etwas senken ;)
    MfG. PrideRage

  • Crown-Master

    Hallo Oscar.
    Cooles spiel. Macht wirklich "süchtig" ;)
    Es ist aber zu einfach. Binnen 10 Minuten war ich schon bei 100 Mio. €
    Dein Risiko ist viel zu leicht gehalten, das könntest du schwerer machen.
    Aber nichts desto trotz ist es cool.
    Einen Bug hab ich gefunden, und zwar dass die Icons flimmern. (Win XP 32 Bit)
    Aber ich glaub das liegt an AutoIt.
    MfG. PrideRage

  • Gleichungslöser

    Sehr schönes Skript.
    Kann einem ganz gut weiterhelfen, jedoch brauchen wir in Mathe mehr als die Lösung ;)
    Für mich funzt das Skript wunderbar und deswegen find ich's auch klasse.
    Mich nervt trotzdem dass "x" manchmal 0 bleibt ohne offensichtlichen Grund.
    Du solltest also ein error handling einbauen.
    MfG. PrideRage

  • C++ Tutorial für Anfänger

    Du solltest in deinem Tutorial auch auf die Datentypen eingehen.
    Denn $var = 5 wäre int var = 5
    aber $var = "Hallo" wäre char var [6] = "Hallo"
    Du könntest dein Tutorial gerne Fortsetzen, daran wird dich niemand hindern.
    Aber du solltest es nicht zu oberflächlich erklären.
    Wer ganz neu in C++ ist und seine erste Konsolenausgabe machen will,
    für den ist int var = 5 noch weit weg ;)
    MfG. PrideRage

  • [abgeschlossen] µitLight August '10

    Hier ist mein Skript.
    Ich habe meinen Algorithmus selbst gemacht, ist auch nix besonderes :whistling:

    Haupt Code
    [autoit]

    #include <Array.au3>
    #include <EditConstants.au3>
    #include <GUIConstantsEx.au3>
    #include "Letters.au3"
    #include <WindowsConstants.au3>

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

    #cs
    Fehlercodes:
    1: Der zu verschluesselnde String ist kein String oder ist leer.
    2: Die Anzahl der Schritte ist ungueltig.
    3: Das Passwort ist zu lang.

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

    Fuer genauerere erklaerungen zu 1 & 2 siehe Funktionsbeschreibung in Letters.au3

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

    Bemerkung: Beim verschluesseln werden Spezialzeichen nicht beachtet, damit sie im verschluesselten String
    keine Fehler erzeugen.
    #ce

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

    $gui = GUICreate("PrideRage's Crypter", 564, 450, 192, 124)
    $input = GUICtrlCreateEdit("", 8, 32, 265, 409)
    GUICtrlSetData(-1, "String der verschlüsselt werden soll.")
    $output = GUICtrlCreateEdit("", 282, 31, 265, 409, BitOR($ES_AUTOVSCROLL,$ES_AUTOHSCROLL,$ES_READONLY,$ES_WANTRETURN,$WS_HSCROLL,$WS_VSCROLL))
    GUICtrlSetData(-1, "")
    $btn = GUICtrlCreateButton("Verschlüsseln", 144, 0, 105, 25, $WS_GROUP)
    $decrypt = GUICtrlCreateButton("Entschlüsseln", 256, 0, 97, 25, $WS_GROUP)
    $pw = GUICtrlCreateInput("Passwort", 360, 2, 185, 21)
    $infobtn = GUICtrlCreateButton("Info", 20, 2, 80, 20)
    GUISetState(@SW_SHOW)

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

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    Case $btn
    $text = GUICtrlRead($input)
    $pass = GUICtrlRead($pw)
    _Crypt($text, $pass)
    If @error Then
    MsgBox(0, "Error", "Ein Fehler ist aufgetaucht, Fehlercode: " & @error)
    EndIf
    Case $decrypt
    $text1 = GUICtrlRead($input)
    $pass1 = GUICtrlRead($pw)
    _Decrypt($text1, $pass1)
    If @error Then
    MsgBox(0, "Error", "Ein Fehler ist aufgetaucht, Fehlercode: " & @error)
    EndIf
    Case $infobtn
    MsgBox(64, "Info", "Das Passwort darf nicht laenger als der zu verschluesselnde String sein." & _
    @CRLF & "Made by PrideRage!")
    EndSwitch
    WEnd

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

    Func _Crypt($sText, $sPassword)
    If StringLen($sPassword) >= StringLen($sText) Then Return SetError(3, 3, 3)
    Local $str = _StringExplode($sText, ""), $spw = _StringExplode($sPassword, ""), $return, $len = StringLen($sPassword)
    For $i = 0 To UBound($spw) - 1
    _ArrayInsert($str, $i+$i+2, $spw[$i])
    Next

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

    For $a = 0 To UBound($str) - 1
    $return &= _NextLetter($str[$a], $len)
    If @error Then Return @error
    Next

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

    GUICtrlSetData($output, $return)
    EndFunc

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

    Func _Decrypt($sText, $sPassword)
    If StringLen($sPassword) >= StringLen($sText) Then Return SetError(3, 3, 3)
    Local $str = _StringExplode($sText, ""), $spw = _StringExplode($sPassword, ""), $return, $len = StringLen($sPassword)

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

    For $o = 0 To UBound($spw) - 1
    _ArrayDelete($str, $o+2)
    Next

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

    For $a = 0 To UBound($str) - 1
    $return &= _NextLetter($str[$a], $len*-1)
    If @error Then Return @error
    Next

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

    GUICtrlSetData($output, $return)
    EndFunc

    [/autoit]
    Verschlüsselungscode
    [autoit]

    #include-once
    #include <String.au3>
    Global Const $Suffix[26] = ["1", "2", "3", "4", "5", "6", "7", "8", "9", "A", "B", "C", "D", "E", "F", "0", "1", "2", "3", "4", "5", "6", "7", "8", "9", "A"]

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

    ; #FUNCTION# ======================================================================================
    ; Name ..........: _NextLetter()
    ; Description ...: Gibt den Buchstaben weg, der $iSteps von dem Ausgangsbuchstaben entfernt ist wieder.
    ; Syntax ........: _NextLetter($sLetter, $iSteps)
    ; Parameters ....: $sLetter -
    ; $iSteps - Wie weit der nächst gesuchte Buchstabe entfernt ist,
    ; falls Buchstaben vor dem Buchstaben $sLetter gesucht werden, muss $iSteps eine
    ; negative Zahl sein.
    ; Return values .: Erfolg - Der nächste Buchstabe
    ; Fehler - @error = 1: $sLetter ist kein String oder hat keinen Inhalt
    ; @error = 2: $iSteps ist keine Zahl
    ; Author ........: PrideRage
    ; Example .......: Yes
    ; #include "Letters.au3"
    ; MsgBox(0, "Buchstabe", "Der Buchstabe nach d ist " & _NextLetter("d", 1))
    ; MsgBox(0, "Buchstabe", "2 Buchstaben nach a ist " & _NextLetter("a", 2))
    ; =================================================================================================

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

    Func _NextLetter($sLetter, $iSteps)
    If Not IsString($sLetter) Or $sLetter = "" Then Return SetError(1, 1, 1)
    If Not IsNumber($iSteps) Then Return SetError(2, 2, 2)
    Local $ltr = _StringExplode(_StringToHex($sLetter), ""), $counter = 0, $flag, $ret = 0, $rflag = 0
    If $ltr[0] < 4 Or $ltr[0] > 7 Then Return $sLetter

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

    Switch $ltr[0]
    Case 4
    $flag = 4
    Case 5
    $flag = 5
    Case 6
    $flag = 6
    Case 7
    $flag = 7
    EndSwitch

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

    If $ltr[0] = 7 Or $ltr[0] = 5 Then $counter = 15

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

    Do
    StringCompare($ltr[1], $Suffix[$counter])
    $counter += 1
    Until StringCompare($ltr[1], $Suffix[$counter-1]) = 0

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

    If $counter - 1 + $iSteps >= 26 Then
    $ret = ($counter-1+$iSteps)-26
    $rflag = 1
    $counter = $ret
    EndIf

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

    If $counter - 1 + $iSteps < 0 Then
    $ret = ($counter-1+$iSteps)+26
    $rflag = 1
    $counter = $ret
    EndIf

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

    Switch $rflag
    Case 1
    If $counter < 15 And $flag = 5 Then $ltr[0] -= 1
    If $counter >= 16 And $flag = 4 Then $ltr[0] += 1
    If $counter < 15 And $flag = 7 Then $ltr[0] -= 1
    If $counter >= 16 And $flag = 6 Then $ltr[0] += 1
    Case Else
    If $counter - 1 + $iSteps < 15 And $flag = 5 Then $ltr[0] -= 1
    If $counter - 1 + $iSteps >= 16 And $flag = 4 Then $ltr[0] += 1
    If $counter - 1 + $iSteps < 15 And $flag = 7 Then $ltr[0] -= 1
    If $counter - 1 + $iSteps >= 16 And $flag = 6 Then $ltr[0] += 1
    EndSwitch

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

    If $rflag = 0 Then
    Local $suf = $Suffix[$counter - 1 + $iSteps]
    ElseIf $rflag = 1 Then
    Local $suf = $Suffix[$counter]
    EndIf

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

    Return _HexToString($ltr[0] & $suf)
    EndFunc

    [/autoit]

    Den Verschlüsselungscode als Letters.au3 speichern.

  • Stuttgart 21

    Zitat von BugFix

    Damals wurden 20 min weniger Fahrzeit für eine Strecke benötigt als jetzt und genau dieser Status soll mit Milliardeninvestitionen wieder erreicht werden - also nix Neues oder Besseres.

    Tja, das ist halt Politik, wenn sich etwas verschlechtert muss der alte zustand erreicht werden.
    Aber wehe man will mal etwas neues einfühen :/

    Ich wohne zwar nicht in Stuttgart, aber mich geht dieses Thema schon etwas an,
    da das Geld dem Staat fehlen wird, und der Steuerzahler muss, wie immer, dafür blechen.
    Warum interessiert es die Politiker eigentlich, wie schnell man mit der Bahn fährt,
    wenn es so viele wichtigere Themen gibt ? (Solarenergie, Weniger CO² ausstoß etc..)

  • In Files Sätze einfügen???

    So geht es ganz einfach

    [autoit]

    _FileWriteToLine($sFile, $iLine, $sText [, $fOverWrite = 0])

    [/autoit]


    $sFile ist die Datei in der geschrieben werden soll.
    $iLine ist die Zeile (als Zahl ;) )
    $sText ist der Text der geschrieben werden soll
    Wenn $fOverWrite = 1 Dann wird die Zeile überschrieben, ansonsten wird nicht überschrieben.
    MfG. PrideRage

  • Klick auf GDI+ Objekt überprüfen

    Du musst mit GuiGetCursorInfo die Mauskoordinaten + einen Klick feststellen.
    Beispiel:

    Spoiler anzeigen
    [autoit]

    $Form1 = GUICreate("Form1", 500, 500, -1, -1)
    GUISetState(@SW_SHOW)

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

    While 1
    $mouse = GUIGetCursorInfo()
    If GUIGetMsg() = -3 Then Exit
    If $mouse[2] = 1 Then
    If $mouse[0] > 200 And $mouse[1] < 100 Then
    MsgBox(0, "Geklickt", "Du hast in der Region geklickt")
    EndIf
    EndIf
    Sleep(20)
    WEnd

    [/autoit]

    $mouse[0] ist die Maus-X-Koordinate, $mouse[1] die Y Koordinate.
    $mouse[2] beinhaltet 0 wenn die linke Maustaste nicht gedrückt ist, 1 wenn sie gedrückt ist.
    MfG. PrideRage

  • Bild Schwarzweiß machen in Assembler

    Wow super nice.
    Assembler macht AutoIt ja wirklich extrem schnell.
    Leider ist es nicht wirklich schwarz-weiß.
    Habe mir mal ein größeres, farbenfrohes Bild genommen, und es war nach 19 ms fertig.
    Darauf hatte ich dann ein schwarzes Bild mit einem weißen Streifen :/
    Aber bei der Mona klappts super.
    MfG. PrideRage

  • Portable App Studio

    Hallo.
    Du hast dein Programm nicht gut genug erklärt.
    Anhand der Buttons kann ich nicht entnehmen, wozu dieses Programm gecoded wurde.
    Ich kann die DOS Console aufrufen, den Explorer benutzen und sog. "Apps" hinzufügen.
    Wenn ich ne App hinzufügen will, und auf Load App klicke, freezt das Fenster,
    und nach einiger Zeit geht es weg, aber nichts verändert sich.
    Und zu guter letzt downloadest du i.was ausm Inet, was sich auf serverxyz.de befindet,
    diese Seite gibts aber nicht.
    Du solltest dich mal dran setzen und das Programm überarbeiten, damit es funktioniert,
    und du solltest deinen Thread ausführlicher erklären.
    MfG. PrideRage