[Ex] Loupe

Partagez vos scripts, et vos applications AutoIt.
Règles du forum
.
Répondre
Avatar du membre
MClaveau
AutoIt MVPs (MVP)
AutoIt MVPs (MVP)
Messages : 28
Enregistré le : ven. 08 févr. 2008 22:11
Status : Hors ligne

[Ex] Loupe

#1

Message par MClaveau »

Loupe en 2x

Code : Tout sélectionner

#include <GUIConstants.au3>
$MagWidth = 140
$MagHeight = 100
$MagZoom = 2

Global $dll[3], $DeskHDC, $GUIHDC

$dll[1] = DllOpen ( "user32.dll")
$dll[2] = DllOpen ( "gdi32.dll")

Global $GUI = GUICreate ("Zoom x2 Au3", $MagWidth * $MagZoom, $MagHeight * $MagZoom, _ 
    MouseGetPos (0), MouseGetPos (1), $WS_POPUP+$WS_BORDER, $WS_EX_TOPMOST)

GUISetState(@SW_SHOW)

Global $LastPos[2] = [0,0]

While 1
    MAG()
    $MousePos = MouseGetPos()
    If ($LastPos[0] <> $MousePos[0] Or $LastPos[1] <> $MousePos[1]) Then
        WinMove("Zoom x2 Au3", "", $MousePos[0] + $MagWidth/2 + 5, $MousePos[1]-$MagHeight/1.05)
        $LastPos[0] = $MousePos[0]
        $LastPos[1] = $MousePos[1]
    EndIf
    
    Sleep(10)
WEnd

Func MAG()
    $DeskHDC = DLLCall("user32.dll","int","GetDC","hwnd",0)
    $GUIHDC = DLLCall("user32.dll","int","GetDC","hwnd",$GUI)
    If Not @error Then
        DLLCall("gdi32.dll", "int", "StretchBlt", "int", $GUIHDC[0], "int", _
            0, "int", 0, "int", $MagWidth * $MagZoom, "int", $MagHeight * $MagZoom, "int", $DeskHDC[0], "int", _
            MouseGetPos (0) - $MagWidth/2, "int", MouseGetPos (1) - $MagHeight/2, "int", $MagWidth ,"int", $MagHeight, _
            "long", $SRCCOPY)
        DLLCall("user32.dll","int","ReleaseDC","int",$DeskHDC[0],"hwnd",0)
        DLLCall("user32.dll","int","ReleaseDC","int",$GUIHDC[0],"hwnd",$GUI)
    EndIf
EndFunc

Func OnAutoItExit()
    DllClose ( $dll[1] )
    DllClose ( $dll[2] )
EndFunc



:arrow:
Modifié en dernier par Tlem le sam. 13 déc. 2008 10:47, modifié 2 fois.
Raison : Ajout de la balise [Ex] dans le titre.
@-salutations (pas de messages perso ; merci)
--

Michel Claveau
Avatar du membre
arrkhan
Niveau 8
Niveau 8
Messages : 528
Enregistré le : sam. 17 nov. 2007 03:30
Status : Hors ligne

Re: [Ex] Loupe

#2

Message par arrkhan »

En voici un autre dans le même genre créer par Siao.
Voir le fichier joint.
Fichiers joints
Screen_Magnifier.au3
(17.67 Kio) Téléchargé 289 fois
Modifié en dernier par Tlem le sam. 29 mars 2008 14:44, modifié 2 fois.
Raison : Code modifié et mis en attachement.
Répondre