Jump to content

once again im not sure what to call this.


Alek
 Share

Recommended Posts

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]

Link to comment
Share on other sites

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]

Link to comment
Share on other sites

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:-)
Link to comment
Share on other sites

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]

Link to comment
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
 Share

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...