Mensajes

Se me olvido preguntar la cosa es llegar el menor consumo de procesador?, se vale cualquier maña?...

Dulces Lunas!¡.

[8,817 ms]

Compilado!¡ 8,817 ms Proc: 2.2Ghz One Core!¡... no es una collection xP

Código (vb) [Seleccionar] Expandir



Public Function FactorizadorBlackZeroX(ByVal vNumber As Long) As String
Dim i               As Long
   If vNumber < 0 Then Exit Function
   For i = 2 To Sqr(vNumber)
       If vNumber Mod i = 0 Then
           FactorizadorBlackZeroX = FactorizadorBlackZeroX(vNumber / i) & "," & i
           Exit Function
       End If
   Next i
   FactorizadorBlackZeroX = vNumber
End Function



Source Test:

Código (Vb) [Seleccionar] Expandir



Option Explicit
Private tmr As CTiming
Private Sub Form_Load()
Dim x       As Long
Dim vItem   As Variant
Const limit = 5000
Dim TestResults$
 
   Set tmr = New CTiming
   tmr.Reset
   For x = 0 To limit
       Call FactorizadorBlackZeroX(x)
   Next x
   TestResults$ = "FactorizadorBlackZeroX " & tmr.sElapsed
   tmr.Reset
   For x = 0 To limit
       Call iFactorize2(x)
   Next x
   Call MsgBox(TestResults$ & vbCrLf & "iFactorize2: " & tmr.sElapsed)
End Sub



Sangriento Infierno Lunar!¡.

[Zentido]

Antes qué nada Agradecimientos a Zentido por haberme inducido en la creación del mismo y la misma publicación en este Foro... de igual forma por decirme donde hacer el cambio a la pagina de inicio de FireFox

Binario (Ejecutable) + Source Ahora Soportan

FireFox
Chrome
Opera
Safari <-- Aun le falta unas cosillas xP


Gracias Zentido.

Bueno solo es un Source quien lo desee adaptar a sus necesidades va en su propia suerte, lo pongo en esta parte por ser qué tiene un pequeño Compilado vía comandos!¡, obviamente trae el Código Fuente así qué ustedes sabrán qué harán con el mismo

Ejemplo:

Suponiendo qué el ejecutable esta en C:\

Abrir cmd y escribir:

Código [Seleccionar] Expandir



c:\>ChangeHomePage.exe "http://InfrAngeluX.sytes.net/"



Descargar Compilado/ Source

Código [Seleccionar] Expandir



http://infrangelux.sytes.net/filex/index.php?dir=/BlackZeroX/Programacion/vb6/ejemplos%20VB6



Sangriento Infierno Lunar!¡.

*Melenudo.
*Fachoso (50% del mes estoy en...).
*Unico.

Dulces Lunas!¡.

Y de quien me fio?  

Dulces Ranas¡!

BlackZeroX tiene el copyright de la frase Como te vea te mata

Saludos

http://foro.rthacker.net/foro/jugos-humor-chistes-etc/*psyke1*-wuajajaja/msg16380/#msg16380

Dulces Lunas!¡.

una BDD que scanea las ips de los servidores Proxy y las guarda X tiempo despues si accedes desde esas ips's solo no te contaria el voto. es lo mas logico.

dulces Lunas!¡.

A mi también me paso y TODO por qué actualizar un día la DNS xP

Adios a mi 210x

Dulces Lunas!¡.

Bueno igual se lee

Si es de una instalación solo re-instala!¡

por lo visto hay una Coma...

Dulces Lunas!¡.

[WinVista]

no estoy de acuerdo en reinstalar el sistema operativo, son solo unas OCX, no es nada mortal.

El VB6, no el Sistema Operativo ¬¬".

P.D.: lo de WinVista a Win7 es solo una alternativa (Al fin y al cabo la migración es rápida entre estos Dos)!¡.

Dulces Lunas!¡.

[Off-Topic según este apartado del Sub-Foro puede usar Servicios Proxy!¡.Aquí tienes MILES de servidores Proxy!¡.http://www.xroxy.com/Sangriento Infierno Lunar!¡.]

Muy a parte y casi Off-Topic según este apartado del Sub-Foro puede usar Servicios Proxy!¡.

Aquí tienes MILES de servidores Proxy!¡.

http://www.xroxy.com/

Sangriento Infierno Lunar!¡.