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滾動條鎖定底部

回答

相關問題