Браузер по умолчанию

Узнаем какой браузер выбран по умолчанию.

Dim regshell As Object
Dim DefaultBrowser As String
regshell = CreateObject("Wscript.Shell")
DefaultBrowser = regshell.regread("HKEY_CLASSES_ROOT\HTTP\shell\open\command\")
DefaultBrowser = LSet(DefaultBrowser, InStr(1, DefaultBrowser, ".exe", vbTextCompare) + 4)
DefaultBrowser = Replace(DefaultBrowser, Chr(34), vbNullString)
MsgBox(IO.Path.GetFileName(DefaultBrowser), , "Браузер по умолчанию")

DefaultBrowser Браузер по умолчанию

  Метки:
  Евгений
  Просмотров: 3 692
  Запись опубликована в 13:05

Есть что сказать? Тогда действуй!