Voila le code contient un module il suffit d'entre le chemin d'acces complet dans un textbox et le fichier inscrit démarrera à chaque foisil n'apparaitra pas dans
la liste de Ctrl + Alt + Suppr
Conclusion :
Bon cela peut servir à quelque chose de bon comme de mauvais il ni a pas plus eficase
29 déc. 2003 à 14:48
Xav
29 déc. 2003 à 10:49
'On reforme car les "antislash" n'apparaissent pas...
dim Wsch
Private sub CheckBox_Click
AppChanged=IIF(AppChanged False,True,False)
end sub
Private sub AppChanged(Etat as boolean)
Set Wsch = CreateObject("Wscript.Shell")
if Etat=False then
'on supprime
Wsch .regdelete "HKEY_LOCAL_MACHINESOFTWAREMicrosoftWindowsCurrentVersionRunTon Programme"
else 'on inscrit
Wsch .regwrite "HKEY_LOCAL_MACHINESOFTWAREMicrosoftWindowsCurrentVersionRunTon Programme", App.Path & "Ton Programme.exe", "REG_SZ"
end if
Bonne continuation
29 déc. 2003 à 10:41
Private sub CheckBox_Click
AppChanged=IIF(AppChanged False,True,False)
end sub
Private sub AppChanged(Etat as boolean)
if Etat=False then
'on supprime
Wsch .regdelete "HKEY_LOCAL_MACHINESOFTWAREMicrosoftWindowsCurrentVersionRunTon Programme"
else
'on inscrit
Wsch .regwrite "HKEY_LOCAL_MACHINESOFTWAREMicrosoftWindowsCurrentVersionRunTon Programme", App.Path & "Ton Programme.exe", "REG_SZ"
end if
Bonne continuation
29 déc. 2003 à 10:33
Set WshShell = CreateObject("Wscript.Shell")
WshShell.RegDelete "HKEY_LOCAL_MACHINESoftwareMicrosoftWindowsCurrentVersionRunNOM DU FICHIER QUE TU VEUT SUPP" ' supprime le paramètre
28 déc. 2003 à 23:22
Voila et Bonne Année 2004 à tous
Xav
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.