Mensajes

Asumo que por variable te estás refiriendo a un Array de enteros, ¿has leido mi última respuesta en este hilo?, ahí te expliqué como hacerlo, y de varias maneras...

Si no es eso lo que quieres hacer entonces yo no me estoy enterando (para variar...)

Saludos

Que si hombre lo que paso es que solo vi lo de Lekim ,tenia un ojo en el visual y otro aca no lo vi bien jeje como siempre gracias Elektro

Clausurado este post jejje hasta la siguiente pregunta 


Luis

Lo que no entiendo es por qué no usas este otro código que te pasó Elektro y que modifiqué para 6 números y para que no hubieran correlativos.

Todas las combinaciones:

Código (vbnet) [Seleccionar] Expandir


       Dim intCol As New List(Of Integer)({1, 2, 3, 4, 5, 6, 7, 8, 9, 10}.OfType(Of Integer))

       Dim pairsCol As IEnumerable(Of String) = Nothing

       pairsCol =
           From value1 As Integer In intCol
           From value2 As Integer In intCol
           From value3 As Integer In intCol
           From value4 As Integer In intCol
           From value5 As Integer In intCol
           Select String.Join(Environment.NewLine, (
                              From value6 As Integer In intCol
                                 Where (value1 <> value2) AndAlso
                                       (value1 <> value3) AndAlso
                                       (value1 <> value4) AndAlso
                                       (value1 <> value5) AndAlso
                                       (value1 <> value6) AndAlso
                                       (value2 <> value3) AndAlso
                                       (value2 <> value4) AndAlso
                                       (value2 <> value5) AndAlso
                                       (value2 <> value6) AndAlso
                                       (value3 <> value4) AndAlso
                                       (value3 <> value5) AndAlso
                                       (value3 <> value6) AndAlso
                                       (value4 <> value5) AndAlso
                                       (value4 <> value6) AndAlso
                                        (value5 <> value6) AndAlso
                                       (value2 > value1) AndAlso
                                       (value3 > value2) AndAlso
                                       (value4 > value3) AndAlso
                                       (value5 > value4) AndAlso
                                       (value6 > value5)
                                 Select String.Format("{0:00} {1:00} {2:00} {3:00} {4:00} {5:00}",
                                                      value1, value2, value3, value4, value5, value6)))


       For Each pairs As String In pairsCol
           For Each line As String In pairs.Split({Environment.NewLine}, StringSplitOptions.RemoveEmptyEntries)
               ListBox1.Items.Add(line)
           Next line

       Next pairs





Combinaciones SIN todos los  números correlativos

Código (vbnet) [Seleccionar] Expandir

     Dim intCol As New List(Of Integer)({1, 2, 3, 4, 5, 6, 7, 8, 9, 10}.OfType(Of Integer))

       Dim pairsCol As IEnumerable(Of String) = Nothing

       pairsCol =
From value1 As Integer In intCol
From value2 As Integer In intCol
From value3 As Integer In intCol
From value4 As Integer In intCol
From value5 As Integer In intCol
Select String.Join(Environment.NewLine, (
             From value6 As Integer In intCol
                Where (value1 <> value2) AndAlso
                      (value1 <> value3) AndAlso
                      (value1 <> value4) AndAlso
                      (value1 <> value5) AndAlso
                      (value1 <> value6) AndAlso
                      (value2 <> value3) AndAlso
                      (value2 <> value4) AndAlso
                      (value2 <> value5) AndAlso
                      (value2 <> value6) AndAlso
                      (value3 <> value4) AndAlso
                      (value3 <> value5) AndAlso
                      (value3 <> value6) AndAlso
                      (value4 <> value5) AndAlso
                      (value4 <> value6) AndAlso
                       (value5 <> value6) AndAlso
                      (value2 > value1) AndAlso
                      (value3 > value2) AndAlso
                      (value4 > value3) AndAlso
                      (value5 > value4) AndAlso
                      (value6 > value5)
                Select String.Format("{0:00} {1:00} {2:00} {3:00} {4:00} {5:00}",
                                     value1, value2, value3, value4, value5, value6)))


       For Each pairs As String In pairsCol
           For Each line As String In pairs.Split({Environment.NewLine}, StringSplitOptions.RemoveEmptyEntries)
               Dim Pattern As String = " "
               Dim Digito() As String
               Digito = System.Text.RegularExpressions.Regex.Split(line, Pattern)
   
                       If CInt(Digito(1)) <> CInt(Digito(0)) + 1 Or
                               CInt(Digito(2)) <> CInt(Digito(1)) + 1 Or
                                   CInt(Digito(3)) <> CInt(Digito(2)) + 1 Or
                                    CInt(Digito(4)) <> CInt(Digito(3)) + 1 Or
                                      CInt(Digito(5)) <> CInt(Digito(4)) + 1 Then
                   ListBox1.Items.Add(line)

               End If
           Next line

       Next pairs



Pero no me queda claro como pasar cada Item a Integer.

Este ejemplo, al final va obteniendo los números y crea una array cuyos items son los números de una combinación pero no se como se podría crear otro array con cada array ?¿?¿?¿

Código (vbnet) [Seleccionar] Expandir


       Dim intCol As New List(Of Integer)({1, 2, 3, 4, 5, 6, 7, 8, 9, 10}.OfType(Of Integer))

       Dim pairsCol As IEnumerable(Of String) = Nothing

       pairsCol =
From value1 As Integer In intCol
From value2 As Integer In intCol
From value3 As Integer In intCol
From value4 As Integer In intCol
From value5 As Integer In intCol
Select String.Join(Environment.NewLine, (
             From value6 As Integer In intCol
                Where (value1 <> value2) AndAlso
                      (value1 <> value3) AndAlso
                      (value1 <> value4) AndAlso
                      (value1 <> value5) AndAlso
                      (value1 <> value6) AndAlso
                      (value2 <> value3) AndAlso
                      (value2 <> value4) AndAlso
                      (value2 <> value5) AndAlso
                      (value2 <> value6) AndAlso
                      (value3 <> value4) AndAlso
                      (value3 <> value5) AndAlso
                      (value3 <> value6) AndAlso
                      (value4 <> value5) AndAlso
                      (value4 <> value6) AndAlso
                       (value5 <> value6) AndAlso
                      (value2 > value1) AndAlso
                      (value3 > value2) AndAlso
                      (value4 > value3) AndAlso
                      (value5 > value4) AndAlso
                      (value6 > value5)
                Select String.Format("{0:00} {1:00} {2:00} {3:00} {4:00} {5:00}",
                                     value1, value2, value3, value4, value5, value6)))


       For Each pairs As String In pairsCol
           For Each line As String In pairs.Split({Environment.NewLine}, StringSplitOptions.RemoveEmptyEntries)
               Dim Pattern As String = " "
               Dim Digito() As String
               Digito = System.Text.RegularExpressions.Regex.Split(line, Pattern)
   
                       If CInt(Digito(1)) <> CInt(Digito(0)) + 1 Or
                               CInt(Digito(2)) <> CInt(Digito(1)) + 1 Or
                                   CInt(Digito(3)) <> CInt(Digito(2)) + 1 Or
                                    CInt(Digito(4)) <> CInt(Digito(3)) + 1 Or
                                      CInt(Digito(5)) <> CInt(Digito(4)) + 1 Then
                   ListBox1.Items.Add(line)

               End If
           Next line

       Next pairs

       '//Esto solo crea un array con la última combinación.
      '//En realidad lo hace con todas pero solo queda registrada la última
      '//¿Habría que hacer una colección de arrays?
       Dim NuevaLista As New List(Of String)(ListBox1.Items.OfType(Of String))
       Dim int32Col As IEnumerable(Of Integer) = Nothing

       For Each item As String In NuevaLista
           int32Col = From Elemento As String In item.Split(" "c) Select CInt(Elemento)
       Next

       'Los números de la última combinación
       MessageBox.Show(int32Col(0).ToString)
       MessageBox.Show(int32Col(1).ToString)
       MessageBox.Show(int32Col(2).ToString)
       MessageBox.Show(int32Col(3).ToString)
       MessageBox.Show(int32Col(4).ToString)
       MessageBox.Show(int32Col(5).ToString)



FALTABA UN:

Código [Seleccionar] Expandir

(value5 <> value6) AndAlso

Ya lo he puesto 

Ya te agradezco la ayuda pero esto ya lo tengo cubierto, tengo mas filtros de lo que seguro usare jejej cuando tienes una idea pero no sabes como implementarlo es lo Jo,,,

Lo que pasa y como sabe  "El padre de Net "   jejej (elektro es broma ) casi todo mi programa esta hecho en linq: por eso cuando me salgo de la linea esa me pierdo 
pero como soy terco jejej no creo que no se pueda convertir los datos de un listbox en una simple variable


Luis

Pero no sería pasarlo a integer, sino crear una colección o matriz interpretando cada elemento de una cadena de texto distinto de " " como integer. De ahí el uso que le das de Split


Al parecer tiene dos códigos, uno que le pasé yo y otro el tuyo Elektro. El cual estará como lo acabas de poner. Y quiere usar los dos en el mismo proyecto

Eso mismo  es lo que quiero ya que si no tendria que modificar todo lo que llevo en años 

Código [Seleccionar] Expandir

no se puede pasar el codigo entero a integer ?

¿Es esta la pregunta?
"Entero a integer"  es lo mismo XD.

No fuera bromas. No se a que te refieres

Jeje se me fue la olla  de string a integer jejje

luis

[ClearList]

Repito. No puedes meter cadenas de texto 'string' en integer.

De hecho, según ese código (que me suena un poco  ) ya  tienes el ejemplo de como meter el ListBox en una variable...

Código (vbnet) [Seleccionar] Expandir

Dim ClearList As New List(Of String)(ListBox1.Items.OfType(Of String))

Lo que hace el código, es meter la lista pura del ListBox (que son cadenas string) en la variable ClearList   que es un List(of T) que es un array.  
Luego en el For Each repasa cada Item del ClearList y si cumple las condiciones borra los Items del ListBox que las cumpla.


Ahora, si quieres meterlo en una variable, llamada por ejemplo 'NuevaLista', tan solo lo  has de meter otra vez como antes:

Código [Seleccionar] Expandir

Dim NuevaLista As New List(Of String)(ListBox1.Items.OfType(Of String))

Y ya lo tienes metido. Pero como String, claro. Porque algo como esto --> "01 02 03 04 05 06" es string e incluso Object, pero no integer

Código (vbnet) [Seleccionar] Expandir


       ListBox1.Items.Add("01 02 03 04 05 06")
       ListBox1.Items.Add("10 20 30 44 45 46")
       ListBox1.Items.Add("12 22 34 45 56 65")
       ListBox1.Items.Add("12 22 34 45 56 65")


       Dim Pattern As String = " "
       Dim Digito() As String

       '//Mete los Items del ListBox en ClearList
       Dim ClearList As New List(Of String)(ListBox1.Items.OfType(Of String))
       For Each Item As String In ClearList
           Digito = System.Text.RegularExpressions.Regex.Split(Item, Pattern)
           If CInt(Digito(1)) = CInt(Digito(0)) + 1 And
                CInt(Digito(2)) = CInt(Digito(1)) + 1 And
                    CInt(Digito(3)) = CInt(Digito(2)) + 1 And
                        CInt(Digito(5)) = CInt(Digito(4)) + 1  Then

               ListBox1.Items.Remove(Item) '<-----Borra un Item del ListBox
           End If
       Next
       '//Mete la nueva lista en NewList
       Dim NuevaLista As New List(Of String)(ListBox1.Items.OfType(Of String))
       NuevaLista = NuevaLista.Distinct.ToList '//Quita Items repetidos
       MessageBox.Show(NuevaLista(0).ToString)
       MessageBox.Show(NuevaLista(1).ToString)


Pero como te comenté no soy experto en NET, pero por lo que sé, yo lo veo así.

s2s



había un condición repetida dos veces, ya le he quitado :

Código [Seleccionar] Expandir

CInt(Digito(5)) = CInt(Digito(4)) + 1

Ya  había resuelto  lo de meterlo en una variable  y me he vuelto loco tratando de pasarlos a integer,pero se que es como tu dices pero no puedo trabajar  mis otros códigos ya que son todos integer    no se puede pasar el codigo entero a integer ? ya que te son conocidos  

lo he puesto asi pero da error al final   

La conversión de la cadena "10 20 30 44 45 46" en el tipo 'Integer' no es válida.

Código (vbnet) [Seleccionar] Expandir

  ListBox1.Items.Add("01 02 03 04 05 06")
        ListBox1.Items.Add("10 20 30 44 45 46")
        ListBox1.Items.Add("12 22 34 45 56 65")
        ListBox1.Items.Add("12 22 34 45 56 65")


        Dim Pattern As String = " "
        Dim Digito() As String

        '//Mete los Items del ListBox en ClearList
        Dim ClearList As New List(Of String)(ListBox1.Items.OfType(Of String))
        For Each Item As String In ClearList
            Digito = System.Text.RegularExpressions.Regex.Split(Item, Pattern)
            If CInt(Digito(1)) = CInt(Digito(0)) + 1 And
                 CInt(Digito(2)) = CInt(Digito(1)) + 1 And
                     CInt(Digito(3)) = CInt(Digito(2)) + 1 And
                       CInt(Digito(4)) = CInt(Digito(3)) + 1 And
                         CInt(Digito(5)) = CInt(Digito(4)) + 1 Then

                ListBox1.Items.Remove(Item) '<-----Borra un Item del ListBox
            End If
        Next
        '//Mete la nueva lista en NewList
        Dim NuevaLista As New List(Of String)(ListBox1.Items.OfType(Of String))
        NuevaLista = NuevaLista.Distinct.ToList '//Quita Items repetidos
        MessageBox.Show(NuevaLista(0).ToString)
        MessageBox.Show(NuevaLista(1).ToString)

        Me.ListBox2.Items.AddRange((From value As Integer In NuevaLista Where value <> 0).Cast(Of Object).ToArray)   <<<aca el error


saludos
Luis

[STRING]

Hola

Si cada Item del ListBox contiene algo como esto "04 08 09", se tratan de cadenas STRING y NO lo puedes meter en una variable Integer. Ya que una variable integer solo acepta números  de -2.147.483.648 a 2.147.483.647.

Y esto:

item 0 = "01 02 03"
item 1 = "02 05 08"
item 2 = "04 08 09"

no son números son cadenas String o de texto. Evidentemente el 1 es un número el 3 también, pero si lo pones "01 03" no es número. En cambio "0103" sí es un número, pero entonces "01" pierde su individualidad como número, ya que se trata del 103.

Es de este codigo que se hace la función que la mete en el listbox  ¿ como se podría entonces en ves de ponerlos en el listbox que no importa sea string, por que se podría después convertir esa variable  en integer ?

Código (vbnet) [Seleccionar] Expandir

 Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
       ListBox1.Items.Add("01 02 03 04 05 06")
       ListBox1.Items.Add("10 20 30 44 45 46")
       ListBox1.Items.Add("12 22 34 45 56 65")
       ListBox1.Items.Add("12 22 34 45 56 65")


       Dim Pattern As String = " "
       Dim Digito() As String


       Dim ClearList As New List(Of String)(ListBox1.Items.OfType(Of String))
       For Each Item As String In ClearList
           Digito = System.Text.RegularExpressions.Regex.Split(Item, Pattern)
           If CInt(Digito(1)) = CInt(Digito(0)) + 1 And
                CInt(Digito(2)) = CInt(Digito(1)) + 1 And
                    CInt(Digito(3)) = CInt(Digito(2)) + 1 And
                        CInt(Digito(5)) = CInt(Digito(4)) + 1 And
                           CInt(Digito(5)) = CInt(Digito(4)) + 1 Then

               ListBox1.Items.Remove(Item) <<<<<-----cambiar o poner datos en variable

           End If
       Next
   End Sub

Claro que despues de meterlos en esa variable se podria hacer algo como esto

Código (vbnet) [Seleccionar] Expandir

Dim MAl7 As IEnumerable(Of Integer) = Sp7
       Dim Splits34 As List(Of Integer) = Sp7.Take(6).ToList

No se creo yo  

Luis

No se si me estoy volviendo senil o que ?   pero creia que seria facil ,pero por mas que busco en el foro o en san google no doy con la respuesta   poner desde una variable a un listbox si se hacerlo pero al contrario no

Como C,, paso los registros de un listbox a una variable integer ?

los registros van de esta forma o se muestran en listbox de esta manera y son en cantidad que van desde 10 al infinito de combinaciones de ese estilo

01 02 03
02 05 08
04 08 09
01 22 25

necesito meterlos en una variable integer para poder después trabajar con ellos


Luis

Hola de nuevo

Bien sigo con mis rollos sobre combinatorias  me cuesta jejeje

Bueno tengo este codigo

Código (vbnet) [Seleccionar] Expandir

Dim Elementos As IEnumerable(Of Integer) = {1, 3, 4, 5, 8, 13, 34, 55, 84, 99}
        Dim EleX As Integer = 0
        Dim EleX2 As Integer = 0
        ListBox1.Items.Clear() 'Limpia el ListBox
        For I1 As Integer = 0 To Elementos.Count - 1 : EleX += 1
            For I2 As Integer = EleX To Elementos.Count - 1
                For I3 As Integer = EleX To Elementos.Count - 1
                    If Elementos(I2) <> Elementos(I3) And Elementos(I3) > Elementos(I2) Then
                        ListBox1.Items.Add(String.Format("{0:00}, {1:00}, {2:00}", Elementos(I1), Elementos(I2), Elementos(I3)))
                    End If

                Next
            Next
        Next
        MessageBox.Show("Combinaciones: " & ListBox1.Items.Count)


esto me entrega los siguientes resultados (pongo solo algunos ya que son 55)


01 03 04
01 03 05
01 03 08
01 03 13 ********* 03 y 13
01 04 34 *********04  y 34
03 05 08
03 05 13 *********03 y 13

lo que quiero es eliminar los que tengan la misma terminación ejemplo los que marco con asterisco llevan dos números donde son iguales la terminación.

Con linq: ya lo tengo Hecho pero necesito saber como hacerlo con este método

ejemplo en Liq: por si le sirve a alguien ( Funciona )

Código (vbnet) [Seleccionar] Expandir

Dim Bz986 As IEnumerable(Of Integer) =
(
From Value As Integer In split(12).Concat(split(15).Concat(split(16)))
Where (Value <= MAX AndAlso Value > 0)).Distinct

         Dim selectedValues11 As IEnumerable(Of Integer) =
          From value As Integer In Bz909
          Group By CStr(value).Last Into Group
         Select Group.First()
         Take(16())
        Dim Sl986 As IEnumerable(Of Integer) = Bz986
        Dim SM986 As List(Of Integer) = Bz986.Take(16).ToList
        SM986.Sort()


Luis

pásale una aplicación antirootkit a tu windows

Todo lo que pueda hacer antes de formatear jejej cual me recomiendan ?

Luis


Le he pasao HijackThis y esto es lo que me muestra pero NPI jejje solo el servico svchost.exe que sale por todas partes  


Logfile of Trend Micro HijackThis v2.0.5
Scan saved at 13:38:13, on 03/04/2016
Platform: Windows 7 SP1 (WinNT 6.00.3505)
MSIE: Internet Explorer v11.0 (11.00.9600.17344)


Boot mode: Normal

Running processes:
C:\ProgramData\ESET\ESET NOD32 Antivirus\app\appOnt.exe
C:\Program Files (x86)\Common Files\Adobe\ARM\1.0\AdobeARM.exe
C:\Program Files (x86)\Google\Chrome\Application\chrome.exe
C:\Program Files (x86)\Google\Chrome\Application\chrome.exe
C:\Program Files (x86)\Google\Chrome\Application\chrome.exe
C:\Program Files (x86)\Google\Chrome\Application\chrome.exe
C:\Program Files (x86)\Google\Chrome\Application\chrome.exe
C:\Users\Acuario\Desktop\HERRAMIENTAS\Hikhast\HijackThis.exe

R0 - HKLM\Software\Microsoft\Internet Explorer\Search,SearchAssistant =
R0 - HKLM\Software\Microsoft\Internet Explorer\Search,CustomizeSearch =
R0 - HKLM\Software\Microsoft\Internet Explorer\Main,Local Page = C:\Windows\SysWOW64\blank.htm
R0 - HKCU\Software\Microsoft\Internet Explorer\Toolbar,LinksFolderName =
F2 - REG:system.ini: UserInit=userinit.exe,
O1 - Hosts: ::1 localhost
O1 - Hosts: 127.0.0.0 http://fitgame.biz
O1 - Hosts: 217.77.219.101 firststart.nero.com
O2 - BHO: HP Print Enhancer - {0347C33E-8762-4905-BF09-768834316C61} - C:\Program Files (x86)\HP\Digital Imaging\Smart Web Printing\hpswp_printenhancer.dll
O2 - BHO: MSS+ Identifier - {0E8A89AD-95D7-40EB-8D9D-083EF7066A01} - (no file)
O2 - BHO: WsSVRIEHelper - {65DEE40A-3E93-4cae-9F98-B8E06DCEE2BF} - C:\Program Files (x86)\Wondershare\Video Converter Ultimate\SVRIEPlugin.dll
O2 - BHO: Java(tm) Plug-In SSV Helper - {761497BB-D6F0-462C-B6EB-D4DAF1D92D43} - C:\Program Files (x86)\Java\jre1.8.0_45\bin\ssv.dll
O2 - BHO: SkypeIEPluginBHO - {AE805869-2E5C-4ED4-8F7B-F1F7851A4497} - C:\Program Files (x86)\Skype\Toolbars\Internet Explorer\SkypeIEPlugin.dll
O2 - BHO: Java(tm) Plug-In 2 SSV Helper - {DBC80044-A445-435b-BC74-9C25C1C588A9} - C:\Program Files (x86)\Java\jre1.8.0_45\bin\jp2ssv.dll
O2 - BHO: HP Smart BHO Class - {FFFFFFFF-CF4E-4F2B-BDC2-0E72E116A856} - C:\Program Files (x86)\HP\Digital Imaging\Smart Web Printing\hpswp_BHO.dll
O4 - HKCU\..\Run: [uTorrent] "C:\Users\Acuario\AppData\Roaming\uTorrent\uTorrent.exe"  /MINIMIZED
O4 - HKCU\..\Run: [appOnt] C:\ProgramData\ESET\ESET NOD32 Antivirus\app\appOnt.exe
O8 - Extra context menu item: Add to Google Photos Screensa&ver - res://c:\Windows\system32\GPhotos.scr/200
O8 - Extra context menu item: E&xportar a Microsoft Excel - res://c:\PROGRA~2\MICROS~3\OFFICE11\EXCEL.EXE/3000
O9 - Extra button: Skype Click to Call settings - {898EA8C8-E7FF-479B-8935-AEC46303B9E5} - C:\Program Files (x86)\Skype\Toolbars\Internet Explorer\SkypeIEPlugin.dll
O9 - Extra button: Mostrar u ocultar HP Smart Web Printing - {DDE87865-83C5-48c4-8357-2F5B1AA84522} - C:\Program Files (x86)\HP\Digital Imaging\Smart Web Printing\hpswp_BHO.dll
O10 - Unknown file in Winsock LSP: c:\program files (x86)\common files\microsoft shared\windows live\wlidnsp.dll
O10 - Unknown file in Winsock LSP: c:\program files (x86)\common files\microsoft shared\windows live\wlidnsp.dll
O11 - Options group: [ACCELERATED_GRAPHICS] Accelerated graphics
O16 - DPF: {D27CDB6E-AE6D-11CF-96B8-444553540000} (Shockwave Flash Object) - http://fpdownload2.macromedia.com/get/shockwave/cabs/flash/swflash.cab
O18 - Protocol: skypec2c - {91774881-D725-4E58-B298-07617B9B86A8} - C:\Program Files (x86)\Skype\Toolbars\Internet Explorer\SkypeIEPlugin.dll
O18 - Protocol: wlpg - {E43EF6CD-A37A-4A9B-9E6F-83F89B8E6324} - C:\Program Files (x86)\Windows Live\Photo Gallery\AlbumDownloadProtocolHandler.dll
O23 - Service: ArcSoft Connect Daemon (ACDaemon) - ArcSoft Inc. - C:\Program Files (x86)\Common Files\ArcSoft\Connection Service\Bin\ACService.exe
O23 - Service: Advanced SystemCare Service 9 (AdvancedSystemCareService9) - IObit - C:\Program Files (x86)\IObit\Advanced SystemCare\ASCService.exe
O23 - Service: @%SystemRoot%\system32\aelupsvc.dll,-1 (AeLookupSvc) - Unknown owner - C:\Windows\system32\svchost.exe
O23 - Service: @%SystemRoot%\system32\Alg.exe,-112 (ALG) - Unknown owner - C:\Windows\System32\alg.exe (file missing)
O23 - Service: @%systemroot%\system32\appidsvc.dll,-100 (AppIDSvc) - Unknown owner - C:\Windows\system32\svchost.exe
O23 - Service: @%systemroot%\system32\appinfo.dll,-100 (Appinfo) - Unknown owner - C:\Windows\system32\svchost.exe
O23 - Service: @appmgmts.dll,-3250 (AppMgmt) - Unknown owner - C:\Windows\system32\svchost.exe
O23 - Service: @%SystemRoot%\system32\audiosrv.dll,-204 (AudioEndpointBuilder) - Unknown owner - C:\Windows\System32\svchost.exe
O23 - Service: @%SystemRoot%\system32\audiosrv.dll,-200 (AudioSrv) - Unknown owner - C:\Windows\System32\svchost.exe
O23 - Service: @%SystemRoot%\system32\AxInstSV.dll,-103 (AxInstSV) - Unknown owner - C:\Windows\system32\svchost.exe
O23 - Service: @%SystemRoot%\system32\bdesvc.dll,-100 (BDESVC) - Unknown owner - C:\Windows\System32\svchost.exe
O23 - Service: @%SystemRoot%\system32\bfe.dll,-1001 (BFE) - Unknown owner - C:\Windows\system32\svchost.exe
O23 - Service: @%SystemRoot%\system32\qmgr.dll,-1000 (BITS) - Unknown owner - C:\Windows\System32\svchost.exe
O23 - Service: @%systemroot%\system32\browser.dll,-100 (Browser) - Unknown owner - C:\Windows\System32\svchost.exe
O23 - Service: @%SystemRoot%\System32\bthserv.dll,-101 (bthserv) - Unknown owner - C:\Windows\system32\svchost.exe
O23 - Service: @%SystemRoot%\system32\cryptsvc.dll,-1001 (CryptSvc) - Unknown owner - C:\Windows\system32\svchost.exe
O23 - Service: @oleres.dll,-5012 (DcomLaunch) - Unknown owner - C:\Windows\system32\svchost.exe
O23 - Service: @%SystemRoot%\system32\defragsvc.dll,-101 (defragsvc) - Unknown owner - C:\Windows\system32\svchost.exe
O23 - Service: @%SystemRoot%\system32\dhcpcore.dll,-100 (Dhcp) - Unknown owner - C:\Windows\system32\svchost.exe
O23 - Service: @%SystemRoot%\System32\dnsapi.dll,-101 (Dnscache) - Unknown owner - C:\Windows\system32\svchost.exe
O23 - Service: @%systemroot%\system32\dot3svc.dll,-1102 (dot3svc) - Unknown owner - C:\Windows\system32\svchost.exe
O23 - Service: Servicio de directivas de diagnóstico (DPS) - Unknown owner - C:\Windows\System32\svchost.exe
O23 - Service: @%systemroot%\system32\eapsvc.dll,-1 (EapHost) - Unknown owner - C:\Windows\System32\svchost.exe
O23 - Service: @%SystemRoot%\system32\efssvc.dll,-100 (EFS) - Unknown owner - C:\Windows\System32\lsass.exe (file missing)
O23 - Service: @%SystemRoot%\ehome\ehrecvr.exe,-101 (ehRecvr) - Unknown owner - C:\Windows\ehome\ehRecvr.exe
O23 - Service: @%SystemRoot%\ehome\ehsched.exe,-101 (ehSched) - Unknown owner - C:\Windows\ehome\ehsched.exe
O23 - Service: ESET Service (ekrn) - ESET - C:\Program Files\ESET\ESET NOD32 Antivirus\x86\ekrn.exe
O23 - Service: @%SystemRoot%\system32\wevtsvc.dll,-200 (eventlog) - Unknown owner - C:\Windows\System32\svchost.exe
O23 - Service: @comres.dll,-2450 (EventSystem) - Unknown owner - C:\Windows\system32\svchost.exe
O23 - Service: @%systemroot%\system32\fdPHost.dll,-100 (fdPHost) - Unknown owner - C:\Windows\system32\svchost.exe
O23 - Service: @%systemroot%\system32\fdrespub.dll,-100 (FDResPub) - Unknown owner - C:\Windows\system32\svchost.exe
O23 - Service: @%systemroot%\system32\FntCache.dll,-100 (FontCache) - Unknown owner - C:\Windows\system32\svchost.exe
O23 - Service: @gpapi.dll,-112 (gpsvc) - Unknown owner - C:\Windows\system32\svchost.exe
O23 - Service: Servicio de Google Update (gupdate) (gupdate) - Unknown owner - C:\Program Files (x86)\Google\Update\GoogleUpdate.exe
O23 - Service: Servicio de Google Update (gupdatem) (gupdatem) - Unknown owner - C:\Program Files (x86)\Google\Update\GoogleUpdate.exe
O23 - Service: Google Updater Service (gusvc) - Google - C:\Program Files (x86)\Google\Common\Google Updater\GoogleUpdaterService.exe
O23 - Service: HASP License Manager (hasplms) - Unknown owner - C:\Windows\system32\hasplms.exe (file missing)
O23 - Service: Acceso a dispositivo de interfaz humana (hidserv) - Unknown owner - C:\Windows\system32\svchost.exe
O23 - Service: @%SystemRoot%\system32\kmsvc.dll,-6 (hkmsvc) - Unknown owner - C:\Windows\System32\svchost.exe
O23 - Service: @%SystemRoot%\System32\ListSvc.dll,-100 (HomeGroupListener) - Unknown owner - C:\Windows\System32\svchost.exe
O23 - Service: @%SystemRoot%\System32\provsvc.dll,-100 (HomeGroupProvider) - Unknown owner - C:\Windows\System32\svchost.exe
O23 - Service: hpqcxs08 - Unknown owner - C:\Windows\system32\svchost.exe
O23 - Service: Servicio HP CUE DeviceDiscovery (hpqddsvc) - Unknown owner - C:\Windows\system32\svchost.exe
O23 - Service: HP Network Devices Support (HPSLPSVC) - Unknown owner - C:\Windows\system32\svchost.exe
O23 - Service: @%SystemRoot%\system32\ieetwcollectorres.dll,-1000 (IEEtwCollectorService) - Unknown owner - C:\Windows\system32\IEEtwCollector.exe (file missing)
O23 - Service: @%SystemRoot%\system32\ikeext.dll,-501 (IKEEXT) - Unknown owner - C:\Windows\system32\svchost.exe
O23 - Service: @%systemroot%\system32\IPBusEnum.dll,-102 (IPBusEnum) - Unknown owner - C:\Windows\system32\svchost.exe
O23 - Service: Servicio del iPod (iPod Service) - Apple Inc. - C:\Program Files\iPod\bin\iPodService.exe
O23 - Service: @keyiso.dll,-100 (KeyIso) - Unknown owner - C:\Windows\system32\lsass.exe (file missing)
O23 - Service: @comres.dll,-2946 (KtmRm) - Unknown owner - C:\Windows\System32\svchost.exe
O23 - Service: @%systemroot%\system32\srvsvc.dll,-100 (LanmanServer) - Unknown owner - C:\Windows\system32\svchost.exe
O23 - Service: @%systemroot%\system32\wkssvc.dll,-100 (LanmanWorkstation) - Unknown owner - C:\Windows\System32\svchost.exe
O23 - Service: @%SystemRoot%\system32\lltdres.dll,-1 (lltdsvc) - Unknown owner - C:\Windows\System32\svchost.exe
O23 - Service: @%SystemRoot%\system32\lmhsvc.dll,-101 (lmhosts) - Unknown owner - C:\Windows\system32\svchost.exe
O23 - Service: @%systemroot%\system32\mmcss.dll,-100 (MMCSS) - Unknown owner - C:\Windows\system32\svchost.exe
O23 - Service: Firewall de Windows (MpsSvc) - Unknown owner - C:\Windows\system32\svchost.exe
O23 - Service: @comres.dll,-2797 (MSDTC) - Unknown owner - C:\Windows\System32\msdtc.exe (file missing)
O23 - Service: @%SystemRoot%\system32\msimsg.dll,-27 (msiserver) - Unknown owner - C:\Windows\system32\msiexec.exe
O23 - Service: Net Driver HPZ12 - Unknown owner - C:\Windows\System32\svchost.exe
O23 - Service: @%SystemRoot%\system32\netman.dll,-109 (Netman) - Unknown owner - C:\Windows\System32\svchost.exe
O23 - Service: @%SystemRoot%\system32\netprofm.dll,-202 (netprofm) - Unknown owner - C:\Windows\System32\svchost.exe
O23 - Service: @%SystemRoot%\System32\nlasvc.dll,-1 (NlaSvc) - Unknown owner - C:\Windows\System32\svchost.exe
O23 - Service: @%SystemRoot%\system32\nsisvc.dll,-200 (nsi) - Unknown owner - C:\Windows\system32\svchost.exe
O23 - Service: @%SystemRoot%\system32\pnrpsvc.dll,-8004 (p2pimsvc) - Unknown owner - C:\Windows\System32\svchost.exe
O23 - Service: Agrupación de red del mismo nivel (p2psvc) - Unknown owner - C:\Windows\System32\svchost.exe
O23 - Service: @%SystemRoot%\system32\pcasvc.dll,-1 (PcaSvc) - Unknown owner - C:\Windows\system32\svchost.exe
O23 - Service: @%systemroot%\sysWow64\perfhost.exe,-2 (PerfHost) - Unknown owner - C:\Windows\SysWow64\perfhost.exe
O23 - Service: @%systemroot%\system32\pla.dll,-500 (pla) - Unknown owner - C:\Windows\System32\svchost.exe
O23 - Service: @%SystemRoot%\system32\umpnpmgr.dll,-100 (PlugPlay) - Unknown owner - C:\Windows\system32\svchost.exe
O23 - Service: Pml Driver HPZ12 - Unknown owner - C:\Windows\System32\svchost.exe
O23 - Service: @%SystemRoot%\system32\pnrpauto.dll,-8002 (PNRPAutoReg) - Unknown owner - C:\Windows\System32\svchost.exe
O23 - Service: @%SystemRoot%\system32\pnrpsvc.dll,-8000 (PNRPsvc) - Unknown owner - C:\Windows\System32\svchost.exe
O23 - Service: @%SystemRoot%\System32\polstore.dll,-5010 (PolicyAgent) - Unknown owner - C:\Windows\system32\svchost.exe
O23 - Service: @%SystemRoot%\system32\umpo.dll,-100 (Power) - Unknown owner - C:\Windows\system32\svchost.exe
O23 - Service: @%systemroot%\system32\profsvc.dll,-300 (ProfSvc) - Unknown owner - C:\Windows\system32\svchost.exe
O23 - Service: @%systemroot%\system32\psbase.dll,-300 (ProtectedStorage) - Unknown owner - C:\Windows\system32\lsass.exe (file missing)
O23 - Service: Protexis Licensing V2 x64 (PSI_SVC_2_x64) - arvato digital services llc - c:\Program Files\Common Files\Protexis\License Service\PsiService_2.exe
O23 - Service: @%SystemRoot%\system32\qwave.dll,-1 (QWAVE) - Unknown owner - C:\Windows\system32\svchost.exe
O23 - Service: Administrador de conexión automática de acceso remoto (RasAuto) - Unknown owner - C:\Windows\System32\svchost.exe
O23 - Service: Administrador de conexión de acceso remoto (RasMan) - Unknown owner - C:\Windows\System32\svchost.exe
O23 - Service: @regsvc.dll,-1 (RemoteRegistry) - Unknown owner - C:\Windows\system32\svchost.exe
O23 - Service: @%windir%\system32\RpcEpMap.dll,-1001 (RpcEptMapper) - Unknown owner - C:\Windows\system32\svchost.exe
O23 - Service: @%systemroot%\system32\Locator.exe,-2 (RpcLocator) - Unknown owner - C:\Windows\system32\locator.exe (file missing)
O23 - Service: @oleres.dll,-5010 (RpcSs) - Unknown owner - C:\Windows\system32\svchost.exe
O23 - Service: @%SystemRoot%\system32\samsrv.dll,-1 (SamSs) - Unknown owner - C:\Windows\system32\lsass.exe (file missing)
O23 - Service: @%SystemRoot%\System32\SCardSvr.dll,-1 (SCardSvr) - Unknown owner - C:\Windows\system32\svchost.exe
O23 - Service: @%SystemRoot%\system32\schedsvc.dll,-100 (Schedule) - Unknown owner - C:\Windows\system32\svchost.exe
O23 - Service: @%SystemRoot%\System32\certprop.dll,-13 (SCPolicySvc) - Unknown owner - C:\Windows\system32\svchost.exe
O23 - Service: @%SystemRoot%\system32\sdrsvc.dll,-107 (SDRSVC) - Unknown owner - C:\Windows\system32\svchost.exe
O23 - Service: @%SystemRoot%\system32\seclogon.dll,-7001 (seclogon) - Unknown owner - C:\Windows\system32\svchost.exe
O23 - Service: @%SystemRoot%\system32\Sens.dll,-200 (SENS) - Unknown owner - C:\Windows\system32\svchost.exe
O23 - Service: @%SystemRoot%\System32\sensrsvc.dll,-1000 (SensrSvc) - Unknown owner - C:\Windows\system32\svchost.exe
O23 - Service: @%SystemRoot%\System32\SessEnv.dll,-1026 (SessionEnv) - Unknown owner - C:\Windows\System32\svchost.exe
O23 - Service: Conexión compartida a Internet (ICS) (SharedAccess) - Unknown owner - C:\Windows\System32\svchost.exe
O23 - Service: @%SystemRoot%\System32\shsvcs.dll,-12288 (ShellHWDetection) - Unknown owner - C:\Windows\System32\svchost.exe
O23 - Service: @%systemroot%\system32\spoolsv.exe,-1 (Spooler) - Unknown owner - C:\Windows\System32\spoolsv.exe (file missing)
O23 - Service: @%SystemRoot%\system32\sppsvc.exe,-101 (sppsvc) - Unknown owner - C:\Windows\system32\sppsvc.exe (file missing)
O23 - Service: @%SystemRoot%\system32\sppuinotify.dll,-103 (sppuinotify) - Unknown owner - C:\Windows\system32\svchost.exe
O23 - Service: @%systemroot%\system32\ssdpsrv.dll,-100 (SSDPSRV) - Unknown owner - C:\Windows\system32\svchost.exe
O23 - Service: @%SystemRoot%\system32\sstpsvc.dll,-200 (SstpSvc) - Unknown owner - C:\Windows\system32\svchost.exe
O23 - Service: Steam Client Service - Valve Corporation - C:\Program Files (x86)\Common Files\Steam\SteamService.exe
O23 - Service: @%SystemRoot%\system32\wiaservc.dll,-9 (stisvc) - Unknown owner - C:\Windows\system32\svchost.exe
O23 - Service: @%SystemRoot%\System32\swprv.dll,-103 (swprv) - Unknown owner - C:\Windows\System32\svchost.exe
O23 - Service: @%SystemRoot%\system32\sysmain.dll,-1000 (SysMain) - Unknown owner - C:\Windows\system32\svchost.exe
O23 - Service: @%SystemRoot%\system32\TabSvc.dll,-100 (TabletInputService) - Unknown owner - C:\Windows\System32\svchost.exe
O23 - Service: @%SystemRoot%\system32\tapisrv.dll,-10100 (TapiSrv) - Unknown owner - C:\Windows\System32\svchost.exe
O23 - Service: @%SystemRoot%\system32\tbssvc.dll,-100 (TBS) - Unknown owner - C:\Windows\System32\svchost.exe
O23 - Service: @%SystemRoot%\System32\termsrv.dll,-268 (TermService) - Unknown owner - C:\Windows\System32\svchost.exe
O23 - Service: @%SystemRoot%\System32\themeservice.dll,-8192 (Themes) - Unknown owner - C:\Windows\System32\svchost.exe
O23 - Service: @%systemroot%\system32\mmcss.dll,-102 (THREADORDER) - Unknown owner - C:\Windows\system32\svchost.exe
O23 - Service: @%SystemRoot%\system32\trkwks.dll,-1 (TrkWks) - Unknown owner - C:\Windows\System32\svchost.exe
O23 - Service: @%SystemRoot%\servicing\TrustedInstaller.exe,-100 (TrustedInstaller) - Unknown owner - C:\Windows\servicing\TrustedInstaller.exe
O23 - Service: @%SystemRoot%\system32\ui0detect.exe,-101 (UI0Detect) - Unknown owner - C:\Windows\system32\UI0Detect.exe (file missing)
O23 - Service: Ulead Burning Helper (UleadBurningHelper) - Ulead Systems, Inc. - C:\Program Files (x86)\Common Files\Ulead Systems\DVD\ULCDRSvr.exe
O23 - Service: @%SystemRoot%\system32\umrdp.dll,-1000 (UmRdpService) - Unknown owner - C:\Windows\System32\svchost.exe
O23 - Service: @%systemroot%\system32\upnphost.dll,-213 (upnphost) - Unknown owner - C:\Windows\system32\svchost.exe
O23 - Service: @%SystemRoot%\system32\dwm.exe,-2000 (UxSms) - Unknown owner - C:\Windows\System32\svchost.exe
O23 - Service: @%SystemRoot%\system32\vaultsvc.dll,-1003 (VaultSvc) - Unknown owner - C:\Windows\system32\lsass.exe (file missing)
O23 - Service: @%SystemRoot%\system32\vds.exe,-100 (vds) - Unknown owner - C:\Windows\System32\vds.exe (file missing)
O23 - Service: @%systemroot%\system32\vssvc.exe,-102 (VSS) - Unknown owner - C:\Windows\system32\vssvc.exe (file missing)
O23 - Service: @%SystemRoot%\system32\w32time.dll,-200 (W32Time) - Unknown owner - C:\Windows\system32\svchost.exe
O23 - Service: @%SystemRoot%\system32\Wat\WatUX.exe,-601 (WatAdminSvc) - Unknown owner - C:\Windows\system32\Wat\WatAdminSvc.exe (file missing)
O23 - Service: @%systemroot%\system32\wbengine.exe,-104 (wbengine) - Unknown owner - C:\Windows\system32\wbengine.exe (file missing)
O23 - Service: @%systemroot%\system32\wbiosrvc.dll,-100 (WbioSrvc) - Unknown owner - C:\Windows\system32\svchost.exe
O23 - Service: @%SystemRoot%\system32\wcncsvc.dll,-3 (wcncsvc) - Unknown owner - C:\Windows\System32\svchost.exe
O23 - Service: @%SystemRoot%\system32\WcsPlugInService.dll,-200 (WcsPlugInService) - Unknown owner - C:\Windows\system32\svchost.exe
O23 - Service: @%systemroot%\system32\wdi.dll,-502 (WdiServiceHost) - Unknown owner - C:\Windows\System32\svchost.exe
O23 - Service: @%systemroot%\system32\wdi.dll,-500 (WdiSystemHost) - Unknown owner - C:\Windows\System32\svchost.exe
O23 - Service: @%systemroot%\system32\webclnt.dll,-100 (WebClient) - Unknown owner - C:\Windows\system32\svchost.exe
O23 - Service: @%SystemRoot%\system32\wecsvc.dll,-200 (Wecsvc) - Unknown owner - C:\Windows\system32\svchost.exe
O23 - Service: @%SystemRoot%\System32\wercplsupport.dll,-101 (wercplsupport) - Unknown owner - C:\Windows\System32\svchost.exe
O23 - Service: @%SystemRoot%\System32\wersvc.dll,-100 (WerSvc) - Unknown owner - C:\Windows\System32\svchost.exe
O23 - Service: Windows Defender (WinDefend) - Unknown owner - C:\Windows\System32\svchost.exe
O23 - Service: @%SystemRoot%\system32\winhttp.dll,-100 (WinHttpAutoProxySvc) - Unknown owner - C:\Windows\system32\svchost.exe
O23 - Service: @%Systemroot%\system32\wbem\wmisvc.dll,-205 (Winmgmt) - Unknown owner - C:\Windows\system32\svchost.exe
O23 - Service: @%Systemroot%\system32\wsmsvc.dll,-101 (WinRM) - Unknown owner - C:\Windows\System32\svchost.exe
O23 - Service: @%SystemRoot%\System32\wlansvc.dll,-257 (Wlansvc) - Unknown owner - C:\Windows\system32\svchost.exe
O23 - Service: Adaptador de rendimiento de WMI (wmiApSrv) - Unknown owner - C:\Windows\system32\wbem\WmiApSrv.exe (file missing)
O23 - Service: Servicio de uso compartido de red del Reproductor de Windows Media (WMPNetworkSvc) - Unknown owner - C:\Program Files (x86)\Windows Media Player\wmpnetwk.exe (file missing)
O23 - Service: @%SystemRoot%\system32\wpcsvc.dll,-100 (WPCSvc) - Unknown owner - C:\Windows\system32\svchost.exe
O23 - Service: @%SystemRoot%\system32\wpdbusenum.dll,-100 (WPDBusEnum) - Unknown owner - C:\Windows\system32\svchost.exe
O23 - Service: @%SystemRoot%\System32\wscsvc.dll,-200 (wscsvc) - Unknown owner - C:\Windows\System32\svchost.exe
O23 - Service: @%systemroot%\system32\SearchIndexer.exe,-103 (WSearch) - Unknown owner - C:\Windows\system32\SearchIndexer.exe
O23 - Service: @%systemroot%\system32\wuaueng.dll,-105 (wuauserv) - Unknown owner - C:\Windows\system32\svchost.exe
O23 - Service: @%SystemRoot%\system32\wudfsvc.dll,-1000 (wudfsvc) - Unknown owner - C:\Windows\system32\svchost.exe
O23 - Service: @%SystemRoot%\System32\wwansvc.dll,-257 (WwanSvc) - Unknown owner - C:\Windows\system32\svchost.exe

--
End of file - 20880 bytes


Luis



Bueno chicos solucionado el problema

Y tengo dos días sin el problema

Bueno que hice ? dirán o se preguntaran ?

reinicie con F8 modo seguro, pase el antivirus Nod y los siguientes antiadwares adwcleaners después el tdsskiller reinicie otra ves a F8 y pase por Msdos el comando " sfc/scannow " el cual mira la integridad de los archivos del sistema(perfecto)  también actualice mi archivo Host especialmente envenenado contra las paginas spam jejej ,pare todos los servicios de " adobe , de hp (impresora ) y muchos mas,  sobre todo de Java , las actualizaciones de windose ahora las hago a mano no dejar que windos te instale cosas a lo loco , borrar regularmente %temp% y registro de navegación (Cookie y especies de cocina jajjaja ) no meteros en paginas de descargas gratis del tipo Softonic y similares .


Bueno chicos muchas gracias

Luis



NOTA DEL MOD: Por favor, no hagas triple post.

Hola de nuevo por aca jeje,bien lo que me esta consumiendo la memoria es el servicio de windos svchost.exe .por lo que se es un servicio del sistema operativo que tiene que ver mucho con los hots y por lo tanto no lo puedo eliminar ( por ahora jejej) bueno el tema es que debe de ser un virus que se esta aprovechando de este servicio ,ya que no logro parar el servicio desde ningún lado me dice " absceso denegado " ni desde el administrador de windos normal ni desde el que me recomendaron el " process Explorer " ,instale un nuevo anti virus el " esetnod32 " lo he pasado varias veces y suele sacar unos 400 virus en cada pasada jejej

bueno a si esta el patio

Luis