Private Declare Function IsValidURL Lib "URLMON.DLL" (ByVal pbc As Long, ByVal _
  szURL As String, ByVal dwReserved As Long) As Long

Public Function IsGoodURL(ByVal sURL As String) As Boolean
    sURL = StrConv(sURL, vbUnicode)
    IsGoodURL = (IsValidURL(ByVal 0&, sURL, 0) = S_OK)
End Function

' Edit-Klasse gefunden ?
  If buf = "Edit" Then
    ' ja, d.h. wir brauchen nur noch den
    ' Text auslesen
    getURL = ReadText(window_hwnd)
    Exit Function
  End If

Dim URL as String
If buf = "Edit" Then
        URL = ReadText(window_hwnd)
        If IsGoodURL(URL) Then
            getURL = URL
            Exit Function
        End If
End If

Gr??e,
Frank
-----------------------------------
die deutsche Community f?r PDA-Programmierer (Pocket PC und Palm OS)