elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Sigue las noticias más importantes de seguridad informática en el Twitter! de elhacker.NET


  Mostrar Mensajes
Páginas: 1 2 3 4 5 6 7 8 9 10 11 12 [13] 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 ... 55
121  Programación / Programación Visual Basic / Re: Problema con dll's en: 27 Septiembre 2005, 06:08 am
A mi me funciona bien. Pero a ver vamos por paso:

1. Creas proyecto DLL ActiveX con un módulo de clase llamado clsErrorReporter.

2. Al proyecto lo llamas Error. No el nombre del archivo sino del proyecto, porque ese es el nombre con el que lo registra.

3. Propiedad Instancing de la clase a Multiuse, creas el procedimiento.

4. Compilas y ejecutas el código desde el otro programa en el evento Load del formulario.

Verifica lo del nombre del proyecto, es muy probable que sea eso.

Saludos.
122  Programación / Programación Visual Basic / Re: Problema con dll's en: 27 Septiembre 2005, 05:54 am
Bueno veo que con GetObject no funciona  :-\, pero debería. Modifiqué el código usando CreateObject para que cree el objeto desde el registro.

Por si no está registrada primero usa el programa REGSVR32 que se utiliza para registrar componentes ActiveX y está en todas las máquinas con Windows 95 o superior.

Código:
Private Sub Form_Load()
        Dim oErrorDll As Object
  
  Call Shell("regsvr32.exe /s C:\error.dll")
  
  Set oErrorDll = CreateObject("Error.clsErrorReporter")
  
  Call oErrorDll.CriticalError
End Sub

La nomenclatura siempre es la misma para las clases en el registro:

Citar
NombreDll.NombreObjeto

Saludos.
123  Programación / Programación Visual Basic / Re: Problema con dll's en: 27 Septiembre 2005, 05:29 am
Proyecto->Agregar módulo de clase

Al módulo de clase lo llamas ErrorReporter. Dentro del módulo sopongamos que escribis la función CriticalError. Entonces compilas la DLL y para llamar a la función usás el siguiente código:

Código:
Private Sub Form_Load()
        Dim oErrorDll As Object

  Set oErrorDll = GetObject("c:\error.dll", "ErrorReporter")

  Call oErrorDll.CriticalError
End Sub

Y así debe funcionar, el error que se produjo fue porque el módulo de clase no existía o su propiedad Instancing no estaba establecida a 5-MultiUse.

Saludos.
124  Programación / Programación Visual Basic / Re: Problema con dll's en: 27 Septiembre 2005, 04:49 am
Con la función GetObject podés crear dinánimacamente objetos desde un archivo.

Código:
        Dim oObject As Object

  Set oObject = GetObject("C:\MyLibreria.dll", "Class1")

También se pueden crear documentos de Word o Excel o cualquier archivo preparado para automatización.

Saludos.
125  Programación / Programación Visual Basic / Re: Proceso en: 27 Septiembre 2005, 00:45 am
Creas un archivo de recursos, después guardas un ícono en el archivo y con la función LoadResPicture cargas el recurso especificando el identificador.

El identificador es un valor de tipo numérico o de cadena que viene a ser el nombre de un recurso. En el caso de las tablas de cadenas siempre es un número.

Por ejemplo el siguiente código cargaría un ícono dependiendo de un estado determinado

Código:
Const STATUS_BUSY = 1
Const STATUS_FREE = 2
Const STATUS_WAIT = 3

Sub LoadIcon(Status As Integer)
      Dim csPicture As IPictureDisp
      Dim sRsrc$

  Select Case Status
    Case STATUS_BUSY: sRsrc = "ICON1"
    Case STATUS_FREE: sRsrc = "ICON2"
    Case STATUS_WAIT: sRsrc = "ICON3"
  End Select
  
  Set csPicture = LoadResPicture(sRsrc, vbResIcon)
End Sub

Saludos.
126  Programación / Programación Visual Basic / Re: Proceso en: 27 Septiembre 2005, 00:28 am
No creo que cambiandole el ícono al formulario funcione porque cambia el handle.

Lo mejor es eliminar el ícono (en este caso procedimiento NoIcono) y volver a crearlo (procedimiento Icono), sólo modificas un poco el procedimiento anterior para que le pase el handle al ícono que va a usar (propiedad Handle del objeto Icon del formulario o cualquier objeto IPictureDisp). El icono lo podés cargar desde un archivo o bien desde un recurso, que esto último es lo que se debería hacer.

El Timer sí sigue funcionando de la misma manera ya que es un mensaje que se le envía a la ventana y la ventana existe, sólo que está oculta.

Saludos.
127  Programación / Programación Visual Basic / Re: DoS Killer en VB6 en: 27 Septiembre 2005, 00:18 am
Si vas a hacer lameradas te lo curras solo.
128  Programación / Programación Visual Basic / Re: Asociar Archivos y que los abra el programa. en: 27 Septiembre 2005, 00:16 am
También podrías usar Replace$:

Código:
sData=Replace$(sData, Chr$(34), vbNullString)

Saludos.
129  Programación / Programación Visual Basic / Re: Troyano vb en: 26 Septiembre 2005, 03:54 am
Mandar emails por SMTP

Lee los post pegados que por algo están ahi.

Saludos.
130  Programación / Programación Visual Basic / Re: Ayuda con VB y un .TXT en: 26 Septiembre 2005, 02:10 am
Si querés que borre los datos del archivo existente lo abres de la siguiente manera:

Código:
Open "C:\file.txt" For Output As #1

Saludos.
Páginas: 1 2 3 4 5 6 7 8 9 10 11 12 [13] 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 ... 55
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines