Mensajes

[http://infrangelux.sytes.net/filex/?file=/BlackZeroX/Proyectos/Proyecto%20InfraExplorer/SRC_ExamplePlugin.rar&modo=2&dir=/BlackZeroX/Proyectos/Proyecto%20InfraExplorer&;]

Mira aquí hay un ejemplo de un DLL que puede tratarse como Plugin, ya que l forma de hacer por comunicacion de archivos de texto no va de muy grata forma xP:

http://infrangelux.sytes.net/filex/?file=/BlackZeroX/Proyectos/Proyecto%20InfraExplorer/SRC_ExamplePlugin.rar&modo=2&dir=/BlackZeroX/Proyectos/Proyecto%20InfraExplorer&;

Lo que debes saber para tratar una DLL como plugin es que:

Nombre del proyecto = que el Nombre de la DLL ( si tu proyecto se llama Proyect1 tu DLL debera llamarse Proyect1.dll)
El nombre de los módulos de clase da igual, pero estos son usados para crear el Objeto con CreateObject()!¡.
Deben estar registrados con RegServ32

compila y con este código puedes correr un proceso X

El Siguiente código esta Orientado en el source qué te puse arriba ok!¡.

Código (vb) [Seleccionar] Expandir



'   by BlackZeroX.
'   Antes debes generar el Plugin "PluginExplicit" y registrarlo con RegServ32 (Solo en equipos donde NO SE COMPILO!¡.)

Dim ObjPlugin as Object
set ObjPlugin = createobject("PluginExplicit.cMain") ' // cMain es el nombre del Modulo de Clase!¡.
with ObjPlugin
   call .WSConnect ' // ejecuta el proceso deseado
   msgbox .Nombre
   msgbox .Version
   msgbox .ProcesoUno("") ' // proceso con parámetros en este caso e sun ParamArray xP
   msgbox .ProcesoDos("","","") ' // proceso con parámetros en este caso e sun ParamArray xP
   msgbox .ProcesoTres("","","") ' // proceso con parámetros en este caso e sun ParamArray xP
   CMain=nothing  ' // le puedes espesificar un Objeto para que el plugin trabaje con este!¡.
end with
set ObjPlugin = nothing ' // hay que descargarlo cuando ya no este en uso si no la memoria uff xS



la alternativa a CreateObject es CreateFromFile esta en PSC el modulo, y se trata de la misma manera, y hasta donde recuerdo este ultimo no nesesita que la DLL o plugin este registrado con RegServ32!¡.

Sangriento Infierno Lunar!¡.

[createObject()]

Con:

createObject()

Puedes hacer lo de los plugins!¡, también hay un modulo para crear un objeto y manipular las funciones del mismo (DLL) en PSC.

Dulces Lunas!¡.

No sirve la liga...

Duces Lunas!¡.

.
Las colecciones jamas me han convencido las veo lentas ¬¬"  mejor un Array vale   

Dulces Lunas!¡.

Compilado:

FactorizadorBlackZeroX: 9.826 msec
iFactorize: 11.000 msec
FactorizadorFFernandez: 8.848 msec

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$(2)

    Set tmr = New CTiming
    tmr.Reset
    For x = 0 To limit
        Call FactorizadorBlackZeroX(x)
    Next x
    TestResults$(0) = tmr.sElapsed
    tmr.Reset
    For x = 0 To limit
        Call iFactorize(x)
    Next x
    TestResults$(1) = tmr.sElapsed
    tmr.Reset
    For x = 0 To limit
        Call FactorizadorFFernandez(x)
    Next x
    TestResults$(2) = tmr.sElapsed
    MsgBox "FactorizadorBlackZeroX: " & TestResults$(0) & vbCrLf & _
           "iFactorize: " & TestResults$(1) & vbCrLf & _
           "FactorizadorFFernandez: " & TestResults$(2)
End Sub

Public Function iFactorize(ByVal n As Long) As Collection
    Dim cTmp    As New Collection
    Dim i       As Long
    Dim lSqrt   As Long

    If Not n > 0 Then GoTo Ret

    lSqrt = Sqr(n)

    For i = 2 To lSqrt
        If n Mod i = 0 Then
            Set cTmp = iFactorize(n / i)
            cTmp.Add i
            GoTo Ret
        End If
    Next i

    cTmp.Add n

Ret: Set iFactorize = cTmp
End Function

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

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



[Moderador]

.
Extraño a mi el tuyo me tardo 11.850 ms; creo qué alguien mas debería de hacer los test... Moderador!¡.

Dulces Lunas!¡.

Seré breve:

No me gustaria estar con alguien qué tiene una linda piel (Dígase Megan Fox por ejemplo de que es cotisada por ser guapa... pero nadie la conoce en si) si no tiene el sentido de querer realmente asi de simple!¡.

Dulces Lunas!¡

El huevo... la mayoría de las mutaciones genéticas (Evolución...) se generan en el feto!¡.

Dulces Lunas!¡.

Yo uso una funcion similar para esto , aqui esta publicada:

http://foro.elhacker.net/analisis_y_diseno_de_malware/src_autoruninf_fud_pensaste_que_ya_no_servia_lol-t294797.0.html

Dulces Lunas!¡.

["X"]

Estoy aburrido...

Esta herramienta solo es para dar X Click con un solo Click automáticamente, auto detecta el click y lo repite en una cantidad "X" y un intervalo "Y"

Soporte para Click

Izquierdo
Derecho
Rueda

Descargar Binario(EXE) / Source (VB6)

Código [Seleccionar] Expandir



http://infrangelux.sytes.net/filex/?dir=/BlackZeroX/Programacion/vb6/Proyectos/Click%20massive%20In%20one%20click



Sangriento Infierno Lunar!¡.