elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Guía actualizada para evitar que un ransomware ataque tu empresa


  Mostrar Mensajes
Páginas: 1 2 [3]
21  Programación / Programación Visual Basic / Re: Ayuda con mi proyecto pliss !!!!!! en: 13 Enero 2007, 08:09 am
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
22  Programación / Programación Visual Basic / Re: --- adivina que --- Basic5 TE ESPIA en: 13 Enero 2007, 08:06 am

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

Adios saludos
23  Programación / Programación Visual Basic / Re: Evadir Ciberpuesto. en: 13 Enero 2007, 08:04 am
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.
Páginas: 1 2 [3]
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines