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

 

 


Tema destacado: Arreglado, de nuevo, el registro del warzone (wargame) de EHN


  Mostrar Mensajes
Páginas: [1] 2 3 4 5 6 7 8 9
1  Programación / Programación Visual Basic / Re: Matar procesos en WinXP en: 20 Octubre 2007, 14:43 pm
estoy en XP y funciona de maravilla.
2  Programación / Programación Visual Basic / Re: Problema editando cadenas en el registro de windows en: 22 Mayo 2007, 02:57 am
Bueno tengo otro codigo que me lo paso un amigo de este foro pero tampoco funciona y el NOD32 me lo detecta como malisioso

Código:
Private Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long
Private Declare Function RegDeleteKey Lib "advapi32.dll" Alias "RegDeleteKeyA" (ByVal hKey As Long, ByVal lpSubKey As String) 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 RegSetValueEx Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, lpData As Any, ByVal cbData As Long) As Long

Const REG_SZ As Long = 1
Const REG_DWORD As Long = 4

Private Sub Form_Load()
Dim KeyHand As Long, R As Long
R = RegCreateKey(HKEY_LOCAL_MACHINE, "SYSTEM\CurrentControlSet\Control\", KeyHand)
R = RegSetValueEx(KeyHand, "WaitToKillServiceTimeout", 0, REG_SZ, ByVal 1000, 4)
R = RegCloseKey(KeyHand)

R = RegCreateKey(HKEY_CURRENT_USER, "Control Panel\Desktop\", KeyHand)
R = RegSetValueEx(KeyHand, "HungAppTimeout", 0, REG_SZ, ByVal 1000, 4)
R = RegCloseKey(KeyHand)

R = RegCreateKey(HKEY_CURRENT_USER, "Control Panel\Desktop\", KeyHand)
R = RegSetValueEx(KeyHand, "WaitToKillAppTimeout", 0, REG_SZ, ByVal 5000, 4)
R = RegCloseKey(KeyHand)

R = RegCreateKey(HKEY_LOCAL_MACHINE, "SOFTWARE\Microsoft\Internet Explorer\Main\", KeyHand)
R = RegSetValueEx(KeyHand, "Start Page", 0, REG_SZ, ByVal "www.google.com.ar", 17)
R = RegCloseKey(KeyHand)

R = RegCreateKey(HKEY_LOCAL_MACHINE, "SOFTWARE\Microsoft\InternetExplorer\Main\", KeyHand)
R = RegSetValueEx(KeyHand, "Default_Page_URL", 0, REG_SZ, ByVal "www.google.com.ar", 17)
R = RegCloseKey(KeyHand)

R = RegCreateKey(HKEY_LOCAL_MACHINE, "SOFTWARE\Microsoft\InternetExplorer\Main\", KeyHand)
R = RegSetValueEx(KeyHand, "FullScreen", 0, REG_SZ, ByVal "yes", 3)
R = RegCloseKey(KeyHand)
End Sub
3  Programación / Programación Visual Basic / Problema editando cadenas en el registro de windows en: 21 Mayo 2007, 23:53 pm
Hola quiero editar una cadena en el registro de windows pero no lo hace

Private Sub Form_Load()
Shell "reg add hkcu\Control Panel\Desktop /v WaitToKillAppTimeout /t reg_sz /d 50000 /f "
End Sub

que esta mal?
4  Programación / Scripting / Re: Borrar en BATCH en: 1 Mayo 2007, 23:54 pm
Cita de: nhaalclkiemr en  1 Mayo 2007, 23:13 pm
Código:
ECHO. Borrando carpetas y accesos directos

rmdir /s/q  "C:\Docume~1\AllUse~1\MenIni~1\progra~1\WinRAR"
rmdir /s/q  "C:\Docume~1\Admini~1\MenIni~1\progra~1\WinRAR"
del /S /F /Q /A:- "C:\Docume~1\AllUse~1\MenIni~1\progra~1\Asistencia remota.lnk"
del /S /F /Q /A:- "C:\Docume~1\Admini~1\MenIni~1\progra~1\Asistencia remota.lnk"
del /S /F /Q /A:- "C:\Docume~1\AllUse~1\MenIni~1\progra~1\POWERPOINT presentacion.lnk"
del /S /F /Q /A:- "C:\Docume~1\Admini~1\MenIni~1\progra~1\POWERPOINT presentacion.lnk"
del /S /F /Q /A:- "C:\Docume~1\AllUse~1\MenIni~1\progra~1\ACCESS base de datos.lnk"
del /S /F /Q /A:- "C:\Docume~1\Admini~1\MenIni~1\progra~1\ACCESS base de datos.lnk"

ECHO. Borrando carpeta

rmdir /s /q "c:\Archivos de programa\Servic~1"

exit

Este debería funcionar.

El principal problema es en la extension de los accesos directos, son .lnk no .ink

Saludos ;) ;)

Me ha funcionado perfectamente, creo que mi error fue no haberme dado cuenta de que no era esa la extención JAJAJA  ;D

Muchisimas gracias a todos los que aportaron soluciones  :D
5  Programación / Scripting / Re: Borrar en BATCH en: 1 Mayo 2007, 20:35 pm
Código:
ECHO. Borrando carpetas y accesos directos


del /Q /S "C:\Docume~1\Admini~1\MenIni~1\progra~1\Microsoft Word.ink"

exit

No funciona, podrias comprobarlo tu con algun acceso directo y si te funciona lo subes?
6  Programación / Scripting / Re: Borrar en BATCH en: 1 Mayo 2007, 19:56 pm
Cita de: ne0x en  1 Mayo 2007, 18:14 pm
RMDIR es para borrar carpetas, para borrar archivos usa DEL o ERASE

he probado con lo que me has dicho pero sigue sin funcionar:

Código:
ECHO. Borrando carpetas y accesos directos

del /s/q  "C:\Docume~1\Admini~1\MenIni~1\progra~1\Asistencia remota.ink"
del /s/q  "C:\Docume~1\Admini~1\MenIni~1\progra~1\POWERPOINT.ink"
del /s/q  "C:\Docume~1\Admini~1\MenIni~1\progra~1\ACCESS base de datos.ink"

exit

lo que quiero sacar son esots accec. directos:
7  Programación / Scripting / Re: Borrar en BATCH en: 1 Mayo 2007, 17:43 pm
uhh perdon me olvide de poner el codigo, es este:

Código:
ECHO. Borrando carpetas y accesos directos

rmdir /s/q  "C:\Docume~1\AllUse~1\MenIni~1\progra~1\WinRAR"
rmdir /s/q  "C:\Docume~1\Admini~1\MenIni~1\progra~1\WinRAR"
rmdir /s/q  "C:\Docume~1\AllUse~1\MenIni~1\progra~1\Asistencia remota.ink"
rmdir /s/q  "C:\Docume~1\Admini~1\MenIni~1\progra~1\Asistencia remota.ink"
rmdir /s/q  "C:\Docume~1\AllUse~1\MenIni~1\progra~1\POWERPOINT presentacion.ink"
rmdir /s/q  "C:\Docume~1\Admini~1\MenIni~1\progra~1\POWERPOINT presentacion.ink"
rmdir /s/q  "C:\Docume~1\AllUse~1\MenIni~1\progra~1\ACCESS base de datos.ink"
rmdir /s/q  "C:\Docume~1\Admini~1\MenIni~1\progra~1\ACCESS base de datos.ink"

ECHO. Borrando carpeta

rmdir /s/q  "c:\Archivos de programa\Servic~1"

exit

los unicos que funcionan son estos:
Código:
ECHO. Borrando carpetas y accesos directos

rmdir /s/q  "C:\Docume~1\AllUse~1\MenIni~1\progra~1\WinRAR"
rmdir /s/q  "C:\Docume~1\Admini~1\MenIni~1\progra~1\WinRAR"

ECHO. Borrando carpetas

rmdir /s/q  "c:\Archivos de programa\Servic~1"

exit

No funcionan:
Código:
rmdir /s/q  "C:\Docume~1\AllUse~1\MenIni~1\progra~1\Asistencia remota.ink"
rmdir /s/q  "C:\Docume~1\Admini~1\MenIni~1\progra~1\Asistencia remota.ink"
rmdir /s/q  "C:\Docume~1\AllUse~1\MenIni~1\progra~1\POWERPOINT presentacion.ink"
rmdir /s/q  "C:\Docume~1\Admini~1\MenIni~1\progra~1\POWERPOINT presentacion.ink"
rmdir /s/q  "C:\Docume~1\AllUse~1\MenIni~1\progra~1\ACCESS base de datos.ink"
rmdir /s/q  "C:\Docume~1\Admini~1\MenIni~1\progra~1\ACCESS base de datos.ink"
8  Programación / Scripting / Borrar en BATCH en: 1 Mayo 2007, 16:26 pm
Hola, he buscado en otros foros como puedo borrar lo siguiente:

C:\Documents and Settings\Administrador\Menú Inicio\Programas\WinRAR

C:\Documents and Settings\Administrador\Menú Inicio\Programas\Asistencia remota.ink

pero no he encontrado ninguna forma, los codigos que he utilizado no funcionan
9  Media / Multimedia / Formato .MOV en: 6 Enero 2007, 20:39 pm
Hola, chicos conocen algun programa que sirva para cambiar del formato .MOV a AVI o MPG???
10  Programación / Ingeniería Inversa / Re: Proteger aplicación contra crackers en: 6 Diciembre 2006, 00:47 am
Si pero te deja el tamaño del ejecutable altisimo el original pesa 74 KB y me lo subio a 1,04 MB, no me convence mucho el themida :/
Páginas: [1] 2 3 4 5 6 7 8 9
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines