Vaya tools te sacas de la manga siempre!...

Me he cambiado a OpenDNS, y nada, si estás tán seguro que debe ser un fallo del ISP tendré que llamar a los de ONO a ver que me dicen...


Si te cuento lo que opino de Telefónica aka Movistar...

He tenido ADSL de Telefónica y cada 5 min reiniciaban la IP del router (no exagero, CADA 5 MINUTOS), así que prácticamente era imposible navegar o descargar algo sin usar programas como JD, por muchas quejas que hicimos a la atención al cliente nunca lo llegaron a solucionar, y además la velocidad de descarga no era la que debía ser...
...en fín siempre me ha parecido una basura Telefónica y todas sus marcas.

Suerte!...

Al conectar mi adaptador de red (cable), después de unos minutos la conexión se vuelve increiblemente lenta, de la típica velocidad de descarga que tengo sobre los 1,80mb/s va descendiendo hasta la mitad y a veces hasta los 200-300 kb incluso hasta los 100kb/s de media... al rato.

Si desconecto y vuelvo a conectar el router pues puedo descargar a velocidad normal (1,90 mb/s), pero como he dicho, solo dura unos pocos minutos...

He testeado la velocidad descargando archivos directos de uploaded.net (soy premium) y de ISO's de la web de Microsoft y archivos de otros sitios, descargando diréctamente desde Firefox como desde el JDownloader, y aparte los tests online de velocidad también me dan el mismo resultado...

Esto me pasa desde hace una o dos semanas, durante ese tiempo he reinstalado Windows 8 y me sigue pasando lo mismo...

No tengo ninguna conexión remota extraña (Lo he mirado con TCPView)

Tampoco tengo ningún proceso extraño corriendo.

Los drivers de Ethernet son los correctos, siempre he dejado elegir a Windows los drivers, ningún problema con eso.

El solucionador de problemas de internet de Windows me dice que todo va perfecto (mis cojones...)

Un escaneo con el Kaspersky TDSSKiller no me encuentra nada.

El Spybot search&Destroy tampoco encuentra nada.

Y un escaneo profundo con el NOD32 tampoco encuentra nada.

Aparte tengo el Firewall de Windows activado y no me ha advertido de nada hasta el momento.

Y hmmm... Tengo el Defender desactivado.

He probado a usar las DNS ipv4 de Google aunque no creo que esto tenga mucho que ver...pura desesperación...

Y he probado a desactivar el límite QoS del sistema, pero nada...

En fín no entiendo que puede ser...

He llegado a pensar que podría ser un problema del nodo pero imagino que si fuese eso en estas dos semanas ya alguien habría reportado el problema a los de ONO...

Lo más extraño es que a horas muy tempranas o muy nocturnas el problema desaparece como por arte de mágia...

Ya no sé que programa puedo usar para comprobar si todo está bien o si alguien me está chupando banda ancha...

¿Alguien tiene alguna sugerencia antes de llamar al apestoso soporte técnico de mi compañia para que me digan cosas absurdas que ya he probado?

Un saludo.

Tengo una fuga de memória grave en una aplicación, y es debido a una Class de terceros que estoy usando...

Este simple código aloja entre 100-200kb de RAM cada segundo

Public Class Form1
 
    Dim isbinded As Boolean = False
    Dim Winamp As clsWACC = New clsWACC
    Dim WithEvents mytimer As New Timer With {.Interval = 50, .Enabled = True}
 
    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles mytimer.Tick
        isbinded = Winamp.Bind()
        ' Label1.Text = isbinded
        ' isbinded = Nothing
    End Sub
 
End Class

Necesito usar un Timer rápido de menos de 50 ms, pero simplemente por curiosidad si aumento el Timer a 1000 ms la ram sigue subiendo sin pausa, aunque sube sólo 8 kb cada segundo.

He intentado examinar y corregir la Class pero no encuentro el fallo, esta es la parte de la Class que manipula el code de arriba:

        Public Sub New(ByVal handle As IntPtr, ByVal str As String)
            'opens the process
            hWinamp = OpenProcess(DAccess.PROCESS_ALL_ACCESS, False, waPID)
            'If hWinamp.Equals(IntPtr.Zero) Then
            '    'exception
            'End If
 
            remStr = str
            remoteBuf = AllocWinamp(handle, Convert.ToUInt32(str.Length + 1))
            Dim localBuf As IntPtr = Marshal.StringToHGlobalAnsi(str)
 
            WriteProcessMemory(hWinamp, remoteBuf, localBuf, str.Length + 1, Nothing)
            Marshal.FreeHGlobal(localBuf)
        End Sub

    Dim path As String = Nothing
    Dim regKey As RegistryKey = Registry.CurrentUser.OpenSubKey("Software\Winamp", False)
 
   'Binds to WinAmp
    Public Function Bind() As Boolean
        Return Bind("")
    End Function
 
    Public Function Bind(ByVal PathToExecutable As String) As Boolean
        hWnd_Winamp = WinAPI.FindWindow(lpClassName, Nothing)
 
        'waProcess = New Process
        waProcess.EnableRaisingEvents = True
 
        'If WinAmp window handle not found, try to launch it
        If hWnd_Winamp.Equals(IntPtr.Zero) Then
 
            'if path was not specified, try to find it in the Windows registry
            If PathToExecutable = "" Then
                'Dim path As String
                'regKey = Registry.CurrentUser
                'regKey = regKey.OpenSubKey("Software\Winamp", False)
                If regKey IsNot Nothing Then
                    path = Convert.ToString(regKey.GetValue(""))
                    waProcess.StartInfo.FileName = path & "\Winamp.exe"
                    regKey.Close()
                Else
                    Return False
                End If
            Else
                waProcess.StartInfo.FileName = PathToExecutable
            End If
 
            Try
                waProcess.Start()
            Catch ex As System.ComponentModel.Win32Exception When ex.ErrorCode = -2147467259
                Debug.WriteLine("Executable not found")
                Return False
            Catch ex As Exception
                Debug.WriteLine("unknown exception")
                Return False
            End Try
 
            waProcess.WaitForInputIdle()
            hWnd_Winamp = waProcess.MainWindowHandle()
            waPID = waProcess.Id
        Else
 
            'WinAmp handle found
            'now bind to WinAmp process
            'get PID from hWnd
 
            WinAPI.GetWindowThreadProcessId(hWnd_Winamp, waPID)
            If waPID = 0 Then
                Return False
            End If
 
            waProcess = Process.GetProcessById(waPID)
            waProcess.EnableRaisingEvents = True
 
            hWnd_Playlist = GetHWND(WinampWindow.Playlist)
            hWnd_Equalizer = GetHWND(WinampWindow.Equalizer)
            hWnd_Video = GetHWND(WinampWindow.Video)
            Return True
 
        End If
 
        'if hWnd of the main window is still zero,
        'it was not possible to launch or bind to WinAmp
        If hWnd_Winamp.Equals(IntPtr.Zero) Then
            Return False
        Else
            hWnd_Playlist = GetHWND(WinampWindow.Playlist)
            hWnd_Equalizer = GetHWND(WinampWindow.Equalizer)
            hWnd_Video = GetHWND(WinampWindow.Video)
            Return True
        End If
    End Function

Pero la primera condición no se cumple, es decir, solo se manipula esta parte de la función Bind:

        If hWnd_Winamp.Equals(IntPtr.Zero) Then
             ' NADA
        Else
 
            'WinAmp handle found
            'now bind to WinAmp process
            'get PID from hWnd
 
            WinAPI.GetWindowThreadProcessId(hWnd_Winamp, waPID)
            If waPID = 0 Then
                Return False
            End If
 
            waProcess = Process.GetProcessById(waPID)
            waProcess.EnableRaisingEvents = True
 
            hWnd_Playlist = GetHWND(WinampWindow.Playlist)
            hWnd_Equalizer = GetHWND(WinampWindow.Equalizer)
            hWnd_Video = GetHWND(WinampWindow.Video)
            Return True
 
        End If

hWnd_Winamp es un IntPtr
waProcess es un Process (el cual he probado a liberarlo pero sigue pasando lo mismo...)
waPID es un Integer
hWnd_Playlist es un IntPtr
hWnd_Equalizer es un IntPtr
hWnd_Video es un IntPtr

...y GetWindowThreadProcessId es esta función:

        '========================                        =========================
        '======================  GetWindowThreadProcessId  =======================
        '========================                        =========================
        'Retrieves the identifier of the thread that created the specified window 
        'and, optionally, the identifier of the process that created the window.
        <DllImport("user32.dll", SetLastError:=True)> _
        Public Shared Function GetWindowThreadProcessId( _
                                        ByVal hwnd As IntPtr, _
                                        ByRef lpdwProcessId As Integer) As Int32
        End Function

y esta la función GetHWND:

    Private Shared Function GetHWND(ByVal Window As WinampWindow) As IntPtr
        Return SendWA_IPC(Window, Message.IPC_GETWND)
    End Function
 
    Private Shared Function SendWA_IPC(ByVal param As Int64, ByVal MessageName As Message) As IntPtr
        Return WinAPI.SendMessage(hWnd_Winamp, WinAPI.Msg.WM_USER, IntPtr.op_Explicit(param), IntPtr.op_Explicit(MessageName))
    End Function
 
        '===============================           ===============================
        '=============================  SendMessage  =============================
        '===============================           ===============================
        'Sends the specified message to a window or windows. It calls the window 
        'procedure for the specified window and does not return until the window 
        'procedure has processed the message.
        <DllImport("user32.dll", SetLastError:=True, CharSet:=CharSet.Auto)> _
        Public Shared Function SendMessage(ByVal hWnd As IntPtr, _
                                           ByVal Msg As Msg, _
                                           ByVal wParam As IntPtr, _
                                           ByVal lParam As IntPtr) As IntPtr
        End Function

¿Alguna sugerencia?

Gracias...

No sé ni para que me molesto en explicarte técnicas de simplificación de código si sigues haciendo lo mismo con el streamwritter, y todas las variables e if's que hay alrededor...

¿No entiendes que todo ese código que repites 100 veces lo puedes usar para todos los Cases sin tener que repetirlo dentro de cada Case?

EDITO: de 78 lineas (sin simplificar) has pasado a 358 (igual)

Cada uno que programe como quiera... eres libre, pero yo por mi parte me rindo, no aporto más a este tema,
saludos!

No entiendo tu pregunta (para variar), pero si te lo pongo es por algo.

el código que está fuera del select case sucede independientemente de las condiciones que se hayan dado... así que si el valor se ha reemplazado pues mostrará el msgbox...
... y al final del bloque siempre se reinicia la variable a False, así que...no hay problemas...

practícalo un poco....

saludos

Repites en 24 lineas exáctamente el mismo código...

Dim IsValueReplaced as boolean = false
 
private sub ()...
 
 Select Case True
 
     Case loquesea
         IsValueReplaced = true
         Dim Resultado = String.Format("'{0}'", Result.Substring(1, Result.Length - 2).Replace("'", "\'"))
         MsgBox(Resultado)
 
     Case loquesea 2
         IsValueReplaced = true
         Dim Resultado As String = String.Format("'{0}", Result.Substring(1, Result.Length - 1).Replace("'", "\'"))
         MsgBox(Resultado & "'")
 
     Case loquesea 3
         IsValueReplaced = true
         Dim Resultado As String = Result.Replace("'", "\'")
         MsgBox("'" & Resultado)
 
    ' More Cases...
 
     Case Else
         MsgBox(Result)
 
 End Select
 
    If IsValueReplaced Then MessageBox.Show("Msg: #1 (String Cambiada)", "Información", MessageBoxButtons.OK, MessageBoxIcon.Information, MessageBoxDefaultButton.Button1)
 
    IsValueReplaced = false
 
end sub

Saludos

No parece que se puedan comprar desde la web del fabricante.

No los encuentro ni en Amazon, ni en Ebay, ni puedo comprarlos desde la web de bequiet...

...Pero estos alemanes hacen un unboxing de esos cables y dicen el precio, así que vender ...se venden en alguna parte:



joder, ¿Alguien sabe donde se pueden comprar?

Los cables de datos también son nuevos e intento que no se tuerzan mucho para que no se dañen, todas las piezas del PC tienen el mismo tiempo, no entiendo porque me pasan estas cosas


SmartDefrag me dice que no es necesario desfragmentar, todos los discos tienen menos del 1% de fragmentación.

El disco principal está recien formateado (formateo rápido) y con Windows 8 reinstalado,
tengo 3 discos de almacenamiento conectados en un cable, y el disco principal lo tengo conectado por separado en un sólo cable, pero a veces hay como unos pequeños cuelgues en el SO que duran sobre 30 segundos... y eso me preocupa, los cuelgues suceden incluso con los hdd's secundarios desconectados de la fuente y solo el disco principal conectado... así que no se si si será problema de la fuente...no se que pensar ya.


La fuente de alimentación la puedes ver arriba, según tengo entendido es buena, Aprendiz-Oscuro me dijo que con esa fuente habia potencia de sobra para correr 3 o 4 HDD's

Saludos

Hola

Gracias pero no, no se parece en nada, el que necesito es como los cables que están abajo a la derecha en esta imágen:

Hola

Tengo un cable como este donde tengo conectado el disco duro principal (Windows), y un disco duro secundario de almacenamiento:



El disco duro principal es un WD Black, y el secundario un WD Green, los dos tienen menos de 5 meses.

El problema es que si intento copiar un archivo pesado o muchos archivos sueltos desde el disco principal al secundario, la velocidad de transferencia va disminuyendo hasta quedarse sobre los 522 kb/s (juas), y jamás vuelve a subir la tasa ni a continuar el copiado, simplemente se ralentiza la velocidad de transaferencia y ahi se queda, sin moverse y sin terminar de copiarse el archivo, obligándome a reiniciar, porque si intento seguir copiando otro archivo distinto no me va a dejar hasta que reinicie.

EDITO: De hecho... más bien tengo que apagar el equipo cuando me pasa eso, porque una vez reinicié después de un intento de copiado y al loguearme en Windows el HDD secundario NO SE RECONOCIA por el sistema, habia desaparecido vaya!... hasta que apagué bien el PC y lo volví a encender. Pero el disco secundario no tiene ningún tipo de problema, si hago la prueba con otro HDD secundario me pasa lo mismo, se vuelven "invisibles" xD.

Ahora viene lo más extraño de todo para mi...

Colocamos otro cable como estos en la fuente:



y ahora, en el primer cable dejamos conectado el disco principal, y en este nuevo cable conectamos el disco seundario... de esta manera todo va como la seda al transferir archivos desde el disco principal.

Aunque no soy técnico creo que el experimento demuestra que no se trata de un fallo de hardware (de los HDD al menos no)

Tengo 4 HDD's y solo dos cables, así que necesito conectar un HDD junto al HDD principal...y esa idea no me gusta nada porque me da miedo perder datos del HDD principal o del HDD que esté conectado juno a él cuando vaya a intentar transferir archivos desde el HDD principal.

No entiendo mucho sobre el flujo de datos compartidos al conectar dos HDD's en el mismo cable como el de la imágen... pero pienso que si eso se puede conectar así es porque no deberían ocurrir problemas...

¿Que conflicto puede estar causando que cuando tengo 2 HDD's conectados en el mismo cable me de estos problemas?

· Debo decir que si copio archivos desde el disco secundario al disco principal no hay ningún tipo de problemas, tanto si estan los dos HDD conectados al mismo cable como si están "separados".

· Los cables son nuevecitos también...

· La fuente de alimentación es esta -> Be Quiet Pure Power L8 CM 630W Modular

· Esto me pasa desde que tengo instalado Windows 8 xD, aunque no creo que esa sea la razón... en mi antiguo PC con Windows 7 también me empezó a pasar y fue uno de los motivos por los que me actualicé el PC...

En fín, necesito ayuda y opiniones...

Un saludo!