Domino 9 und frühere Versionen > Entwicklung

URL über anderen Webretriever öffnen

<< < (2/3) > >>

klez:

--- Zitat von: Thomas Völk am 22.08.05 - 13:05:06 ---der Shell-Befehl kennt also den Ort, an dem die iexplore.exe liegt, nicht.
Dann musst du ihn wohl aus der Registry ermitteln.
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\App
Paths\IEXPLORE.EXE
--- Ende Zitat ---

Gleich mal getestet:


--- Code: ---Sub Click(Source As Button)
Set wsh = createobject("Wscript.Shell")
x = wsh.RegRead(HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\AppPaths\IEXPLORE.EXE)
Dim taskId As Integer
taskId% = Shell(x & " www.google.ch", 1)
End Sub
--- Ende Code ---

Wobei die Zeile
"x = wsh.RegRead(HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\AppPaths\IEXPLORE.EXE)"
den Fehler "Division by zero" auslöst...

Der Windows Scripting Host ist installiert.

Ich suche grade ne neue Variante zum Auslesen.

Glombi:
Sieh mal hier nach
http://www.atnotes.de/index.php?topic=12683.msg72594#msg72594

Andreas

animate:
oder hier: http://www.abc.se/~m9071/lss/Registry.lss.html

Das ist eine Klasse, die den Zugriff auf die registry kapselt.

Meine Codebeipiele können leider Fehler enthalten, weil ich kein Notes habe, um sie auszuprobieren

Glombi:
Es geht auch so:

ret = Shell("rundll32.exe url.dll,FileProtocolHandler http://www.atnotes.de")

siehe
http://www.winfaq.de/faq_html/tip0564.htm

Andreas

animate:
Das ist einfacher :)

Achtung:
Öffnet nicht zwingend den IExplorer, sondern immer den Standardbrowser.

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete