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


Tema destacado: Guía actualizada para evitar que un ransomware ataque tu empresa


  Mostrar Mensajes
Páginas: 1 ... 847 848 849 850 851 852 853 854 855 856 857 858 859 860 861 [862] 863 864 865 866 867 868 869 870 871 872 873 874 875 876 877 ... 1254
8611  Sistemas Operativos / Windows / Re: internet virus en: 4 Agosto 2013, 20:37 pm
(No es necesario que hagas doble post para comentar el mismo problema...)


Si no tienes un AntiVirus instálate el Avira o el NOD32, y pásale un "escaneo profundo" a tu PC para desinfectar ese "Download.exe" en caso de que lo hayas ejecutado.

Después de eso renombra o elimina (como prefieras) la carpeta de tu perfil de usuario de Firefox para que los cambios sospechosos que se hayan hecho en tu perfil no sucedan más, o en su defecto haz una reinstalación LIMPIA de Firefox (Primero desinstalas Firefox junto a los perfiles guardados y luego instalas la última versión de Firefox 22.0, para que no siga usando la configuración de tu perfil de usuario).

PD: Tu perfil lo puedes encontrar aquí:
Código:
C:\Users\Administrador\AppData\Roaming\Mozilla\Firefox\Profiles

Saludos...
8612  Comunicaciones / Redes / Re: Problema con velocidad de banda ancha reducida en: 4 Agosto 2013, 20:25 pm
nukes y por curiosidad con q ISP te pasa eso? ONO tambien?
8613  Comunicaciones / Redes / Re: Problema con velocidad de banda ancha reducida en: 4 Agosto 2013, 20:07 pm
puedes usar namebench:

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...

mi internet es Movistar Movil de Banda Ancha y solo logro conexiones de mas de 1 mega en las madrugadas, por eso soy un madrugador

He probado todos los trucos posibles para darle una velocidad decente durante los días, pero nada ha funcionado...

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!...
8614  Comunicaciones / Redes / ONO, ¿mi opinión?... ESTAFADORES en: 4 Agosto 2013, 18:18 pm
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? :P

Un saludo.
8615  Programación / .NET (C#, VB.NET, ASP) / (SOLUCIONADO) Fuga de memória en una función :( en: 4 Agosto 2013, 15:01 pm
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 :(

Código
  1. Public Class Form1
  2.  
  3.    Dim isbinded As Boolean = False
  4.    Dim Winamp As clsWACC = New clsWACC
  5.    Dim WithEvents mytimer As New Timer With {.Interval = 50, .Enabled = True}
  6.  
  7.    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles mytimer.Tick
  8.        isbinded = Winamp.Bind()
  9.        ' Label1.Text = isbinded
  10.        ' isbinded = Nothing
  11.    End Sub
  12.  
  13. 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:

Código
  1.        Public Sub New(ByVal handle As IntPtr, ByVal str As String)
  2.            'opens the process
  3.            hWinamp = OpenProcess(DAccess.PROCESS_ALL_ACCESS, False, waPID)
  4.            'If hWinamp.Equals(IntPtr.Zero) Then
  5.            '    'exception
  6.            'End If
  7.  
  8.            remStr = str
  9.            remoteBuf = AllocWinamp(handle, Convert.ToUInt32(str.Length + 1))
  10.            Dim localBuf As IntPtr = Marshal.StringToHGlobalAnsi(str)
  11.  
  12.            WriteProcessMemory(hWinamp, remoteBuf, localBuf, str.Length + 1, Nothing)
  13.            Marshal.FreeHGlobal(localBuf)
  14.        End Sub

Código
  1.    Dim path As String = Nothing
  2.    Dim regKey As RegistryKey = Registry.CurrentUser.OpenSubKey("Software\Winamp", False)
  3.  
  4.   'Binds to WinAmp
  5.    Public Function Bind() As Boolean
  6.        Return Bind("")
  7.    End Function
  8.  
  9.    Public Function Bind(ByVal PathToExecutable As String) As Boolean
  10.        hWnd_Winamp = WinAPI.FindWindow(lpClassName, Nothing)
  11.  
  12.        'waProcess = New Process
  13.        waProcess.EnableRaisingEvents = True
  14.  
  15.        'If WinAmp window handle not found, try to launch it
  16.        If hWnd_Winamp.Equals(IntPtr.Zero) Then
  17.  
  18.            'if path was not specified, try to find it in the Windows registry
  19.            If PathToExecutable = "" Then
  20.                'Dim path As String
  21.                'regKey = Registry.CurrentUser
  22.                'regKey = regKey.OpenSubKey("Software\Winamp", False)
  23.                If regKey IsNot Nothing Then
  24.                    path = Convert.ToString(regKey.GetValue(""))
  25.                    waProcess.StartInfo.FileName = path & "\Winamp.exe"
  26.                    regKey.Close()
  27.                Else
  28.                    Return False
  29.                End If
  30.            Else
  31.                waProcess.StartInfo.FileName = PathToExecutable
  32.            End If
  33.  
  34.            Try
  35.                waProcess.Start()
  36.            Catch ex As System.ComponentModel.Win32Exception When ex.ErrorCode = -2147467259
  37.                Debug.WriteLine("Executable not found")
  38.                Return False
  39.            Catch ex As Exception
  40.                Debug.WriteLine("unknown exception")
  41.                Return False
  42.            End Try
  43.  
  44.            waProcess.WaitForInputIdle()
  45.            hWnd_Winamp = waProcess.MainWindowHandle()
  46.            waPID = waProcess.Id
  47.        Else
  48.  
  49.            'WinAmp handle found
  50.            'now bind to WinAmp process
  51.            'get PID from hWnd
  52.  
  53.            WinAPI.GetWindowThreadProcessId(hWnd_Winamp, waPID)
  54.            If waPID = 0 Then
  55.                Return False
  56.            End If
  57.  
  58.            waProcess = Process.GetProcessById(waPID)
  59.            waProcess.EnableRaisingEvents = True
  60.  
  61.            hWnd_Playlist = GetHWND(WinampWindow.Playlist)
  62.            hWnd_Equalizer = GetHWND(WinampWindow.Equalizer)
  63.            hWnd_Video = GetHWND(WinampWindow.Video)
  64.            Return True
  65.  
  66.        End If
  67.  
  68.        'if hWnd of the main window is still zero,
  69.        'it was not possible to launch or bind to WinAmp
  70.        If hWnd_Winamp.Equals(IntPtr.Zero) Then
  71.            Return False
  72.        Else
  73.            hWnd_Playlist = GetHWND(WinampWindow.Playlist)
  74.            hWnd_Equalizer = GetHWND(WinampWindow.Equalizer)
  75.            hWnd_Video = GetHWND(WinampWindow.Video)
  76.            Return True
  77.        End If
  78.    End Function

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

Código
  1.        If hWnd_Winamp.Equals(IntPtr.Zero) Then
  2.             ' NADA
  3.        Else
  4.  
  5.            'WinAmp handle found
  6.            'now bind to WinAmp process
  7.            'get PID from hWnd
  8.  
  9.            WinAPI.GetWindowThreadProcessId(hWnd_Winamp, waPID)
  10.            If waPID = 0 Then
  11.                Return False
  12.            End If
  13.  
  14.            waProcess = Process.GetProcessById(waPID)
  15.            waProcess.EnableRaisingEvents = True
  16.  
  17.            hWnd_Playlist = GetHWND(WinampWindow.Playlist)
  18.            hWnd_Equalizer = GetHWND(WinampWindow.Equalizer)
  19.            hWnd_Video = GetHWND(WinampWindow.Video)
  20.            Return True
  21.  
  22.        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:

Código
  1.        '========================                        =========================
  2.        '======================  GetWindowThreadProcessId  =======================
  3.        '========================                        =========================
  4.        'Retrieves the identifier of the thread that created the specified window
  5.        'and, optionally, the identifier of the process that created the window.
  6.        <DllImport("user32.dll", SetLastError:=True)> _
  7.        Public Shared Function GetWindowThreadProcessId( _
  8.                                        ByVal hwnd As IntPtr, _
  9.                                        ByRef lpdwProcessId As Integer) As Int32
  10.        End Function


y esta la función GetHWND:
Código
  1.    Private Shared Function GetHWND(ByVal Window As WinampWindow) As IntPtr
  2.        Return SendWA_IPC(Window, Message.IPC_GETWND)
  3.    End Function
  4.  
  5.    Private Shared Function SendWA_IPC(ByVal param As Int64, ByVal MessageName As Message) As IntPtr
  6.        Return WinAPI.SendMessage(hWnd_Winamp, WinAPI.Msg.WM_USER, IntPtr.op_Explicit(param), IntPtr.op_Explicit(MessageName))
  7.    End Function
  8.  
  9.        '===============================           ===============================
  10.        '=============================  SendMessage  =============================
  11.        '===============================           ===============================
  12.        'Sends the specified message to a window or windows. It calls the window
  13.        'procedure for the specified window and does not return until the window
  14.        'procedure has processed the message.
  15.        <DllImport("user32.dll", SetLastError:=True, CharSet:=CharSet.Auto)> _
  16.        Public Shared Function SendMessage(ByVal hWnd As IntPtr, _
  17.                                           ByVal Msg As Msg, _
  18.                                           ByVal wParam As IntPtr, _
  19.                                           ByVal lParam As IntPtr) As IntPtr
  20.        End Function


¿Alguna sugerencia?

Gracias...
8616  Programación / .NET (C#, VB.NET, ASP) / Re: Problema con IsMatch en Regex en: 3 Agosto 2013, 14:56 pm
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!
8617  Programación / .NET (C#, VB.NET, ASP) / Re: Problema con IsMatch en Regex en: 3 Agosto 2013, 14:34 pm
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
8618  Programación / .NET (C#, VB.NET, ASP) / Re: Problema con IsMatch en Regex en: 3 Agosto 2013, 14:12 pm
Yo he usado un If, si quieres mejorar mi Snippet... Pues mejor... :P

Usa un Boolean y cambia al estado True/False cuando reemplazes, así sabrás si has reemplazado o no lo has hecho...

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

Código
  1. Dim IsValueReplaced as boolean = false
  2.  
  3. private sub ()...
  4.  
  5. Select Case True
  6.  
  7.     Case loquesea
  8.         IsValueReplaced = true
  9.         Dim Resultado = String.Format("'{0}'", Result.Substring(1, Result.Length - 2).Replace("'", "\'"))
  10.         MsgBox(Resultado)
  11.  
  12.     Case loquesea 2
  13.         IsValueReplaced = true
  14.         Dim Resultado As String = String.Format("'{0}", Result.Substring(1, Result.Length - 1).Replace("'", "\'"))
  15.         MsgBox(Resultado & "'")
  16.  
  17.     Case loquesea 3
  18.         IsValueReplaced = true
  19.         Dim Resultado As String = Result.Replace("'", "\'")
  20.         MsgBox("'" & Resultado)
  21.  
  22.    ' More Cases...
  23.  
  24.     Case Else
  25.         MsgBox(Result)
  26.  
  27. End Select
  28.  
  29.    If IsValueReplaced Then MessageBox.Show("Msg: #1 (String Cambiada)", "Información", MessageBoxButtons.OK, MessageBoxIcon.Information, MessageBoxDefaultButton.Button1)
  30.  
  31.    IsValueReplaced = false
  32.  
  33. end sub


Saludos
8619  Informática / Hardware / Re: Comprar cable fuente de alimentación en: 3 Agosto 2013, 13:57 pm
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? :(
8620  Informática / Hardware / Re: Ralentización máxima en la velocidad de transfernecia de un HDD en: 3 Agosto 2013, 13:38 pm
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 :(

No sera tal vez que estén muy fragmentados los discos?...

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.

tal vez si sea el problema de los cables que muestras pero debido a que la fuente de poder no es lo suficientemente potente para mover ambos discos duros...

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
Páginas: 1 ... 847 848 849 850 851 852 853 854 855 856 857 858 859 860 861 [862] 863 864 865 866 867 868 869 870 871 872 873 874 875 876 877 ... 1254
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines