| |
 | Online-Kurs: Grundlagen des 3D-Druck-Designs für Industrieingenieure , ein Kurs
|
Autor
|
Thema: Internetexplorer aufrufen (531 mal gelesen)
|
Fan-ME10 Mitglied DV-Adminstrator, Konstrukteur
  
 Beiträge: 543 Registriert: 21.08.2001 Erare humanum est
|
erstellt am: 15. Dez. 2004 09:01 <-- editieren / zitieren --> Unities abgeben:         
Hallo Programmiergemeinde, ich möchte den Internetexplorer mit Angabe einer Seite starten. (VB6) Ich weiß schon, mit der Shell-Funktion. Aaaaber, der Internetexplorer liegt doch bestimmt nicht auf jeder Maschine im gleichen Verzeichnis? Ich habe mal einen Aufruf gesehen, der immer geht, weiß aber nicht wo und wie der war. Bitte um Hilfe. ------------------ Gruß Wilfried  Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
BloodyMess Mitglied Applicationingenieur
  
 Beiträge: 604 Registriert: 06.06.2002 AutoCAD Map 3D 2005 (SP2 & SP1) / Win XP pro (SP1) & Win 2000 pro (SP4) AutoCAD Map 2000i / WinNT (SP6)
|
erstellt am: 15. Dez. 2004 09:13 <-- editieren / zitieren --> Unities abgeben:          Nur für Fan-ME10
Hallo Wilfried, Code: Sub test()Dim objIE As Object Set objIE = CreateObject("InternetExplorer.Application") objIE.Visible = True objIE.Navigate "http://www.meineseite.de" End Sub
Gruß TP ------------------ Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Fan-ME10 Mitglied DV-Adminstrator, Konstrukteur
  
 Beiträge: 543 Registriert: 21.08.2001 Erare humanum est
|
erstellt am: 15. Dez. 2004 09:28 <-- editieren / zitieren --> Unities abgeben:         
|
andy09 Mitglied

 Beiträge: 60 Registriert: 17.07.2003
|
erstellt am: 15. Dez. 2004 13:02 <-- editieren / zitieren --> Unities abgeben:          Nur für Fan-ME10
Moin zusammen, und wenn du dann diesen
Code: Option Explicit Private Declare Function ShellExecute Lib "shell32.dll" _ Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal _ lpOperation As String, ByVal lpFile As String, ByVal _ lpParameters As String, ByVal lpDirectory As String, _ ByVal nShowCmd As Long) As Long '------------------------------------------------------------ Private Sub URLimDefaultBrowser(xURL As String) Dim Result& Result = ShellExecute(Form1.hwnd, "Open", xURL, "", App.Path, 1) End Sub '------------------------------------------------------------ Private Sub Command1_Click() Call URLimDefaultBrowser("http://www.meineseite.de") End Sub
verwendest, geht sogar immer der Default Browser auf  Natürlich musste das noch entsprechend anpassen (Form1.hwnd usw.), aber es soll ja auch nur ein Beispiel sein. Die '---... sind nur für die Lesbarkeit hier mit drin.  Gruß Andy ------------------ Wenn du eine Lösung hast, die nicht zu deinem Problem passt, dann ändere das Problem. Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Fan-ME10 Mitglied DV-Adminstrator, Konstrukteur
  
 Beiträge: 543 Registriert: 21.08.2001 Erare humanum est
|
erstellt am: 15. Dez. 2004 14:07 <-- editieren / zitieren --> Unities abgeben:         
Hallo Andy, vielen Dank für deine Mühe. 10 U's sind unterwegs. Die Lösung von TP war schon ausreichend. Aber da sieht man wieder was draus wird, wenn man Perfektionist ist. Toll!! ------------------ Gruß Wilfried  Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |