El otro día quería dejar la compu prendida para escuchar musica y q se apage sola entonces ...:
[vb]<div class="vb" id="{CB}" style="font-family: monospace;"><ol><li style="" class="li1"><span style="color: #b1b100;">Private</span> <span style="color: #b1b100;">Type</span> LUID</li><li style="" class="li1"> UsedPart <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">Long</span></li><li style="" class="li2"> IgnoredForNowHigh32BitPart <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">Long</span></li><li style="" class="li1"> <span style="color: #b1b100;">End</span> <span style="color: #b1b100;">Type</span></li><li style="" class="li1"> </li><li style="" class="li2"> <span style="color: #b1b100;">Private</span> <span style="color: #b1b100;">Type</span> TOKEN_PRIVILEGES</li><li style="" class="li1"> PrivilegeCount <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">Long</span></li><li style="" class="li1"> TheLuid <span style="color: #b1b100;">As</span> LUID</li><li style="" class="li2"> Attributes <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">Long</span></li><li style="" class="li1"> <span style="color: #b1b100;">End</span> <span style="color: #b1b100;">Type</span></li><li style="" class="li1"> </li><li style="" class="li2"> </li><li style="" class="li1"><span style="color: #b1b100;">Private</span> <span style="color: #b1b100;">Declare</span> <span style="color: #b1b100;">Function</span> ExitWindowsEx& Lib <span style="color: #ffffff;">"user32"</span> <span style="color: #66cc66;">(</span>ByVal dwOption <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">Long</span>, ByVal dwReserved <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">Long</span><span style="color: #66cc66;">)</span></li><li style="" class="li1"><span style="color: #b1b100;">Private</span> <span style="color: #b1b100;">Declare</span> <span style="color: #b1b100;">Function</span> GetCurrentProcess Lib <span style="color: #ffffff;">"kernel32"</span> <span style="color: #66cc66;">(</span><span style="color: #66cc66;">)</span> <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">Long</span></li><li style="" class="li2"><span style="color: #b1b100;">Private</span> <span style="color: #b1b100;">Declare</span> <span style="color: #b1b100;">Function</span> OpenProcessToken Lib <span style="color: #ffffff;">"advapi32"</span> <span style="color: #66cc66;">(</span>ByVal ProcessHandle <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">Long</span>, ByVal DesiredAccess <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">Long</span>, TokenHandle <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">Long</span><span style="color: #66cc66;">)</span> <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">Long</span></li><li style="" class="li1"><span style="color: #b1b100;">Private</span> <span style="color: #b1b100;">Declare</span> <span style="color: #b1b100;">Function</span> LookupPrivilegeValue Lib <span style="color: #ffffff;">"advapi32"</span> Alias <span style="color: #ffffff;">"LookupPrivilegeValueA"</span> <span style="color: #66cc66;">(</span>ByVal lpSystemName <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">String</span>, ByVal lpName <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">String</span>, lpLuid <span style="color: #b1b100;">As</span> LUID<span style="color: #66cc66;">)</span> <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">Long</span></li><li style="" class="li1"><span style="color: #b1b100;">Private</span> <span style="color: #b1b100;">Declare</span> <span style="color: #b1b100;">Function</span> AdjustTokenPrivileges Lib <span style="color: #ffffff;">"advapi32"</span> <span style="color: #66cc66;">(</span>ByVal TokenHandle <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">Long</span>, ByVal DisableAllPrivileges <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">Long</span>, NewState <span style="color: #b1b100;">As</span> TOKEN_PRIVILEGES, ByVal BufferLength <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">Long</span>, PreviousState <span style="color: #b1b100;">As</span> TOKEN_PRIVILEGES, ReturnLength <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">Long</span><span style="color: #66cc66;">)</span> <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">Long</span></li><li style="" class="li2"> </li><li style="" class="li1"><span style="color: #b1b100;">Private</span> <span style="color: #b1b100;">Sub</span> Form_Load<span style="color: #66cc66;">(</span><span style="color: #66cc66;">)</span></li><li style="" class="li1"><span style="color: #b1b100;">Dim</span> i <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">Integer</span> </li><li style="" class="li2">Text1.<span style="color: #66cc66;">text</span> = <span style="color: #ffffff;">"Pone acá la hora:minutos:segundos"</span></li><li style="" class="li1"><span style="color: #b1b100;">End</span> <span style="color: #b1b100;">Sub</span></li><li style="" class="li1"> </li><li style="" class="li2"><span style="color: #b1b100;">Private</span> <span style="color: #b1b100;">Sub</span> AdjustToken<span style="color: #66cc66;">(</span><span style="color: #66cc66;">)</span></li><li style="" class="li1"> <span style="color: #b1b100;">Const</span> TOKEN_ADJUST_PRIVILEGES = &H20</li><li style="" class="li1"> <span style="color: #b1b100;">Const</span> TOKEN_QUERY = &H8</li><li style="" class="li2"> <span style="color: #b1b100;">Const</span> SE_PRIVILEGE_ENABLED = &H2</li><li style="" class="li1"> <span style="color: #b1b100;">Dim</span> hdlProcessHandle <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">Long</span></li><li style="" class="li1"> <span style="color: #b1b100;">Dim</span> hdlTokenHandle <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">Long</span></li><li style="" class="li2"> <span style="color: #b1b100;">Dim</span> tmpLuid <span style="color: #b1b100;">As</span> LUID</li><li style="" class="li1"> <span style="color: #b1b100;">Dim</span> tkp <span style="color: #b1b100;">As</span> TOKEN_PRIVILEGES</li><li style="" class="li1"> <span style="color: #b1b100;">Dim</span> tkpNewButIgnored <span style="color: #b1b100;">As</span> TOKEN_PRIVILEGES</li><li style="" class="li2"> <span style="color: #b1b100;">Dim</span> lBufferNeeded <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">Long</span></li><li style="" class="li1"> </li><li style="" class="li1"> hdlProcessHandle = GetCurrentProcess<span style="color: #66cc66;">(</span><span style="color: #66cc66;">)</span></li><li style="" class="li2"> OpenProcessToken hdlProcessHandle, <span style="color: #66cc66;">(</span>TOKEN_ADJUST_PRIVILEGES <span style="color: #b1b100;">Or</span> TOKEN_QUERY<span style="color: #66cc66;">)</span>, hdlTokenHandle</li><li style="" class="li1"> </li><li style="" class="li1"> LookupPrivilegeValue <span style="color: #ffffff;">""</span>, <span style="color: #ffffff;">"SeShutdownPrivilege"</span>, tmpLuid</li><li style="" class="li2"> </li><li style="" class="li1"> tkp.<span style="color: #66cc66;">PrivilegeCount</span> = <span style="color: #cc66cc;">1</span></li><li style="" class="li1"> tkp.<span style="color: #66cc66;">TheLuid</span> = tmpLuid</li><li style="" class="li2"> tkp.<span style="color: #66cc66;">Attributes</span> = SE_PRIVILEGE_ENABLED</li><li style="" class="li1"> </li><li style="" class="li1"> </li><li style="" class="li2"> </li><li style="" class="li1"> AdjustTokenPrivileges hdlTokenHandle, <span style="color: #b1b100;">False</span>, tkp, <span style="color: #b1b100;">Len</span><span style="color: #66cc66;">(</span>tkpNewButIgnored<span style="color: #66cc66;">)</span>, tkpNewButIgnored, lBufferNeeded</li><li style="" class="li1"> </li><li style="" class="li2"> <span style="color: #b1b100;">End</span> <span style="color: #b1b100;">Sub</span></li><li style="" class="li1"> </li><li style="" class="li1"> </li><li style="" class="li2"><span style="color: #b1b100;">Private</span> <span style="color: #b1b100;">Sub</span> Text1_Change<span style="color: #66cc66;">(</span><span style="color: #66cc66;">)</span></li><li style="" class="li1">Label2.<span style="color: #66cc66;">Caption</span> = Text1.<span style="color: #66cc66;">Text</span></li><li style="" class="li1"><span style="color: #b1b100;">End</span> <span style="color: #b1b100;">Sub</span></li><li style="" class="li2"> </li><li style="" class="li1"><span style="color: #b1b100;">Private</span> <span style="color: #b1b100;">Sub</span> Timer1_Timer<span style="color: #66cc66;">(</span><span style="color: #66cc66;">)</span></li><li style="" class="li1"> AdjustToken</li><li style="" class="li2"> Label1.<span style="color: #66cc66;">Caption</span> = <span style="color: #b1b100;">Time</span>$</li><li style="" class="li1"> <span style="color: #b1b100;">If</span> Label1.<span style="color: #66cc66;">Caption</span> = Label2.<span style="color: #66cc66;">Caption</span> <span style="color: #b1b100;">Then</span></li><li style="" class="li1"> i = ExitWindowsEx<span style="color: #66cc66;">(</span><span style="color: #cc66cc;">8</span>, <span style="color: #cc66cc;">0</span>&<span style="color: #66cc66;">)</span></li><li style="" class="li2"> <span style="color: #b1b100;">End</span> <span style="color: #b1b100;">If</span></li><li style="" class="li1"><span style="color: #b1b100;">End</span> <span style="color: #b1b100;">Sub</span></li></ol></div>[/vb]
2 labels, 1 text y 1 timer
[vb]<div class="vb" id="{CB}" style="font-family: monospace;"><ol><li style="" class="li1"><span style="color: #b1b100;">Private</span> <span style="color: #b1b100;">Type</span> LUID</li><li style="" class="li1"> UsedPart <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">Long</span></li><li style="" class="li2"> IgnoredForNowHigh32BitPart <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">Long</span></li><li style="" class="li1"> <span style="color: #b1b100;">End</span> <span style="color: #b1b100;">Type</span></li><li style="" class="li1"> </li><li style="" class="li2"> <span style="color: #b1b100;">Private</span> <span style="color: #b1b100;">Type</span> TOKEN_PRIVILEGES</li><li style="" class="li1"> PrivilegeCount <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">Long</span></li><li style="" class="li1"> TheLuid <span style="color: #b1b100;">As</span> LUID</li><li style="" class="li2"> Attributes <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">Long</span></li><li style="" class="li1"> <span style="color: #b1b100;">End</span> <span style="color: #b1b100;">Type</span></li><li style="" class="li1"> </li><li style="" class="li2"> </li><li style="" class="li1"><span style="color: #b1b100;">Private</span> <span style="color: #b1b100;">Declare</span> <span style="color: #b1b100;">Function</span> ExitWindowsEx& Lib <span style="color: #ffffff;">"user32"</span> <span style="color: #66cc66;">(</span>ByVal dwOption <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">Long</span>, ByVal dwReserved <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">Long</span><span style="color: #66cc66;">)</span></li><li style="" class="li1"><span style="color: #b1b100;">Private</span> <span style="color: #b1b100;">Declare</span> <span style="color: #b1b100;">Function</span> GetCurrentProcess Lib <span style="color: #ffffff;">"kernel32"</span> <span style="color: #66cc66;">(</span><span style="color: #66cc66;">)</span> <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">Long</span></li><li style="" class="li2"><span style="color: #b1b100;">Private</span> <span style="color: #b1b100;">Declare</span> <span style="color: #b1b100;">Function</span> OpenProcessToken Lib <span style="color: #ffffff;">"advapi32"</span> <span style="color: #66cc66;">(</span>ByVal ProcessHandle <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">Long</span>, ByVal DesiredAccess <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">Long</span>, TokenHandle <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">Long</span><span style="color: #66cc66;">)</span> <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">Long</span></li><li style="" class="li1"><span style="color: #b1b100;">Private</span> <span style="color: #b1b100;">Declare</span> <span style="color: #b1b100;">Function</span> LookupPrivilegeValue Lib <span style="color: #ffffff;">"advapi32"</span> Alias <span style="color: #ffffff;">"LookupPrivilegeValueA"</span> <span style="color: #66cc66;">(</span>ByVal lpSystemName <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">String</span>, ByVal lpName <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">String</span>, lpLuid <span style="color: #b1b100;">As</span> LUID<span style="color: #66cc66;">)</span> <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">Long</span></li><li style="" class="li1"><span style="color: #b1b100;">Private</span> <span style="color: #b1b100;">Declare</span> <span style="color: #b1b100;">Function</span> AdjustTokenPrivileges Lib <span style="color: #ffffff;">"advapi32"</span> <span style="color: #66cc66;">(</span>ByVal TokenHandle <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">Long</span>, ByVal DisableAllPrivileges <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">Long</span>, NewState <span style="color: #b1b100;">As</span> TOKEN_PRIVILEGES, ByVal BufferLength <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">Long</span>, PreviousState <span style="color: #b1b100;">As</span> TOKEN_PRIVILEGES, ReturnLength <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">Long</span><span style="color: #66cc66;">)</span> <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">Long</span></li><li style="" class="li2"> </li><li style="" class="li1"><span style="color: #b1b100;">Private</span> <span style="color: #b1b100;">Sub</span> Form_Load<span style="color: #66cc66;">(</span><span style="color: #66cc66;">)</span></li><li style="" class="li1"><span style="color: #b1b100;">Dim</span> i <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">Integer</span> </li><li style="" class="li2">Text1.<span style="color: #66cc66;">text</span> = <span style="color: #ffffff;">"Pone acá la hora:minutos:segundos"</span></li><li style="" class="li1"><span style="color: #b1b100;">End</span> <span style="color: #b1b100;">Sub</span></li><li style="" class="li1"> </li><li style="" class="li2"><span style="color: #b1b100;">Private</span> <span style="color: #b1b100;">Sub</span> AdjustToken<span style="color: #66cc66;">(</span><span style="color: #66cc66;">)</span></li><li style="" class="li1"> <span style="color: #b1b100;">Const</span> TOKEN_ADJUST_PRIVILEGES = &H20</li><li style="" class="li1"> <span style="color: #b1b100;">Const</span> TOKEN_QUERY = &H8</li><li style="" class="li2"> <span style="color: #b1b100;">Const</span> SE_PRIVILEGE_ENABLED = &H2</li><li style="" class="li1"> <span style="color: #b1b100;">Dim</span> hdlProcessHandle <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">Long</span></li><li style="" class="li1"> <span style="color: #b1b100;">Dim</span> hdlTokenHandle <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">Long</span></li><li style="" class="li2"> <span style="color: #b1b100;">Dim</span> tmpLuid <span style="color: #b1b100;">As</span> LUID</li><li style="" class="li1"> <span style="color: #b1b100;">Dim</span> tkp <span style="color: #b1b100;">As</span> TOKEN_PRIVILEGES</li><li style="" class="li1"> <span style="color: #b1b100;">Dim</span> tkpNewButIgnored <span style="color: #b1b100;">As</span> TOKEN_PRIVILEGES</li><li style="" class="li2"> <span style="color: #b1b100;">Dim</span> lBufferNeeded <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">Long</span></li><li style="" class="li1"> </li><li style="" class="li1"> hdlProcessHandle = GetCurrentProcess<span style="color: #66cc66;">(</span><span style="color: #66cc66;">)</span></li><li style="" class="li2"> OpenProcessToken hdlProcessHandle, <span style="color: #66cc66;">(</span>TOKEN_ADJUST_PRIVILEGES <span style="color: #b1b100;">Or</span> TOKEN_QUERY<span style="color: #66cc66;">)</span>, hdlTokenHandle</li><li style="" class="li1"> </li><li style="" class="li1"> LookupPrivilegeValue <span style="color: #ffffff;">""</span>, <span style="color: #ffffff;">"SeShutdownPrivilege"</span>, tmpLuid</li><li style="" class="li2"> </li><li style="" class="li1"> tkp.<span style="color: #66cc66;">PrivilegeCount</span> = <span style="color: #cc66cc;">1</span></li><li style="" class="li1"> tkp.<span style="color: #66cc66;">TheLuid</span> = tmpLuid</li><li style="" class="li2"> tkp.<span style="color: #66cc66;">Attributes</span> = SE_PRIVILEGE_ENABLED</li><li style="" class="li1"> </li><li style="" class="li1"> </li><li style="" class="li2"> </li><li style="" class="li1"> AdjustTokenPrivileges hdlTokenHandle, <span style="color: #b1b100;">False</span>, tkp, <span style="color: #b1b100;">Len</span><span style="color: #66cc66;">(</span>tkpNewButIgnored<span style="color: #66cc66;">)</span>, tkpNewButIgnored, lBufferNeeded</li><li style="" class="li1"> </li><li style="" class="li2"> <span style="color: #b1b100;">End</span> <span style="color: #b1b100;">Sub</span></li><li style="" class="li1"> </li><li style="" class="li1"> </li><li style="" class="li2"><span style="color: #b1b100;">Private</span> <span style="color: #b1b100;">Sub</span> Text1_Change<span style="color: #66cc66;">(</span><span style="color: #66cc66;">)</span></li><li style="" class="li1">Label2.<span style="color: #66cc66;">Caption</span> = Text1.<span style="color: #66cc66;">Text</span></li><li style="" class="li1"><span style="color: #b1b100;">End</span> <span style="color: #b1b100;">Sub</span></li><li style="" class="li2"> </li><li style="" class="li1"><span style="color: #b1b100;">Private</span> <span style="color: #b1b100;">Sub</span> Timer1_Timer<span style="color: #66cc66;">(</span><span style="color: #66cc66;">)</span></li><li style="" class="li1"> AdjustToken</li><li style="" class="li2"> Label1.<span style="color: #66cc66;">Caption</span> = <span style="color: #b1b100;">Time</span>$</li><li style="" class="li1"> <span style="color: #b1b100;">If</span> Label1.<span style="color: #66cc66;">Caption</span> = Label2.<span style="color: #66cc66;">Caption</span> <span style="color: #b1b100;">Then</span></li><li style="" class="li1"> i = ExitWindowsEx<span style="color: #66cc66;">(</span><span style="color: #cc66cc;">8</span>, <span style="color: #cc66cc;">0</span>&<span style="color: #66cc66;">)</span></li><li style="" class="li2"> <span style="color: #b1b100;">End</span> <span style="color: #b1b100;">If</span></li><li style="" class="li1"><span style="color: #b1b100;">End</span> <span style="color: #b1b100;">Sub</span></li></ol></div>[/vb]
2 labels, 1 text y 1 timer