Beiträge von Tweaky

  • langes Fenster in ein Bild capturen

    Hi,
    ich habe eine Internet-Seite, welches rechts einen Scrollbalken hat.
    Nun würde ich gerne die komplette Seite als jpg speichern.

    Normalerweise müsste ich ja den oberen Teil der Seite capturen und dann den unteren Teil der Seite capturen.
    Nur dann habe ich zwei jpgs.
    Ich würde aber gerne nur ein jpg-File haben.

    Geht das irgendwie (IE7pro) hat dies integriert) :wacko:

    Wie ich ein Foto mit AutoIt mache weiss ich. ;)

  • Button funzt nicht!

    hm, hast recht war nah dran.
    So müßte es aber klappen, oder?

    Spoiler anzeigen
    [autoit]

    #include <GUIConstants.au3>
    #include <misc.au3>

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

    #NoTrayIcon

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

    HotKeySet("{F7}","_Exit")

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

    Opt("TrayMenuMode", 1)
    Opt("TrayOnEventMode",1)
    Opt("GUIOnEventMode", 1)
    #Region ### START Koda GUI section ### Form=
    $Form1 = GUICreate("Shooter", 114, 131, 0, 0, -1, BitOR($WS_EX_TOOLWINDOW,$WS_EX_WINDOWEDGE))
    GUISetOnEvent($GUI_EVENT_CLOSE, "_Exit")
    $Input1 = GUICtrlCreateInput("1", 56, 8, 41, 21)
    $Updown1 = GUICtrlCreateUpdown($Input1)
    GUICtrlSetLimit(-1, 10, 1)
    $Label1 = GUICtrlCreateLabel("Clicks", 8, 8, 38, 17, BitOR($SS_CENTER,$SS_CENTERIMAGE))
    GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
    $Label2 = GUICtrlCreateLabel("Speed", 8, 40, 40, 17, BitOR($SS_CENTER,$SS_CENTERIMAGE))
    GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
    $Input2 = GUICtrlCreateInput("1", 56, 40, 49, 21)
    $Updown2 = GUICtrlCreateUpdown($Input2)
    GUICtrlSetLimit(-1, 100, 1)
    $Combo1 = GUICtrlCreateCombo("left", 56, 72, 49, 25)
    GUICtrlSetData(-1, "right")
    $Label3 = GUICtrlCreateLabel("Key", 8, 72, 25, 17, BitOR($SS_CENTER,$SS_CENTERIMAGE))
    GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
    $Button1 = GUICtrlCreateButton("Save / GO", 8, 104, 97, 17, 0)
    GUICtrlSetOnEvent(-1, "_Save_Go")
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###
    Global $mouse = ""

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

    Dim $beenden

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

    _Filter()

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

    While 1
    TraySetOnEvent($TRAY_EVENT_PRIMARYDOUBLE,"_MaxWin")
    Sleep(100)
    WEnd

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

    Func _Save_Go()
    GUISetState(@SW_HIDE)
    Opt("TrayIconHide",0)
    $beenden = 0
    _Go()
    $beenden = 0
    EndFunc ;==>_Save_Go

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

    Func _Exit()
    Exit
    EndFunc ;==>_Exit

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

    Func _ClickNow()
    $pos = MouseGetPos()
    For $i = 1 To GUICtrlRead($Input1)
    MouseClick(GUICtrlRead($Combo1),$pos[0],$pos[1],1,GUICtrlRead($Input2))
    Sleep(100)
    Next
    EndFunc ;==>_ClickNow

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

    Func _MaxWin()
    $beenden = 1
    GUISetState(@SW_SHOW)
    Opt("TrayIconHide",1)
    EndFunc ;==>_MaxWin

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

    Func _Filter()
    $1 = StringSplit("left:right",":")
    $2 = StringSplit("01:02",":")
    For $i = 1 To 2
    If GUICtrlRead($Combo1) = $1[$i] Then $mouse = $2[$i]
    Next
    EndFunc ;==>_Filter

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

    Func _Go()
    While 1
    If _IsPressed("59") and _IsPressed($mouse) Then
    While 1
    If Not _IsPressed($mouse) Then ExitLoop
    Sleep(50)
    WEnd
    _ClickNow()
    EndIf
    Sleep(50)
    If $beenden = 1 Then ExitLoop
    WEnd
    EndFunc ;==>_Go

    [/autoit]

  • Button funzt nicht!

    Hi,
    du steckst noch in der While-Schleife von der Go() Version drin.

    So könnte man die Go-Func ändern

    Spoiler anzeigen
    [autoit]

    Func _Go()
    While 1
    If _IsPressed("59") and _IsPressed($mouse) Then
    While 1
    If Not _IsPressed($mouse) Then ExitLoop
    Sleep(50)
    WEnd
    _ClickNow()
    EndIf
    Sleep(50)
    If WinExists("Shooter") Then ExitLoop
    WEnd
    EndFunc ;==>_Go

    [/autoit]

    Denke es müßte aber noch andere Wege geben :rock:

  • Lupenfunktion ohne Flimmern?

    Hi ;)
    war schon fleißig im neuen Jahr :)

    schauts euch mal an. Denke es dürfte so funktionieren.

    Spoiler anzeigen
    [autoit]

    #include<Misc.au3>
    #include<GUIConstants.au3>
    #include<ScreenCapture.au3>

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

    Dim $left, $top, $width, $height, $MyhWnd
    $datei = "C:\test lupe.jpg"

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

    _auswahl()
    _ScreenCapture_Capture($datei, $left, $top, $width+$left, $height+$top, False)
    ShellExecute($datei)
    Sleep(2000)
    FileDelete($datei)

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

    ;********************************************
    ; Auswahl (nur für Bereich) *
    ;********************************************

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

    Func _auswahl()
    Global $left, $top, $width, $height
    $AuswahlGUI = GUICreate("ScreenShot", @DesktopWidth, @DesktopHeight, -1, -1, $WS_POPUP, BitOR($WS_EX_TOPMOST, $WS_EX_TOOLWINDOW)); erstellen eines GUI-Fensters
    GUISetCursor(3, 1, $AuswahlGUI); Mouse-Cursor umschalten, Kreuz
    GUISetState(); öffnen des GUI-Fensters
    WinSetTrans("ScreenShot", "", 20)

    Local $UserDLL = DllOpen("user32.dll"); öffnen der User32.dll

    ; Infotext anzeigen:
    SplashTextOn('Info: ', 'Bitte markieren Sie den Bereich, von dem Sie einen ScreenShot erstellt haben wollen. ', 400, 50, (@DesktopWidth / 2) - 200, (@DesktopHeight / 2) - 25)
    Sleep(2000)
    SplashOff()

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

    While 1
    If _IsPressed("01", $UserDLL) Then
    Local $Start_Pos = MouseGetPos()
    draw_label()
    ExitLoop
    EndIf
    WEnd

    While 1
    If Not _IsPressed("01", $UserDLL) Then
    Local $End_Pos = MouseGetPos()
    SplashOff()
    ToolTip("")
    ;rechts oben nach links unten:
    If $End_Pos[0] > $Start_Pos[0] And $End_Pos[1] > $Start_Pos[1] Then
    $left = $Start_Pos[0]
    $top = $Start_Pos[1]
    $width = $End_Pos[0] - $Start_Pos[0]
    $height = $End_Pos[1] - $Start_Pos[1]
    EndIf
    ;rechts unten nach links oben:
    If $End_Pos[0] > $Start_Pos[0] And $End_Pos[1] < $Start_Pos[1] Then
    $left = $Start_Pos[0]
    $top = $End_Pos[1]
    $width = $End_Pos[0] - $Start_Pos[0]
    $height = $Start_Pos[1] - $End_Pos[1]
    EndIf
    ;links oben nach rechts unten:
    If $End_Pos[0] < $Start_Pos[0] And $End_Pos[1] > $Start_Pos[1] Then
    $left = $End_Pos[0]
    $top = $Start_Pos[1]
    $width = $Start_Pos[0] - $End_Pos[0]
    $height = $End_Pos[1] - $Start_Pos[1]
    EndIf
    ;links unten nach rechts oben:
    If $End_Pos[0] < $Start_Pos[0] And $End_Pos[1] < $Start_Pos[1] Then
    $left = $End_Pos[0]
    $top = $End_Pos[1]
    $width = $Start_Pos[0] - $End_Pos[0]
    $height = $Start_Pos[1] - $End_Pos[1]
    EndIf
    ExitLoop
    EndIf
    WEnd
    DllClose($UserDLL)
    GUISetCursor(2, 0); Mouse-Cursor umschalten, Pfeil
    GUIDelete() ;2x notwendig, da 2 Guis vorhanden
    GUIDelete() ;2x notwendig, da 2 Guis vorhanden
    EndFunc ;==>_auswahl()

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

    ;*********************************************
    ; Auswahlbereich anzuzeigen *
    ;*********************************************

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

    Func draw_label()
    Local $User1DLL = DllOpen("user32.dll")
    Local $MouseCoordMode, $Start_Pos1, $Ausschnitt, $Mouse_Pos

    $Ausschnitt = GUICtrlCreateLabel('', 0, 0, 1, 1, $SS_SUNKEN) ;kennzeichnet den Bereich, der später fotografiert wird
    GUICtrlSetBkColor($Ausschnitt, 0)

    $x_gui = 100 ;Größe des Vergrößerungsfensters
    $y_gui = 100 ;Größe des Vergrößerungsfensters
    $lupe = GUICreate("Lupe", $x_gui, $y_gui, 500, 500, $WS_POPUPWINDOW) ; Vergrößerungsfensters
    $strich1 = GUICtrlCreateLabel("", 0, 48, 100, 2) ;Kennzeichnung der Mitte des Vergrößerungsfensters
    $strich2 = GUICtrlCreateLabel("", 48, 0, 2, 100) ;Kennzeichnung der Mitte des Vergrößerungsfensters
    GUICtrlSetBKColor($strich1, 0x000000) ;Farbe der Mittelmarkierung ändern
    GUICtrlSetBKColor($strich2, 0x000000) ;Farbe der Mittelmarkierung ändern
    GUISetState()

    $x_verschieben = 120 ;um wie viel das Vergrößerungsfenster in X verschoben werden soll, wenn der Cursor zu nah an den Bildschirmrand kommt
    $y_verschieben = 120 ;um wie viel das Vergrößerungsfenster in Y verschoben werden soll, wenn der Cursor zu nah an den Bildschirmrand kommt
    $x_versatz = 10 ;Versatz des Vergrößerungsfensters zum Cursor in X
    $y_versatz = 10 ;Versatz des Vergrößerungsfensters zum Cursor in Y
    $y_versatz_nur_unten = 30 ;um wie viel das Vergrößerungsfenster in Y verschoben werden soll, wenn der Cursor zu nah an den Bildschirmrand kommt (zusätzlich, nur unten)
    $y_tipp = $y_gui + $y_versatz ;um wie viel dasFeld mit x und y Anzeige zum Cursor in Y verschoben sein soll
    $tipp_hoehe = 50 ;Höhe des Feldes mit x und y Anzeige

    While 1
    $MouseCoordMode = Opt('MouseCoordMode', 1)
    $Start_Pos1 = MouseGetPos()

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

    While _IsPressed("01", $User1DLL)
    $Mouse_Pos = MouseGetPos()
    Local $Pos_Lupe = MouseGetPos()
    WinMove("Lupe", "", $x_verschieben + $Mouse_Pos[0], $y_verschieben + $Mouse_Pos[1])
    Global $MyhWnd = WinGetHandle("Lupe")
    Lupe()

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

    GUICtrlSetState($strich1, $GUI_ENABLE)
    GUICtrlSetState($strich2, $GUI_ENABLE)

    If $Mouse_Pos[0] < @DesktopWidth -200 And $Mouse_Pos[1] < @DesktopHeight -200 Then
    $x_verschieben = $x_versatz
    $y_verschieben = $y_versatz
    Local $Pos_Screen = ToolTip("X-Pos.: " & $Pos_Lupe[0] & @LF & "Y-Pos.: " & $Pos_Lupe[1] & @LF & "Breite: " & $Pos_Lupe[0] - $Start_Pos1[0] & @LF & "Höhe: " & $Pos_Lupe[1] - $Start_Pos1[1], $Pos_Lupe[0] +$x_verschieben, $Pos_Lupe[1] +$y_versatz +$y_tipp)
    EndIf

    If $Mouse_Pos[0] > @DesktopWidth -200 And $Mouse_Pos[1] < @DesktopHeight -200 Then
    $x_verschieben = -$x_versatz -$x_gui
    $y_verschieben = $y_versatz
    Local $Pos_Screen = ToolTip("X-Pos.: " & $Pos_Lupe[0] & @LF & "Y-Pos.: " & $Pos_Lupe[1] & @LF & "Breite: " & $Pos_Lupe[0] - $Start_Pos1[0] & @LF & "Höhe: " & $Pos_Lupe[1] - $Start_Pos1[1], $Pos_Lupe[0] -$x_versatz -$x_gui, $Pos_Lupe[1] +$y_versatz +$y_tipp)
    EndIf

    If $Mouse_Pos[0] < @DesktopWidth -200 And $Mouse_Pos[1] > @DesktopHeight -200 Then
    $x_verschieben = $x_versatz
    $y_verschieben = -$y_versatz -$y_gui -$y_versatz_nur_unten
    Local $Pos_Screen = ToolTip("X-Pos.: " & $Pos_Lupe[0] & @LF & "Y-Pos.: " & $Pos_Lupe[1] & @LF & "Breite: " & $Pos_Lupe[0] - $Start_Pos1[0] & @LF & "Höhe: " & $Pos_Lupe[1] - $Start_Pos1[1], $Pos_Lupe[0] +$x_versatz, $Pos_Lupe[1] -$y_versatz -$y_tipp -$tipp_hoehe -$y_versatz_nur_unten)
    EndIf

    If $Mouse_Pos[0] > @DesktopWidth -200 And $Mouse_Pos[1] > @DesktopHeight -200 Then
    $x_verschieben = -$x_versatz -$x_gui
    $y_verschieben = -$y_versatz -$y_gui -$y_versatz_nur_unten
    Local $Pos_Screen = ToolTip("X-Pos.: " & $Pos_Lupe[0] & @LF & "Y-Pos.: " & $Pos_Lupe[1] & @LF & "Breite: " & $Pos_Lupe[0] - $Start_Pos1[0] & @LF & "Höhe: " & $Pos_Lupe[1] - $Start_Pos1[1], $Pos_Lupe[0] -$x_versatz -$x_gui, $Pos_Lupe[1] -$y_versatz -$y_tipp -$tipp_hoehe -$y_versatz_nur_unten)
    EndIf

    ;links oben nach rechts unten:
    If $Mouse_Pos[1] > $Start_Pos1[1] And $Mouse_Pos[0] > $Start_Pos1[0] Then
    GUICtrlSetPos($Ausschnitt, $Start_Pos1[0]+1, $Start_Pos1[1]+19, $Mouse_Pos[0] - $Start_Pos1[0], $Mouse_Pos[1] - $Start_Pos1[1])
    Sleep(10)
    EndIf

    ;links unten nach rechts oben:
    If $Mouse_Pos[1] < $Start_Pos1[1] And $Mouse_Pos[0] > $Start_Pos1[0] Then
    GUICtrlSetPos($Ausschnitt, $Start_Pos1[0]+1, $Mouse_Pos[1]+19, $Mouse_Pos[0] - $Start_Pos1[0], $Start_Pos1[1] - $Mouse_Pos[1])
    Sleep(10)
    EndIf

    ;rechts oben nach links unten:
    If $Mouse_Pos[1] > $Start_Pos1[1] And $Mouse_Pos[0] < $Start_Pos1[0] Then
    GUICtrlSetPos($Ausschnitt, $Mouse_Pos[0]+1, $Start_Pos1[1]+19, $Start_Pos1[0] - $Mouse_Pos[0], $Mouse_Pos[1] - $Start_Pos1[1])
    Sleep(10)
    EndIf

    ;rechts unten nach links oben:
    If $Mouse_Pos[1] < $Start_Pos1[1] And $Mouse_Pos[0] < $Start_Pos1[0] Then
    GUICtrlSetPos($Ausschnitt, $Mouse_Pos[0]+1, $Mouse_Pos[1]+19, $Start_Pos1[0] - $Mouse_Pos[0], $Start_Pos1[1] - $Mouse_Pos[1])
    Sleep(10)
    EndIf
    WEnd
    Opt('MouseCoordMode', $MouseCoordMode)
    Return $Ausschnitt
    Sleep(10)
    WEnd
    DllClose($User1DLL)
    EndFunc ;==>draw_label()

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

    ;*********************************
    ; Bildschirmlupe *
    ;*********************************

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

    Func Lupe()
    Global $MyHDC = DllCall("user32.dll", "int", "GetDC", "hwnd", $MyhWnd)
    If @error Then Return
    Global $DeskHDC = DllCall("user32.dll", "int", "GetDC", "hwnd", 0)
    If Not @error Then
    $xy = MouseGetPos()
    If Not @error Then
    $l = $xy[0] - 10
    $t = $xy[1] - 10
    DllCall("gdi32.dll", "int", "StretchBlt", "int", $MyHDC[0], "int", 0, "int", 0, "int", 100, "int", 100, "int", $DeskHDC[0], "int", $l, "int", $t, "int", 20, "int", 20, "long", $SRCCOPY)
    EndIf
    DllCall("user32.dll", "int", "ReleaseDC", "int", $DeskHDC[0], "hwnd", 0)
    EndIf
    DllCall("user32.dll", "int", "ReleaseDC", "int", $MyHDC[0], "hwnd", $MyhWnd)
    EndFunc ;==>Lupe()

    [/autoit]

  • Lupenfunktion ohne Flimmern?

    Gut das flimmern ist weg.
    Leider wird nun die Größenangabe des ausgewählten Bereichs auch nicht mehr aktualisiert und der Ausschnitt wandert nicht mehr mit :(

    Ist es normal, dass wenn ich links oben im Bildschirm starte, dass dann X-Pos: 1 und Y-Pos: 19 ist ?(
    EDIT: habs Posting ä bisserle gerändert, meinte die Größenangabe des Bereichs

  • Probleme mit neuem Forum? Hierrein schreiben!

    Hab auch noch was, muß ich dieses Jahr noch loswerden :rofl:

    Bei mir fehlen links in der Leiste die Icons (nun ist ein rotes x da)
    Außerdem kann man den Text bei Übersetzungsstatus nicht ganz lesen.
    Wäre es noch möglich bei "AutoIt Versionen" die Version bzw. das Datum vom Scite hinzuzufügen ?(

    Das wichtigste zum Schluß:
    Seit ein paar Tagen habe ich eine sehr hohe CPU-Last durch die iexplore.exe
    Aber nur wenn ich oben "Forum" angeklickt habe, oder mich in einem Beitrag befinde.
    Wenn ich im "Portal" bin habe ist es OK.
    Hat es vielleicht damit was zu tun?
    http://patch-info.de/artikel/2007/12/12/439
    Hatte auf dieser Seite auf eine hohe CPU-Last bis es behoben wurde

    PS: Nutze XP Pro SP2, alle wichtigen Updates und IE7

    Danke :D

  • OrganizeIncludes

    Hi Xeno,
    danke für die neue Version :)

    leider funktionieren die Sachen von meinem Post vom Samstag, 8. Dezember 2007, 18:50 nicht.

    Die Sachen die du für Martin eingebaut hast, verstehe ich nicht.
    Wenn du es mir auf deutsch :thumbup: erklärst, kann ichs für dich testen

  • Lupenfunktion ohne Flimmern?

    Hi,
    habe die Lupenfunktion entdeckt. Sie wurde in älteren Posts mehrfach erwähnt.

    Wie bekomme ich es hin, dass der Ausschnitt nicht mehr flimmert?
    Außerdem stimmt der Ausschnitt nicht zu dem tatsächlichen ausgewählten auf dem Desktop (nur minimal Unterschiede)
    Gut wäre noch, wenn das Vorschaufenster nicht unten aus dem Bildschirm verschwindet

    Spoiler anzeigen
    [autoit]

    #include<GUIConstants.au3>
    #include<Misc.au3>

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

    Dim $left, $top, $width, $height, $MyhWnd

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

    _auswahl()

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

    ;********************************************
    ; Auswahl (nur für Bereich) *
    ;********************************************

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

    Func _auswahl()
    Global $left, $top, $width, $height
    $AuswahlGUI = GUICreate("ScreenShot", @DesktopWidth, @DesktopHeight, -1, -1, $WS_POPUP, BitOR($WS_EX_TOPMOST, $WS_EX_TOOLWINDOW)); erstellen eines GUI-Fensters
    GUISetCursor(3, 1, $AuswahlGUI); Mouse-Cursor umschalten, Kreuz
    GUISetState(); öffnen des GUI-Fensters
    WinSetTrans("ScreenShot", "", 20)

    Local $UserDLL = DllOpen("user32.dll"); öffnen der User32.dll

    ; Infotext anzeigen:
    SplashTextOn('Info: ', 'Bitte markieren Sie den Bereich, von dem Sie einen ScreenShot erstellt haben wollen. ', 400, 50, (@DesktopWidth / 2) - 200, (@DesktopHeight / 2) - 25)
    Sleep(2000)
    SplashOff()

    While 1
    If _IsPressed("01", $UserDLL) Then
    Local $Start_Pos = MouseGetPos()
    draw_label()
    ExitLoop
    EndIf
    WEnd

    While 1
    If Not _IsPressed("01", $UserDLL) Then
    Local $End_Pos = MouseGetPos()
    SplashOff()
    ToolTip("")
    ;rechts oben nach links unten:
    If $End_Pos[0] > $Start_Pos[0] And $End_Pos[1] > $Start_Pos[1] Then
    $left = $Start_Pos[0]
    $top = $Start_Pos[1]
    $width = $End_Pos[0] - $Start_Pos[0]
    $height = $End_Pos[1] - $Start_Pos[1]
    EndIf
    ;rechts unten nach links oben:
    If $End_Pos[0] > $Start_Pos[0] And $End_Pos[1] < $Start_Pos[1] Then
    $left = $Start_Pos[0]
    $top = $End_Pos[1]
    $width = $End_Pos[0] - $Start_Pos[0]
    $height = $Start_Pos[1] - $End_Pos[1]
    EndIf
    ;links oben nach rechts unten:
    If $End_Pos[0] < $Start_Pos[0] And $End_Pos[1] > $Start_Pos[1] Then
    $left = $End_Pos[0]
    $top = $Start_Pos[1]
    $width = $Start_Pos[0] - $End_Pos[0]
    $height = $End_Pos[1] - $Start_Pos[1]
    EndIf
    ;links unten nach rechts oben:
    If $End_Pos[0] < $Start_Pos[0] And $End_Pos[1] < $Start_Pos[1] Then
    $left = $End_Pos[0]
    $top = $End_Pos[1]
    $width = $Start_Pos[0] - $End_Pos[0]
    $height = $Start_Pos[1] - $End_Pos[1]
    EndIf
    ExitLoop
    EndIf
    WEnd
    DllClose($UserDLL)
    GUISetCursor(2, 0); Mouse-Cursor umschalten, Pfeil
    GUIDelete()
    EndFunc ;==>_auswahl()

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

    ;*********************************************
    ; Auswahlbereich anzuzeigen *
    ;*********************************************

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

    Func draw_label()
    Local $User1DLL = DllOpen("user32.dll")
    Local $MouseCoordMode, $Start_Pos1, $Ausschnitt, $Mouse_Pos

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

    While 1
    $MouseCoordMode = Opt('MouseCoordMode', 2)
    $Start_Pos1 = MouseGetPos()
    $Ausschnitt = GUICtrlCreateLabel('', 0, 0, 1, 1, $SS_SUNKEN)
    GUICtrlSetBkColor($Ausschnitt, 0)

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

    While _IsPressed("01", $User1DLL)
    $Mouse_Pos = MouseGetPos()
    Local $Pos_Lupe = MouseGetPos()
    Local $Pos_Screen = ToolTip("X-Pos.: " & $Pos_Lupe[0] & @LF & "Y-Pos.: " & $Pos_Lupe[1] & @LF & "Breite: " & $Pos_Lupe[0] - $Start_Pos1[0] & @LF & "Höhe: " & $Pos_Lupe[1] - $Start_Pos1[1], $Pos_Lupe[0] + 20, $Pos_Lupe[1] + 120)
    Local $Lupe = SplashTextOn("Lupe", "", 100, 100, $Pos_Lupe[0] + 20, $Pos_Lupe[1] + 20, 1)
    Global $MyhWnd = WinGetHandle("Lupe")
    Lupe()

    ;links oben nach rechts unten:
    If $Mouse_Pos[1] > $Start_Pos1[1] And $Mouse_Pos[0] > $Start_Pos1[0] Then
    GUICtrlSetPos($Ausschnitt, $Start_Pos1[0], $Start_Pos1[1], $Mouse_Pos[0] - $Start_Pos1[0], $Mouse_Pos[1] - $Start_Pos1[1])
    Sleep(10)
    EndIf
    ;links unten nach rechts oben:
    If $Mouse_Pos[1] < $Start_Pos1[1] And $Mouse_Pos[0] > $Start_Pos1[0] Then
    GUICtrlSetPos($Ausschnitt, $Start_Pos1[0], $Mouse_Pos[1], $Mouse_Pos[0] - $Start_Pos1[0], $Start_Pos1[1] - $Mouse_Pos[1])
    Sleep(10)
    EndIf
    ;rechts oben nach links unten:
    If $Mouse_Pos[1] > $Start_Pos1[1] And $Mouse_Pos[0] < $Start_Pos1[0] Then
    GUICtrlSetPos($Ausschnitt, $Mouse_Pos[0], $Start_Pos1[1], $Start_Pos1[0] - $Mouse_Pos[0], $Mouse_Pos[1] - $Start_Pos1[1])
    Sleep(10)
    EndIf
    ;rechts unten nach links oben:
    If $Mouse_Pos[1] < $Start_Pos1[1] And $Mouse_Pos[0] < $Start_Pos1[0] Then
    GUICtrlSetPos($Ausschnitt, $Mouse_Pos[0], $Mouse_Pos[1], $Start_Pos1[0] - $Mouse_Pos[0], $Start_Pos1[1] - $Mouse_Pos[1])
    Sleep(10)
    EndIf
    WEnd

    Opt('MouseCoordMode', $MouseCoordMode)
    Return $Ausschnitt
    Sleep(10)
    WEnd
    DllClose($User1DLL)
    EndFunc ;==>draw_label()

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

    ;*********************************
    ; Bildschirmlupe *
    ;*********************************

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

    Func Lupe()
    Global $MyHDC = DllCall("user32.dll", "int", "GetDC", "hwnd", $MyhWnd)
    If @error Then Return
    Global $DeskHDC = DllCall("user32.dll", "int", "GetDC", "hwnd", 0)
    If Not @error Then
    $xy = MouseGetPos()
    If Not @error Then
    $l = $xy[0] - 10
    $t = $xy[1] - 10
    DllCall("gdi32.dll", "int", "StretchBlt", "int", $MyHDC[0], "int", 0, "int", 0, "int", 100, "int", 100, "int", $DeskHDC[0], "int", $l, "int", $t, "int", 20, "int", 20, "long", $SRCCOPY)
    EndIf
    DllCall("user32.dll", "int", "ReleaseDC", "int", $DeskHDC[0], "hwnd", 0)
    EndIf
    DllCall("user32.dll", "int", "ReleaseDC", "int", $MyHDC[0], "hwnd", $MyhWnd)
    EndFunc ;==>Lupe()

    [/autoit]

  • Neue 3.2.0.0-Hilfe übersetzen

    umso mehr Leute sich die Hilfe durchlesen, umso besser und verständlicher wird sie.
    Klar sind Tippfehler nicht schlimm, jedoch müssen sie auch nicht sein.
    Die Funktionen wo pee beretisgestellt hat sind ja nur ein Bruchteil von dem ganzen.
    Deshalb müssen wir uns ranhalten, denn die AutoIt Entwickler schlafen nicht (zum Glück :P )

  • ListView: Wieder ein Problem

    Aha, wäre denke ich sinnvoll, wenn du noch erklären würdest was davon genau warum gefärbt wird.

    Kann ich damit auch alle Einträge des ListView erstellen und dann anschließend die Felder je nach Wert (z. B. <50 rot, >=50 gelb) ändern?