Tipp 0107 Webseiten per DDE öffnen
Autor/Einsender:
Datum:
  Julian Scheel
22.07.2001
Entwicklungsumgebung:   VB 5
Das Dynamic Data Exchange (DDE) Protokoll ist zwar schon sehr alt, aber es legt fest auf welche Weise zwei Windows-Anwendungen Daten und Befehle austauschen können, wobei der Datenaustausch nach recht strengen Regeln abläuft.
Mit diesem Tipp lassen sich beliebige Webseiten mittels Opera, Internet Explorer oder Netscape per DDE öffnen.
 
Sub OpenURL(url As String)

  On Error GoTo GUBErrHandler

  If Netscape.Value = True Then
     labDDE.LinkTopic = "netscape|WWW_OpenURL"
  ElseIf IE.Value = True Then
     labDDE.LinkTopic = "iexplore|WWW_OpenURL"
  ElseIf Opera.Value = True Then
     labDDE.LinkTopic = "opera|WWW_OpenURL"
  End If

  q$ = Chr$(34)
  Item$ = q$ & url & q$ & ",,0xFFFFFFFF,0x0"
 
  labDDE.LinkItem = Item$
  labDDE.LinkMode = 2
  labDDE.LinkRequest

  Exit Sub

GUBErrHandler:
  On Error GoTo 0
End Sub

Private Sub Command1_Click()
  OpenURL txtURL.Text
End Sub
 
Weitere Links zum Thema
Hyperlink folgen
Web-Suche mit Google
Webbrowser mit vorgegebener URL öffnen

Windows-Version
95
98/SE
ME
NT
2000
XP
Vista
Win 7
VB-Version
VBA 5
VBA 6
VB 4/16
VB 4/32
VB 5
VB 6


Download  (2,2 kB) Downloads bisher: [ 1349 ]

Vorheriger Tipp Zum Seitenanfang Nächster Tipp

Startseite | Projekte | Tutorials | API-Referenz | VB-/VBA-Tipps | Komponenten | Bücherecke | VB/VBA-Forum | VB.Net-Forum | DirectX-Forum | Foren-Archiv | DirectX | VB.Net-Tipps | Chat | Spielplatz | Links | Suchen | Stichwortverzeichnis | Feedback | Impressum

Seite empfehlen Bug-Report
Letzte Aktualisierung: Donnerstag, 4. August 2011