Discussion :

[poussin_44]

Bonjour,

je souhaite renommer un ordinateur suivant le nom passé en argument dans une textBox et validé par un bouton.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub Bt1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bt1.Click
 
End Sub

Donc j'ai mon bouton et je voudrais insérer une fonction à l'intérieur pour changer le nom du pc :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Private Declare Function SetComputerName Lib "kernel32" Alias "SetComputerNameA" (ByVal lpComputerName As String) As Long
Public Function ChangeComputerName(NewName As String) As Boolean
 
On Error Resume Next
Dim lret As Long
 
lret = SetComputerName(NewName)
If Err.Number = 0 Then ChangeComputerName = lret <> 0
 
End Function

[Aspic]

Attends soit je comprends rien au probleme, soit ta question est vraiment niveau (très) débutant !

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Dim NomPc as String = ChangeComputerName(Textbox1.Text)

C'est ca que voulais savoir ?

EDIT : Es tu sur d'etre dans le bon forum ? car la c'est le forum Script...

[poussin_44]

En fait le problème est que changeComputerName n'est pas déclaré et si je le déclare en tant que fonction à l'intérieur de

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub Bt1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bt1.Click
 
End Sub

alors là il me génère des erreurs

[Aspic]

Normal tu ne mets pas une fonction dans une procédure !

Soit tu mets ta fonctions en dehors et tu l'appelles avec mon code ou alors tu supprimes ta fonction et tu mets le code de ta fonction dans ta procédure.

[poussin_44]

Merci pour tes conseils
mais malheureusement alors que le code ne génère aucune erreur, le changement de nom ne s'effectue pas.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
    Private Declare Function SetComputerName Lib "kernel32" Alias "SetComputerNameA" (ByVal lpComputerName As String) As Long
    Public Function ChangeComputerName(ByVal NewName As String) As Boolean
 
        On Error Resume Next
        Dim lret As Long
 
        lret = SetComputerName(NewName)
        If Err.Number = 0 Then ChangeComputerName = lret <> 0
 
    End Function

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
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

j'ai essayé avec les deux fonction ci-dessus, puis ensuite

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
    Private Sub Bt1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bt1.Click
        If RadioBtn1.Checked Then
            Label1.Text = nomOrdi & "-P"
        Else
            Label1.Text = nomOrdi & "-C"
        End If
 
Dim NomOrdiComplet As String = ChangeComputerName(Label1.Text)
If Retour = True Then
    MsgBox("Le nom de votre ordinateur a été changé")
Else
    MsgBox("Le nom de votre ordinateur n'a pas été changé")
End If
 
    End Sub

Et là lorsque je clic sur mon bouton, il me met que le nom de l'ordi a changer alors qu'il n'en est rien. Je trouve ça bizarre aussi qu'il ne me propose pas de rebooter, que d'un simple clic le pc soit renommé.
Je ne sais pas si je suis clair? (c'est un gros pb pour moi d'etre clair )

[Aspic]

Y'a des erreurs de conversions dans ton code deja !

Mets cela en haut de ta feuille :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Option Strict On
Option Explicit On

Ensuite d'ou sort cette variable "Retour" non déclarée ?