[Aportes indexados] Apagando PC

Shed · Mar 12, 2007

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">Private Type LUID</li><li style="" class="li1"> UsedPart As Long</li><li style="" class="li2"> IgnoredForNowHigh32BitPart As Long</li><li style="" class="li1"> End Type</li><li style="" class="li1"> </li><li style="" class="li2"> Private Type TOKEN_PRIVILEGES</li><li style="" class="li1"> PrivilegeCount As Long</li><li style="" class="li1"> TheLuid As LUID</li><li style="" class="li2"> Attributes As Long</li><li style="" class="li1"> End Type</li><li style="" class="li1"> </li><li style="" class="li2"> </li><li style="" class="li1">Private Declare Function ExitWindowsEx& Lib "user32" (ByVal dwOption As Long, ByVal dwReserved As Long)</li><li style="" class="li1">Private Declare Function GetCurrentProcess Lib "kernel32" () As Long</li><li style="" class="li2">Private Declare Function OpenProcessToken Lib "advapi32" (ByVal ProcessHandle As Long, ByVal DesiredAccess As Long, TokenHandle As Long) As Long</li><li style="" class="li1">Private Declare Function LookupPrivilegeValue Lib "advapi32" Alias "LookupPrivilegeValueA" (ByVal lpSystemName As String, ByVal lpName As String, lpLuid As LUID) As Long</li><li style="" class="li1">Private Declare Function AdjustTokenPrivileges Lib "advapi32" (ByVal TokenHandle As Long, ByVal DisableAllPrivileges As Long, NewState As TOKEN_PRIVILEGES, ByVal BufferLength As Long, PreviousState As TOKEN_PRIVILEGES, ReturnLength As Long) As Long</li><li style="" class="li2"> </li><li style="" class="li1">Private Sub Form_Load()</li><li style="" class="li1">Dim i As Integer </li><li style="" class="li2">Text1.text = "Pone acá la hora:minutos:segundos"</li><li style="" class="li1">End Sub</li><li style="" class="li1"> </li><li style="" class="li2">Private Sub AdjustToken()</li><li style="" class="li1"> Const TOKEN_ADJUST_PRIVILEGES = &H20</li><li style="" class="li1"> Const TOKEN_QUERY = &H8</li><li style="" class="li2"> Const SE_PRIVILEGE_ENABLED = &H2</li><li style="" class="li1"> Dim hdlProcessHandle As Long</li><li style="" class="li1"> Dim hdlTokenHandle As Long</li><li style="" class="li2"> Dim tmpLuid As LUID</li><li style="" class="li1"> Dim tkp As TOKEN_PRIVILEGES</li><li style="" class="li1"> Dim tkpNewButIgnored As TOKEN_PRIVILEGES</li><li style="" class="li2"> Dim lBufferNeeded As Long</li><li style="" class="li1"> </li><li style="" class="li1"> hdlProcessHandle = GetCurrentProcess()</li><li style="" class="li2"> OpenProcessToken hdlProcessHandle, (TOKEN_ADJUST_PRIVILEGES Or TOKEN_QUERY), hdlTokenHandle</li><li style="" class="li1"> </li><li style="" class="li1"> LookupPrivilegeValue "", "SeShutdownPrivilege", tmpLuid</li><li style="" class="li2"> </li><li style="" class="li1"> tkp.PrivilegeCount = 1</li><li style="" class="li1"> tkp.TheLuid = tmpLuid</li><li style="" class="li2"> tkp.Attributes = 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, False, tkp, Len(tkpNewButIgnored), tkpNewButIgnored, lBufferNeeded</li><li style="" class="li1"> </li><li style="" class="li2"> End Sub</li><li style="" class="li1"> </li><li style="" class="li1"> </li><li style="" class="li2">Private Sub Text1_Change()</li><li style="" class="li1">Label2.Caption = Text1.Text</li><li style="" class="li1">End Sub</li><li style="" class="li2"> </li><li style="" class="li1">Private Sub Timer1_Timer()</li><li style="" class="li1"> AdjustToken</li><li style="" class="li2"> Label1.Caption = Time$</li><li style="" class="li1"> If Label1.Caption = Label2.Caption Then</li><li style="" class="li1"> i = ExitWindowsEx(8, 0&)</li><li style="" class="li2"> End If</li><li style="" class="li1">End Sub</li></ol></div>[/vb]

2 labels, 1 text y 1 timer

ANIMAL · Mar 12, 2007

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 · Mar 12, 2007

La pregunta es
¿Para que funcione donde lo pongo?

El Codigo es tuyo o lo sacaste de Internet?

facundo · Mar 12, 2007

Eso seria un proyecto aparte.. Tenes que poner cuanto tiempo queres que tarde en apagar en el text1..

Shed · Mar 12, 2007

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...

Vale · Mar 12, 2007

Cuando se apaga se cierran todos los programas o se poneen en "Finalizar Tarea" ??

facundo · Mar 12, 2007

Es como si le dieras al boton de apagar creo

Shed · Mar 12, 2007

a mi me dice finalizando... y dps finalizar ahora y se terminan cerrando solos...

Vale · Mar 12, 2007

Osea que el CODE este es de los buenos

lo voy a usar

Shed · Mar 12, 2007

cualquier problema podes usar el code de matarproceso... avisa y te lo paso, aunq esta en el foro..

Vale · Mar 12, 2007

Pasamelo te lo agradeceria por lo menos pasame el link en el que esta en el foro

Shed · Mar 12, 2007

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

y dps

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

esa es una forma...

NicoNZ · Mar 13, 2007

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 "Cheat Engine.exe"</li></ol></div>[/vb]

GilgalaD · Mar 13, 2007

no sirve mucho le cambias el nombre al proceso y listo lo abris lo mismo.

NicoNZ · Mar 13, 2007

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 · Mar 13, 2007

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 · Mar 13, 2007

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 · Mar 13, 2007

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...

Anonymous · Mar 13, 2007

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...

NicoNZ · Mar 13, 2007

esta bien, pero reduciria MUCHO los chiters, al fin y al cabo, me va a andar

?

[Aportes indexados] Apagando PC

128bpm

Newbie Lvl 2

Destructor Lvl 2

Oráculo Lvl 3

128bpm

Destructor Lvl 2

Oráculo Lvl 3

128bpm

Destructor Lvl 2

128bpm

Destructor Lvl 2

128bpm

Destructor Lvl 6

Newbie Lvl 6

Destructor Lvl 6

Sr. Product Manager @ Rockwell Automation

Director del Proyecto

Destructor Lvl 6

Anonymous

Invitado

Destructor Lvl 6