Change The Name of a Computer. (Code|VB6)
Publicado: 13 Feb 2015, 01:25
-API.
[code]Private Declare Function SetComputerName Lib "kernel32" Alias "SetComputerNameA" (ByVal lpComputerName As String) As Long[/code]
-CODE.
[code]Private Sub Command1_Click()
Dim bChange
Dim SetCompName
bChange = MsgBox("Do you want to change the name of your computer?", vbYesNo + vbInformation)
If bChange = vbYes Then
SetCompName = SetComputerName(Text1.Text)
End If
End Sub[/code]
You Need: 1 Botton + 1 Text
[code]Private Declare Function SetComputerName Lib "kernel32" Alias "SetComputerNameA" (ByVal lpComputerName As String) As Long[/code]
-CODE.
[code]Private Sub Command1_Click()
Dim bChange
Dim SetCompName
bChange = MsgBox("Do you want to change the name of your computer?", vbYesNo + vbInformation)
If bChange = vbYes Then
SetCompName = SetComputerName(Text1.Text)
End If
End Sub[/code]
You Need: 1 Botton + 1 Text