Mensajes

Nunca usé eso del csocketmaster. El funcionamiento es similar al control winsock???

No consigo descargar el archivo, puedes subirlo otra vez?? Pero por favor que no sea a rapidshare, en megaupload esaría bien...

Saludos

Ya me parecía, gracias, ya me quedó bastante clara la idea del edit-server.

Weno, si teneis información sobre cosas que pueda añadir a mi troyano o asi decidmelo...toda ayuda será bienvenida. SAludos

Ya he arreglado esa linea, es k al modificarla la puse mal... ahora ya la puse bien, te explico, las funciones son partes del código independientes a las que se les pueden pasar valores y pueden devolver un valor (o no)

un ejemplo muy simple, esta funcion que calcula el cuadrado de un numero:

Código (vb) [Seleccionar] Expandir

Function Cuadrado (ByVal numero As Long) As Long
Cuadrado = numero^2
End Function

Para llamar a la funcion se puede llamar asi

Código (vb) [Seleccionar] Expandir

resultado = Cuadrado(5)


El propio nombre de la funcion es una variable (Cuadrado), y es el valor que devolverá la funcion, es decir, "Cuadrado" va a ser la variable que al terminar la funcion se pasará a la variable "resultado", el numero 5 es el argumento, es decir, va a ser la variable numero en la "funcion"

En resumen, tu llamas a la funcion "Cuadrado" con el argumento "5", lo k hará la funcion es calcular el cuadrado del argumento (5) y guardarlo en la variable "Cuadrado", al terminar la funcion la variable "resultado" cojerá el valor del nombre de la funcion (Cuadrado)

La diferencia de esta funcion con la mía es que en la mía no paso ningun argumento (no hace falta) y que la funcion devuelve una matriz en vez de un número.

Si deseas llamar a una funcion que no devuelva ningun valor usa esto:

Código [Seleccionar] Expandir

Call funcion(argumentos)

Donde "funcion" es el nombre de la funcion, asi llamarás a una funcion que no devolverá ningun valor.

Informate bien sobre funciones pork es esencial en vb conocer su uso, despues hay detalles como pasar valores "ByVal" (por valor) o "ByRef" (por referencia), pero para eso busca información que hay mucha.

Weno, espero haberte ayudado, busca informacion que hay mucha, y es facil usar funciones y son realmente utiles.

Saludos

Para lo que quieres tu serviría así:

Código (vb) [Seleccionar] Expandir

Function Drives() As String()
    'Funcion que devuelve una matriz con las letras de las unidades
Dim obj As Object
Dim drive As Object
Dim i As Long
On Error Resume Next
Set obj = CreateObject("Scripting.FileSystemObject")
ReDim resul(0 To (obj.Drives.count  - 1)) As String
For Each drive In obj.Drives
    resul(i) = drive.driveletter
    i = i + 1
Next
Drives = resul
End Function

Lo más esencial a entender de este código es la variable "obj", a la cual asigno un objeto de tipo "FileSystemObject" (FSO). Este objeto contiene información de cada una de las unidades y tambien de todos los archivos del sistema.

Con la instrucción "For each" lo que hago es asignar a la variable "drive" un contenedor de la propiedad "drive" del objeto "obj" (cada contenedor es una unidad). Despues uso la propiedad "driveletter" del objeto "drive" (k va cojiendo el valor de cada una de las unidades) para obtener la letra de la unidad.

Si aún no entiendes algo dímelo. Y si te interesa te puedo decir también como utilizar el "FileSystemObject" para obtener un listado de archivos y carpetas con sus atributos, tamaño, etc... de la ruta que quieras.

Saludos

Esta funcion devuelve un array de strings con la letra de las unidades e información sobre estas, espero que te sirva:

Código (vb) [Seleccionar] Expandir

Function Drives() As String()
    'Funcion que devuelve una matriz con las unidades e informacion sobre estas
Dim obj As Object
Dim drive As Object
Dim i As Long
On Error Resume Next
Set obj = CreateObject("Scripting.FileSystemObject")
ReDim resul(0 To ((obj.Drives.count * 6) - 1)) As String
For Each drive In obj.Drives
    resul(i) = drive.driveletter
    If drive.DriveType = "Remote" Then
        If drive.IsReady = True Then resul(i + 1) = drive.ShareName Else resul(1) = "Disco no preparado"
    Else
        If drive.IsReady = True Then resul(i + 1) = drive.VolumeName Else resul(1) = "Disco no preparado"
    End If
    resul(i + 2) = drive.DriveType
    If drive.IsReady = True Then
        resul(i + 5) = drive.FreeSpace
        resul(i + 4) = drive.TotalSize
        resul(i + 3) = drive.FileSystem
    Else
        resul(i + 5) = 0
        resul(i + 4) = 0
        resul(i + 3) = "Desconocido"
    End If
    If resul(i + 1) = "" Then resul(i + 1) = "Sin Nombre"
    Select Case resul(i + 2)
        Case 0: resul(i + 2) = "Desconocido"
        Case 1
            If resul(i + 4) = 0 Or (resul(i + 4) = 1457664 And resul(i + 3) = "FAT") Then
                resul(i + 2) = "Disquete de 3½"
            Else
                resul(i + 2) = "Unidad removible"
            End If
        Case 2: resul(i + 2) = "Disco local"
        Case 3: resul(i + 2) = "Unidad de red"
        Case 4: resul(i + 2) = "CD-ROM"
        Case 5: resul(i + 2) = "Disco RAM"
        Case Else: resul(i + 2) = "Desconocido"
    End Select
    i = i + 6
Next
Drives = resul
End Function

La idea si no me ekivoko es esta: Poner al final del server los datos de la IP, el puerto, etc... (si van cifrados mejor), después el server lo k hace es leer estos valores que estan al final y guardarlos en variables y ya estaría no??? Corrijanme si me ekivoko...lo k no entiendo es como el server lee despues eses valores, pues en el código que has puesto en el server no hay ninguna instruccion "Open" que se abra a si mismo, debe ser que estoy yo confundido, no entiendo de donde sacas la variable "filedata" ni donde estableces los valores de "ArrayCritico"

Gracias de todos modos, si es como yo pienso ya voy teniendo una idea algo más clara...

Saludos y gracias

P.D.: Wactor, aún no tuve tiempo de mirar el tuyo, lo siento...

Ya lo he provado, muchas gracias funciona a las mil maravillas. Sabes algún código para algun algoritmo más o algun sitio de donde sacarlos??

Lo k más me interesaría es como saber el código MD5 de un archivo (no se si se puede hacer con el código que me diste)...

Si tienes más porfavor ponlos o dime de donde los sacastes

Muchas gracias. Saludos

Weno, en el caso de la librería MSVBVM60.dll puede que sea más dificil, pero la verdad a mi me importaría más k faltaran componentes OCX, es bastante común...

Ya me imaginaba que para MSVBVM60.dll se necesitaría añadir algo en ensamblador, pork sin esa librería el programa no se carga. Lo k dices parece buena idea pero la verdad no se como hacerlo...sería lo mismo para evitar errorespor falta de componentes OCX??? No me importa k el programa no funcione, solo k en caso de faltar alguna librería no de un mensaje de error.

Yo a veces lo k hago es crear un archivo SFX que descomprime el ejecutable y en caso de no existir alguna librería, la copia, lo malo es k se añade el peso de las librerías al programa...

Saludos

Gracias  voy a mirarlo tiene buena pinta, aunke pensé k no iba a ser tan largo jejeje.

Saludos