datkewlguy Posted February 15, 2005 Share Posted February 15, 2005 i saw some code on the forum a while back that really fascinated me, it reads the monitor output and writes it back backwards. The problems are: It's not full screen Because it displays the area under your mouse, if you try and display the displayed area it freaks out It's just buggy So my objective here is to make it so your computer would look like it would if you were looking at it in a mirror... heres the code: $total = @DesktopHeight + @DesktopWidth Global $SRCCOPY = 0x00CC0020 Global $leave = 0 , $dll[3] , $size = $total HotKeySet("{PAUSE}","leave") $dll[1] = DllOpen ( "user32.dll") $dll[2] = DllOpen ( "gdi32.dll") While Not $leave Sleep(25) MAG() WEnd DllClose ( $dll[1] ) DllClose ( $dll[2] ) Func MAG() $DeskHDC = DLLCall("user32.dll","int","GetDC","hwnd",0) If Not @error Then $xy = MouseGetPos() If Not @error Then DLLCall("gdi32.dll","int","StretchBlt","int",$DeskHDC[0],"int",_ 0,"int",0,"int",$size,"int",$size,"int",$DeskHDC[0],"int",_ $xy[0] + $size,"int",$xy[1],"int", "-" & $size ,"int", $size,_ "long",$SRCCOPY) EndIf DLLCall("user32.dll","int","ReleaseDC","int",$DeskHDC[0],"hwnd",0) EndIf EndFunc Func leave() $leave = 1 EndFunc any improvements would be great, especially if they can fix any of the main problems listed above... Thx Link to comment Share on other sites More sharing options...
layer Posted February 15, 2005 Share Posted February 15, 2005 soo, you wrote this? or you know its right here? http://www.autoitscript.com/forum/index.ph...6015&hl=Magnify FootbaG Link to comment Share on other sites More sharing options...
Blue_Drache Posted February 15, 2005 Share Posted February 15, 2005 soo, you wrote this? or you know its right here? http://www.autoitscript.com/forum/index.ph...6015&hl=Magnify<{POST_SNAPBACK}>Actually, if you re-read his post, he said he saw it on the forum, and intends to debug the code. Lofting the cyberwinds on teknoleather wings, I am...The Blue Drache Link to comment Share on other sites More sharing options...
layer Posted February 15, 2005 Share Posted February 15, 2005 (edited) sorry for me being a redneck, cant help this stuff edit; independent, young redneck rebel Edited February 15, 2005 by layer FootbaG Link to comment Share on other sites More sharing options...
nobby Posted February 16, 2005 Share Posted February 16, 2005 This will do the full screen reverse, but as there are no loops, it will execute the script and exit, leaving your display inverted, until you refresh or mouve the mouse. expandcollapse popup$total = @DesktopHeight + @DesktopWidth Global $SRCCOPY = 0x00CC0020 Global $leave = 0 , $dll[3] , $size = $total HotKeySet("{PAUSE}","leave") $dll[1] = DllOpen ( "user32.dll") $dll[2] = DllOpen ( "gdi32.dll") ;While Not $leave ; Sleep(25) MAG() ;WEnd DllClose ( $dll[1] ) DllClose ( $dll[2] ) Func MAG() $DeskHDC = DLLCall("user32.dll","int","GetDC","hwnd",0) If Not @error Then ;$xy = MouseGetPos() $l = 0 $t = 0 If Not @error Then DLLCall("gdi32.dll","int","StretchBlt","int",$DeskHDC[0],"int",_ 0,"int",0,"int",$size,"int",$size,"int",$DeskHDC[0],"int",_ $l + $size,"int",$t,"int", "-" & $size ,"int", $size,_ "long",$SRCCOPY) EndIf DLLCall("user32.dll","int","ReleaseDC","int",$DeskHDC[0],"hwnd",0) EndIf EndFunc Func leave() $leave = Exit EndFunc CheersNobby Link to comment Share on other sites More sharing options...
lupusbalo Posted February 16, 2005 Share Posted February 16, 2005 (edited) This will do the full screen reverse, but as there are no loops, it will execute the script and exit, leaving your display inverted, until you refresh or mouve the mouse. doesn't work for me nothing happens!!(running 3.1.0.9 on W98) Edited February 16, 2005 by lupusbalo Link to comment Share on other sites More sharing options...
SlimShady Posted February 16, 2005 Share Posted February 16, 2005 Works here on W2000. Funny Link to comment Share on other sites More sharing options...
Nova Posted February 16, 2005 Share Posted February 16, 2005 Finally someone whos after the same thing I am. I started the topic that spawned this one. The above example works for me but as already stated its only one freeze frame reversed. Could this be made to happen in real time within a loop ? Or could such a speed simply not be possible ? Link to comment Share on other sites More sharing options...
datkewlguy Posted February 16, 2005 Author Share Posted February 16, 2005 Im interested, maybe we could make the above script into a loop so it wouldnt reset?... Link to comment Share on other sites More sharing options...
datkewlguy Posted February 16, 2005 Author Share Posted February 16, 2005 ok 150 ppl have looked at this, anyone know how to make that script a current feed? (loops up to date with changes) Link to comment Share on other sites More sharing options...
Nova Posted February 17, 2005 Share Posted February 17, 2005 I just realised that even if you did nothing would work. Take your desktop for example, the icons you had carefully lined up on the left hand side of your screen may appear to be on the right hand side now, but clicking them will do u know good, adcept maby creating a patch of distortion for a second or so. Nothing will work ur startbar, ur taskbar ect, everything will just be hidden behind a sheet of a flipped screenshot. Unless someone actually has a way of flipping the screenoutput the above methoid should be abandoned 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