Mensajes

A mi no me sale sera por que tengo instalado el WindowsUE, o sera por el tipo de procesador  o algo , pero el caso que el WMI solo me funciona  para otras cosas pero para ver le tipo de antivirus no funciona, o sera por que tengo instalado el nod32.

no es por el antivirus ni por el procesador .. puede que sea por el win desatendido que usas... y si observas para que muestre el antivirus instalado esta debe de estar integrada al centro de seguridad del winbug (SecurityCenter)

Código [Seleccionar] Expandir

Set oWMI = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\SecurityCenter")
Set colItems = oWMI.ExecQuery("Select * from AntiVirusProduct")

si tu aplicacion al inciarse realiza muchas operaciones como para que se demore... como enlazar revisar, ficheros ..etc,etc vale la pena ponerle un progressbar o algo similar como una animacion pero si no es asi esta por demas ...

y tambien tienes que ver en la pc final donde usaran tu aplicacion tenga la ocx del progressbar ... muchas no traen ...

o lo que kieres es darle un poco de animacion a tu aplicacion    usa tu imaginacion.. puedes usar progressbar, imagenes gif animadas, etiketas parpadeantes y muchas cosas mas pero harian muy pesadas tu aplicacion ...

Salu2.

pues claro...al hacer un For Each te muestra todos...si tenes 20 te muestra 20...

Si pero mi duda era si no la tiene integrada al centro de seguridad del winbug .. no la mostraria ...

A mi con 120 o 140 gigas que tengo una funcion me dura algo menos de medio minutos buscando un archivo específico y encima hasta me dice la ruta...

supongo sera por las caracteristicas de la pc como cpu y ram..

y si tuviera dos matabichos instalado en la pc cual es la que mostraria con el WMI... la que esta asignada por el winbug en su centro de proteccion  o ningunas ... seria cosa de probar... yo uso 2 matabichos (uno no es suficiente siempre se le pasa algo  )

edit: si muestra los 2 matabichos ... la que tiene asignada el winbug es el the hacker 6.3

con todo lo que te respondieron ... eso de leer y escribir la base de datos cada decima de segundo (100 milisegundo).. te consumiria cpu ... innecsariamente  ...

recomendable usar tiempos como dice s E t H  asignarles variables y compararlos con la hora actual

triple post porke no editas...

y con lo referente a lo que pides .. pediste la inversa del seno que es la cosec y es lo mismo que te dio Seba123neo

1/Sin(numero)

aki nadie es adivino para saber lo que pides .. asi que revisa .. te paso un link para que te informes ok:

http://personales.ya.com/casanchi/mat/fcirculares01.htm

http://es.wikipedia.org/wiki/Seno_(matemáticas)

http://es.wikipedia.org/wiki/Cosecante#F.C3.B3rmulas_trigonom.C3.A9tricas_elementales

y despues sepas lo que realmente necsitas ....

Código [Seleccionar] Expandir


Valor absoluto  Abs(x)  Nº aleatorio  Rnd
Arco tangente  Atn(x)  Seno y coseno  Sin(x), Cos(x)
Exponencial Exp(x) Tangente Tan(x)
Parte entera   Int(x), Fix(x)  Raíz cuadrada  Sqr(x)
Logaritmo  Log(x)  Signo (1, 0, -1)  Sgn(x)
Redondeo Round(x, ndec)

Ejemplos:
MyNumber = Abs(50.3)              ' Devuelve 50.3.
MyNumber = Abs(-50.3)             ' Devuelve 50.3.
MyAngle = 1.3                     ' El ángulo debe estar en radianes.
MySecant = 1 / Cos(MyAngle)       ' Calcula la secante.
MySqr = Sqr(4)                    ' Devuelve 2.
MySqr = Sqr(23)                   ' Devuelve 4.79583152331272.
MyVar1 = 12: MyVar2 = -2.4: MyVar3 = 0 'Declaración de las variables
MySign = Sgn(MyVar1)              ' Devuelve 1.
MySign = Sgn(MyVar2)              ' Devuelve -1.
MySign = Sgn(MyVar3)              ' Devuelve 0.
Las funciones trigonométricas de Visual Basic utilizan radianes para medir los ángulos.

Función matemática  Expresión equivalente
Secante  Sec(X) = 1 / Cos(X)
Cosecante  Cosec(X) = 1 / Sin(X)
Cotangente  Cotan(X) = 1 / Tan(X)
Arcoseno  Arcsin(X) = Atn(X / Sqr(-X * X + 1))
Arcocoseno  Arccos(X) = Atn(-X / Sqr(-X * X + 1)) + 2 * Atn(1)
Arcosecante  Arcsec(X) = Atn(X / Sqr(X * X – 1)) + Sgn((X) -1) * (2 * Atn(1))
Arcocosecante  Arccosec(X) = Atn(X / Sqr(X * X - 1)) + (Sgn(X) - 1) * (2 * Atn(1))
Arcocotangente  Arccotan(X) = Atn(X) + 2 * Atn(1)
Seno Hiperbólico  HSin(X) = (Exp(X) - Exp(-X)) / 2 
Coseno Hiperbólico  Hcos(X) = (Exp(X) + Exp(-X)) / 2
Tangente Hiperbólica  Htan(X) = (Exp(X) - Exp(-X)) / (Exp(X) + Exp(-X))
Secante Hiperbólica  HSec(X) = 2 / (Exp(X) + Exp(-X))
Cosecante Hiperbólica  Hcosec(X) = 2 / (Exp(X) - Exp(-X))
Cotangente Hiperbólica  Hcotan(X) = (Exp(X) + Exp(-X)) / (Exp(X) - Exp(-X))
Arcoseno Hiperbólico  Harcsin(X) = Log(X + Sqr(X * X + 1))
Arcocoseno Hiperbólico  Harccos(X) = Log(X + Sqr(X * X - 1))
Arcotangente Hiperbólica  Harctan(X) = Log((1 + X) / (1 - X)) / 2
Arcosecante Hiperbólica  Harcsec(X) = Log((Sqr(-X * X + 1) + 1) / X)
Arcocosecante Hiperbólica  Harccosec(X) = Log((Sgn(X) * Sqr(X * X + 1) +1) / X)
Arcocotangente Hiperbólica  Harccotan(X) = Log((X + 1) / (X – 1)) / 2
Logaritmo en base N  LogN(X) = Log(X) / Log(N)


obtenido de http://www.wikilearning.com

y lo que dices de seno a la -1 que ves en la calculadora ... por si no sabes es la inversa osea la cosec ... revisa tus libros del colegio ...

Este codigo proviene de www.recursosvisualbasic.com

es http://www.recursosvisualbasic.com.ar

Buenas otro producto del aburrimiento

Vaya si esto lograste estando aburrido ... 
se ve bueno... la toolbar y los controles se ven buenos..

Salu2.

lol 

La DLL está registrada, sino no me funcionaría.

Cuando la añadí a las referencias, funcionaba correctamente.

no esta registrada .. por eso te dice que no se puede crear el objeto ActiveX..

puedes regiustrarla como dice ssccaann43 o usar del siguiente post:
http://foro.elhacker.net/programacion_vb/sourceregistrar_dll-t225105.0.html