script

[katy_1]

Помогите прочитать следующий скрипт:
WshShell.AppActivate theSun.ProcessID
WshShell.SendKeys "2211"
WScript.Sleep 100
Заранее благодарна за помощь.

[FaKk2]

katy_1
Читаю (все читается медленно и с выражением):

WshShell.AppActivate theSun.ProcessID
WshShell.SendKeys "2211"
WScript.Sleep 100

[Ruslan Demidow]

Помогите прочитать следующий скрипт:
WshShell.AppActivate theSun.ProcessID
WshShell.SendKeys "2211"
WScript.Sleep 100
Заранее благодарна за помощь.

Всё просто: в новой версии Windows Script Host 2.0 (начиная с XP) есть возможность запустить приложение из скрипта и присвоить его ProcessID какой либо переменной. После этого можно обращаться к данному процессу через этот идентификатор. В твоём примере при запуске приложения из скрипта переменной theSun был присвоен ProcessID этого приложения. И строка WshShell.AppActivate theSun.ProcessID активирует это приложение (выводит на передний план и передаёт фокус ему).
Строка WshShell.SendKeys "2211" - посылает нажатия клавиш в активное окно (окно приложения с идентификатором theSun.ProcessID.
После этого происходит пауза в 100 милисекунд, чтобы до выполнения следующей строки скрипта данные в окне приложения с идентификатором theSun.ProcessID успели прорисоваться.

Прикладываю пример запуска блокнота таким образом.
В нём наглядно показано использование ProcessID

Код: Выделить всё


'*******************************************************************
' Имя: ExecWinApp.vbs                                             
' Язык: VBScript                                                   
' Описание: Запуск и закрытие приложение (объект WshScriptExec)   
'*******************************************************************
Option Explicit

Dim WshShell,theNotepad,Res,Text,Title   ' Объявляем переменные
' Создаем объект WshShell
Set WshShell = WScript.CreateObject("WScript.Shell")
WScript.Echo "Запускаем Блокнот"
' Запускаем приложение (создаем объект WshScriptExec)
Set theNotepad = WshShell.Exec("notepad")
WScript.Sleep 500   ' Приостанавливаем выполнение сценария
Text="Блокнот запущен (Status=" & theNotepad.Status & ")" & vbCrLf _
      & "Закрыть Блокнот?"
Title=""
' Выводим диалоговое окно на экран
Res=WshShell.Popup(Text,0,Title,vbQuestion+vbYesNo)
' Определяем, какая кнопка нажата в диалоговом окне
If Res=vbYes Then
  theNotepad.Terminate ' Прерываем работу Блокнота
  ' Приостанавливаем выполнение сценария для того, чтобы Блокнот
  ' успел закрыться
  WScript.Sleep 100
  WScript.Echo "Блокнот закрыт (Status=" & theNotepad.Status & ")"
End If
'*************  Конец *********************************************/


Остальное легко можно найти в справке по VB-script.