Beiträge von Schnitzel

  • Domäne

    da gibts sooo viele. grundsätzlich dass du zwischen den einzelnen leuten unterscheiden kannst

    also wer wann wo was gemacht hat^^


    ob das für dich sinnvoll ist weißt nur du, aber das anlegen is echt sehr einfach und geht schnell

  • captcha runterladen

    die hier mit Wörtern wie Forenregeln und AGB's um sich werfen


    das wiederspricht doch keinem von beiden oder sehe ich da was falsch.

    umgangen werden die captcha's ja nicht. dazu bräuchte man ja irgendwelche methoden zum auswerten der bilder


    und in den AGB's kann ich auch nichts wiedersprüchliches finden


    AGB's

    1.) http://http://GratisSimsen.de ermöglicht das kostenlose Versenden von SMS-Nachrichten über das Internet.

    2.) Wir können die Verfügbarkeit und den sofortigen Versand der SMS nicht garantieren. Wir versuchen aber eine Zeitgerechte SMS-Zustellung zu ermöglichen. Eine Garantie für den Versand der kostenlosen SMS kann daher nicht übernommen werden. Eine Haftung für verspätete oder nicht zugestellte SMS ist ausgeschlossen.

    3.) Der Versand von strafrechtlich relevanten Inhalten, Beleidigungen und Werbung ist ausdrücklich verboten. Wir behalten uns auf Basis der Protokollierung straf- und zivilrechtliche Schritte vor.

    4.) Eine gewerbliche Nutzung dieses Service schließen wir hiermit aus.

    5.) Die Handynummern werden streng vertraulich behandelt und an keine Dritten weitergegeben.

    6.) Um eine straf- und zivilrechtliche Verfolgung im Ernstfall zu ermöglichen, werden Datum, Uhrzeit, Nachrichtentext, IP-Adresse und SMS-Nummer aufgezeichnet.

    7.) Der Benutzer erkennt mit dem Versenden einer SMS-Nachricht die hier


    wenn ihr euch nicht sicher seit würde ich sagten: "Im Zweifel für den Angeklagten"

  • Tastatur Zähler

    ok. viel spaß


    edit: falls dus nicht verstehst:

    dass du hilfe willst is mir schon klar

    blos bei was. erst selber probieren und dann ausführlich dein problem posten.

    gib dir bitte mehr mühe beim erstellen deiner threads

  • Combobox datei auswählen und in Listview Darstellen. RegExp??

    ob du es dir einigermaßen so vorstellst weiß ich nicht

    besser kann ich leider nicht helfen.

    sitz in der schule und hab hier nur den editor^^

    d.h. das is alles ausn kopf geschrieben, gut möglich das syntax fehler drin sind


    Spoiler anzeigen
    [autoit]

    #Include <File.au3>
    #Include <Array.au3>

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

    Dim $read
    _Filereadtoarray(@Scriptdir &"\BMC_Di.txt", $read); datei in array einlesen
    $i = 1; zähler für die zeilen
    dim $erg[8]; für die ausgelesenen zeilen, als zwischenspeicher
    while $i < $read[0] ; von der ersten bis zur letzten zeile
    while Not (Stringleft($read[$i], 1) = "-"); suche die zeilen die mit "-" beginnen
    $split = Stringsplit($read[$i], "|"); die zeile mit | splitten
    for $k = 0 to $split[0]-3; das gesplittete in ein temp array schreiben
    while (StringRight($split[$k+2], 1) = " "); geht mit regex viel besser aber ohne hilfedatei bekomm ich das nicht hin
    $split[$k+2] = StringTrimRight($split[$k+2], 1)
    wend
    $erg[$k] &= $split[$k+2]
    next
    $i += 1
    wend
    _arraydisplay($erg); das kannste dann in deine listview schreiben
    $i += 1
    wend

    [/autoit]

  • Combobox datei auswählen und in Listview Darstellen. RegExp??

    oh sry die txt hatte ich übersehn^^


    komische anordnung in ner txt aber auswerten geht schon...

    bin in der schule, kann dir also kein script beispiel basteln. aber ich würde in etwa so vorgehn:


    datei in array einlesen (_Filereadtoarray oder so ähnlich)

    $i = 1

    while $i < anzahlzeilen

    while Zeile nr $i not = "-------" (am besten mit stringleft oder so)

    zeile $i mit stringsplit und trennzeichen "|" trennen

    die einzelnen gesplitteten inhalte in variable speichern

    $i +1

    wend

    zwischengespeicherte variable in listbox eintragen

    wend


    ich glaub zwar jetz nachdem ich den pseudocode geschrieben hab nicht dass du es verstehst aber probiern tu ichs mal^^


    scripten wär leichter :(

  • Hilfe pls mit Input boxen : )

    @Cartan: wenn du schon ein array beispiel machst würd ich auch die vorteile ausnutzen ;)

    quick and dirty hätt ich das mal so:

    Spoiler anzeigen
    [autoit]

    #include <GUIConstants.au3>

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

    Dim $Input[10]

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

    For $i = 1 To 10
    HotKeySet("{NUMPAD" & $i & "}", "Sendtext")
    Next
    $Form1 = GUICreate("Form1", 322, 210, 255, 230)
    For $i = 0 To 4
    $Input[$i] = GUICtrlCreateInput("Input" & $i, 16, 16 + $i * 32, 137, 21)
    Next
    For $i = 5 To 9
    $Input[$i] = GUICtrlCreateInput("Input" & $i, 168, 16 + ($i - 5) * 32, 137, 21)
    Next
    $Label = GUICtrlCreateLabel("© by Technoboy", 120, 184, 84, 17)
    GUISetState(@SW_SHOW)

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

    $ini = IniReadSection(@ScriptDir & "\test.ini", "section")
    If $ini[0][0] >= 10 Then
    For $i = 1 To 10
    GUICtrlSetData($Input[$i-1], $ini[$i][1])
    Next
    EndIf

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

    Run("notepad.exe")
    WinWaitActive("Unbenannt - Editor")

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

    While 1
    If GUIGetMsg() = $GUI_EVENT_CLOSE Then
    For $i = 0 To 9
    IniWrite(@ScriptDir & "\test.ini", "section", $i, GUICtrlRead($Input[$i]))
    Next
    Exit
    EndIf
    WEnd

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

    Func Sendtext()
    $zahl = Stringtrimright(StringTrimLeft(@HotKeyPressed, 7), 1)
    Send(GUICtrlRead($Input[$zahl]))
    EndFunc ;==>Send1

    [/autoit]

  • Decompiler blockieren

    ich glaube allerdings auch eher dass du (Freaky) die anderen beiträge nicht gelesen hast.
    diese diskussion hatten wir doch schon 100 mal.
    du kannst es nicht verhindern.

    gegen gute decompiler hast du 0 chance

  • Verzeichnis in eine Listbox

    dann solteste aber auch den parameter 0 für arrayrückgabe verwenden
    und nen gültigen pfad statt 111 und 222 eintragen

    Spoiler anzeigen
    [autoit]

    #include <ButtonConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <GUIListBox.au3>
    #include <WindowsConstants.au3>
    #include <File.au3>
    #include <Array.au3>

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

    ; Variable
    $filesIn111 = _GetFilesFolder_Rekursiv('111', 'txt', 0, 0)
    $filesIn222 = _GetFilesFolder_Rekursiv('222', 'txt', 0, 0)

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

    #Region ### START GUI section ### Form=c:\users\rs\desktop\auit\start\form1.kxf
    $Form1_1 = GUICreate("Form1", 436, 388, 261, 124)
    $List1 = GUICtrlCreateList("", 8, 64, 417, 279, BitOR($LBS_SORT,$LBS_STANDARD,$WS_HSCROLL,$WS_VSCROLL,$WS_BORDER))
    $Button1 = GUICtrlCreateButton("&Öffnen", 176, 352, 75, 25, $WS_GROUP)
    $Button2 = GUICtrlCreateButton("111", 8, 32, 75, 25, $WS_GROUP)
    $Button3 = GUICtrlCreateButton("222", 88, 32, 75, 25, $WS_GROUP)
    GUISetState(@SW_SHOW)
    #EndRegion ### END GUI section ###

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

    While 1
    $msg = GUIGetMsg()
    Select
    Case $msg = $GUI_EVENT_CLOSE
    ExitLoop
    Case $msg = $Button1
    MsgBox(0, 'Öffnen', 'Button 1 was pressed')

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

    Case $msg = $Button2
    GUICtrlSetData($List1, '') ; Inhaltliches Löschen des Listboxes
    If IsArray($filesIn111) Then
    For $i = 1 To $filesIn111[0]
    GUICtrlSetData($List1, $filesIn111[$i])
    Next
    EndIf

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

    Case $msg = $Button3
    GUICtrlSetData($List1, '') ; Inhaltliches Löschen des Listboxes
    If IsArray($filesIn222) Then
    For $i = 1 To $filesIn222[0]
    GUICtrlSetData($List1, $filesIn222[$i])
    Next
    EndIf
    EndSelect
    WEnd

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

    ;==================================================================================================
    ; Function Name: _GetFilesFolder_Rekursiv($sPath [, $sExt='*' [, $iDir=-1 [, $iRetType=0]]])
    ; Description: Rekursive Auflistung von Dateien und/oder Ordnern
    ; Parameter(s): $sPath der Basispfad für die Auflistung ('.' -aktueller Pfad, '..' -Parentpfad)
    ; $sExt Erweiterung für Dateiauswahl '*' oder -1 für alle (Standard)
    ; $iDir -1 Dateien+Ordner(Standard), 0 nur Dateien, 1 nur Ordner
    ; optional: $iRetType 0 gibt Array, 1 gibt String zurück (Einträge @LF-getrennt)
    ; Return Value(s): Array (Standard) od. String mit den gefundenen Pfaden der Dateien und/oder Ordner
    ; Array[0] enthält die Anzahl der gefundenen Dateien/Ordner
    ; Author(s): BugFix ([email='bugfix@autoit.de'][/email])
    ;==================================================================================================
    Func _GetFilesFolder_Rekursiv($sPath, $sExt='*', $iDir=-1, $iRetType=0)
    Global $oFSO = ObjCreate('Scripting.FileSystemObject')
    Global $strFiles = ''
    If ($iRetType < 0) Or ($iRetType > 1) Then $iRetType = 0
    If $sExt = -1 Then $sExt = '*'
    If ($iDir < -1) Or ($iDir > 1) Then $iDir = -1
    _ShowSubFolders($oFSO.GetFolder($sPath),$sExt,$iDir)
    If $iRetType = 0 Then
    Local $aOut
    $aOut = StringSplit(StringTrimRight($strFiles,1), @LF)
    If $aOut[1] = '' Then
    ReDim $aOut[1]
    $aOut[0] = 0
    EndIf
    Return $aOut
    Else
    Return StringTrimRight($strFiles,1)
    EndIf
    EndFunc

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

    Func _ShowSubFolders($Folder, $Ext='*', $Dir=-1)
    If ($Dir = -1) Or ($Dir = 0) Then
    For $file In $Folder.files
    If $Ext <> '*' Then
    If StringRight($file.Name, StringLen($Ext)) = $Ext Then _
    $strFiles &= $file.Path & @LF
    Else
    $strFiles &= $file.Path & @LF
    EndIf
    Next
    EndIf
    For $Subfolder In $Folder.SubFolders
    If ($Dir = -1) Or ($Dir = 1) Then $strFiles &= $Subfolder.Path & '\' & @LF
    _ShowSubFolders($Subfolder, $Ext, $Dir)
    Next
    EndFunc

    [/autoit]

    edit: man da is für 10 min n kollege da und schon is man 9 min zu langsam :D

  • Wert auslesen

    was fertiges ist mir nicht bekannt. wird wohl auch selten gebraucht.

    selber basteln oder SuFu nutzen...
    (aber anpassen wirst du es dir wohl auf jeden fall müssen, weil 3x mausklick doch eher komisch sind)