Création de licenses pour ocx

0/5 (4 avis)

Vue 14 664 fois - Téléchargée 970 fois

Description

Il vous ai deja arriver de telecharger un fichier OCX d' internet, et tout content de pouvoir l' utiliser vous le placez sur votre formulaire et soudain y' a un message chiant qui apparait : vous n' avez po votre sale license et donc voun ne pouvez pas utiliser ce foutu controle - bah !ca ferait presque rire-.
Eh ben dites vous que j' ai trouvé une solution qui, ma foi, marche.
Quand vous placez le controle MSFLXGRD ,par exemple, sur le formulaire, la version que vs avez de VB recherche dans le base de registre le nom de clé suivant : HKEY_CLASSES_ROOT, Licenses\72E67120-5959-11cf-91F6-C2863C385E30 et ensuite rechershe sa valeur qui en ,loccurence, est ibcbbbebqbdbciebmcobmbhifcmciibblgmf . Si cette cette valeur n' est pas celle specifiée dans les Fichiers OCX ou OCA alors apparait le message etc...
Dans le zip j' est inclu un petit prog qui pemet d' ecrire dans la base de registre, MSFLXGRD.OCX, et un fichier REG que vous pouvez fusionner à votre base de registre si le prog ne fonctionne po

Source / Exemple :


'Declaration des Fonctions API utilisées
Private Const HKEY_CLASSES_ROOT As Long = &H80000000

Private Declare Function RegSetValueEx Lib "advapi32.dll" Alias "RegSetValueExA" ( _
     ByVal hKey As Long, _
     ByVal lpValueName As String, _
     ByVal Reserved As Long, _
     ByVal dwType As Long, _
     lpData As Any, _
     ByVal cbData As Long) As Long

Private Declare Function RegCreateKey Lib "advapi32.dll" Alias "RegCreateKeyA" ( _
     ByVal hKey As Long, _
     ByVal lpSubKey As String, _
     phkResult As Long) As Long

Private Sub form_load()
Dim lreturn As Long
Dim lPointer
 ' change la forme du curseur
 Form1.MousePointer = 11
 'creation de la clé qui represente la license de MSFLXGRD.OCX
lreturn = RegCreateKey(HKEY_CLASSES_ROOT, "Licenses\72E67120-5959-11cf-91F6-C2863C385E30", lPointer)
 'creation de la valeur de la clé
 lreturn = RegSetValueEx(lPointer, "", 0, 1, ByVal ("ibcbbbebqbdbciebmcobmbhifcmciibblgmf"), &H250)
 Form1.MousePointer = 0
 MsgBox "Ecriture ds la base de registre accomplie avc succes"
End Sub

Conclusion :


En ce moment j' essaye de faire le meme chose pour les controles MSCOMM32.OCX et MSWINSCK.OCX, mais le probleme c' est que je les ai telecharger du web et donc je n' ai pas les clés ni les licenses qu' il me faut

Codes Sources

A voir également

Ajouter un commentaire Commentaires
bouv
Messages postés
1411
Date d'inscription
mercredi 6 août 2003
Statut
Membre
Dernière intervention
3 mars 2019
1
29 avril 2004 à 21:24
Que faites vous des droits d'auteur ?!?!...
cs_Jael
Messages postés
8
Date d'inscription
mercredi 27 février 2002
Statut
Membre
Dernière intervention
11 janvier 2006

19 avril 2004 à 16:19
Bonjour,
Juste une tit question, pour avoir le numéro et la licence d'un OCX, vous avez fait comment?
Merci de votre aide
cs_adrien92
Messages postés
1
Date d'inscription
jeudi 30 octobre 2003
Statut
Membre
Dernière intervention
30 octobre 2003

30 oct. 2003 à 19:02
pour mscomm32 c'est :
4250E830-6AC2-11cf-8ADB-00AA00C00905 et kjljvjjjoquqmjjjvpqqkqmqykypoqjquoun

merci du tuyau en tous cas
vbGuy
Messages postés
60
Date d'inscription
samedi 10 novembre 2001
Statut
Membre
Dernière intervention
13 juin 2004

29 déc. 2001 à 11:43
Désolé pour le zip chq x que j' essaye de l' uploader il ya une erreur

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.