Beiträge von BugFix

  • Auswahl mit checkboxen

    Hier hast du ein Beispiel wie es automatisiert wird:

    Spoiler anzeigen
    [autoit]

    #include <guiconstants.au3>

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

    Global $arBt[8]
    ; Größe des Array richtet sich nach Anzahl der Elemente
    ; $aFile = _FileListToArray($Path) dann ==> Global $arBt[$aFile[0]]
    Global $y = 15

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

    GUICreate('test')
    For $i = 0 To UBound($arBt) -1
    $arBt[$i] = GUICtrlCreateButton('Button', 10, $y, 60, 20)
    $y += 30
    Next
    GUISetState()

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

    Do
    $msg = GUIGetMsg()
    Until $msg = $GUI_EVENT_CLOSE

    [/autoit]

  • array mit _arrayadd adden?

    Die Struktur: Array als Element in einem Array hat noch einen Nachteil: Du kannst nicht direkt auf ein Element in dem SubArray zugreifen. Deshalb habe ich dafür auch die Funktionen _SubArrayGetEntry() und _SubArraySetEntry() erstellt. Findest du in meiner Funktionssammlung ArrayMore.au3, s. Signatur.

  • An Text der Telnet Ausgabe kommen?

    Das hatte ich mal irgendwo entdeckt und ein bischen mit gespielt. Vielleicht kannst du es funktionierend ausbauen.

    Spoiler anzeigen
    [autoit]

    #include <Constants.au3>
    Opt('WinTitleMatchMode', 2)
    AutoItSetOption("WinDetectHiddenText", 1)
    $PID = Run('telnet', @SystemDir, @SW_HIDE, $STDIN_CHILD+$STDOUT_CHILD)
    ;~ $PID = Run(@ComSpec & " /c telnet", @SystemDir, @SW_HIDE, $STDIN_CHILD+$STDOUT_CHILD)
    ;~ ShellExecute("telnet", '', @SystemDir, '', @SW_HIDE)
    If Not ProcessExists('telnet.exe') Then Exit MsgBox(0, '', 'Tot')
    ;~ $arProcess = ProcessList('telnet.exe')
    ;~ If Not @error Then $PID2 = $arProcess[1][1]

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

    HotKeySet('!e', '_ende') ; Skript und Telnet beenden
    HotKeySet('!s', '_show') ; Telnet-Fenster zeigen
    HotKeySet('!h', '_hide') ; Telnet-Fenster verstecken
    HotKeySet('!w', '_write'); Befehl an Telnet-Fenster senden
    HotKeySet('!r', '_read') ; aus Telnet-Fenster lesen

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

    While 1
    Sleep(100)
    WEnd

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

    Func _ende()
    ProcessClose($PID)
    Exit
    EndFunc

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

    Func _show()
    WinSetState('telnet.exe', '', @SW_SHOW)
    EndFunc

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

    Func _hide()
    WinSetState('telnet.exe', '', @SW_HIDE)
    EndFunc

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

    Func _write()
    $strWrite = InputBox('', 'Befehl')
    StdinWrite($PID, $strWrite)
    StdinWrite($PID)
    ;~ WinActivate('telnet.exe')
    ;~ Send($strWrite & '{ENTER}')
    EndFunc

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

    Func _read()
    Local $txt = ''
    While 1
    $line = StdoutRead($PID)
    If @error Then ExitLoop
    $txt &= $line
    Wend

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

    ;~ $txt = WinGetText('telnet.exe', '')
    ConsoleWrite($txt & @CRLF)
    EndFunc

    [/autoit]

  • Internet-Explorer Button drücken!!!!

    Greif auf die Elemente per Index oder Namen zu.
    So kannst du dir alle Elemente ausgeben lassen:

    [autoit]

    #include <IE.au3>
    $url = 'http://www.autoit.de'
    $oIE = _IECreate($url)
    $oForms = _IEFormGetCollection ($oIE)
    If @error Then
    MsgBox(0, '', 'Keine Formen enthalten')
    Else
    $Index = 0
    For $oForm In $oForms
    ConsoleWrite('Form-Index: ' & $Index & ' / Name: ' & $oForm.Name & @CRLF)
    $oFormElements = _IEFormElementGetCollection($oForm)
    If IsObj($oFormElements) Then
    $IndexElement = 0
    For $oElement In $oFormElements
    ConsoleWrite('Form: ' & $Index & ' /Element: ' & $IndexElement & ' /Name: ' & $oElement.Name & @CRLF)
    $IndexElement += 1
    Next
    EndIf
    $Index += 1
    Next
    EndIf

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

    _IEQuit($oIE)
    Exit

    [/autoit]

  • µit - September

    So, nun habe ich mein Skript aber mal richtig optimiert :D
    Zeiten auf meiner Mühle: Average: 0.214 sec. / Minimum: 0.190 sec. / Maximum: 0.521 sec.
    Da die Skripte auf Walles PC etwa 1/3 schneller laufen... ca. 0.14 sec. :rock:


    PW [ bitte warten ] ;)

  • Listview

    Oder falls du die UDF ansonsten nicht benötigst, kannst du das Include sparen und die Breite festlegen mit:

    [autoit]

    GUICtrlSendMsg($ID_ListView, 0x101E, $Index_Spalte, $Breite_Spalte )
    ; und für die letzte Spalte empfiehlt sich:
    GUICtrlSendMsg($ID_ListView, 0x101E, $Index_Spalte, $LVSCW_AUTOSIZE_USEHEADER)

    [/autoit]

  • Analyse: Wir knacken das MSN Captcha

    Bleibt nur die Frage nach dem Sinn solchen Tuns.
    • Den Nachweis zu erbringen, dass auch Captchas keine absolute Sicherheit bringen? - Das ist wohl unnötig, da kein Sicherheitsverfahren wirklich sicher ist.
    • Einen Hinweis für hirnkranke Skripter geben, wie man evtl. Captchas aushebeln kann? - Super Sache, damit sich Forenbetreiber, die ihre Anmeldung mit Captcha sichern, in Zukunft über noch mehr Spam freuen dürfen? :cursing:

    Ich halte es für sinnvoll, bestehende Schlupflöcher in Sicherungsmaßnahmen aufzuzeigen, damit diese gestopft werden können.
    Dieses hier gehört aber m.E. nicht dazu. Also ein ganz klares :thumbdown: