Descargar Archivo   Titulo Captura pantalla y mouse Descripcion Util codigo para capturar la pantalla y el mouse tambien (con un pequeño truco) Descargas 904 Codigo Fuente <pre><font face='Verdana,Tahoma'><span style="color: #0000FF">Private</span> <span style="color: #0000FF">Sub</span> Command1_Click() MsgBox <span style="color: #B22222">"Presiona aceptar y espera 5 segundos para capturar la pantalla"</span> Timer1.Enabled = <span style="color: #0000FF">True</span> <span style="color: #0000FF">Me</span>.WindowState = vbMinimized <span style="color: #0000FF">End</span> <span style="color: #0000FF">Sub</span> <span style="color: #0000FF">Private</span> <span style="color: #0000FF">Sub</span> Timer1_Timer() <span style="color: #008000">' El timer debe tener Interval de 5000</span> CapturarPantalla Picture1 Timer1.Enabled = <span style="color: #0000FF">False</span> <span style="color: #0000FF">Me</span>.WindowState = vbNormal <span style="color: #0000FF">End</span> <span style="color: #0000FF">Sub</span> <span style="color: #008000">' En un Modulo</span> <span style="color: #0000FF">Public</span> <span style="color: #0000FF">Declare</span> <span style="color: #0000FF">Function</span> GetDesktopWindow Lib <span style="color: #B22222">"user32"</span> () <span style="color: #0000FF">As</span> <span style="color: #0000FF">Long</span> <span style="color: #0000FF">Public</span> <span style="color: #0000FF">Declare</span> <span style="color: #0000FF">Function</span> GetDC Lib <span style="color: #B22222">"user32"</span> (<span style="color: #0000FF">ByVal</span> hWnd <span style="color: #0000FF">As</span> <span style="color: #0000FF">Long</span>) <span style="color: #0000FF">As</span> <span style="color: #0000FF">Long</span> <span style="color: #0000FF">Public</span> <span style="color: #0000FF">Declare</span> <span style="color: #0000FF">Function</span> BitBlt Lib <span style="color: #B22222">"gdi32"</span> (<span style="color: #0000FF">ByVal</span> hDestDC <span style="color: #0000FF">As</span> <span style="color: #0000FF">Long</span>, <span style="color: #0000FF">ByVal</span> x <span style="color: #0000FF">As</span> <span style="color: #0000FF">Long</span>, <span style="color: #0000FF">ByVal</span> y <span style="color: #0000FF">As</span> <span style="color: #0000FF">Long</span>, <span style="color: #0000FF">ByVal</span> nWidth <span style="color: #0000FF">As</span> <span style="color: #0000FF">Long</span>, <span style="color: #0000FF">ByVal</span> nHeight <span style="color: #0000FF">As</span> <span style="color: #0000FF">Long</span>, <span style="color: #0000FF">ByVal</span> hSrcDC <span style="color: #0000FF">As</span> <span style="color: #0000FF">Long</span>, <span style="color: #0000FF">ByVal</span> xSrc <span style="color: #0000FF">As</span> <span style="color: #0000FF">Long</span>, <span style="color: #0000FF">ByVal</span> ySrc <span style="color: #0000FF">As</span> <span style="color: #0000FF">Long</span>, <span style="color: #0000FF">ByVal</span> dwRop <span style="color: #0000FF">As</span> <span style="color: #0000FF">Long</span>) <span style="color: #0000FF">As</span> <span style="color: #0000FF">Long</span> <span style="color: #0000FF">Public</span> <span style="color: #0000FF">Declare</span> <span style="color: #0000FF">Function</span> GetCursorInfo Lib <span style="color: #B22222">"user32.dll"</span> (<span style="color: #0000FF">ByRef</span> pci <span style="color: #0000FF">As</span> PCURSORINFO) <span style="color: #0000FF">As</span> <span style="color: #0000FF">Long</span> <span style="color: #0000FF">Public</span> <span style="color: #0000FF">Declare</span> <span style="color: #0000FF">Function</span> GetCursor Lib <span style="color: #B22222">"user32"</span> () <span style="color: #0000FF">As</span> <span style="color: #0000FF">Long</span> <span style="color: #0000FF">Public</span> <span style="color: #0000FF">Declare</span> <span style="color: #0000FF">Function</span> DrawIcon Lib <span style="color: #B22222">"user32"</span> (<span style="color: #0000FF">ByVal</span> hDC <span style="color: #0000FF">As</span> <span style="color: #0000FF">Long</span>, <span style="color: #0000FF">ByVal</span> x <span style="color: #0000FF">As</span> <span style="color: #0000FF">Long</span>, <span style="color: #0000FF">ByVal</span> y <span style="color: #0000FF">As</span> <span style="color: #0000FF">Long</span>, <span style="color: #0000FF">ByVal</span> hIcon <span style="color: #0000FF">As</span> <span style="color: #0000FF">Long</span>) <span style="color: #0000FF">As</span> <span style="color: #0000FF">Long</span> <span style="color: #0000FF">Public</span> <span style="color: #0000FF">Declare</span> <span style="color: #0000FF">Function</span> GetCursorPos Lib <span style="color: #B22222">"user32"</span> (lpPoint <span style="color: #0000FF">As</span> POINTAPI) <span style="color: #0000FF">As</span> <span style="color: #0000FF">Long</span> <span style="color: #0000FF">Public</span> <span style="color: #0000FF">Declare</span> <span style="color: #0000FF">Function</span> SetCursorPos Lib <span style="color: #B22222">"user32"</span> (<span style="color: #0000FF">ByVal</span> x <span style="color: #0000FF">As</span> <span style="color: #0000FF">Long</span>, <span style="color: #0000FF">ByVal</span> y <span style="color: #0000FF">As</span> <span style="color: #0000FF">Long</span>) <span style="color: #0000FF">As</span> <span style="color: #0000FF">Long</span> <span style="color: #0000FF">Public</span> <span style="color: #0000FF">Declare</span> <span style="color: #0000FF">Function</span> ShowCursor Lib <span style="color: #B22222">"user32"</span> (<span style="color: #0000FF">ByVal</span> bShow <span style="color: #0000FF">As</span> <span style="color: #0000FF">Long</span>) <span style="color: #0000FF">As</span> <span style="color: #0000FF">Long</span> <span style="color: #0000FF">Public</span> <span style="color: #0000FF">Type</span> POINTAPI x <span style="color: #0000FF">As</span> <span style="color: #0000FF">Long</span> y <span style="color: #0000FF">As</span> <span style="color: #0000FF">Long</span> <span style="color: #0000FF">End</span> <span style="color: #0000FF">Type</span> <span style="color: #0000FF">Public</span> <span style="color: #0000FF">Type</span> PCURSORINFO cbSize <span style="color: #0000FF">As</span> <span style="color: #0000FF">Long</span> flags <span style="color: #0000FF">As</span> <span style="color: #0000FF">Long</span> hCursor <span style="color: #0000FF">As</span> <span style="color: #0000FF">Long</span> ptScreenPos <span style="color: #0000FF">As</span> POINTAPI <span style="color: #0000FF">End</span> <span style="color: #0000FF">Type</span> <span style="color: #0000FF">Public</span> <span style="color: #0000FF">Sub</span> CapturarPantalla(ElPicture <span style="color: #0000FF">As</span> Control) <span style="color: #0000FF">Dim</span> Point <span style="color: #0000FF">As</span> POINTAPI <span style="color: #0000FF">Dim</span> pcin <span style="color: #0000FF">As</span> PCURSORINFO <span style="color: #0000FF">Dim</span> ret, ww, hh <span style="color: #0000FF">Dim</span> Desktop <span style="color: #0000FF">As</span> <span style="color: #0000FF">Long</span> Desktop = GetDC(GetDesktopWindow) DoEvents ww = Screen.<span style="color: #0000FF">Width</span> / Screen.TwipsPerPixelX hh = Screen.Height / Screen.TwipsPerPixelY BitBlt ElPicture.hDC, 0, 0, ww, hh, Desktop, 0, 0, vbSrcCopy DoEvents <span style="color: #008000">' mouse</span> GetCursorPos Point pcin.hCursor = GetCursor pcin.cbSize = <span style="color: #0000FF">Len</span>(pcin) ret = GetCursorInfo(pcin) DrawIcon ElPicture.hDC, Point.x, Point.y, pcin.hCursor <span style="color: #0000FF">End</span> <span style="color: #0000FF">Sub</span></font></pre>