Vous avez déjà remarqué, quand on fait démarrer, et qu'on place le pointeur sur programmes, le sous menu met du temps à s'afficher. Ce logiciel permet d'augmenter ou de diminuer la vitesse.
Source / Exemple :
Private Sub Command1_Click()
If IsNumeric(Text1.Text) Then
Dim r
Set r = CreateObject("WScript.Shell")
r.RegWrite "HKEY_CURRENT_USER\Control Panel\Desktop\MenuShowDelay", Text1.Text
MsgBox "Changement effectué avec succès, veuillez redémarrer votre ordinateur", vbOKOnly + vbExclamation, "Terminé"
End
Else
MsgBox "Valeure incorrecte", vbOKOnly + vbCritical, "Attention"
End
End If
If Text1.Text < 0 Or Text1.Text > 100000 Then
MsgBox "Valeure incorrecte", vbOKOnly + vbCritical, "Attention"
Else
Set r = CreateObject("WScript.Shell")
r.RegWrite "HKEY_CURRENT_USER\Control Panel\Desktop\MenuShowDelay", Text1.Text
End If
End Sub
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.