‘ Get the path of a Windows application or an empty string if the application ‘ isn’t registered” This routine only works for those applications that register themselves under ‘
‘ Clear the IE’s HistorySub ClearIEHistory() Dim keyName As String = “SoftwareMicrosoftInternet ExplorerTypedURLs” ‘ delete the key that contains the URLs the history Microsoft.Win32.Registry.CurrentUser.DeleteSubKey(keyName, False) ‘ recreate the key, empty
‘ Test whether a font name and size is supported’ Returns True if the font is supported, False otherwise” If the font is supported but the size is not, it
Shared Function _ SHEmptyRecycleBin(ByVal hWnd As Integer, ByVal pszRootPath As String, _ ByVal dwFlags As Integer) As IntegerEnd Function’ Empty all the files in the Recycle Bin.” If RootPath is
Shared Function _ LogonUser(ByVal userName As String, ByVal domain As String, _ ByVal password As String, ByVal dwLogonType As Integer, _ ByVal dwLogonProvider As Integer, ByRef phToken As Integer) As
‘ Clear the Run History’ The MRU list is kept available until Explorer is restartedSub ClearRunHistory() Dim keyName As String = “SoftwareMicrosoftWindowsCurrentVersionExplorer” _ & “RunMRU” ‘ delete the key that