Beiträge von i2c

  • 2d array befüllen

    Wo liegt das Problem? Bis auf den kleinen Fehler in Zeile 18 funktioniert doch alles?

    Spoiler anzeigen
    [autoit]

    #include <Array.au3>
    #include <arraymore.au3>
    Dim $aArray1[3][2], $array[2], $aArray[3][2]
    $Wert = "dfgh"

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

    ;;;;;;;;;;;;;;1d array;;;;;;;;;
    _ArrayDisplay($array, "1d vor befüllen")
    _ArrayAdd($array, $Wert)
    _ArrayDisplay($array, "daten nach befüllen")

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

    ;;;;;;;;;;;;;;2d array;;;;;;;;;
    _ArrayDisplay($aArray1, " 2d vor befüllen")
    _array2dInsert($aArray1, 2, "neu|neu")
    _ArrayDisplay($aArray1, " 2d nach befüllen")

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

    ;;;;;;;;;;;2d array mit var;
    _ArrayDisplay($aArray, " 2d vor var befüllen")
    _array2dInsert($aArray, 2, "|(" & $Wert & ")")
    _ArrayDisplay($aArray, " 2d nach var befüllen")

    [/autoit]

  • array auffüllen und sortieren

    Spoiler anzeigen
    [autoit]

    #include <array.au3>

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

    Dim $aArray[8][2] = [["Dat0", ""], ["Dat1", "Text1"], ["Dat2", ""], ["Dat3", "Text2"], ["Dat4", "Text3"], ["Dat5", ""], ["Dat6", ""], ["Dat7", "Text4"]]
    _ArrayDisplay($aArray)

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

    For $i =0 To UBound($aArray)-1
    If $aArray[$i][1] = "" Then
    For $j = $i +1 To UBound($aArray)-1
    If $aArray[$j][1] <> "" Then
    $aArray[$i][1] = $aArray[$j][1]
    $aArray[$j][1] = ""
    ExitLoop
    EndIf
    Next
    EndIf
    Next
    _ArrayDisplay($aArray)

    [/autoit]

  • Problem: Gui Botton verändern

    GUICtrlSetPos()

    Spoiler anzeigen
    [autoit]

    #include <ButtonConstants.au3>
    #include <EditConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <SliderConstants.au3>
    #include <StaticConstants.au3>
    #include <WindowsConstants.au3>

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

    #region ### START Koda GUI section ### Form=
    $Form1 = GUICreate("Test-Form", 322, 135, 190, 127)
    $Slider1 = GUICtrlCreateSlider(160, 8, 105, 17, $TBS_TOOLTIPS)
    GUICtrlSetLimit(-1, 50, 0)
    $Button1 = GUICtrlCreateButton("New Button", 208, 72, 57, 25)
    $Slider2 = GUICtrlCreateSlider(160, 32, 105, 17, $TBS_TOOLTIPS)
    GUICtrlSetLimit(-1, 100, 0)
    $Label4 = GUICtrlCreateLabel("Höhe", 272, 8, 36, 17)
    $Label5 = GUICtrlCreateLabel("Breite", 272, 32, 36, 17)
    GUISetState(@SW_SHOW)
    #endregion ### END Koda GUI section ###

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

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    Case $Button1
    $hoehe = GUICtrlRead($Slider1)
    $breite = GUICtrlRead($Slider2)
    GUICtrlSetPos($Button1, 208, 72, $breite, $hoehe)
    EndSwitch
    WEnd

    [/autoit]

  • Schnitzel hat Geburtstag!

    Externer Inhalt www.youtube.com
    Inhalte von externen Seiten werden ohne deine Zustimmung nicht automatisch geladen und angezeigt.
    Durch die Aktivierung der externen Inhalte erklärst du dich damit einverstanden, dass personenbezogene Daten an Drittplattformen übermittelt werden. Mehr Informationen dazu haben wir in unserer Datenschutzerklärung zur Verfügung gestellt.

  • Happy Birthday, Andy

    Externer Inhalt www.youtube.com
    Inhalte von externen Seiten werden ohne deine Zustimmung nicht automatisch geladen und angezeigt.
    Durch die Aktivierung der externen Inhalte erklärst du dich damit einverstanden, dass personenbezogene Daten an Drittplattformen übermittelt werden. Mehr Informationen dazu haben wir in unserer Datenschutzerklärung zur Verfügung gestellt.

  • Sortierung mit _ArraySort falsch

    Falsch Sortiert würde ich nicht sagen. Halst "anders".
    Ich kann mich jetzt täuschen aber das Problem ist nicht primär _arraySort() sondern StringCompare().
    Ich befürchte, für eine andere Sortierung braucht's eine eigene Funktion.

    Dein Skript lässt sich übrigens um einiges verkürzen.

    Spoiler anzeigen
    [autoit]

    #include <array.au3>
    #include <file.au3>
    $sEingabe = @ScriptDir & "\Eingabe.txt"
    $sAusgabe = @ScriptDir & "\Ausgabe.txt"

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

    LogSortieren($sEingabe, $sAusgabe)
    Exit

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

    Func LogSortieren($sEingabe, $sAusgabe)
    Dim $aDaten
    ;Einlesen
    _FileReadToArray($sEingabe, $aDaten)
    ;Array sortieren
    _ArraySort($aDaten, 0, 1)
    ;_ArrayDisplay($aDaten)
    ;schreiben
    _FileWriteFromArray($sAusgabe, $aDaten, 1)
    EndFunc ;==>LogSortieren

    [/autoit]

    edit: Versuch's mal so.

    Spoiler anzeigen
    [autoit]

    #include <array.au3>
    #include <file.au3>
    $sEingabe = @ScriptDir & "\Eingabe.txt"
    $sAusgabe = @ScriptDir & "\Ausgabe.txt"

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

    LogSortieren($sEingabe, $sAusgabe)
    Exit

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

    Func LogSortieren($sEingabe, $sAusgabe)
    Dim $aDaten
    ;Einlesen
    _FileReadToArray($sEingabe, $aDaten)
    ;Array sortieren
    ArraySort($aDaten, 0, 1)
    _ArrayDisplay($aDaten)
    ;schreiben
    _FileWriteFromArray($sAusgabe, $aDaten, 1)
    EndFunc ;==>LogSortieren

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

    Func ArraySort(ByRef $avArray, $iDescending = 0, $iStart = 0, $iEnd = 0, $iSubItem = 0)
    If Not IsArray($avArray) Then Return SetError(1, 0, 0)
    Local $iUBound = UBound($avArray) - 1
    If $iEnd < 1 Or $iEnd > $iUBound Then $iEnd = $iUBound
    If $iStart < 0 Then $iStart = 0
    If $iStart > $iEnd Then Return SetError(2, 0, 0)
    If $iEnd <= $iStart Then Return
    Local $vTmp
    If ($iEnd - $iStart) < 15 Then
    Local $vCur
    For $i = $iStart + 1 To $iEnd
    $vTmp = $avArray[$i]
    If IsNumber($vTmp) Then
    For $j = $i - 1 To $iStart Step -1
    $vCur = $avArray[$j]
    ; If $vTmp >= $vCur Then ExitLoop
    If ($vTmp >= $vCur And IsNumber($vCur)) Or (Not IsNumber($vCur) And StringCompare($vTmp, $vCur, 1) >= 0) Then ExitLoop
    $avArray[$j + 1] = $vCur
    Next
    Else
    For $j = $i - 1 To $iStart Step -1
    If (StringCompare($vTmp, $avArray[$j], 1) >= 0) Then ExitLoop
    $avArray[$j + 1] = $avArray[$j]
    Next
    EndIf
    $avArray[$j + 1] = $vTmp
    Next
    Return
    EndIf
    Return 1
    EndFunc ;==>ArraySort

    [/autoit]

  • AutoIt3.exe Parameter

    Der Pfad beinhaltet Leerstellen. Wenn du einen Pfad mit Leerstellen als Parameter übergeben willst, muss dieser in Anführungszechen gesetzt werden. Das ist bei dir nicht der Fall. Der Pfad endet also hinter Dokumente.

    Zitat

    Line 0 (File "C:\dokumente"]:
    Error: Error opening the file.

  • Array in List

    Spoiler anzeigen
    [autoit]

    #include <array.au3>
    #include <GUIConstants.au3>
    Dim $aDrucker[1]
    #region - GUI Create
    GUICreate('', 200, 200)
    For $i = 1 To 40
    $var = RegEnumVal("HKEY_USERS\.DEFAULT\Software\Microsoft\Windows NT\CurrentVersion\PrinterPorts", $i);Liest den Schlüssel
    If Not @error Then
    _ArrayAdd($aDrucker, $var)
    Else
    ExitLoop
    EndIf
    Next
    $cList = GUICtrlCreateList("", 8, 8, 180, 180)
    GUICtrlSetData(-1, _ArrayToString($aDrucker))
    GUISetState()
    #endregion - GUI Create

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

    #region - GUI SelectLoop
    While 1
    $msg = GUIGetMsg()
    Select
    Case $msg = $GUI_EVENT_CLOSE
    Exit
    EndSelect
    WEnd
    #endregion - GUI SelectLoop

    [/autoit]

  • Captcha-Bild in GUI einfügen

    Zitat von mannomann

    ich sag ihm einfach er soll ne API ohne Captcha machen.


    8| Davon war jetzt aber nirgendwo die Rede. Dann könnte er ja auch gleich die Captchas in der Registrierung deaktivieren.

    Die API soll lediglich den Kontakt zum Forensystem möglich machen und nicht dessen Funktionen umgehen. Es ist wesentlich sinnvoller, Informationen wie z.B. den Security Token oder auch den Link zum Captcha Image direkt vom System in einer formatierten Ausgabe bereitstellen zu lassen. Das selbe gilt für das Entgegennehmen der Infrmationen. Für den Registrierungsvorgang wird einfach die passende Klasse des vB eingeebunden und verwendet. Das gewährt die selbe Sicherheit wie bei einer "normalen" Registrierung, lässt sich aber wesentlich leichter ansprechen. Zugriffeberechtigungen auf die API kann man mit ein wenig Geschick auch validieren. Das dürfte bei der nativen Registrierung schwer fallen.

  • Captcha-Bild in GUI einfügen

    Zitat von anno2008

    Hier wäre eine Lösung mit WinHTTP angebracht, die die Seite und das Captcha mit dem selben Handle lädt...


    Das sollte klar sein. Mein Beispiel dort oben sollte eigentlich auch nur darstellen, wie man an den hash des Captchas kommt. Eine Anmeldung ist damit natürlich nicht möglich, weil der Security Token nichtmehr passt.

    Ich würde ja gerne was funktionierendes posten aber da baut sich dann der nächste Depp einen Registrierungsbomber draus :S.

    An den Threadstarter: Wenn du das mit dem Admin des betroffenen Forums abgesprochen hast, dann bitte ihm, eine kleine API für die Regitrierung zu schreiben. Das sind keine 150 Zeilen Code und vor allem bleibt sein Forum von ungewollten Nebenwirkungen verschont.

  • Captcha-Bild in GUI einfügen

    Doch, das müsste gehen. Ich kann's leider im Moment nicht testen, da das Forum nicht erreichbar ist.

    Spoiler anzeigen
    [autoit]

    #include <GUIConstants.au3>
    #Include <String.au3>
    #include <array.au3>
    #region - GUI Create
    GUICreate('', 200, 100)
    $sDomain = 'http://dpgvideos.net/Board/'
    $sSource = BinaryToString(InetRead($sDomain & 'register.php', 1), 4)
    $aResult = StringRegExp($sSource, '<img id="imagereg" src="(.*)" alt="Sicherheitsgrafik"', 1, 1)
    If IsArray($aResult) Then
    InetGet($sDomain & $aResult[0], @TempDir & "/captcha.jpg", 1,0)
    $cCaptcha = GUICtrlCreatePic(@TempDir & "/captcha.jpg",8,8)
    EndIf
    GUISetState()
    #endregion

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

    #region - GUI SelectLoop
    While 1
    $msg = GUIGetMsg()
    Select
    Case $msg = $GUI_EVENT_CLOSE
    Exit
    EndSelect
    WEnd
    #endregion

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