Alek Posted August 5, 2007 Share Posted August 5, 2007 (edited) 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 August 5, 2007 by Alek [font="Impact"]Never fear, I is here.[/font] Link to comment Share on other sites More sharing options...
gseller Posted August 5, 2007 Share Posted August 5, 2007 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... Link to comment Share on other sites More sharing options...
Alek Posted August 5, 2007 Author Share Posted August 5, 2007 (edited) 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 August 5, 2007 by Alek [font="Impact"]Never fear, I is here.[/font] Link to comment Share on other sites More sharing options...
JRSmile Posted August 6, 2007 Share Posted August 6, 2007 (edited) nice effect, but i can't see a sense in it sry Edited August 6, 2007 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 More sharing options...
WolfWorld Posted August 6, 2007 Share Posted August 6, 2007 It Work On Vista Nice Main project - Eat Spaghetti - Obfuscate and Optimize your script. The most advance add-on.Website more of GadGets! Link to comment Share on other sites More sharing options...
ScriptLearner Posted August 6, 2007 Share Posted August 6, 2007 Dont Work For Me Says #include <A3LScreencap.au3> What To Do Im Just New To This? Edited SWBMy Virst Script,UslessAnOther Sample Link to comment Share on other sites More sharing options...
Alek Posted August 6, 2007 Author Share Posted August 6, 2007 (edited) 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 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 August 6, 2007 by Alek [font="Impact"]Never fear, I is here.[/font] Link to comment Share on other sites More sharing options...
Recommended Posts
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 accountSign in
Already have an account? Sign in here.
Sign In Now