hallo
kann mir jemand sagen wie ich mit autoit den standartbrowser bestimmen/setzten kann?
mir fehlt der ansatz dafür total...
mfg
hallo
kann mir jemand sagen wie ich mit autoit den standartbrowser bestimmen/setzten kann?
mir fehlt der ansatz dafür total...
mfg
_GetStandartBrowser()
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
MsgBox(0,"Standartbrowser",$StandartBrowser)
[/autoit]
mfg
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())
Func _GetStandardBrowser()
Return StringRegExpReplace(RegRead('HKEY_CURRENT_USER\Software\Classes\http\shell\open\command', ''), '.+\\(.+)\.exe.+', '$1')
EndFunc
Und vor allem: Standard bitte!
Ich hab auch noch eine Variante die ohne Array auskommt:
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
Edit: Nach Einwand von Oscar jetzt auch "des Users".
Edit2: Fehler korrigiert. Danke SEuBo.
[autoit]"des Users : " & @TAB & _Get_Standardbrowser(False)
[/autoit]
Da müsste dann aber das False zu einem True werden
Aber ansonsten recht gute Arbeit.
Mist, "Copy And Paste"-Fehler !