standartbrowser bestimmen?

derda

hallo

kann mir jemand sagen wie ich mit autoit den standartbrowser bestimmen/setzten kann?

mir fehlt der ansatz dafür total...

mfg

Kevinch

Reg benutzen

HKEY_CLASSES_ROOT\HTTP\shell\open\command

damit solltest du den ändern können.

kleines Edit:

Firefox:

Code

Windows Registry Editor Version 5.00


[HKEY_CLASSES_ROOT\HTTP\shell\open\command]
@="C:\\PROGRA~1\\MOZILL~1\\FIREFOX.EXE -requestPending -osint -url \"%1\""

IE:

Code

Windows Registry Editor Version 5.00


[HKEY_CLASSES_ROOT\HTTP\shell\open\command]
@="\"C:\\Programme\\Internet Explorer\\iexplore.exe\" -nohome"

Nuke

[autoit]

_GetStandartBrowser()

[/autoit][autoit][/autoit][autoit]

Func _GetStandartBrowser()
Global $StandartBrowser
$i = RegRead("HKEY_CLASSES_ROOT\http\shell\open\command","")
$i = StringLeft($i, StringInStr($i, "exe")+3)
$x = StringSplit($i,Chr(34),0)
$Index = _ArraySearch($x, "exe", 0, 0, 0, 1)
$StandartBrowser = $x[$Index]
EndFunc

[/autoit][autoit][/autoit][autoit]

MsgBox(0,"Standartbrowser",$StandartBrowser)

[/autoit]

mfg

**Oscar**

Oh, mann! Hast aber 'ne Leiche ausgebuddelt.

Nimm lieber "HKEY_CURRENT_USER\Software\Classes\http\shell\open\command", dann bekommst Du den Pfad vom gerade angemeldeten User.

Das geht übrigens auch als Einzeiler:

[autoit]

MsgBox(0,0,_GetStandardBrowser())

[/autoit][autoit][/autoit][autoit]

Func _GetStandardBrowser()
Return StringRegExpReplace(RegRead('HKEY_CURRENT_USER\Software\Classes\http\shell\open\command', ''), '.+\\(.+)\.exe.+', '$1')
EndFunc

[/autoit]

Und vor allem: Standard bitte!

**peethebee**

http://de.wikipedia.org/wiki/Standart

Micha_he

Ich hab auch noch eine Variante die ohne Array auskommt:

Spoiler anzeigen

[autoit]

MsgBox(0, "Standardbrowser", "des Systems : "& @TAB & _Get_Standardbrowser(False) & @CRLF & @CRLF & "des Users : " & @TAB & _Get_Standardbrowser(True))

[/autoit] [autoit][/autoit] [autoit]

Func _Get_Standardbrowser($user = True)
If $user Then
$key = RegRead("HKEY_CURRENT_USER\Software\Classes\http\shell\open\command","")
Else
$key = RegRead("HKEY_CLASSES_ROOT\http\shell\open\command","")
EndIf
If StringLeft($key, 1) = '"' Then
$key = StringMid($key, 2, StringInStr($key, '"', 0, 2) - 2)
Else
If StringInStr($key, " ") > 0 Then $key = StringLeft($key, StringInStr($key, " ") - 1)
EndIf
If StringLen($key) > 0 Then Return $key
Return 0
EndFunc

[/autoit]

Edit: Nach Einwand von Oscar jetzt auch "des Users".
Edit2: Fehler korrigiert. Danke SEuBo.

SEuBo

Zitat von Micha_he

[autoit]
"des Users : " & @TAB & _Get_Standardbrowser(False)
[/autoit]

Da müsste dann aber das False zu einem True werden
Aber ansonsten recht gute Arbeit.

Micha_he

Mist, "Copy And Paste"-Fehler !