Func Defaultbrowser()
If StringInStr(RegRead("HKEY_CLASSES_ROOT\http\shell\ open\command",""),"firefox") <> 0 Then
$value = RegRead ("HKEY_CLASSES_ROOT\Applications\firefox.exe\sh ell \open\command", "")
$new = StringInStr ($value, "firefox.exe")
$test = StringTrimRight ($value, StringLen ($value) - $new - 10)
Return StringtrimLeft ($test, 1)
Else
$DFBAppDirPath = RegRead("HKEY_CLASSES_ROOT\http\shell\open\command ","")
$DFBNameArray = StringSplit($DFBAppDirPath,"\")
$DFBName = $DFBNameArray[UBound($DFBNameArray)-1]
$Path = StringTrimLeft($DFBAppDirPath, 1)
Return StringTrimRight($Path,1)
EndIf
EndFunc