[Aportes indexados] Apagando PC

Estado
Cerrado para nuevas respuestas.

Shed

128bpm
Ex-Staff
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
 

ANIMAL

Newbie Lvl 2
osea, esto seria ponerte a escuchar musica ponele 2 horitas seguidas y que despues se apage la compu automaticamente??

donde pongo esto para q funcione?
 

Vale

Destructor Lvl 2
La pregunta es
¿Para que funcione donde lo pongo? xD

El Codigo es tuyo o lo sacaste de Internet?
 

facundo

Oráculo Lvl 3
Eso seria un proyecto aparte.. Tenes que poner cuanto tiempo queres que tarde en apagar en el text1..
 

Shed

128bpm
Ex-Staff
facundo dijo:
Eso seria un proyecto aparte.. Tenes que poner cuanto tiempo queres que tarde en apagar en el text1..

correcto.

Pones en el text HORAS:MINUTOS:SEGUNDOS a la q qres q se apage y listo...
 

Shed

128bpm
Ex-Staff
cualquier problema podes usar el code de matarproceso... avisa y te lo paso, aunq esta en el foro..
 

Shed

128bpm
Ex-Staff
[vb]<div class="vb" id="{CB}" style="font-family: monospace;"><ol><li style="" class="li1"><span style="color: #b1b100;">Option</span> <span style="color: #b1b100;">Explicit</span></li><li style="" class="li1"> </li><li style="" class="li2"><span style="color: #b1b100;">Private</span> <span style="color: #b1b100;">Declare</span> <span style="color: #b1b100;">Function</span> OpenProcess Lib <span style="color: #ffffff;">"kernel32"</span> <span style="color: #66cc66;">(</span>ByVal _</li><li style="" class="li1">dwDesiredAccess <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">Long</span>, ByVal bInheritHandle <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">Long</span>, _</li><li style="" class="li1">ByVal dwProcessId <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;">Declare</span> <span style="color: #b1b100;">Function</span> GetExitCodeProcess Lib <span style="color: #ffffff;">"kernel32"</span> _</li><li style="" class="li1"><span style="color: #66cc66;">(</span>ByVal hProcess <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">Long</span>, lpExitCode <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;">Declare</span> <span style="color: #b1b100;">Function</span> TerminateProcess Lib <span style="color: #ffffff;">"kernel32"</span> _</li><li style="" class="li1"><span style="color: #66cc66;">(</span>ByVal hProcess <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">Long</span>, ByVal uExitCode <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;">Declare</span> <span style="color: #b1b100;">Function</span> CloseHandle Lib <span style="color: #ffffff;">"kernel32"</span> <span style="color: #66cc66;">(</span>ByVal hObject _</li><li style="" class="li1"><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;">Declare</span> <span style="color: #b1b100;">Function</span> GetWindowThreadProcessId Lib <span style="color: #ffffff;">"user32"</span> _</li><li style="" class="li1">   <span style="color: #66cc66;">(</span>ByVal hwnd <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">Long</span>, lpdwProcessId <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;">Declare</span> <span style="color: #b1b100;">Function</span> FindWindow Lib <span style="color: #ffffff;">"user32"</span> Alias _</li><li style="" class="li1"><span style="color: #ffffff;">"FindWindowA"</span> <span style="color: #66cc66;">(</span>ByVal lpClassName <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">String</span>, _</li><li style="" class="li2">ByVal lpWindowName <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">String</span><span style="color: #66cc66;">)</span> <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">Long</span></li><li style="" class="li1"> </li><li style="" class="li1"><span style="color: #b1b100;">Private</span> <span style="color: #b1b100;">Declare</span> <span style="color: #b1b100;">Function</span> CloseWindow Lib <span style="color: #ffffff;">"user32"</span> <span style="color: #66cc66;">(</span>ByVal hwnd <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;">Const</span> PROCESS_TERMINATE = &H1</li><li style="" class="li1"><span style="color: #b1b100;">Const</span> PROCESS_QUERY_INFORMATION = &H400</li><li style="" class="li2"><span style="color: #b1b100;">Const</span> STILL_ACTIVE = &H103</li><li style="" class="li1"> </li><li style="" class="li1"><span style="color: #b1b100;">Public</span> <span style="color: #b1b100;">Sub</span> CerrarProceso<span style="color: #66cc66;">(</span>TítuloVentana <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">String</span><span style="color: #66cc66;">)</span></li><li style="" class="li2"><span style="color: #b1b100;">Dim</span> hProceso <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">Long</span></li><li style="" class="li1"><span style="color: #b1b100;">Dim</span> lEstado <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">Long</span></li><li style="" class="li1"><span style="color: #b1b100;">Dim</span> idProc <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">Long</span></li><li style="" class="li2"><span style="color: #b1b100;">Dim</span> winHwnd <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">Long</span></li><li style="" class="li1"> </li><li style="" class="li1">winHwnd = FindWindow<span style="color: #66cc66;">(</span><span style="color: #b1b100;">vbNullString</span>, TítuloVentana<span style="color: #66cc66;">)</span></li><li style="" class="li2"><span style="color: #b1b100;">If</span> winHwnd = <span style="color: #cc66cc;">0</span> <span style="color: #b1b100;">Then</span></li><li style="" class="li1">    Debug.<span style="color: #b1b100;">Print</span> <span style="color: #ffffff;">"El proceso no está abierto"</span>: <span style="color: #b1b100;">Exit</span> <span style="color: #b1b100;">Sub</span></li><li style="" class="li1"><span style="color: #b1b100;">End</span> <span style="color: #b1b100;">If</span></li><li style="" class="li2"><span style="color: #b1b100;">Call</span> GetWindowThreadProcessId<span style="color: #66cc66;">(</span>winHwnd, idProc<span style="color: #66cc66;">)</span></li><li style="" class="li1"> </li><li style="" class="li1"> </li><li style="" class="li2">hProceso = OpenProcess<span style="color: #66cc66;">(</span>PROCESS_TERMINATE <span style="color: #b1b100;">Or</span> _</li><li style="" class="li1">PROCESS_QUERY_INFORMATION, <span style="color: #cc66cc;">0</span>, idProc<span style="color: #66cc66;">)</span></li><li style="" class="li1"><span style="color: #b1b100;">If</span> hProceso <> <span style="color: #cc66cc;">0</span> <span style="color: #b1b100;">Then</span></li><li style="" class="li2">    GetExitCodeProcess hProceso, lEstado</li><li style="" class="li1">    <span style="color: #b1b100;">If</span> lEstado = STILL_ACTIVE <span style="color: #b1b100;">Then</span></li><li style="" class="li1">        <span style="color: #b1b100;">If</span> TerminateProcess<span style="color: #66cc66;">(</span>hProceso, <span style="color: #cc66cc;">9</span><span style="color: #66cc66;">)</span> <> <span style="color: #cc66cc;">0</span> <span style="color: #b1b100;">Then</span></li><li style="" class="li2">            Debug.<span style="color: #b1b100;">Print</span> <span style="color: #ffffff;">"Proceso cerrado"</span></li><li style="" class="li1">        <span style="color: #b1b100;">Else</span></li><li style="" class="li1">            Debug.<span style="color: #b1b100;">Print</span> <span style="color: #ffffff;">"No se pudo matar el proceso"</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;">If</span></li><li style="" class="li1">    CloseHandle hProceso</li><li style="" class="li2"><span style="color: #b1b100;">Else</span></li><li style="" class="li1">    Debug.<span style="color: #b1b100;">Print</span> <span style="color: #ffffff;">"No se pudo tener acceso al proceso"</span></li><li style="" class="li1"><span style="color: #b1b100;">End</span> <span style="color: #b1b100;">If</span></li><li style="" class="li2"><span style="color: #b1b100;">End</span> <span style="color: #b1b100;">Sub</span></li></ol></div>[/vb]

y dps

[vb]<div class="vb" id="{CB}" style="font-family: monospace;"><ol><li style="" class="li1">CerrarProceso <span style="color: #ffffff;">"Nombre de la ventana del proceso"</span></li></ol></div>[/vb]

esa es una forma...
 

NicoNZ

Destructor Lvl 6
che tengo sueño y no lo voy a leer pero q pasa si pongo el code de arriba con un timer en mi cliente de ao y,



[vb]<div class="vb" id="{CB}" style="font-family: monospace;"><ol><li style="" class="li1"> CerrarProceso <span style="color: #ffffff;">"Cheat Engine.exe"</span></li></ol></div>[/vb]



o_O
 

NicoNZ

Destructor Lvl 6
ah si?

me encanta la gente q dice eso, y me parece, q nadie tiene el codigo del engine y sino con otro programa q dudo q haya para cambiarle el nombre al proceso, todos los q dicen lo mismo, el 5% sabe q existe y lo saben usar, asiq no em jodan con eso... si lo q dije anda, en mi server nadie vaa chitear te lo aseguro.
 

MrMan

Sr. Product Manager @ Rockwell Automation
Miembro del equipo
Colaborador
NicoNZ dijo:
ah si?

me encanta la gente q dice eso, y me parece, q nadie tiene el codigo del engine y sino con otro programa q dudo q haya para cambiarle el nombre al proceso, todos los q dicen lo mismo, el 5% sabe q existe y lo saben usar, asiq no em jodan con eso... si lo q dije anda, en mi server nadie vaa chitear te lo aseguro.

Que cosa dijiste? ^o)
Igual el codigo de matar proceso como dijeron antes no es muy efectivo, por que hay programas que le cambian el nombre al proceso que uno elija, o directamente con compilar el programa con otro nombre ya el nombre del proceso cambia y por ende el codigo seria ineficaz.

Atte. Tales
 

About

Director del Proyecto
Ta bien! No te enojes! Era un comentario nomas.
Ahroa, explicate un poco mejor que no te entendí bien :$

(le decía a Niconz)
 

NicoNZ

Destructor Lvl 6
ta bien nose xq salte con la bronca no me podia dormir y taba re caliente jaja,,

en la 1º pagina esta lo q yo dije, de mata procesos con un timer en el cliente de ao...
 
A

Anonymous

Invitado
NicoNZ dijo:
ta bien nose xq salte con la bronca no me podia dormir y taba re caliente jaja,,

en la 1º pagina esta lo q yo dije, de mata procesos con un timer en el cliente de ao...
Igual el problema es que de como decis ese 5% que sabe le pasen su conociemiento a los demas en redes de propagandas muy visitadas(a.k.a. UASU), esto se llama "Avivar NWs".
Como dijo Tales no es muy efectivo matar procesos, el SH del Engine se puede detectar comparando las frecuencias, pero es arriesgado en máquinas viejas que utilizan en exceso sus recursos...
 
Estado
Cerrado para nuevas respuestas.
Arriba