syrian developers community
visualbasic.net
Disable Windows Update
Oct 21st
Public Sub DisableWindowsUpdate(ByVal Enable As Boolean)
Select Case Enable
Case True
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer", "NoWindowsUpdate", "0", Microsoft.Win32.RegistryValueKind.DWord)
Case False
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer", "NoWindowsUpdate", "1", Microsoft.Win32.RegistryValueKind.DWord)
End Select
End Sub
Change Owner Name
Oct 21st
Public Sub ChangeOwnerName(ByVal name As String)
If Name = Nothing Then
MsgBox("You dont select name:", MsgBoxStyle.Critical, "Error")
Else
My.Computer.Registry.SetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion", "RegisteredOwner", Name)
End If
End Sub
