Тотальная неудачница и убийца жёстких дисков.
#post-id: 2881-01-27
#original-date: 15.06.2008 Sun
#original-time: 1:27 AM
#original-day: 2881
#original-host: WinXP Prof SP2 (Build 2600)
Мой любимый скрипт, однако ^^
#original-date: 15.06.2008 Sun
#original-time: 1:27 AM
#original-day: 2881
#original-host: WinXP Prof SP2 (Build 2600)
Мой любимый скрипт, однако ^^
// Пример для сервера сценариев Windows
//
// ------------------------------------------------------------------------
// (C) Корпорация Microsoft, 1996-1998
//
// Вы имеете право, не требующее дополнительных лицензионных платежей,
// на использование, изменение, воспроизведение и распространение файлов
// примеров (и любой измененной версии) любым способом, учитывая, что
// Корпорация Microsoft не предоставляет гарантий и обязательств,
// а также не несет ответственности за любой из файлов примеров
// ------------------------------------------------------------------------
// Этот пример демонстрирует использование Microsoft Excel с помощью сервера сценариев Windows.
var vbOKCancel = 1;
var vbInformation = 64;
var vbCancel = 2;
var L_Welcome_MsgBox_Message_Text = "Этот пример демонстрирует использование Microsoft Excel с помощью сервера сценариев Windows.";
var L_Welcome_MsgBox_Title_Text = "Пример сервера сценариев Windows";
Welcome();
//////////////////////////////////////////////////////////////////////////////////
//
// Пример Excel
//
var objXL;
objXL = W.CreateObject("Excel.Application");
objXL.Workbooks.Add;
objXL.Cells(1,1).Value = 5;
objXL.Cells(1,2).Value = 10;
objXL.Cells(1,3).Value = 15
objXL.Range("A1:C1").Select;
var objXLchart = objXL.Charts.Add();
objXL.Visible = true;
objXLchart.Type = -4100;
var intRotate;
for(intRotate = 5; intRotate <= 180; intRotate += 5) {
objXLchart.Rotation = intRotate;
}
for (intRotate = 175; intRotate >= 0; intRotate -= 5) {
objXLchart.Rotation = intRotate;
}
//////////////////////////////////////////////////////////////////////////////////
//
// Приветствие
//
function Welcome() {
var WSHShell = W.CreateObject("W.Shell");
var intDoIt;
intDoIt = WSHShell.Popup(L_Welcome_MsgBox_Message_Text,
0,
L_Welcome_MsgBox_Title_Text,
vbOKCancel + vbInformation );
if (intDoIt == vbCancel) {
W.Quit();
}
}