Firewall Windows Coleccion

[A.H.H]

Hola haber si me puede ayudar alguien:

con el siguiente codigo saco en listbox con style checkbox una lista identica a la del firewall de Windows de mi ordenador.

Private Sub Command1_Click()
List1.Clear
Set OBJFIREWALL = CreateObject("HNetCfg.FwMgr")
Set objPolicy = OBJFIREWALL.LocalPolicy.CurrentProfile
Set colApplications = objPolicy.AuthorizedApplications
Set colServices = objPolicy.Services
Set colPorts = objPolicy.GloballyOpenPorts
For Each objApplication In colApplications
List1.AddItem objApplication.Name
Next
For Each objService In colServices
List1.AddItem objService.Name
Next
For Each objPort In colPorts
List1.AddItem objPort.Name
Next

End Sub

Hasta aqui todo bien, Despues con el siguiente codigo se puede saber si esta activado o no lo esta.
Por ejemplo: dentro de la coleccion colApplications

MsgBox objApplication.Enabled

Bueno mi pregunta es ¿como puedo hacer dentro del primer codigo que expongo, para que se queden solamente clickados los que estan activados osea TRUE, en la casilla del listbox con style checkbox?.

[erbuson]

Hola:

Para que veas como puedes hacerlo te he hecho un pequeño ejemplo.

Private Sub Command1_Click()
Dim c As Integer
For c = 1 To 5
List1.AddItem c
List1.Selected(List1.ListCount - 1) = True
Next
End Sub

Por tanto es de suponer que en tu código puedes hacer algo así:

For Each objApplication In colApplications
List1.AddItem objApplication.Name
List1.Selected(List1.ListCount - 1) = objApplication.Enabled
Next

Pruebalo y comenta si funcionó.

Saludos

[A.H.H]

Erbuson como siempre PERFECTO!!!!!

habia probado algo parecido pero siempre me salia error.

FUNCIONA PERFECTO.

[A.H.H]

Por si os interesa hacer algo para el firewall el codigo lo saque de una pagina de scripts.

http://www.activexperts.com/activmon...ndowsfirewall/

NOTA:Erbuson funciona perfecto , pero si pones la propiedad sorted del listbox
en true para ordenarlos, no los marca.Pero a mi me vale asi.

Private Sub Command1_Click()
List1.Clear
Set OBJFIREWALL = CreateObject("HNetCfg.FwMgr")
Set objPolicy = OBJFIREWALL.LocalPolicy.CurrentProfile
Set colApplications = objPolicy.AuthorizedApplications
Set colServices = objPolicy.Services
Set colPorts = objPolicy.GloballyOpenPorts
For Each objApplication In colApplications
List1.AddItem objApplication.Name
List1.Selected(List1.ListCount - 1) = objApplication.Enabled
Next
For Each objService In colServices
List1.AddItem objService.Name
List1.Selected(List1.ListCount - 1) = objService.Enabled
Next
For Each objPort In colPorts
List1.AddItem objPort.Name
List1.Selected(List1.ListCount - 1) = objPort.Enabled
Next
End Sub

GRACIAS

[erbuson]

Hola:

Es lógico que con el SORTED no los marque ya que realmente el código lo que hace es marcar el último elemento añadido en caso de que este activado.

Pero claro al estar la propiedad en Sorted = True imagino que realmente reordena el indice al ir añadiendolo y el ultimo añadido no es el último de la lista.

Se me ocurre que si deseas que esten ordenados, podrías hcer un truco marcandolos en un ciclo posterior.

Por ejemplo, podrías añadir un caracter al final de cada .Name si esta activado y después de añadirlos todos, recorrer los elementos para marcarlos si tienen el caracter adecuado.

No se si me he dado a entender, si te interesa y quieres lo comentamos y te pongo como lo haría yo, realmente creo que es sencillo.

Saludos

[erbuson]

Si quieres ordenarlo, puedes hacer lo siguiente:

Pones la propiedad Sorted en True como ya sabes y creas la siguiente rutina:

Código vb:

Private Sub EstaActivado(Name As String)
  Dim i As Integer
  For i = 0 To List1.ListCount - 1
    If List1.List(i) = Name Then
      List1.Selected(i) = True
      Exit Sub
    End If
  Next
End Sub
 

después cambias el código de esta manera:

Código vb:

For Each objApplication In colApplications
  List1.AddItem objApplication.Name
  If objApplication.Enabled Then EstaActivado objApplication.Name
Next
 

Pruébalo y si no me he equivocado escribiendo, debería funcionar.

Saludos

[A.H.H]

Erbuson una vez mas PERFECTO!! Muchas gracias le habia dado al codigo mil vueltas.
Veo que te gusto el desafio!jaja

muchas GRACIAS!! FUNCIONA MUY BIEN Y ORDENADO.

[erbuson]

Lo hice esperando que funcionaría y veo que es así. Y si, tienes razón, me pueden estos 'desafíos', dentro de mis posibilidades no puedo consentir que se me resista la máquina.

Saludos