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

我使用IE作为表单来提供运行进程的反馈。随着进程的更新，它们最终会超出窗口大小。我想要发生的事情是，IE窗口将锁定在页面的底部而不是顶部，所以数据出现时会滚动下来 - 几乎像是一个'尾部'功能vbscript如何强制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

来源

2011-05-09 ccwhite1

我想通了。当我写数据到窗体我用

objDoc.Writeln <Data Here>

我现在只是将下面的行添加到序列

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

来源

2011-05-09 12:45:32 ccwhite1

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

回答

相关问题