Descargar Archivo
Titulo
Apagar Monitor
Descripcion
Puede ser util para cuando no estas en la Pc y quieres que con codigo se apague el monitor
Descargas
1188
Codigo Fuente
<pre><font face='Verdana,Tahoma'><span style="color: #008000">' Algunos monitores no soportan el comando de "prender monitor", para eso solo mueve el mouse</span> <span style="color: #0000FF">Private</span> <span style="color: #0000FF">Const</span> ENCIENDE = -1& <span style="color: #0000FF">Private</span> <span style="color: #0000FF">Const</span> APAGA = 2& <span style="color: #0000FF">Private</span> <span style="color: #0000FF">Declare</span> <span style="color: #0000FF">Function</span> SendMessage Lib <span style="color: #B22222">"user32"</span> Alias <span style="color: #B22222">"SendMessageA"</span> (<span style="color: #0000FF">ByVal</span> hWnd <span style="color: #0000FF">As</span> <span style="color: #0000FF">Long</span>, <span style="color: #0000FF">ByVal</span> wMsg <span style="color: #0000FF">As</span> <span style="color: #0000FF">Long</span>, <span style="color: #0000FF">ByVal</span> wParam <span style="color: #0000FF">As</span> <span style="color: #0000FF">Long</span>, lParam <span style="color: #0000FF">As</span> <span style="color: #0000FF">Any</span>) <span style="color: #0000FF">As</span> <span style="color: #0000FF">Long</span> <span style="color: #0000FF">Private</span> <span style="color: #0000FF">Sub</span> ApagaEnciende(Valor <span style="color: #0000FF">As</span> <span style="color: #0000FF">Boolean</span>) <span style="color: #0000FF">If</span> Valor = <span style="color: #0000FF">True</span> <span style="color: #0000FF">Then</span> <span style="color: #0000FF">Call</span> SendMessage(<span style="color: #0000FF">Me</span>.hWnd, &H112, &HF170&, <span style="color: #0000FF">ByVal</span> ENCIENDE) <span style="color: #0000FF">Else</span> <span style="color: #0000FF">Call</span> SendMessage(<span style="color: #0000FF">Me</span>.hWnd, &H112, &HF170&, <span style="color: #0000FF">ByVal</span> APAGA) <span style="color: #0000FF">End</span> <span style="color: #0000FF">If</span> <span style="color: #0000FF">End</span> <span style="color: #0000FF">Sub</span> <span style="color: #0000FF">Private</span> <span style="color: #0000FF">Sub</span> Command1_Click() ApagaEnciende <span style="color: #0000FF">False</span> Timer1.Enabled = <span style="color: #0000FF">True</span> <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() ApagaEnciende <span style="color: #0000FF">True</span> Timer1.Enabled = <span style="color: #0000FF">False</span> <span style="color: #0000FF">End</span> <span style="color: #0000FF">Sub</span></font></pre>
