Beiträge von Oscar

  • Codierer Ultra 2008

    Solch ein Script würde ich eher als Converter bezeichnen, denn mit Verschlüsselung hat das nun wirklich nichts zu tun.

    Kritik am Script:
    - die Variable $nMsg ist überflüssig. Kann man gleich so schreiben:

    [autoit]

    Switch GUIGetMsg()

    [/autoit]


    - Wozu soll die zusätzliche Inputbox dienen? Das Editfeld reicht doch...
    - Man könnte noch einiges kürzen:

    [autoit]

    GUICtrlSetData($Edit1, _StringToHex(GUICtrlRead($Edit1)))

    [/autoit]


    und

    [autoit]

    GUICtrlSetData($Edit1, _HexToString(GUICtrlRead($Edit1)))

    [/autoit]

    Aber nicht verzagen, aus Fehlern lernt man. Umso mehr Scripte man schreibt, umso leichter fällt einem sowas und umso eher fallen einem solche "Fehler" auf. :)

  • GUI Input

    Man nehme:

    die Hilfedatei und doppelklicke auf GUICtrlCreatePic, scrolle zu Style, klicke auf GUI Control Styles Appendix und schon steht ganz oben unter "Description" was?

    Und bitte: Doppelposts vermeiden! Dafür gibt es den [Bearbeiten]-Button.

  • Paint

    Ich habe mein Beispiel aus Deiner anderen Frage mal auf Mausbedienung umgeschrieben:

    Spoiler anzeigen
    [autoit]


    #include<Misc.au3>
    #include<GuiConstantsEx.au3>
    #include<GDIPlus.au3>
    Opt('MouseCoordMode', 2)
    _Main()

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

    Func _Main()
    Local $hGUI, $hWnd, $hGraphic, $hPen, $aPos[2], $aOldPos[2]
    Local $width = @DesktopWidth, $height = @DesktopHeight
    Local $dll = DllOpen('user32.dll')
    $hGUI = GUICreate('GDI+', $width, $height)
    $hWnd = WinGetHandle('GDI+')
    GUISetState()
    _GDIPlus_Startup()
    $hGraphic = _GDIPlus_GraphicsCreateFromHWND($hWnd)
    $hPen = _GDIPlus_PenCreate(0xff00ff00, 2)
    $timer = TimerInit()
    Do
    $aPos = MouseGetPos()
    If _IsPressed('01', $dll) Then
    _GDIPlus_GraphicsDrawLine($hGraphic, $aOldPos[0], $aOldPos[1], $aPos[0], $aPos[1], $hPen)
    If TimerDiff($timer) > 500 Then
    _GDIPlus_PenSetColor($hPen, '0xFF' & StringRight(Hex(Random(0, 16777215, 1)), 6))
    $timer = TimerInit()
    EndIf
    EndIf
    $aOldPos[0] = $aPos[0]
    $aOldPos[1] = $aPos[1]
    Until GUIGetMsg() = $GUI_EVENT_CLOSE
    ; Clean up resources
    _GDIPlus_PenDispose($hPen)
    _GDIPlus_GraphicsDispose($hGraphic)
    _GDIPlus_Shutdown()
    DllClose($dll)
    EndFunc ;==>_Main

    [/autoit]

    Edit: es fehlte noch ein: Opt('MouseCoordMode', 2)

  • wie zeichnet man Frei eine Linie Auf den Bildschirm

    Hab ich Dir mal erstellt:

    Spoiler anzeigen
    [autoit]


    #include <GuiConstantsEx.au3>
    #include <GDIPlus.au3>
    _Main()

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

    Func _Main()
    Local $hGUI, $hWnd, $hGraphic, $hPen, $aPos[2], $aOldPos[2]
    Local $width = @DesktopWidth, $height = @DesktopHeight
    $hGUI = GUICreate("GDI+", $width, $height)
    $hWnd = WinGetHandle("GDI+")
    GUISetState()
    _GDIPlus_Startup()
    $hGraphic = _GDIPlus_GraphicsCreateFromHWND($hWnd)
    $hPen = _GDIPlus_PenCreate(0xff00ff00, 4)
    Do
    $aPos[0] = Random(0, $width, 1)
    $aPos[1] = Random(0, $height, 1)
    _GDIPlus_GraphicsDrawLine($hGraphic, $aOldPos[0], $aOldPos[1], $aPos[0], $aPos[1], $hPen)
    _GDIPlus_PenSetColor($hPen, '0xFF' & StringRight(Hex(Random(0, 16777215, 1)), 6))
    $aOldPos[0] = $aPos[0]
    $aOldPos[1] = $aPos[1]
    Sleep(200)
    Until GUIGetMsg() = $GUI_EVENT_CLOSE
    ; Clean up resources
    _GDIPlus_PenDispose($hPen)
    _GDIPlus_GraphicsDispose($hGraphic)
    _GDIPlus_Shutdown()
    EndFunc ;==>_Main

    [/autoit]

  • Internetverbindung PC >>WLAN>> Netbook

    Die Internetverbindungsfreigabe ist doch eine Krücke! ;)
    Dann muss zusätzlich immer der Desktop-PC an sein, wenn Du mit dem Netbook ins I-Net willst...

    Schaff Dir lieber einen WLAN-Router an. DSL-Modem an den Router anschließen, Router entsprechend konfigurieren und dann kannst Du mit beiden Rechnern unabhängig voneinander ins Internet.
    Hat außerdem den Vorteil, dass der Router sozusagen eine Hardware-Firewall darstellt (Stichwort: NAT - Network Adress Translation).

  • _FileListTreeToArray UDF

    Super! Klappt hervorragend! :thumbup:

    Um die Prozessorlast etwas zu reduzieren kann man noch ein Sleep(1) in die While...WEnd-Schleife einfügen:

    [autoit]


    While 1
    $line = StdoutRead($iStdout)
    If @error Then ExitLoop
    If $line <> "" then $sTemp &= $line
    Sleep(1)
    Wend

    [/autoit]


    Das erhöht nur unwesentlich die Gesamtdauer. Reduziert die Prozessorlast aber von >50% auf 5...8% (bei mir).

  • StringRegEx Problem

    Geht sogar noch einfacher:

    [autoit]


    $str = '<"beliebiger Text" >Das <anderer beliebiger Text!>ist <"bla=blabla">die <aslasf:jklfjaklf>Lösung.<bla>'
    $str = StringRegExpReplace($str, "<.+?>", "")
    MsgBox(0, "", $str)

    [/autoit]

  • StringRegEx Problem

    Dann so:

    [autoit]


    $str = '<"beliebiger Text">Das <anderer beliebiger Text!>ist <"bla=blabla">die <aslasf:jklfjaklf>Lösung.<bla>'
    $str = StringRegExpReplace($str, "(<.+? *?>)", "")
    MsgBox(0, "", $str)

    [/autoit]