VBScript, как заставить полосы прокрутки IE, чтобы заблокировать в нижней части - PullRequest
1 голос
/ 09 мая 2011

Я использую 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

1 Ответ

1 голос
/ 09 мая 2011

Я понял это.Когда я записываю данные в форму, я использую

objDoc.Writeln <Data Here>

Теперь я просто добавляю следующую строку в последовательность

objDoc.Body.scrollTop = objDoc.Body.scrollTop + objDoc.Body.scrollHeight
Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...