![]() |
|
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
|
|
|
|
|
|
|
| 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: [ 1406 ]
|
|
|
Vorheriger Tipp
Zum Seitenanfang 