Mensajes

estoy en XP y funciona de maravilla.

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 [Seleccionar] Expandir


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


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?

[.lnk]

Código [Seleccionar] Expandir

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 

Muchisimas gracias a todos los que aportaron soluciones 

Código [Seleccionar] Expandir


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?

[RMDIR]

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 [Seleccionar] Expandir


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:

uhh perdon me olvide de poner el codigo, es este:

Código [Seleccionar] Expandir


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 [Seleccionar] Expandir


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 [Seleccionar] Expandir


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"


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

Hola, chicos conocen algun programa que sirva para cambiar del formato .MOV a AVI o MPG???

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 :/