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

 

 


Tema destacado: Introducción a Git (Primera Parte)


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP)
| | | |-+  Programación Visual Basic (Moderadores: LeandroA, seba123neo)
| | | | |-+  Registrar OCX Desde VB 6.0
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: Registrar OCX Desde VB 6.0  (Leído 12,877 veces)
TheGhost(Z)

Desconectado Desconectado

Mensajes: 230



Ver Perfil
Registrar OCX Desde VB 6.0
« en: 18 Agosto 2008, 17:16 pm »

Hola, Este Codigo me resgistra los OCX
Código:
Option Explicit
Public Declare Function RegComCtl32 Lib "KewlButtonz.ocx" Alias "DllRegisterServer" () As Long
Public Declare Function UnRegComCtl32 Lib "KewlButtonz.ocx" Alias "DllUnregisterServer" () As Long
Public Const S_OK = &H0
Sub RegisterComCtl32()
On Error GoTo Err_Registration_Failed
    If RegComCtl32 = S_OK Then
        MsgBox "Archivo registrado"
    Else
        MsgBox "Archivo no registrado"
    End If
    Exit Sub
Err_Registration_Failed:
MsgBox "Error: " & Err.Number & " " & Err.Description
End Sub
Sub UnRegisterComCtl32()
On Error GoTo Err_Unregistration_Failed
    If UnRegComCtl32 = S_OK Then
        MsgBox "Archivo desregistrado"
    Else
        MsgBox "Archivo no desregistrado"
    End If
Exit Sub
Err_Unregistration_Failed:
MsgBox "Error: " & Err.Number & " " & Err.Description
End Sub


El OCX es KewlButtonz.ocx, pero en este codigo esta ingresado directamente.. como aria para pasarlo como variable... ese decir que diga por ejemplo ArchivoOCX y ya le paso el nombre con cun ComanDialog


En línea

aaronduran2


Desconectado Desconectado

Mensajes: 790



Ver Perfil WWW
Re: Registrar OCX Desde VB 6.0
« Respuesta #1 en: 18 Agosto 2008, 23:29 pm »

El código registra el OCX desde el propio archivo, por lo que tendrías que buscar otro método para registrarlos.

Saludos.


En línea

naderST


Desconectado Desconectado

Mensajes: 625



Ver Perfil WWW
Re: Registrar OCX Desde VB 6.0
« Respuesta #2 en: 18 Agosto 2008, 23:31 pm »

Create un installer.
En línea

TheGhost(Z)

Desconectado Desconectado

Mensajes: 230



Ver Perfil
Re: Registrar OCX Desde VB 6.0
« Respuesta #3 en: 19 Agosto 2008, 09:43 am »

No se, como que no entiendo muhco este codigo
no se enque momento registra al ocx si los dos SUb que hay solo comprueba que  si esta o no registradi, no?
En línea

cassiani


Desconectado Desconectado

Mensajes: 978


« Anterior | Próximo »


Ver Perfil WWW
Re: Registrar OCX Desde VB 6.0
« Respuesta #4 en: 20 Agosto 2008, 21:46 pm »

Te servirá esto?

Código
  1. Option Explicit
  2.  
  3. '-------------------------------------
  4. 'copy marchoso.ocx %windir%\system32
  5. 'regsvr32 marchoso.ocx'
  6. '------------------------------------
  7.  
  8. Private Sub CmdRegistrar_Click()
  9.    Open "Registra.bat" For Output As #1
  10.            'Copiamos el control a system32
  11.            Print #1, "copy " & Text1.Text & " %windir%\system32"
  12.            'Ahora registramos el control
  13.            Print #1, "regsvr32 " & Text1.Text
  14.           'Borramos el bat
  15.            Print #1, "del Registra.bat"
  16.    Close #1
  17.    'Ejecutamos el bat
  18.    Shell ("Registra.bat"), vbHide
  19.    Unload Me
  20. End Sub
  21.  

En lugar del Text1.Text colocas el CD1.FileName que debera ser diferente de ""  ;)
En línea

TheGhost(Z)

Desconectado Desconectado

Mensajes: 230



Ver Perfil
Re: Registrar OCX Desde VB 6.0
« Respuesta #5 en: 23 Agosto 2008, 15:08 pm »

Gracias lo probare
En línea

seba123neo
Moderador
***
Desconectado Desconectado

Mensajes: 3.621



Ver Perfil WWW
Re: Registrar OCX Desde VB 6.0
« Respuesta #6 en: 23 Agosto 2008, 15:15 pm »

eso es mas batch que visual basic ...pero bue..si lo soluciona esta bien... :xD
En línea

Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
registrar a un usuario desde php y almacenarlo en mysql con mysqli_query() SOLUC « 1 2 »
PHP
jhonatanAsm 17 7,619 Último mensaje 20 Octubre 2011, 06:26 am
por jhonatanAsm
Desde criticar en Twitter hasta piratear por lucro: por esto podrán registrar...
Noticias
wolfbcn 0 1,203 Último mensaje 27 Abril 2015, 02:20 am
por wolfbcn
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines