Je sais pas si ça peut être ça, mais les contrôles OCX fournis avec VB6 datent de 1997...
Ils ne gèrent pas tous les noms de fichiers longs (ex : "C:\Program Files" devient "C:\Progra~1"), ils ne gèrent pas les fonctions récentes (c'est logique), etc...

A mon avis, vous feriez mieux d'essayer un contrôle OCX récent, ou une librairie DLL récente pour avoir moins de problèmes.

Par exemple la DLL de Internet Explorer : wininet.dll
Y'a quelques sources dessus, et vous trouverez facilement sur un site de recherche.

A+

Hello,
phtribaudeau a raison...

Dans la fonction suivante, la longueur de la chaîne est renvoyée à Resultat, et non l'id de l'atome :

Resultat = GlobalGetAtomName(Atom_Recu, Texte_Recu, 256)

Donc quand tu fais appel à GlobalDeleteAtom avec Resultat :

Resultat = GlobalDeleteAtom(Resultat)

...soit tu ne supprimes aucun Atome, soit tu supprimes le mauvais. Donc soit la mémoire se remplit gentillement, soit le système commence à perdre sa stabilité. :p
Dans les deux cas, c'est pas bon. Tu devrais vite modifier ça.

Sinon la source est excellente, simple et efficace. 10/10

A+

Salut,

Première chose :
Le dernier caractère de la clé n'est pas utilisé :

If cpt >= Len(cryptkey) Then cpt = 1

Tu aurais dû écrire :

If cpt > Len(cryptkey) Then cpt = 1

Deuxième chose :
Tu déclare cpt en Integer, ton programme perds de la rapidité d'exécution (il fonctionne moins vite). Pour l'optimiser, il faudrait déclarer tes variables numériques en Long, ça prend un peu plus de place en mémoire, mais ça booste énormément l'exécution (cf. : catégorie Optimisation sur le site).

Troisième chose et la plus importante :
Fais gaffe, pour un cracker y'a rien de plus simple à décrypter. ;o)

Ne prends pas mal ce que je dis, c'est pas le but. J'émets juste des critiques constructives. :oP
Sinon pour les débutants, c'est cool d'apprendre à utiliser les codes ascii -> 7/10.

Bon codage, a++

J'ai oublié, il était aussi question de boucles imbriquées. Ca change pas grand chose.

Ah okay... Je pensais que les expressions renvoyaient toutes une valeur String, merci de l'info. Ce qui veut dire que je vais me retaper vite fait une appli, bref...

Afyn : sauf si on commence tôt, avec le genre d'âge où on est content de découvrir qu'on peut se servir d'une variable :oP

Conseils utiles et assez complets, merci :o)
Mais y'a 2-3 trucs qui me paraissent un peu floues...


'Avant
If b >= 0 And b < 255 Then
    a = 32767
End If

'Après (à utiliser avec précaution)
If (b And 255) = b Then
    a = 32767
End If

Dans la première vérification, tu admets une valeur allant de 0 à 254, mais dans la deuxième, tu admets en plus la valeur 255.


Sub DecomposeRGB(Couleur As Long)
    'Avant (maths)
    cb = Int(Couleur / 65536)
    cg = Int((Couleur - cb * 65536) / 256)
    cr = Couleur - cg * 256 - cb * 65536

    'Après (bitmask)
    cb = Couleur And 255&
    cg = (Couleur And &HFF00&) / 256&
    cr = (Couleur And &HFF0000) / &H10000
End Sub

Là, il me semble que tu as inversé les variables "rouge" et "bleu" dans le 2me exemple. :o)


'Après (selon besoins de préçision)
Declare Sub Sleep Lib "kernel32" (ByVal DureeMS As Long)
Sub Wait2(Duree As Single)
Dim t1 As Single
    t1 = Timer + Duree
    Do While Timer < t1
        DoEvents    '<= evite de bloquer le système
        Sleep 1&    '<= libère le CPU pendant 1 milliseconde (évite de chauffer)
    Loop
End Sub

Le Sleep est une bonne idée pour libérer un peu le CPU, mais le problème (comme les contrôles Timer, l'API GetTickCount, et du style) sont de l'ordre des ~50/~15 ms selon le système d'exploitation (9X/NT). Et ça enlève énormément de précision selon la nature du programme (Animation, DirectX, ...).


Une question concernant les chaînes de caractères, les instructions Left$, Mid$, etc... sont-elles différentes des Left, Mid, etc... ?

En tout cas, c'est cool de voir des sources utiles. ;o)

PS : je jurerais que t'étais sur C64 ou Atari vu les I dans les boucles.. :o)

Hmmbon, je recommence, dans : HKEY_CURRENT_USER --> Software --> VB and VBA Program Settings --> DTM

Ah okay, merci. Donc en effet, je connais pas du tout GetKeySate, je l'ai juste vu une fois, mais sans plus. En j'ai fais mon prg avec DX surtout pour apprendre les routines de bases, pour des futurs projets (comme des petits jeux, on verra).
Et concernant la base de registre, c'est une simple question de "confort" pour l'utilisateur, pour le tempo, touches de raccourcis, etc...
Au cas-où, pour ceux qui veulent enlever les traces, les clés se trouvent dans : HKEY_CURRENT_USERSoftwareVB and VBA Program SettingsDTM

Pour plusieurs raisons (pas forcément objectives, mais bon...).
1.Je ne connais pas bien la fonction GetKeyState, mais si je me trompe pas, toutes les touches n'étaient pas accessibles avec cette fonction.
2.J'avais envie de me lancer dans DX8 :oP
Et sinon le "dosleep1loop", je connais pas cette race, sorry, ni la "bdr" d'ailleurs (ça concerne DX ou le prog en lui-même ?)...
Si tu peux m'expliquer stp ?

Disons que j'ai créé ce programme parce que je compose avec Reason, et dans ce soft, il n'y a pas de témoin de temps. Donc moi qui voulais savoir la durée de mes musiques, je me suis simplement fait ce petit prog.
Maintenant c'est clair que ça sera pas util à bcp de monde, mais je l'ai mis sur le site pour que les utilisateurs puissent y apprendre des choses qu'ils ne connaissent pas, si je me trompe pas, c'est le but du site (pour répondre à tmcuh).
Quant aux mots-clés anglais, c'est simplement une habitude que j'essaie de prendre.
Merci pour les commentaires en tout cas :o)