English
- Function TOURL() As String 'ONLY TEST NO USE...
- Dim f As Long, f2 As Long, f3 As Long, f4 As Long
- Dim MYTEXT As String * 255
- f = FindWindow("IEFrame", vbNullString)
- f2 = FindWindowEx(f, 0, "msctls_statusbar32", vbNullString)
- If f2 = 0 Then Exit Function
- Call SendMessage(f2, WM_GETTEXT, 255, ByVal MYTEXT)
- If InStr(LCase(MYTEXT), "java") <> 0 Then
- TOURL = MYTEXT
- Else
- TOURL = ""
- End If
- End Function
