Internet explorer vbscript如何强制IE滚动条锁定到底部_Internet Explorer_Vbscript_Scrollbar

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

internet-explorer vbscript

Internet explorer vbscript如何强制IE滚动条锁定到底部,internet-explorer,vbscript,scrollbar,Internet Explorer,Vbscript,Scrollbar,我使用IE作为一种形式来提供运行过程的反馈。随着进程的更新，它们最终会超出窗口大小。我想让IE窗口锁定在页面的底部而不是顶部，这样当数据出现时，它就会向下滚动，几乎就像一个“尾巴”功能这就是我用来创建IE窗口的方法，我将数据注入其中 Sub ExplorerWindow(strStage) Set objExplorer = WScript.CreateObject("InternetExplorer.Application","IE_") objExplo

我使用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

子探索者窗口（strStage）
设置objExplorer=WScript.CreateObject（“InternetExplorer.Application”、“IE_”）
objExplorer.导航“关于：空白”
objExplorer.ToolBar=0
objExplorer.StatusBar=0
objExplorer.宽度=600
objExplorer.高度=700
objExplorer.Left=350
objExplorer.Top=100
objExplorer.Visible=1
Do While（objExplorer.Busy）
环
设置ObjDoc=objExplorer.Document
ObjDoc.Open
ObjDoc.Writeln“请勿触摸键盘或鼠标”
objDoc.Writeln“”
objDoc.Writeln“”
objDoc.body.style.cursor=“等待”
strDescription=“Stage”和strStage
objDoc.Writeln“”&strDescription&“”
调用LogTheEvent（b2k，标准说明）
端接头

我想出来了。当我将数据写入我使用的表单时

objDoc.Writeln <Data Here>

我想出来了。当我将数据写入我使用的表单时

objDoc.Writeln <Data Here>