Question

我使用IE作为表单来提供正在运行的进程的反馈。随着流程的更新，它们最终会超出窗口大小。我想要发生的是IE窗口将锁定到页面的底部而不是顶部，因此当数据出现时它会向下滚动 - 几乎就像'尾部'函数

这是我用来创建我将数据泵入

的IE窗口

Sub ExplorerWindow(strStage)

        Set objExplorer = WScript.CreateObject("InternetExplorer.Application","IE_")

        objExplorer.Navigate "about:blank"
        objExplorer.ToolBar = 0
        objExplorer.StatusBar = 0
        objExplorer.Width = 600
        objExplorer.Height = 700
        objExplorer.Left = 350
        objExplorer.Top = 100
        objExplorer.Visible = 1

        Do While (objExplorer.Busy)
        Loop

        Set ObjDoc = objExplorer.Document

        ObjDoc.Open
        ObjDoc.Writeln "<html><h1><center>DO NOT TOUCH THE KEYBOARD OR MOUSE</center></h1>"
        objDoc.Writeln "<body bgcolor='white'>"
        objDoc.Writeln "<font face='Lucida Console,Courier,mono'>"
        objDoc.body.style.cursor = "wait"

        strDescription = "Stage " & strStage

        objDoc.Writeln "<h1>" & strDescription & "</h1><hr>"
        Call LogTheEvent(b2k, strDescription)
End Sub

Answer 1

我明白了。当我将数据写入表单时，我使用

objDoc.Writeln <Data Here>

现在我只需将以下行添加到序列

objDoc.Body.scrollTop = objDoc.Body.scrollTop + objDoc.Body.scrollHeight

vbscript如何强制IE滚动条锁定到底部

1 个答案: