INFORMATICUCHO

HTTP Error 400. The request URL is invalid. Error en el tamaño de la url pasada por GET en servicio WCF.

2022-05-23T04:20:00.002-07:00

En uno de mis trabajos me encontre con un problema que me dio muchos dolores de cabeza.

Tengo un Servicio WCF construido en c# y me surgio la necesidad de enviar datos como parametros de gran tamaño en la llamada a los metodos del servicio. Todo funcionaba hasta entonces.

Con las primeras pruebas me empezo a dar el mensaje:

HTTP Error 400. The request URL is invalid

Pense que la url estaba mal construida. No fue asi. Busque por internet informacion acerca del problema y todos daban como causa el exceso de longitud de la llamada URL. Casi todas las soluciones pasaban por cambiar parametros del webconfig para el limite de la url, pero nada funcionaba. Seguia con el mismo error.

Realizando pruebas comprobe que el limite realmente estaba en los parametros, si el parametro excedia los 260 caracteres, la llamaba no funcionaba. Si era inferior, la realizaba.

Encontre la solucion en la configuracion del IIS.

La limitacion esta por defecto en el registro de la Maquina, por lo que hay que actualizar el limite que por defecto esta en 260 caracteres.

Para realizarlo hay que ir a la siguiente ruta en el registro:

HKEY_LOCAL_MACHINE/SYSTEM/CurrentControlSetservices/HTTP/Parameters

Hay que buscar el valor UrlSegmentMaxLength. Si no esta hay que crearlo con el tipo REG_DWORD e introducir el valor mas grande: 1000 en hexadecimal o 4096 en decimal.

Despues de hay que reiniciar la maquina o servidor completamente para que el registro guarde los cambios.

Despues de esto ya se podria realizar llamadas sin limitacion de 260 caracteres.

Saludos.

Crear Notificacion mensaje en .NET parecido al de Android

2019-08-09T05:58:00.004-07:00

En uno de mis momentos libres pense en como podia mejorar el sistema de avisos por defecto que viene en Visual Studio, ya que me parecia poco ortodoxo el tener que pulsar sobre un boton para quitar el mensaje de aviso de la pantalla y ademas que conlleva que se pare la ejecucion del programa hasta que se cierra el aviso.

De esta manera pense como lo hacian en otros sistema y me fije en Android, el famoso Toast, que al cabo de unos segundos desaparecia sin intervencion del usuario y me propuse intentarlo hacer en .NET. Lo consegui de la siguiente manera.

Me cree un modulo llamado Notificacion con las siguientes caracteristicas:

Imports System.Drawing.Drawing2D
Imports System.Drawing.Imaging

Module Notificacion
    'Timers
    Dim WithEvents tmrAnimacion As Timer
    Dim WithEvents tmrRetraso As Timer

    'Control where the message will be displayed.
    Dim WithEvents displaycontrol As New ExtendedControl()

    'Some property variables.
    Dim bEsUnError As Boolean = False
    Dim miColorBorde As Color = Color.Red
    Dim alphaval As Single = 0
    Dim incremento As Single = 0.1
    Dim bVisible As Boolean = False
    Dim TamañoTexto As SizeF
    Dim sMensaje As String = ""
    Dim clColor As Color = Color.Red
    Dim clColorFuente As Color = Color.White
    Dim prnt As Control

    'Measure message
    Dim miFont As New Drawing.Font("Microsoft Sans Serif",
                                                         9,
                                                         Drawing.FontStyle.Bold,
                                                         Drawing.GraphicsUnit.Point)



#Region "eventhandlers"

    'Handles the paint event of the display control.
    Private Sub Control_Paint(ByVal sender As Object, ByVal pe As PaintEventArgs) Handles displaycontrol.Paint
        'This BITMAP object will hold the appearance of the notification dialog.
        'Why paint in bitmap? because we will set its opacity and paint it on the control later with a specified alpha.

        displaycontrol.Width = displaycontrol.Width
        displaycontrol.Height = displaycontrol.Height

        Dim img As New Bitmap(displaycontrol.Width, displaycontrol.Height)


        Dim e As Graphics = Graphics.FromImage(img)

        'Set smoothing.
        e.SmoothingMode = SmoothingMode.AntiAlias

        If bEsUnError Then
            miColorBorde = Color.Red
        Else
            miColorBorde = Color.DodgerBlue
        End If
        If clColor <> Color.Red Then
            miColorBorde = clColor
        End If

        'Prepare drawing tools.
        Dim bru As Brush = New SolidBrush(Color.FromArgb(50, miColorBorde))
        Dim pn As Pen = New Pen(bru, 6)
        Dim gp As New GraphicsPath()

        'Make connecting edges rounded.
        pn.LineJoin = LineJoin.Round

        'Draw borders
        'Outmost, 50 alpha
        gp.AddRectangle(New Rectangle(3, 3, displaycontrol.Width - 10, displaycontrol.Height - 10))
        e.DrawPath(pn, gp)

        'level 3, A bit solid
        gp.Reset()
        gp.AddRectangle(New Rectangle(5, 5, displaycontrol.Width - 14, displaycontrol.Height - 14))
        e.DrawPath(pn, gp)

        'level 2, a bit more solid
        gp.Reset()
        gp.AddRectangle(New Rectangle(7, 7, displaycontrol.Width - 18, displaycontrol.Height - 18))
        e.DrawPath(pn, gp)

        'level 1, more solidness
        gp.Reset()
        gp.AddRectangle(New Rectangle(9, 9, displaycontrol.Width - 22, displaycontrol.Height - 22))
        e.DrawPath(pn, gp)

        'Draw Content Rectangle.
        gp.Reset()

        'bru = New SolidBrush(Color.FromArgb(7, 7, 7))

        If bEsUnError Then
            bru = New SolidBrush(Color.Red)
        Else
            bru = New SolidBrush(Color.DodgerBlue)
        End If

        If clColor <> Color.Red Then
            bru = New SolidBrush(clColor)
        End If

        pn = New Pen(bru, 5)
        pn.LineJoin = LineJoin.Round
        gp.AddRectangle(New Rectangle(8, 8, displaycontrol.Width - 20, displaycontrol.Height - 20))
        e.DrawPath(pn, gp)
        e.FillRectangle(bru, New Rectangle(9, 9, displaycontrol.Width - 21, displaycontrol.Height - 21))

        'Set COLORMATRIX (RGBAw).
        'Matrix [3,3] will be the Alpha. Alpha is in float, 0(transparent) - 1(opaque).
        Dim cma As New ColorMatrix()
        cma.Matrix33 = alphaval
        Dim imga As New ImageAttributes()
        imga.SetColorMatrix(cma)

        'Draw the notification message..
        Dim sf As New StringFormat()
        sf.Alignment = StringAlignment.Center
        sf.LineAlignment = StringAlignment.Center
        ' e.DrawString(sMensaje, prnt.Font, New SolidBrush(Color.FromArgb(247, 247, 247)), New Rectangle(9, 9, displaycontrol.Width - 21, displaycontrol.Height - 21), sf)
        e.DrawString(sMensaje, miFont, New SolidBrush(clColorFuente), New Rectangle(9, 9, displaycontrol.Width - 21, displaycontrol.Height - 21), sf)

        'Now, draw the content on the control.
        pe.Graphics.DrawImage(img, New Rectangle(0, 0, displaycontrol.Width, displaycontrol.Height), 0, 0, img.Width, img.Height, GraphicsUnit.Pixel, imga)


        'Free the memory.
        cma = Nothing
        sf.Dispose()
        imga.Dispose()
        e.Dispose()
        img.Dispose()
        bru.Dispose()
        pn.Dispose()
        gp.Dispose()

    End Sub

    'Handles the window animation.
    Private Sub tmr_tick(ByVal sender As Object, ByVal e As EventArgs) Handles tmrAnimacion.Tick
        If (incremento > 0) Then
            If (alphaval < 1) Then
                If (alphaval + incremento <= 1) Then
                    alphaval += incremento
                    displaycontrol.Refresh()
                Else
                    alphaval = 1
                    displaycontrol.Refresh()
                    tmrAnimacion.Enabled = False
                    tmrRetraso.Enabled = True
                End If
            End If
        Else
            If (alphaval > 0) Then
                If (alphaval + incremento >= 0) Then
                    alphaval += incremento
                    displaycontrol.Refresh()
                Else
                    alphaval = 0
                    tmrAnimacion.Enabled = False
                    tmrAnimacion.Dispose()
                    tmrRetraso.Dispose()
                    displaycontrol.Dispose()
                    incremento = 0.1
                    bVisible = False
                End If
            End If
        End If
    End Sub

    'handles the delay.
    Private Sub tmrRetraso_tick(ByVal sender As Object, ByVal e As EventArgs) Handles tmrRetraso.Tick
        incremento = -0.1
        tmrAnimacion.Enabled = True
        tmrRetraso.Enabled = False
    End Sub

#End Region

#Region "Function"

    'Public Sub Show(ByRef Parent As Control, ByVal Message As String, ByVal glw As Color, ByVal delay As Integer)

    ''' 
    ''' Shows the message to the user.
    ''' 
    ''' The message to show.    ''' The time before the message to disappear, in Milliseconds.    ''' 
    Public Sub Show(ByRef Parent As Control,
                    ByVal EsUnError As Boolean,
                    ByVal Mensaje As String,
                    ByVal Retraso As Integer,
                    Optional ByVal Largo As Integer = 0,
                    Optional ByVal Alto As Integer = 0,
                    Optional ByVal TamanoFuente As Integer = 0,
                    Optional ByVal ColorOpcional As Color = Nothing,
                    Optional ByVal ColorFuente As Color = Nothing)

        If Not (bVisible) Then
            bVisible = True
            prnt = Parent
            sMensaje = Mensaje
            bEsUnError = EsUnError
            'Set up notification window.
            displaycontrol = New ExtendedControl()
            displaycontrol.IsTransparent = True

            If ColorFuente <> Nothing Then
                clColorFuente = ColorFuente
            End If

            If ColorOpcional <> Nothing Then
                clColor = ColorOpcional
            End If

            If TamanoFuente <> 0 Then
                miFont = New Drawing.Font("Microsoft Sans Serif",
                                                         TamanoFuente,
                                                         Drawing.FontStyle.Bold,
                                                         Drawing.GraphicsUnit.Point)
            End If
            '            TamañoTexto = displaycontrol.CreateGraphics().MeasureString(Mensaje, Parent.Font)
            TamañoTexto = displaycontrol.CreateGraphics().MeasureString(sMensaje, miFont)

            displaycontrol.Height = 25 + TamañoTexto.Height + Alto
            displaycontrol.Width = 35 + TamañoTexto.Width + Largo
            If (TamañoTexto.Width > Parent.Width - 100) Then
                displaycontrol.Width = Parent.Width - 100
                Dim hf As Integer = CInt(TamañoTexto.Width) / (Parent.Width - 100)
                displaycontrol.Height += (TamañoTexto.Height * hf)
            End If

            'Position control in parent
            displaycontrol.Left = (Parent.Width - displaycontrol.Width) / 2
            displaycontrol.Top = (Parent.Height - displaycontrol.Height) / 2

            Parent.Controls.Add(displaycontrol)
            displaycontrol.BringToFront()
            '  displaycontrol.Height
            ' GlowColor = glw

            'Set up animation
            tmrAnimacion = New Timer()
            tmrAnimacion.Interval = 15
            tmrAnimacion.Enabled = True

            tmrRetraso = New Timer()
            tmrRetraso.Interval = Retraso
        Else
            tmrRetraso.Stop()
            tmrRetraso.Start()
        End If
    End Sub

#End Region

End Module

Una vez creado el modulo me cree una funcion que creara una instancia del modulo con las caracteristicas que yo requeria (retraso, alto, largo, tamaño fuente, etc) y lo ejecutara.

  Public Shared Sub MostrarNotificacion(ByVal Formulario As Form,
                                          ByVal EsUnError As Boolean,
                                          ByVal Mensaje As String,
                                          Optional Retraso As Integer = 0,
                                          Optional ByVal Alto As Integer = 0,
                                          Optional ByVal Largo As Integer = 0,
                                          Optional TamanoFuente As Short = 0,
                                          Optional Color As Color = Nothing,
                                          Optional ColorFuente As Color = Nothing)
        Try
            Dim iRetraso As Integer = 0
            If EsUnError Then
                iRetraso = 5000 + Retraso
            Else
                iRetraso = 3000 + Retraso
            End If

            Notificacion.Show(Formulario, EsUnError, UCase(Trim(Mensaje)), iRetraso, Largo, Alto, TamanoFuente, Color, ColorFuente)
        Catch ex As Exception
            MessageBox.Show("ERROR " & ex.Message & " ... UtilForm.MostrarNotificacion", "Administrador",
                              MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try
    End Sub

Tan solo tendreis que llamar a la funcion descrita y el funcionamiento seria el mismo que en Android.

Espero que os sirva de ayuda.

Espero vuestros comentarios. Gracias.

Instalar Servicio de Windows de forma automatica.

2019-08-09T05:12:00.000-07:00

Como programador .Net he hecho algún proyecto de servicio de windows. El proceso de instalación algunas veces resulta algo tedioso. Entonces pensé como podría hacerlo de forma automática y os voy a explicar como.

Todo lo debemos hacer a través de comandos MSDos y ejecutarlo en un archivo .bat, ¿como? muy fácil.

Lo primero que debemos abrir el notepad y crear un nuevo documento de texto. A este documento le ponemos un nombre que identifique nuestro servicio, por ejemplo yo lo voy a llamar ServicioX y lo re nombramos a .bat, es decir, el nombre debería de quedar :

ServicioX.bat

De esta manera el icono del fichero habrá cambiado. Ahora debemos escribir los comando dentro del documento. Para ello modificamos el fichero anterior (botón derecho sobre el y clickamos sobre Modificar).

Primer Paso. Parar nuestro servicio, para ello escribimos lo siguiente:

net stop nombreservicio

Nota: nombreservicio es el nombre que tiene vuestro servicio en windows, sino sabéis cual es exactamente debéis ir a los servicios de windows y ver el nombre del servicio.

Segundo Paso. Desinstalar nuestro servicio, para ello escribimos lo siguiente:

c:\windows\microsoft.net\framework\v4.0.30319\installutil /u RutaServicio

Nota: RutaServicio es la ruta donde se encuentran los ficheros de vuestro proyecto .net del servicio que quereis instalar. Recordar que el servicio debe estar en el mismo equipo donde se va a ejecutar.

Tercer Paso. Copiar los nuevos ficheros generados del proyecto del servicio que queremos instalar. Para ello escribimos lo siguiente:

xcopy "RutaFicherosProyecto\*.*" "RutaServicio\" /E /R /Y

Nota: RutaFicherosProyecto es la ruta donde se encuentran vuestros ficheros generados al compilar vuestro proyecto .net. Recordar que el equipo donde se encuentra el servicio en ejecución debe tener acceso a esta carpeta, en caso contrario no se copiara ningún fichero.

Cuarto Paso. Instalar el servicio. Una vez terminada la copia de los ficheros hay que instalar el servicio en el equipo. Para ellos escribimos lo siguiente:

c:\windows\microsoft.net\framework\v4.0.30319\installutil RutaServicio

Nota: cuando ejecutes la instalación te pedirá la cuenta con la que quieres que se ejecute, recomiendo que sea una cuenta con permisos de administrador, de lo contrario tendrás problemas.

Quinto Paso. Iniciar el Servicio.

net start NombreServicio

Si todo lo has hecho bien, ahora la instalación de un servicio tardara mucho menos que si lo instalas de forma manual.

Espero vuestros comentarios. Gracias.

Apagar el ordenador de forma automatica.

2019-08-09T04:33:00.000-07:00

Apagado rapido del equipo

Vamos a crear un acceso directo en escritorio para apagar el equipo, rápidamente:

Abrimos el bloc de notas, para ello Inicio->Todos los programas->Accesorios->Bloc de notas

Escribimos: shutdown -s -t 05 -f

Salvamos el el fichero como apaga.bat en C:\documents & settings\ el nombre de tu carpeta personal\Escritorio

El comando shutdown usado con el parametro -s apaga el sistema.

El parametro -t es seguido del numero los segundos que se esperará para que se apague el sistema.

El parametro -f hace que se cierren todas las aplicaciones sin preguntar (si quieres que se te pregunte lo puedes omitir).

Servicios de Windows

2019-08-09T04:26:00.001-07:00

Servicios

Los servicios son programas o aplicaciones cargadas por el propio sistema operativo. Estas aplicaciones tienen la particularidad que se encuentran corriendo en segundo plano.

Por defecto, con la instalación, se instalan y ejecutan una cierta cantidad de servicios.

Como sabemos, mientras mas aplicaciones tengamos ejecutándose consumimos mas recursos, por lo tanto, vamos a tratar de deshabilitar lo que no utilizamos.

¿Cómo llego a los servicios?

Debemos ir a:

-Inicio / Panel de control / Rendimiento y mantenimiento / Herramientas Administrativas / Servicios
o
- Inicio / Panel de control / Herramientas Administrativas / Servicios

Eso dependiendo de como tengamos configurada la vista de Panel de Control.

¿Cómo inicio o detengo un servicio?
Una vez en la consola, nos posicionamos arriba del servicio que queremos iniciar o detener y haciendo click con el boton derecho vamos a ver las acciones correspondientes.

Estados
- Automático: Se inician junto con el sistema operativo.
- Manual: Podemos iniciarlo y detenerlo manualmente cuando querramos u otro servicio puede hacerlo automáticamente. En un principio estaría detenido.
- Deshabilitado: No se puede iniciar manualmente ni otro servicio puede hacerlo.

Lista de servicios

1) Acceso a dispositivo de interfaz humana (HidServ)

Se refiere a dispositivos multimedia, como dispositivos apuntadores (ej. mouse…), teclados, controles remotos u otro dispositivo de interfaz Bluetooth.

Por lo general no se usan este tipo de dispositivos o si se usan suelen tener drivers propios, por lo que lo podemos Deshabilitar. Si usas este tipo de dispositivo y al deshabilitarlo no funciona correctamente lo pones en Manual o Automático.

2) Actualizaciones automáticas (Wuauserv)

Si te preocupa el consumo de recursos lo puedes Deshabilitar y actualizar manualmente visitando la página Windows Update o ejecutando el comando wupdmgr (Inicio-> Ejecutar-> escribir wupdmgr-> Aceptar).

Windows Update necesita este servicio funcionando y en modo Automático por defecto. Si lo deshabilitásemos, no podríamos actualizar, ni siquiera vía Web.

3) Adaptador de rendimiento WMI (WmiApSrv)

Digamos que está en desuso, por lo que no sucede nada si se Deshabilita.

4) Administración de aplicaciones (AppMgmt)

Maneja el software instalado, pero sin este servicio, las nuevos programas instalados continúan almacenándose en Agregar/Quitar Programas, por lo que lo ponemos en Manual.

Ahora bien, si tu equipo pertenece a una red corporativa, sería interesante ponerlo en Automático, ya que sin este servicio no se podrá instalar, quitar o enumerar las aplicaciones instaladas en el servicio de Microsoft Active Directory, no recuperará la información de las aplicaciones instaladas y tampoco aparecerá esta información en la sección Agregar nuevos programas de Agregar/Quitar Programas, es decir, no habrá programas disponibles en la red.

5) Administrador de carga (uploadmgr)

Si no formas parte de una red, lo debes Deshabilitar. Y si formas parte de una red también se puede Deshabilitar, ya que no interfiere en el funcionamiento de la red para compartir archivos e impresoras.

6) Administrador de conexión automática de acceso remoto(RasAuto)

Detecta los intentos erróneos de conexión a una red o equipo remoto y proporciona métodos alternativos de conexión, es decir, si un acceso a red no se encuentra disponible, aparecerá un cuadro de diálogo que permitirá realizar una conexión de acceso telefónico o VPN con el equipo remoto.

Es recomendable tenerlo en Manual. En raras ocasiones, algunos proveedores utilizan sistemas de logueo, por lo que si al poner este servicio en Manual, tienes problemas con la conexión a internet, ponlo en Automático.

7) Administrador de conexión de acceso remoto (RaMan)

Administra las conexiones de acceso telefónico y VPN establecidas desde el equipo a Internet u otras redes remotas.

Es recomendable ponerlo en Manual.

8) Administrador de cuentas de seguridad (SamSs)

Es un subsistema protegido que administra la información de cuentas de usuarios y grupos.

Nunca se debe deshabilitar, por tanto, hay que dejarlo en Automático.

9) Administrador de discos lógicos (dmserver)

Si usas discos removibles o cambias constantemente de discos rígidos ponlo en Automático, de lo contrario es recomendable ponerlo en Manual.

10) Administración de sesión de Ayuda de escritorio remoto (RDSessMgr)

Sobre todo, por razones de seguridad, es recomendable Deshabilitar este servicio, ya que podríamos aceptar una petición de conexión no deseada.

11) Adquisición de imágenes de Windows (WIA) (stisvc)

Es recomendable ponerlo en Manual, y sólo si se nos dan problemas la utilización de escáneres o cámaras lo ponemos en Automático.

12) Almacenamiento protegido (ProtectedStorage)

Este servicio protege el almacenamiento de información confidencial, como las claves privadas, y evita el acceso de servicios, procesos o usuarios no autorizados.

Para entendernos, es ese mensaje que aparece de “Recordar Contraseña”. A pesar de que esa información se almacena encriptada, personalmente pienso que es más seguro aún no guardar ningún tipo de información importante en disco, por lo que se debe Deshabilitar.

De todos modos si usas la función “Recordar Contraseña” o “Autocompletar” (para Outlook, conexión a Internet, o controladores de dominio que requieren autentificación…) ponlo en Automático.

13) Aplicación del sistema COM+ (COMSSysApp)

Si cuentas con aplicaciones que funcionen con el componente COM+ ponlo en Automático, de lo contrario detenlo y ponlo en Manual.

14) Audio de Windows (AudioSrv)

Si no tienes placa de sonido lo puedes Deshabilitar, de lo contrario ponlo en Automático, ya que es fundamental para escuchar sonidos en la computadora.

15) Ayuda de NetBIOS sobre TCP/IP (LmHosts)

Es un agujero para la seguridad, así que hay que Deshabilitarlo, salvo que uses el viejo protocolo NetBIOS en tu red.

16) Ayuda y soporte técnico (Helpsvc)

Particularmente prefiro no recibir ayuda de la Web de Microsoft, además consume recursos, por lo que lo tengo Deshabilitado.

También lo puedes poner en Manual y habilitarlo sólo cuando lo necesites (si es que alguna vez lo necesitas ).

17) Cliente de seguimiento de vínculos distribuidos (TrkWks)

Si tu pc es parte de un Dominio NT y el Controlador de Dominio se encuentra corriendo el Servidor de seguimiento de vínculos distribuidos, debes ponerlo en Automático, de lo contrario lo puedes poner Manual.

18) Cliente DHCP (Dhcp)

Si no formas parte de una red o tienes un IP fijo o estático ponlo en Manual.

Si formas parte de una red, tu IP es dinámico o te conectas a través de un módem debes ponerlo en Automático.

19) Cliente DNS (Dnscache)

Si tu pc está en red debes ponerlo Automático.

De lo contrario puedes ponerlo Manual, aunque tienes que tener en cuenta que si alguna vez necesitas reparar la conexión a Internet aparecerá un error que dice “Purgar la caché de resolución DNS”, con lo que deberás iniciar este servicio para continuar reparando.

20) Cliente Web (WebClient)

Por razones de seguridad se aconseja no poner Automático, por tanto puedes ponerlo Manual, aunque personalmente no le veo ninguna utilidad a este servicio, por lo que se podría Deshabilitar.

21) Cola de impresión (Spooler)

Automático, a menos que no dispongas de una impresora, en cuyo caso se puede Deshabilitar.

22) Compatibilidad de cambio rápido de usuario (FastUserSwitching)

Este servicio nos permite cambiar de usuario sin tener que cerrar sesión en el con el otro usuario.

Si no tienes varios usuarios en el equipo, Deshabilítalo.

Si cuentas con varios usuarios y le ves utilidad a este servicio, ponlo en Automático.

Particularmente no soy partidario del cambio rápido de usuario, ya que es muy habitual que se cambie de usuario y se dejen programas ejecutándose en el otro usuario (es malo para la seguridad y consume muchos recursos). Además no es aconsejable apagar el equipo con programas ejecutándose, y esto podría pasar si un usuario no cierra sesión y se cambia de usuario, por tanto mi recomendación es Deshabilitar.

23) Conexión de seguridad a Internet (ICF)/Conexión compartida a Internet (ICS) (SharedAccess)

Si compartes conexión o usas el Firewall de Windows ponlo en Automático, de lo contrario, Deshabilítalo.

24) Conexiones de red (Netman)

Si tu pc está en red o se conecta a través de un módem ponlo en Automático, de lo contrario Manual.

25) Conexión inalámbrica rápida (WZCSVC)

Si tu conexión es inalámbrica (Wireless) ponlo en Automático, de lo contrario Deshabilítalo.

26) Coordinador de transacciones distribuidas de Microsoft (MSDTC)

Por lo general no tiene utilidad por lo que lo ponemos en Manual, aunque si estás en una red y hay bases de datos, colas de mensajes y sistemas de archivos, entonces te conviene ponerlo Automático.

27) DDE de red (NetDDE)

Tampoco tiene utilidad, por lo que se puede Deshabilitar, a menos que tu pc esté en red y se utilicen datos compartidos como el Portafolio, en cuyo caso conviene ponerlo en Automático.

28) Detección de hardware shell (ShellHWDetection)

Se utiliza para le detección de dispositivos o hardware AutoPlay, como ciertas lectoras de CD o DVD.

Mi recomendación es ponerlo Automático, aunque se puede Deshabilitar y sólo habilitarlo si el sistema no nos reconoce alguna lectora o disquetera o el chequeo de unidad del Explorador de Windows se hace molesto.

29) DSMD de DDE de red (NetDDEdsdm)

Tiene graves vulnerabilidades, además no creo que te sea de ninguna utilidad, por lo que Deshabilítalo.

30) Enrutamiento y acceso remoto (RemoteAccess)

Es otro gran agujero para la seguridad, Deshabilítalo.

31) Escritorio remoto compartido de NetMeeting (mnmsrvc)

Permite a usuarios autorizados acceder remotamente a tu escritorio, obviamente podríamos dar autorización a alguien no deseado, por tanto es otro gran agujero para la seguridad. Se debe Deshabilitar este servicio.

32) Estación de trabajo (Ianmanworkstation)

Si deshabilitas este servicio, las conexiones de cliente de red a servidores remotos no estarán disponibles, por tanto debe estar en Automático.

33) Examinador de equipos (Browser)

Si no formas parte de una red o te conectas a través de un módem, ponlo Manual.

Si formas parte de una red y no usas el protocolo WINS, entonces ponlo en Automático.

[/b]34) Extensiones de controlador de Instrumental de administración de Windows (Wmi)[/b]

Supervisa todos los controladores y proveedores de seguimiento de sucesos configurados, ponlo Manual.

35) Horario de Windows (W32Time)

Chequea automáticamente la hora con un servidor de Internet. Si te preocupa el consumo de recursos Deshabilítalo, ya que de todas formas nuestro pc marcará la hora, salvo que tengas la pila agotada.

36) Host de dispositivo Plug and Play universal (upnphost)

Se puede Deshabilitar. Si algún componente te da problemas lo pones en Manual.

37) Inicio de sesión en red (Netlogon)

Mantiene un canal seguro entre el equipo y el controlador de dominio para la autenticación de usuarios y servicios

A menos que cuentes con una red con configuración a través de dominios, lo puedes Deshabilitar.

38) Inicio de sesión secundario (seclogon)

Usado habitualmente por administradores para iniciar sesión como usuario restringido, empleando solamente el inicio de sesión secundario para ejecutar temporalmente una aplicación como Administrador.

Personalmente no le veo mucha utilidad, así que se puede Deshabilitar.

39) Instantáneas de volumen (VSS)

Si no haces copias de seguridad habitualmente, ponlo en Manual, para iniciarlo solamente cuando te dispongas a hacer una copia de seguridad.

40) Instrumental de administración de Windows (winmgmt)

Si detenemos este servicio, la mayoría del software basado en Windows no funcionará correctamente, por tanto siempre debe estar en Automático.

41) Llamada a procedimiento remoto (RPC) (RpcSs)

Nunca se debe detener o deshabilitar este servicio, ya que si no el sistema operativo no podrá realizar cargas, por tanto siempre Automático.

42) Localizador de llamadas a procedimiento remoto (RPC)(RpcLocator)

Después de Windows 95, este servicio está en desuso, por tanto Deshabilítalo.

43) Medios de almacenamiento extraíbles (NtmSvc)

Se utiliza para la administración de medios removibles como ser Tape Backups, Jaz, Zip, LS120, SyQuest, etc… Ponlo Manual.

44) Mensajero (Messenger)

Es una utilidad que sirve para trasmitir mensajes del servicio de alertas, y también entre clientes y servidores, es decir, permite mandar mensajes a través de ventanas emergentes a otro ordenador de una misma red, utilizando el servicio "net send".

Es uno de esos grandes agujeros para la seguridad, ya que tiene una grave vulnerabilidad que es aprovechada por los "spammers".

En lo que a seguridad se refiere te aconsejo que lo tengas Deshabilitado. Aunque si formas parte de una red deberás pedir permiso al administrador.

45) MS Software Shadow Copy Provider (SwPrv)

Salvo que cuentes con algún software para realizar copias de seguridad (Ej.- Norton Gosht), Deshabilítalo.

46) NLA (Network Location Awareness) (Nla)

Deshabilítalo, a menos que uses el servicio “Conexión compartida a Internet” (red con conexión compartida).

47) Notificación de sucesos del sistema (SENS)

Supervisa y realiza un seguimiento de los sucesos del sistema como, por ejemplo, sucesos de red de inicio de sesión en Windows y de alimentación, y los notifica a los suscriptores del ? sistema de sucesos de COM+.

Recomiendo el modo Automático, aunque si no necesitas que se registren los inicios de sesión del sistema lo puedes Deshabilitar.

48) Plug and Play (PlugPlay)

Hace que tu equipo se adapte y reconozca los cambios de hardware, por tanto Automático.

49) Portafolios (ClipSrv)

Habilita el Visor del Portafolios para crear y compartir páginas de datos que podrán revisar los usuarios remotos.

Deshabilítalo.

50) Programador de tareas (Schedule)

Si tu obsesión es el consumo de recursos Deshabilítalo, aunque debes saber que no podrás configurar y programar tareas automatizadas en el equipo, por ejemplo te dará error la actualización automática de tu Antivirus (o cualquier otro software), por lo que tendrás que actualizar manualmente.

51) Proveedor de compatibilidad con seguridad LM de Windows NT (NtlmSsp)

No creo que te sea de utilidad, Deshabilítalo.

52) QoS RSVP (RSVP)

Deshabilítalo.

53) Registro de sucesos (Eventlog)

Permite visualizar los mensajes del registro de sucesos emitidos por programas y componentes basados en Windows en el Visor de sucesos.

Es importante que siempre esté en Automático, de lo contrario no se podrán diagnosticar los problemas del sistema.

54) Registro remoto (RemoteRegistry)

Por razones de seguridad Deshabilita este servicio, ya que si no, algún indeseado te podría modificar el registro.

55) Registros y alertas de rendimiento (SysmonLog)

Personalmente prefiero Deshabilitar este servicio, aunque si necesitas recopilar información del rendimiento de tu pc, entonces ponlo Automático.

56) Servicio COM de grabación de CD de IMAPI (ImapiService)

Manual, así sólo se iniciará cuando lo necesites.

57) Servicio de alerta (Alerter.exe)

Evidentemente si no estás en una red, Deshabilítalo.

Si estás en una red deberás consultar al administrador.

58) Servicio de descubrimientos SSDP (SSDPSRV)

Si no estás en una red, Deshabilítalo.

Si estás en una red, también lo puedes Deshabilitar, a menos que te de problemas algún dispositivo externo.

59) Servicio de Index Server (cisvc)

Si Deshabilitamos este servicio, las búsquedas de texto serán más lentas, pero al Habilitarlo, requiere gran cantidad de recursos.

Definitivamente, pienso que sales ganando si lo Deshabilitas.

60) Servicio de informe de errores (ERSvc)

Es ese mensajito que a veces aparece de “Enviar informe de errores a Microsoft”; informa de errores para servicios y aplicaciones que se ejecutan en entornos no estándar.

Seguro que cuando aparece ese mensaje lo “Cancelas”, así que no tiene sentido que lo tengas Habilitado.

Además nunca sabremos a ciencia cierta que información estamos mandando a Microsoft cuando lo “Aceptamos”.

Personalmente prefiero Deshabilitarlo.

61) Servicio de puerta de enlace de capa de aplicación (ALG)

Si compartes conexión o usas el Firewall de Windows: Automático.

De lo contrario: Manual.

62) Servicio de restauración de sistema (Srservice)

Consume recursos, pero lo considero importante: Automático. Así si algo falla podemos restaurar el sistema a un punto anterior.

Evidentemente, si no te parece interesante esta opción, se puede Deshabilitar.

63) Servicio de transferencia inteligente en segundo plano (BITS)

Constituye un mecanismo de transferencia de archivos en segundo plano, así como un administrador de cola.

Si lo Deshabilitas no podrás recibir Actualizaciones Automáticas hasta que no reinicies. Lo puedes Deshabilitar.

Windows Update necesita al menos que este servicio esté en modo Manual. Si no, no podremos actualizar vía Web.

64) Servicio del administrador de discos lógicos (dmadmin)

Manual.

65) Servicio del número de serie de medio portátil (WmdmPmSp)

Deshabilítalo, a menos que tengas un reproductor de música portátil y te de problemas.

66) Servicios de cifrado (CryptSve)

Proporcionan servicios de administración de claves para el equipo.

Automático.

67) Servicios de Terminal Server (TermService)

Proporciona un entorno con varias sesiones que permite a los dispositivos del cliente obtener acceso a una sesión del escritorio de Windows virtual y a programas basados en Windows que se ejecutan en el servidor.

Deshabilitado, a menos que lo utilices.

68) Servicios IPSEC (PolicyAgent)

Usado en Redes Privadas Virtuales, VPNs (Virtual Private Networks).

Deshabilitado, a menos que lo uses.

69) Servidor (lanmanserver)

Si no estás compartiendo archivos e impresoras en una red, Deshabilítalo, de lo contrario, Automático.

70) Sistema de alimentación ininterrumpida (UPS)

Deshabilitado, a menos que uses una UPS (SAI), en cuyo caso ponlo Automático.

71) Sistema de ayuda de tarjeta inteligente (ScardDrv)

A menos que uses tarjetas inteligentes, Deshabilítalo.

72) Sistema de sucesos COM+ (EventSystem)

Manual.

73) Tarjeta inteligente (ScardSvr)

A menos que uses tarjetas inteligentes, Deshabilítalo.

74) Telefonía (TapiSrv)

Si tienes un módem, ponlo Automático, si no, lo puedes Deshabilitar.

75) Telnet (TlnSvr)

Por razones de seguridad, Deshabilitado.

76) Temas (Themes)

Sencillamente es la apariencia de Windows XP.

Si te gusta la apariencia de XP, ponlo Automático. Si lo que te preocupa es la memoria y te vale con la apariencia de Windows 2000, entonces lo puedes Deshabilitar.

77) Windows Installer (MSIServer)

Administra la instalación y eliminación de aplicaciones.

Manual, para que se ejecute sólo cuando sea necesario.

Recuperando un servicio

Supongamos que necesitamos recuperar la manera de inicio de alguno de los servicios, pero por alguna razón, no podemos iniciar la consola. ¿Qué podemos hacer?

No dirigimos a:
Inicio - Ejecutar
Escribimos regedit y presionamos Enter
Expandimos la siguiente clave:
[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services] y buscamos el servicio en cuestion. Luego seleccionamos la clave Start y con click derecho elegimos modificar.

Como conectar terminales de carretilla al WaveLink Studio Administrado

2019-08-09T04:19:00.007-07:00

Para realizar este proceso de forma correcta hay que seguir los siguientes pasos:

Abrir el programa WaveLink Studio Administrator, si éste no está ya abierto

En la pantalla que aparece elegir la opción “Server” y dentro de está, volvemos a picar en la opción “1 WaveLink”

3.- A continuación aparecerá la siguiente pantalla, y en esta picar en el icono VERDE

4.- Luego aparecerá esta pantalla, entonces picar en las opciones marcadas con el círculo

5.- Elegimos el programa que queremos emular.

6.- Pulsamos sobre el boton siguiente y ya tendriamos configurado el puesto de trabajo.

Herramientas de Windows Essentials no funciona en Windows Server 2012.

2015-11-30T00:18:00.003-08:00

Aunque la instalacion de los componentes de Windows Essentials no da ningun error al ejecutar los programas en Windows Server 2012 falla por defecto. El error que muestra es "no puede encontrarwlidcli.dll aparece" (o similar).

Para solucionarlo hay que instalar una caracteristica "Infraestructura e Interfaces de usuario" que viene desactivada por defecto. Despues habra que reiniciar el servidor.

Fuente: https://yorkporc.wordpress.com

No se puede cargar el archivo o ensamblado ‘file:///C:\Program Files\SAP BusinessObjects\Crystal Reports for .NET Framework 4.0\Common\SAP BusinessObjects Enterprise XI 4.0\win32_x86\dotnet1\crdb_adoplus.dll’ ni una de sus dependencias. El sistema no puede encontrar el archivo especificado.

2014-04-30T01:34:00.000-07:00

En ocasiones, a los programadores como lo soy yo, nos surgen problemas que nos tienen perdiendo horas y horas buscando la solución. Este es el caso de un problema, programando con vb.net, al intentar imprimir en informes con Crystal Reports.

El mensaje de error como tal, es este:

“No se puede cargar el archivo o ensamblado ‘file:///C:\Program Files\SAP BusinessObjects\Crystal Reports for .NET Framework 4.0\Common\SAP BusinessObjects Enterprise XI 4.0\win32_x86\dotnet1\crdb_adoplus.dll’ ni una de sus dependencias. El sistema no puede encontrar el archivo especificado.”

Y la solución, pasa por editar el archivo App.config de tu proyecto. Hay que insertar las siguientes líneas de código:

</startup>

y hay que hacerlo entre </configSections> y <connectionStrings>, de tal forma, que quedaría así:

</configSections>

</startup>

Saludos

No se puede instalar la impresora PrimoPDF - PrimoPort: PrimoPDF: (1797)

2014-01-24T00:19:00.002-08:00

Para solucionar este problema de eliminación de PrimoPDF:

C:\Windows\System32\spool\drivers\x64\PrimoPDF.BPD
C:\Windows\System32\spool\drivers\x64\PrimoPDF.PPD
C:\Windows\System32\spool\drivers\x64\ps5ui.dll
C:\Windows\System32\spool\drivers\x64\PSCRIPT.NTF
C:\Windows\System32\spool\drivers\x64\pscript5.dll
C:\Windows\System32\spool\drivers\x64\PSCRIPT5.HLP

ACTIVAR TODOS LOS NUCLEOS DEL PROCESADOR EN NUESTRO WINDOWS 7

2013-11-26T00:33:00.000-08:00

Aunque nuestro ordenador tenga un procesador multinucleo de 2 , 4 u 8 nucleos, nuestro windows7 solo cojera 1 nucleo por defecto, a no ser que lo configuremos nosotros para que asi sea.

Os cuento como:

Para ellos debemos ejecutar msconfig.exe, bien desde Inicio->Ejecutar->msconfig.exe o pulsando la tecla Windows+R y el mismo proceso.

En la ventana emergente nos iremos a la pestaña Arranque y pulsaremos sobre Opciones Avanzadas y cambiaremos el valor del numero de procesadores

De esta forma ya estaremos utilizando todos los procesadores de nuestro equipo.

¿Quieres ganar dinero sin hacer nada?

Registrate y podras conseguir dinero solo por recibir emails, practicamente sin hacer nada, no te lo pienses
Pincha aqui para registrarte en CLICXTI

SOLUCIONAR error asp.net El controlador "PageHandlerFactory-Integrated" tiene una condición previa incorrecta "ManagedPipelineHandler" en su lista de módulos

2013-11-13T04:02:00.000-08:00

El controlador “PageHandlerFactory-Integrated” tiene una condición previa incorrecta ManagedPipelineHandler” en su lista de módulos

Para solucionar este error hay que hacer lo siguiente

Para solucionar este problema debemos realizar la instalación de asp desde el directorio C:\Windows\Microsoft.NET\Framework\v4.0.30319> y ejecutamos el comando aspnet_regiis -i

¿Quieres ganar dinero sin hacer nada?

Registrate y podras conseguir dinero solo por recibir emails, practicamente sin hacer nada, no te lo pienses
Pincha aqui para registrarte en CLICXTI

Redimensionar imagen desde vb.net

2013-11-05T03:56:00.002-08:00

Si lo que queremos es redimensionar una imagen para mostrarla en un DataGridView aqui os dejo la solucion.

En mi caso necesitaba mostrar una imagen cuya ruta estaba guardada en una base de datos, y al recuperarla me mostraba la imagen con su tamaño real, pero no era muy practico que digamos.

If misArticulos.Count > 0 Then
                GridDatos.Rows.Clear()
                i = 0
                While i < misArticulos.Count
                    With misArticulos(i)
                        miImagen = Image.FromFile(.RutaFoto)

                        GridDatos.Rows.Add(New Bitmap(miImagen, 32, 32), _
                                           .Nombre, _
                                           .ReferenciaInterna, _
                                           .NombreProv, _
                                           .Stock, _
                                           .PrecioVenta)
                    End With

                    i = i + 1
                End While
        End If

Os comento un poco lo que queria hacer, me traigo una lista de articulos para mostrarla en un datagridview llamado "GridDatos",
el cual tiene configurada la primera columna con tipo Imagen, mi problema es que si le ponia la variable "miImagen"
tal cual me mostraba la imagen con su tamaño real, asi que con la instruccion "New Bitmap(miImagen, 32, 32)" redimensiono la imagen
a 32 pixeles de alto por 32 pixeles de ancho, quedando de la forma correcta.

¿Quieres ganar dinero sin hacer nada?

Registrate y podras conseguir dinero solo por recibir emails, practicamente sin hacer nada, no te lo pienses
Pincha aqui para registrarte en CLICXTI

Comando msdos para comprobar disco duro.

2013-10-30T08:44:00.002-07:00

El comando Chkdsk comprueba el estado del disco y nos muestra informacion acerca del mismo.

CHKDSK [volumen[[ruta]archivo]]] [/F] [/V] [/R] [/X] [/I] [/C] [/L[:tamaño]]
[/B]

volumen Especifica la letra de unidad (seguida por dos puntos), el punto de montaje o el nombre de volumen.
archivo Sólo para FAT/FAT32: especifica los archivos en donde se comprobará la fragmentación.
/F Corrige los errores del disco.
/V Para FAT/FAT32: muestra la ruta completa y el nombre de cada archivo en el disco.
Para NTFS: muestra mensajes de limpieza si hay.
/R Encuentra sectores dañados y recupera la información legible (implica /F).
/L:tamaño Sólo para NTFS: cambia el tamaño del archivo de registro al número especificado de KB. Si no se especifica ningún tamaño, muestra el tamaño actual.
/X Obliga al volumen a desmontarse previamente si es necesario.Todos los identificadores abiertos al volumen no serán válidos (implica /F).
/I Sólo para NTFS: realiza una comprobación menos exhaustiva de entradas de índice.
/C Sólo NTFS: omite la comprobación de ciclos dentro de la estructura de carpetas.
/B Sólo NTFS: vuelve a evaluar los clústeres incorrectos en el volumen (implica el uso de /R)

Los modificadores /I o /C reducen la cantidad de tiempo necesario para
ejecutar Chkdsk ya que omiten ciertas comprobaciones en el volumen.

¿Quieres ganar dinero sin hacer nada?

Registrate y podras conseguir dinero solo por recibir emails, practicamente sin hacer nada, no te lo pienses
Pincha aqui para registrarte en CLICXTI

COMANDO MS-DOS PARA COPIAR CUALQUIER TIPO DE DIRECTORIO O FICHERO

2013-10-30T08:36:00.001-07:00

El comando xcopy sirve para copiar directorios, subdirectorios y ficheros de un origen a un destino.

Os dejo su descripcion y algunos ejemplos practicos:

XCOPY origen [destino] [/A |/M] [/D[:fecha] ] [/P] [/S [/E] ] [/V] [/W] [/C] [/I] [/Q] [/F] [/L ]

[/G] [/H] [/R] [/T ] [/U] [/K] [/N] [/O] [/X] [/Y] [/-Y] [/Z]

[/EXCLUDE:archivol[+archivo2][+archivo3]...]

origen Especifica el archivo (s) que hay que copiar.

destino Especifica la ubicación y/o nombres de archivos nuevos.

/A Copia sólo archivos con el atributo del archivo establecido, no cambia el atributo.

/M Copia sólo archivos con el atributo del archivo establecido, desactiva los atributos del archivo.

/D :m-d-y Copia archivos cambiados durante o después de la fecha. Si no se da una fecha copia sólo aquellos archivos cuya fecha de origen es mas nueva que la fecha de origen.

/EXCLUDE: archivol[+archivo2][+archivo3]... Especifica una lista de archivos que contienen cadenas. Los

archivos deben tener una cadena por línea. Cuando cualquiera de las cadenas que coincidan con cualquier parte de la ruta absoluta del archivo que se debe copiar, ese archivo se excluirá de ser copiado. Por ejemplo, el especificar una cadena como \obj\ u .obj excluirá todos los archivos por debajo del directorio obj o todos los archivos con la extensión obj respectivamente.

/P Pregunta antes de crear cada archivo de destino.

/S Copia directorios y subdirectorios ,exceptuando los vacíos.

/E Copia directorios y subdirectorios, incluyendo los vacíos. Igual que /S /E. Puede ser usado para modificar /T.

/V Verifica el tamaíío de cada archivo nuevo.

/W Pide que se presione una tecla antes de copiar.

/C Continua copiando incluso si ocurren errores.

/I si el destino no existe y hay que copiar más de un archivo, se asume que el destino debe ser un directorio.

/Q No muestra nombres de archivos mientras copia.

/F Muestra todo el origen y el destino de los nombres de archivo mientras se copian.

/L Muestra los archivos que serán copiados.

/G Permite la copia de archivos destino cifrados para el destino que no es compatible con el cifrado.

/H Copia archivos ocultos y también archivos del sistema.

/R Sobrescribe archivos de sólo-lectura.

/T Crea una estructura de directorio, pero no copia archivos. No incluye directorios o subdirectorios vacíos. /T /E incluye directorios y subdirectorios vacíos.

/U Copia sólo archivos que ya existen en el destino.

/K Copia atributos. Xcopy normal, restablecerá atributos de sólo lectura.

/N Copia utilizando los nombres cortos generados.

/0 Copia archivos de propiedad e información ACL.

/X Copia archivos de configuración de auditoría <implica /O).

/Y Suprime la pregunta de confirmación para sobrescribir un archivo

de destino existente.

/-Y Pregunta por la confirmación de sobrescritura de un archivo

de destino existente.

/Z Copia archivos de red en modo reiniciable .

El modificador /Y debe ser preestablecido en la variable de entorno COPYCMD.

Esto se puede sobrescribir con /-Y en la línea del comando.

EJEMPLO DE ARCHIVO BAT

XCOPY "D:\Pertsonalak\*.*" "x:\Backup\Pertsonalak\*.*" /M /E /R /H

XCOPY "D:\Irakasleak\*.*„ "x:\Backup\Irakasleak\*.*" /M /E /R /H

XCOPY "D:\Perfiles\*.* " "X: \Backup\Perfiles\*.*" /M /E /R /H

XCOPY "D:\Abies\Abies.mdb" 'X:\Backup\Abies\*.*” /M /R /H

XCOPY "D:\Pertsonalak\AD013157AA\abies20.*" "X:\Backup\Abies\*.*" /M /R /H

XCOPY "D:\Archivos compartidos\*.*" "X:\Backup\Archivos compartidos\*.*” /M /E /R /H

pause

¿Quieres ganar dinero sin hacer nada?

Registrate y podras conseguir dinero solo por recibir emails, practicamente sin hacer nada, no te lo pienses
Pincha aqui para registrarte en CLICXTI

Cambiar Key Windows 7 por linea de comandos

2013-10-10T01:53:00.000-07:00

Si queremos cambiar la key de nuestro windows 7 y no nos sale la opcion en las propiedades del equipo, existe otra manera un poco mas rebuscada. Os cuento los pasos a seguir:

1. Ir al menú Inicio, Todos los programas, Accesorios, hacer clic con el botón derecho sobre símbolo del sistema, ir a Ejecutar como administrador.

2. En la pantalla negra del Símbolo de Sistema escriba el comando: slmgr.vbs -ipk <su clave del producto>

3. Para activar Windows después del cambio de clave escriba el comando: slmgr.vbs -ato

Saludos.

Habilitar ad hoc distributed queries en Sql Server 2008 para poder acceder a base de datos externas.

2013-07-25T00:35:00.001-07:00

Puede pasar que alguna nos encontremos con que tenemos que acceder a una base de datos externa a Sql Server para poder trabajar con sus datos en algun procedimiento almacenado, por ejemplo.

Para ello primero necesitamos habilitar una opcion de la configuracion avanzada de Sql Server, que por defecto viene deshabilitada, llamada Ad Hoc Distributed Queries.

Para habilitarla creamos una nueva query , escribimos lo siguiente y la ejecutamos:

sp_configure 'show advanced options', 1;
RECONFIGURE;
sp_configure 'Ad Hoc Distributed Queries', 1;
RECONFIGURE;

Con esto ya podremos acceder a cualquier base de datos de la siguiente forma:

SELECT *

FROM OPENROWSET('Microsoft.Jet.OLEDB.4.0','\\Ruta de la base de datos .mdb';

'Admin','','SELECT * FROM CLIENTES')


De esta forma accedemos a una base de datos mdb.



Espero a alguien le sirva.

CAMBIAR DIRECCION IP A TRAVES DE UN FICHERO BAT

2013-05-27T04:15:00.001-07:00

Esto es útil por si trabajáis con el mismo pc en varias Redes o en diferentes lugares, donde tengáis que configurar direcciones IP estáticas y perdáis mucho tiempo en configurar.

Lo primero que tenemos que hacer es crearnos un fichero con extensión .bat, para ello creamos fichero .txt y escribimos lo siguiente para la dirección ip:

NETSH INTERFACE IPV4 SET ADDRESS NAME=<INDICE> STATIC <IP> <MASCARA> <PUERTA DE ENLACE>

Ejemplo:

netsh interface ipv4 set address name=13 static 199.5.84.103 255.255.255.0 199.5.84.242

Y para la DNS:

NETSH INTERFACE IPV4 SET DNS NAME=<INDICE> STATIC <IP>

Ejemplo:

netsh interface ipv4 set dns name=13 static 199.5.84.87

Si por el contrario queremos ponerlo en modo DHCP:

NETSH INTERFACE IPV4 SET ADDRESS NAME=<INDICE> DHCP
NETSH INTERFACE IPV4 SET DNS NAME=<INDICE> DHCP

Ejemplo:
netsh interface ipv4 set Address name=13 DHCP
netsh interface ipv4 set dns name=13 DHCP

Saludos.

HACHA. Programa para cortar y unir archivos de la forma 0001-002 ... 000N

2013-05-20T07:45:00.005-07:00

Hacha es un simple pero útil programa, muy fácil de usar.

Solo tiene tres opciones: Cortar, Pegar, y Salir.

Al cortar con Hacha, se nos brinda la posibilidad de escoger un tamaño para los cortes, un nombre, y opciones varias, como la carpeta de destino.

En Hacha todo se realiza desde una única ventana, sin florituras o enredo alguno. Hacha es uno de los mejores programas de este tipo, ya que ocupa poco y es muy rápido.

HP USB Disk Storage Format Tool.

2013-05-20T02:31:00.002-07:00

Hola buenas, hoy os voy a hablar sobre este pequeño gran programa.

Es una herramienta destinada al formateo de los discos rigidos, Con ella podrás formatear tus memorias o discos USB en formato FAT32 o NTFS.

A diferencia del asistente de Windows, HPv USB Disk Storage Format Tool puede formatear discos de tamaño superior a 32 GB como es el caso del FAT32.

En fin un programa muy util y que pesa muy poco.

Aqui os dejo el link de la descarga:

Saludos

¿Quieres ganar dinero sin hacer nada?

Registrate y podras conseguir dinero solo por recibir emails, practicamente sin hacer nada, no te lo pienses
Pincha aqui para registrarte en CLICXTI

Crear un acceso directo a una carpeta en red a traves VBS

2013-05-14T02:21:00.002-07:00

Por ejemplo si queremos crear una GPO para añadir de forma automatica accesos directos a carpetas compartidas en red en el escritorio de varios equipo podemos utilizar un script para llevarlo a cabo. Aqui os dejo el código utilizado:

set WshShell = WScript.CreateObject("WScript.Shell")

set objShell = CreateObject("Shell.Application")

'Nos ubicamos en el Escritorio

strDesktop = WshShell.SpecialFolders("Desktop")

set objFolder = objShell.NameSpace(strDesktop)

'Creamos el Folder

'objFolder.NewFolder "Mis Aplicaciones"

'Creamos el acceso directo

set oShellLink = WshShell.CreateShortcut(strDesktop & "\Nombre carpeta compartida en red.lnk")

oShellLink.TargetPath = "\\192.168.1.38\Nombre carpeta compartida en red\"

oShellLink.WindowStyle = 1

oShellLink.Description = "Acceso Directo a Nombre carpeta compartida en red"

oShellLink.WorkingDirectory = "\\192.168.1.38\Nombre carpeta compartida en red\"

oShellLink.Save

'se supone que la dirección 192.168.1.34 es el equipo que contiene la carpeta compartida.

Espero que haber podido ayudar a alguien.

Saludos.

2.4. Clase BaseDatos. Consultas.

2013-05-01T23:59:00.001-07:00

Ahora vamos a ver como podemos hacer consultas a la base de datos (inserciones, modificaciones, eliminaciones o consultas para traernos datos).

Primero vamos a ver como ejecutar consultas para inserciones, modificaciones o eliminaciones:

Public Function EjecutarConsulta(ByVal CadenaSql As String) As Boolean
        Try
            Me.CrearComando(CadenaSql, "S")
            Me.EjecutarComando()
            EjecutarConsulta = True
        Catch ex As Exception
            EjecutarConsulta = False
            Throw New BaseDatosException("ERROR :" & ex.Message & " BASEDATOS.EjecutarConsulta ", ex)
        End Try
    End Function

Esta funcion crea un comando que ejecutara la consulta en la Base de Datos.
Para utilizar esta funcion necesitamos dos funciones mas :

Private Sub CrearComando(ByVal CadenaSql As String, _
                             ByVal TipoConsulta As String)

        Try
            Select Case tipoBBDD
                Case BBDD.SQL : Me.Commando = New SqlCommand
                Case BBDD.ODBC : Me.Commando = New OdbcCommand
                Case BBDD.OLEDB : Me.Commando = New OleDbCommand
            End Select

            Me.Commando = _Factory.CreateCommand()
            Me.Commando.Connection = Me.Conexion
            Me.Commando.CommandTimeout = 99999999
            Select Case TipoConsulta
                Case "P" 'Procedimiento almacenado
                    Me.Commando.CommandType = CommandType.StoredProcedure

                Case "T"
                    Me.Commando.CommandType = CommandType.TableDirect

                Case Else 'Sentencia SQL
                    Me.Commando.CommandType = CommandType.Text
            End Select

            Me.Commando.CommandText = CadenaSql

            If Not Me.Transaccion Is Nothing Then
                Me.Commando.Transaction = Me.Transaccion
            End If

        Catch ex As Exception
            Throw New BaseDatosException("ERROR :" & ex.Message & " BASEDATOS.CrearComando ", ex)
        End Try

    End Sub

Private Sub EjecutarComando()
        Try
            Me.Commando.ExecuteNonQuery()
        Catch ex As Exception
            Throw New BaseDatosException("ERROR :" & ex.Message & " BASEDATOS.EjecutarComando ", ex)
        End Try

    End Sub

Si lo que queremos es hacer consultas para recuperar datos de la base de datos y tratarlos luego en nuestro programa tenemos varias opciones, podemos traernos en un DATAREADER, DATATABLE o en un DATASET. A mi me gusta mas recuperarlo en un DATATABLE pues a mi parecer es mas fácil tratar despues los datos.

Para poder utilizar las siguientes funciones debemos primero crear esta funcion, que dependiendo del tipo de Base de Datos que tengamos ejecutara la consulta de una manera o de otra.

Private Function EjecutarConsultaDataAdapter() As IDataAdapter
        Try
            Select Case tipoBBDD
                Case BBDD.SQL : EjecutarConsultaDataAdapter = New SqlDataAdapter(Me.Commando)
                Case BBDD.ODBC : EjecutarConsultaDataAdapter = New OdbcDataAdapter(Me.Commando)
                Case BBDD.OLEDB : EjecutarConsultaDataAdapter = New OleDbDataAdapter(Me.Commando)
                Case Else : Return Nothing
            End Select
        Catch ex As Exception
            Return Nothing
            Throw New BaseDatosException("ERROR :" & ex.Message & " BASEDATOS.EjecutarConsultaDataAdapter ", ex)
        End Try

    End Function

La siguiente funcion ejecuta una consulta (CadenaSQL) y devuelve el resultado en un DATATABLE (Tabla) que luego podemos tratar en la capa de NEGOCIO. TipoConsulta nos dice si se trata de una consulta o de un procedimiento Almacenado y con "HayParametros" le decimos si le pasamos parametros (solo en el caso de que estemos tratando con un procedimiento almacenado.

Public Function Dame_Datos_DT(ByVal CadenaSQL As String, _
                                  ByVal HayParametros As Boolean, _
                                  ByRef Tabla As DataTable, _
                                  ByVal TipoConsulta As String) As Boolean

        Dim arsDatos As IDataAdapter
        Dim datos As New DataSet
        Dim i As Integer = 0

        Try

            Select Case tipoBBDD
                Case BBDD.SQL : arsDatos = New SqlDataAdapter
                Case BBDD.ODBC : arsDatos = New OdbcDataAdapter
                Case BBDD.OLEDB : arsDatos = New OleDbDataAdapter
            End Select


            CrearComando(CadenaSQL, TipoConsulta)

            If HayParametros Then
                While i <= UBound(pParametros)
                    Me.Commando.Parameters.Add(pParametros(i))
                    i = i + 1
                End While
            End If

            arsDatos = Me.EjecutarConsultaDataAdapter()
            arsDatos.Fill(datos)
            Tabla = datos.Tables(0)

            If Tabla.Rows.Count > 0 Then
                Dame_Datos_DT = True
            Else
                Dame_Datos_DT = False
            End If

        Catch ex As Exception
            Dame_Datos_DT = False
            Throw New BaseDatosException("ERROR :" & ex.Message & " BASEDATOS.DameDatosDT ", ex)
        End Try
    End Function

La siguiente funcion Ejecuta una consulta (CadenaSQL) y devuelve los datos en un DATAADAPTER que luego podremos utilizar en la capa NEGOCIO.

Public Function Dame_Datos_DA(ByVal CadenaSQL As String, _
                                  ByVal HayParametros As Boolean, _
                                  ByVal TipoConsulta As String) As IDataAdapter
        Try
            Dim i As Integer = 0

            CrearComando(CadenaSQL, TipoConsulta)

            If HayParametros Then
                While i <= UBound(pParametros)
                    Me.Commando.Parameters.Add(pParametros(i))
                    i = i + 1
                End While
            End If

            Return Me.EjecutarConsultaDataAdapter()

        Catch ex As Exception
            Dame_Datos_DA = Nothing
            Throw New BaseDatosException("ERROR :" & ex.Message & " BASEDATOS.DameDatos_DA ", ex)
        End Try
    End Function

La siguiente funcion ejecuta una consulta (CadenaSQL) y devuelve los datos en un DATAREADER que luego podremos utilizar en la capa de NEGOCIO.

   Public Function Dame_Datos_DR(ByVal CadenaSQL As String, _
                                  ByVal HayParametros As Boolean, _
                                  ByVal TipoConsulta As String) As IDataReader
        Try
            Dim i As Integer = 0
            CrearComando(CadenaSQL, TipoConsulta)
            If HayParametros Then
                While i <= UBound(pParametros)
                    Me.Commando.Parameters.Add(pParametros(i))
                    i = i + 1
                End While
            End If

            Return Me.Commando.ExecuteReader()

        Catch ex As Exception
            Return Nothing
            Throw New BaseDatosException("ERROR :" & ex.Message & " BASEDATOS.DameDatosDR ", ex)
        End Try
    End Function

Nota: "HayParametros" le dice a la base de datos que el procedimiento almacenado lleva parametros.

Para poder pasar parametros debemos de utilizar la siguiente funcion:

Public Function Añadir_Parametro(ByVal Indice As Integer, _
                                 ByVal Nombre As String, _
                                 ByVal Tipo As String, _
                                 ByVal Valor As String) As Boolean
        Try

            ReDim Preserve pParametros(Indice)
            Select Case tipoBBDD
                Case BBDD.SQL
                    pParametros(Indice) = New SqlParameter
                Case BBDD.ODBC
                    pParametros(Indice) = New OdbcParameter
                Case BBDD.OLEDB
                    pParametros(Indice) = New OleDbParameter
            End Select

            pParametros(Indice).ParameterName = Nombre

            Select Case Tipo
                Case "L" 'Long
                    pParametros(Indice).DbType = DbType.Int64
                Case "D" 'Double
                    pParametros(Indice).DbType = DbType.Double
                Case "B" 'Bit- Booleano
                    pParametros(Indice).DbType = DbType.Boolean
                Case "DC" 'Decimal
                    pParametros(Indice).DbType = DbType.Decimal
                Case "DT" 'Datetime
                    pParametros(Indice).DbType = DbType.DateTime
                Case "S" 'String
                    pParametros(Indice).DbType = DbType.String
                Case "I" 'Integer
                    pParametros(Indice).DbType = DbType.Int32
                Case "SM" 'Smallint
                    pParametros(Indice).DbType = DbType.Int16
            End Select

            pParametros(Indice).Value = Valor
            Añadir_Parametro = True
        Catch ex As Exception
            Añadir_Parametro = False
            Throw New BaseDatosException("ERROR :" & ex.Message & " BASEDATOS.Añadir_Parametro ", ex)
        End Try

    End Function

Esta funcion debemos de llamarla antes que la funcion para devolver los datos de Base de Datos.
Ejemplo:

Datos.CGPO.Añadir_Parametro(0, "CodigoCliente", "I", 125)

Datos.CGPO.Dame_Datos_DT("pa_DameDatosCliente", True, TCliente, "P")

Aqui le estamos diciendo que le pasamos un parametro a la base de datos llamado "CodigoCliente" de tipo Entero "I" con valor 125 en el indice 0. Luego llamamos al procedimiento Almacenado "pa_DameDatosCliente", le decimos que tiene parametros y devolvemos los datos en un DATATABLE llamado TCliente. La "P" indica Procedimiento almacenado, para ver todos los tipos de consulta podeis ver la funcion CrearComando.

1.2. Referencias y dependencias entre proyectos

2013-05-01T23:57:00.001-07:00

Una vez que tenemos claro la estructura de nuestra solucion debemos crear las dependencias de cada proyecto y ver cual es nuestro proyecto de inicio.
Para ello debemos entender que el proyecto de presentacion "depende" directamente del proyecto de negocio y este a su vez depende del proyecto de Acceso a Datos. Para decirle esto a Visual Studio pinchamos con el boton derecho sobre el proyecto de presentacion y en el menu resultante pinchamos sobre "Dependencias del proyecto", la ventana resultante

Como podemos ver tenemos que marcar solamente el proyecto "Negocio" de nuestra solución Acceso a Datos no lo marcamos pues el flujo de datos debe de pasar antes por el proyecto Negocio. Esto nos ayudara luego a importar los proyectos entre ellos.
Hacemos la misma operación con el proyecto Negocio añadiendo la dependencia del proyecto "AccesoDatos".
Así mismo hay que añadir directamente las referencias de cada proyecto.
Si nos vamos al "My Project" del proyecto Presentacion y seleccionamos la pestaña Referencias se nos mostrara una ventana con todas las referencias asociadas al proyecto, como podeis ver, aunque hemos asignado la dependencia del proyecto Negocio no tenemos asignada la referencia.

Para ello pulsamos sobre el botón Agregar y seleccionamos en la ventana emergente la pestaña "Proyectos". Seleccionamos la referencia del proyecto Negocio y pulsamos Aceptar. La referencia se ha añadido.
Hacemos la misma operación con el MY PROJECT de Negocio y le añadimos la referencia del proyecto AccesoDatos.
De esta forma ya tendremos añadidas las referencias y dependencias entre proyectos de la solucion.

Nota:
Mas adelante os enseñare otra forma de meter referencias entre proyectos. Veremos que podemos crear una dll de un proyecto de una solucion en otra solucion como referencia.

2. Proyecto AccesoDatos

2013-05-01T23:53:00.003-07:00

Vamos a empezar primero con el proyecto de Acceso a Datos, puesto que es el proyecto del que dependen los demás proyectos y sobre el cual va a caer la responsabilidad de conectar y comunicarse directamente con la Base de Datos de nuestra aplicación.

Si nuestra aplicación no comunicara con una base de datos este proyecto no tendría ningún sentido.
La idea de este proyecto es que sea capaz de conectar con cualquier tipo de base de datos, independientemente de la cadena de conexión o a través de un ODBC, ¿por que? la respuesta es sencilla, este proyecto debe ser común para cualquier tipo de aplicación que creemos en el futuro.

Para ello crearemos dos clases en nuestro proyecto:

BaseDatos. Donde recaerá todo el peso del proyecto.
BaseDatosException. Encargada de transmitir mensajes de errores a los demás proyectos.

En los siguientes capítulos explicaremos que propiedades tendrán cada una de estas clases.

2.5.Clase BaseDatos. Ejecutar Procedimientos Almacenados.

2013-05-01T23:53:00.002-07:00

Para los que no sepais que es un procedimiento almacenado o PA, segun la definicion encontrada en la wikipedia:

"Un procedimiento almacenado (stored procedure en inglés) es un programa (o procedimiento) el cual es almacenado físicamente en una base de datos. Su implementación varía de un gestor de bases de datos a otro. La ventaja de un procedimiento almacenado es que al ser ejecutado, en respuesta a una petición de usuario, es ejecutado directamente en el motor de bases de datos"

Es decir, sirver para hacer que las consultas a base de datos sean mas rapidas que una consulta normal, ya que esta directamente conectado con la base de datos.

Así que nuestra clase también debe de tener una función que sea capaz de ejecutar un PA alojado en la base de datos que estamos conectada.
Para ello utilizamos la siguiente función:

Public Function Ejecutar_PA(ByVal NombreProcedimiento As String, _
                            ByVal HayParametros As Boolean) As Boolean
        'Esta instancia ejecuta un procedimiento almacenado INSERT, DELETE o UPDATE
        Try
            Dim i As Integer = 0

            CrearComando(NombreProcedimiento, "P")
            If HayParametros Then
                While i <= UBound(pParametros)
                    Me.Commando.Parameters.Add(pParametros(i))
                    i = i + 1
                End While
            End If

            If Me.Commando.ExecuteNonQuery() = 0 Then
                Ejecutar_PA = False
            Else
                Ejecutar_PA = True
            End If

        Catch ex As Exception
            Ejecutar_PA = False
            Throw New BaseDatosException("ERROR :" & ex.Message & " BASEDATOS.EjecutarPA ", ex)
        End Try

    End Function

Lo único que le pasamos a la función es el nombre del procedimiento y si le hemos pasado parámetros antes de la llamada, recordad que tenéis que pasárselo antes de la llamada con la función AñadirParametro.

2.3.Clase Base Datos. Transacciones

2013-05-01T09:50:00.001-07:00

Como sabéis en base de datos las transacciones tiene muy buen uso, pues te permite hacer todo tipo de pruebas a las base de datos y poder "retroceder" si algo ha salido mal. Hay 3 tipos de transacciones:

BeginTrans. Es cuando empieza la transacción. Todo lo que este después de aquí se ejecutara en modo de prueba.
Commit. Si todo lo que hemos programado ha salido correcto y no ha habido errores debemos de lanzar este comando a la Base de Datos, que hará que los cambios tengan efecto.
RollBack. Si se produce un error durante la ejecución debemos de lanzar este comando a la Base de Datos, de tal forma que todos los cambios producidos en base de datos desde el BeginTrans no tengan efecto.

En la clase Base de Datos que estamos creando lo haremos de esta manera:

Public Sub ComenzarTransaccion()
        If Me.Transaccion Is Nothing Then
            Me.Transaccion = Me.Conexion.BeginTransaction()
        End If
    End Sub

    Public Sub CancelarTransaccion()
        If Not Me.Transaccion Is Nothing Then
            Me.Transaccion.Rollback()
        End If
    End Sub

    Public Sub ConfirmarTransaccion()
        If Not Me.Transaccion Is Nothing Then
            Me.Transaccion.Commit()
        End If
    End Sub