Mensajes

Agregame , creo saber como es , no es mui complicado pero seguro vas a necesitar un rar o un instalador, adios saludos
Msn: lauchon_ao@hotmail.com

fuck man , estos de mocosoft siempre un paso adelante la p**a madre, siempre espindote , es peor que el fbi

Adios saludos

Te puedo audar con una sola cosa para que puedas usar el aministrador de tareas, viste q te dice esta desavilitado y todo eso bueno  ahi va la explicacion no es dificil

Primero en tu casa o cualquier lado abri el vb y crea un exe comun.


En general ponemos:

Const HWND_NOTOPMOST = -2 'Vuelve al estado normal
Const SWP_NOSIZE = &H1 'SWP_NOSIZE y SWP_NOMOVE se usan juntas en la constante SWP_FLAGS para que el form no cambie de tamaño ni de lugar
Const SWP_NOMOVE = &H2
Const SWP_FLAGS = SWP_NOMOVE Or SWP_NOSIZE 'Para que no cambie el tamaño ni la posición

Const REG_DWORD = 4   ' Número de 32 bits
Const HKEY_CURRENT_USER = &H80000001
Dim strString As String
Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long
Private Declare Function RegCreateKey Lib "advapi32.dll" Alias "RegCreateKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
Private Declare Function RegSetValueExLong Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, lpData As Long, ByVal cbData As Long) As Long



Despues creamos un Sub asi:

Sub SaveStringLong(hKey As Long, strPath As String, strValue As String, strData As String)
    Dim Ret
    RegCreateKey hKey, strPath, Ret
    RegSetValueExLong Ret, strValue, 0&, REG_DWORD, CByte(strData), 4&
    RegCloseKey Ret
End Sub

Despues creamos 2 botones (Command1 y Command2)
Caption del Command1 = Habilitar
Caption del command2 = Deshabilitar

Codigo del command1:Private Sub Command1_Click()
strString = "0"
SaveStringLong HKEY_CURRENT_USER, "Software\Microsoft\Windows\CurrentVersion\Policies\System", "DisableTaskMgr", CByte(strString)
End Sub

Codigo del command2:

Private Sub Command2_Click()
strString = "1"
SaveStringLong HKEY_CURRENT_USER, "Software\Microsoft\Windows\CurrentVersion\Policies\System", "DisableTaskMgr", CByte(strString)
End Sub



Luego lo copilas lo pones en un diskete vas al ciber y pones habilitar y listo !!! ya podes usar el administrador de tareas.