Beiträge von peethebee

  • regexp wieder

    Hallo!

    BugFix : Natürlich geht es mit Regulären Ausdrücken. Der Vorteil ist immer, das es unglaublich flexibel ist. Daher setze ich es gerne ein. Außerdem ist es etwas kürzer, nämlich 2 Zeilen ;)

    Gästebucheinträge:

    Code
    $res = StringRegExp('"Gästebuch (293)"', "tebuch .([0-9]*)\)", 1)
MsgBox(0, '', $res[0])

    Das andere kommt gleich.

    Edit: Hier die Spielernummer:

    Code
    $res = StringRegExp("http://www.esl.eu/alpen/player/1917142/", "/player/([0-9]*)/", 1)
MsgBox(0, '', $res[0])

    peethebee

  • Problem mit Passwortabfrage

    peethebee

  • Route Print - Anwendung von _SysProg(..) & _IEPrt(..)

    @loclahost:

    peethebee

  • reg exp oder so^^

    Ich habe es gerade mal gemacht:

    Code
    $res = StringRegExp("Neu:150 GrafikenGesamt:1072 Grafiken", "Neu.([0-9]*) Grafik", 1)
MsgBox(0, '', $res[0])

    Musst du halt an deinen Quelltext anpassen. Daher wird es leicht anders aussehen, da da ja HTML-Tag drin sein dürften.

    peethebee

  • Script zum tastaturanschlagmessen verbessern

    Steht in der Hilfe - unter IsPressed ;)

    Das korrekte Zählen baue ich dir gleich ein.

    Edit:

    [autoit]

    $keys = StringSplit("42|43|45|46|47|48|49|4A|4B|4C|4D|4E|4F|50|51|52|54|55|56|58|59|5A|" & _ ; <--- a bis z, ausgeschlossen a,w,s,d
    "30|31|32|33|34|35|36|37|38|39|" & _ ; <-- 0 bis 9
    "60|61|62|63|64|65|66|67|68|69|6A|6B|6C|6D|6E|6F|" & _ ; <-- Ziffernblock
    "70|71|72|73|74|75|76|77|78|79|7A|7B", "|") ; <-- F1 bis F12
    ;
    Global $i = 0
    Global $last = 0

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

    While 1
    Sleep(100)
    For $j = 1 To $keys[0]
    If _IsPressed($keys[$j]) and $last <> $j Then
    $i = $i + 1
    $last = $j
    EndIf
    Next
    ToolTip($i)
    WEnd

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

    Func _IsPressed($s_hexKey, $v_dll = 'user32.dll')
    ; $hexKey must be the value of one of the keys.
    ; _Is_Key_Pressed will return 0 if the key is not pressed, 1 if it is.
    Local $a_R = DllCall($v_dll, "int", "GetAsyncKeyState", "int", '0x' & $s_hexKey)
    If Not @error And BitAND($a_R[0], 0x8000) = 0x8000 Then Return 1
    Return 0
    EndFunc ;==>_IsPressed

    [/autoit]

    Diese Variante zählt Tasten nur dann falsch, wenn zwei gleichzeitig gedrückt sind. Sonst wird ein Tastendruck auch als genau einer gezählt.

    Leider verursacht diese Variante bei mir (Athlon 64 X2 3800+) 2-3% Prozessorlast. Könnte sein, dass das (auch) an dem Ständig aktualisierten ToolTip liegt.
    Man könnte es also per HotKey an- und ausschaltbar machen.
    Außerdem sollte man beim Beenden der Wert (in einer Ini-Datei z.B.) konservieren und dann beim nächsten Start weider auslesen.

    Wer Lust hat, kann ja mal den Kreuzvergleich gegen die HotKeySet-Variante fahren. Die etwas aufwendliger zu programmieren, aber die Prozessorlast sollte niedriger liegen, da Windows sich meldet, wenn ein HotKey gedrückt wurde.


    peethebee

  • Script zum tastaturanschlagmessen verbessern

    Global $i = 0

    While 1
    Sleep(90)
    For $j = Dec("30") To Dec("5A")
    If not $j = Dec(...) and not $j = Dec(...) usw. Then
    If _IsPressed(Hex($j, 2)) Then $i = $i + 1
    EndIf
    Next
    ToolTip($i)
    WEnd

    Func _IsPressed($s_hexKey, $v_dll = 'user32.dll')
    ; $hexKey must be the value of one of the keys.
    ; _Is_Key_Pressed will return 0 if the key is not pressed, 1 if it is.
    Local $a_R = DllCall($v_dll, "int", "GetAsyncKeyState", "int", '0x' & $s_hexKey)
    If Not @error And BitAND($a_R[0], 0x8000) = 0x8000 Then Return 1
    Return 0
    EndFunc ;==>_IsPressed

    Die Werte gibt es in der Hilfe.

    peethebee

  • variablen

    Eine Variable, die mit Local deklariert wird, gilt NUR innerhalb der aktuellen Funktion und kann von außen nicht angesprochen werden.
    Wenn du die Option MustDeclareVars einschaltest, produziert obiges Skript Fehler, sonst nur falsche (leere) Werte beim Auslesen.

    peethebee