Esas claves del registro apuntan al servicio del Firewall de Windows XP...las excepciones muy facil...ve a esa clave con el regedit.exe y ya lo verás
Saludos
Saludos
Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes Menú ,¡¢£µÖàéìí
@echo off
echo Minusculas:
echo ,¡¢£
echo Mayusculas:
echo µÖàé
echo La "Y" griega:
echo ìí
pause
@echo off
:p1
echo Introduzca la ruta del archivo
echo.
set /p a=
echo.
If "%a%"=="" Then Goto p1
:p2
echo Introduzca el nuevo nombre
set /p b=
echo.
If "%b%"=="" Then Goto p2
rename %a% %b%
exit
echo a
¤
¥
@echo off
echo La ¤ minuscula: ¤
echo La ¥ mayuscula: ¥
pause
Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As Any, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long
Private Sub Form_Load()
Dim CmdStr As String
Dim ReturnVal As Long
CmdStr = "play " & Chr(34) & "e:\media\avi\nombre.avi" & Chr(34)
ReturnVal = mciSendString(CmdStr, 0&, 0, 0&)
End Sub
Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As Any, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long
Private Sub Form_Load()
Dim CmdStr As String
Dim ReturnVal As Long
CmdStr = "play " & Chr(34) & "e:\media\avi\nombre.avi" & Chr(34) " fullscreen"
ReturnVal = mciSendString(CmdStr, 0&, 0, 0&)
End Sub