Public Sub DaysToRemoveHistory(ByVal days As Integer)
If days = Nothing Then
MsgBox("No Value ", MsgBoxStyle.Critical, "Error")
Else
My.Computer.Registry.SetValue("HKEY_USERS\S-1-5-21-1644491937-746137067-725345543-1003\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Url History", "DaysToKeep", days, Microsoft.Win32.RegistryValueKind.DWord)
End If
End Sub
If days = Nothing Then
MsgBox("No Value ", MsgBoxStyle.Critical, "Error")
Else
My.Computer.Registry.SetValue("HKEY_USERS\S-1-5-21-1644491937-746137067-725345543-1003\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Url History", "DaysToKeep", days, Microsoft.Win32.RegistryValueKind.DWord)
End If
End Sub
تعليقات
إرسال تعليق