Création de licenses pour ocx

0/5 (4 avis)

Vue 14 856 fois - Téléchargée 978 fois

Télécharger le projet
Commenter

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
Télécharger le projet

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
S'inscrire maintenant

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.

Du même auteur (vbGuy)