Soyez le premier à donner votre avis sur cette source.
Snippet vu 6 927 fois - Téléchargée 42 fois
Declare Function SetComputerName Lib "kernel32" Alias "SetComputerNameA" (ByVal lpComputerName As String) As Long Public Function ChangerNomOrdi(NouveauNomOrdi As String) As Boolean On Error Resume Next Dim Changer As Long Changer = SetComputerName(NouveauNomOrdi) If Err.Number = 0 Then ChangerNomOrdi = True Else ChangerNomOrdi = False End If End Function 'Pour Changer le nom de votre ordinateur : Private Sub Form_Load() Dim Retour As Boolean Retour = ChangerNomOrdi("Fuck Bill Gates !!!") If Retour = True Then MsgBox ("Le nom de ton ordi a été changé") Else MsgBox ("Le nom de ton ordi n'a pas été changé") End If End Sub
8 juin 2002 à 09:38
3 avril 2002 à 15:55
Pour changer le nom du dique dur c'est:
Declare Function SetVolumeLabel Lib "kernel32" Alias "SetVolumeLabelA" (ByVal lpRootPathName As String, ByVal lpVolumeName As String) As Long
sub command1.click()
SetvolumeLabel "c:","ViveFriends"
end sub
16 mars 2002 à 13:45
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.