Private Function ReadScript(vWeb As WebBrowser) As String
    Dim Item As Object, s As String
    Dim Num As Integer
    If vWeb.object.Document Is Nothing Then Exit Function
    Num = 0
    For Each Item In vWeb.object.Document.scripts
        Num = Num + 1
        s = s + "===========" + Str(Num) + "===========" + vbCrLf
        s = s + Item.outerHTML + vbCrLf
        s = s + "======================================" + vbCrLf + vbCrLf + vbCrLf
    Next Item
    ReadScript = s

    Set Item = Nothing
End Function