Jump to content
Sign in to follow this  
Alek

once again im not sure what to call this.

Recommended Posts

Alek

Im not sure what to call this but its pretty cool :)

its flikering a bit.

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

MsgBox(0,"","Minimize all your windows and press OK")
Sleep(100)
_ScreenCap_Capture(@TempDir & "\Screen.jpg",0, 0, @DesktopWidth, @DesktopHeight,False)

$gui = GUICreate("",300,200,0,0,$WS_POPUP+$WS_BORDER,$WS_EX_TOOLWINDOW+$WS_EX_TOPMOST)
$image = GUICtrlCreatePic(@TempDir & "\Screen.jpg",0,0,@DesktopWidth,@DesktopHeight)
GUISetState()
While 1
    $Guiinfo = GUIGetCursorInfo()
    if _IsPressed(01) and WinActive($Gui) Then
        While _IsPressed(01)
            $mousepos = MouseGetPos()
            WinMove($Gui,"",$mousepos[0]-$Guiinfo[0],$mousepos[1]-$Guiinfo[1])
            $winpos = WinGetPos($Gui)
            GUICtrlSetPos($image,-$winpos[0]-1,-$winpos[1]-1)
            Sleep(1)
        WEnd
    Else
        Sleep(1)
    EndIf
WEnd
FileDelete(@TempDir & "\Screen.jpg")
Edited by Alek

[font="Impact"]Never fear, I is here.[/font]

Share this post


Link to post
Share on other sites
gseller

I would call it Show Desktop if it worked.. LOL :)

Doesen't work for me... Just shows this little clear box in the upper lh corner after you click ok...

Share this post


Link to post
Share on other sites
Alek

I would call it Show Desktop if it worked.. LOL :)

Doesen't work for me... Just shows this little clear box in the upper lh corner after you click ok...

activate a window and drag the box around Edited by Alek

[font="Impact"]Never fear, I is here.[/font]

Share this post


Link to post
Share on other sites
JRSmile

nice effect, but i can't see a sense in it sry :)

Edited by JRSmile

$a=StringSplit("547275737420796F757220546563686E6F6C75737421","")For $b=1 To UBound($a)+(-1*-1*-1)step(2^4/8);&$b+=1*2/40*ยต&Asc(4)Assign("c",Eval("c")&Chr(Dec($a[$b]&$a[$b+1])))''Chr("a")&"HI"Next;time_U&r34d,ths,U-may=get$the&c.l.u.e;b3st-regards,JRSmile;MsgBox(0x000000,"",Eval("c"));PiEs:d0nt+*b3.s4d.4ft3r.1st-try:-)

Share this post


Link to post
Share on other sites
Alek

Dont Work For Me Says #include <A3LScreencap.au3> What To Do Im Just New To This? :)

you can get A3LScreencap.au3 here: http://www.autoitscript.com/forum/index.php?showtopic=33677

nice effect, but i can't see a sense in it sry :P

You could use it as a magnifying glass by modifying it a bit

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

HotKeySet("^{F5}","Refresh")

$Zoom = 2

_ScreenCap_Capture(@TempDir & "\Screen.bmp",0, 0, @DesktopWidth, @DesktopHeight,False)

$gui = GUICreate("",300,200,0,0,$WS_POPUP+$WS_BORDER,$WS_EX_TOOLWINDOW+$WS_EX_TOPMOST)
$image = GUICtrlCreatePic(@TempDir & "\Screen.bmp",0,0,@DesktopWidth*$Zoom,@DesktopHeight*$Zoom)
GUISetState()
While 1
    $Guiinfo = GUIGetCursorInfo()
    if _IsPressed(01) and WinActive($Gui) Then
        While _IsPressed(01)
            $mousepos = MouseGetPos()
            WinMove($Gui,"",$mousepos[0]-$Guiinfo[0],$mousepos[1]-$Guiinfo[1])
            $winpos = WinGetPos($Gui)
            GUICtrlSetPos($image,(-$winpos[0]-1)*$Zoom,(-$winpos[1]-1)*$Zoom)
            Sleep(1)
        WEnd
    Else
        Sleep(1)
    EndIf
WEnd
FileDelete(@TempDir & "\Screen.bmp")

Func Refresh()
    GUISetState(@SW_HIDE)
    Sleep(10)
    _ScreenCap_Capture(@TempDir & "\Screen.bmp",0, 0, @DesktopWidth, @DesktopHeight,False)
    GUICtrlSetImage($image,@TempDir & "\Screen.bmp")
    GUISetState(@SW_SHOW)
EndFunc
Edited by Alek

[font="Impact"]Never fear, I is here.[/font]

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
Sign in to follow this  

×