Alek Posted August 5, 2007 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]
gseller Posted August 5, 2007 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...
Alek Posted August 5, 2007 Author 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]
JRSmile Posted August 6, 2007 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:-)
WolfWorld Posted August 6, 2007 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!
ScriptLearner Posted August 6, 2007 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
Alek Posted August 6, 2007 Author 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]
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