Ver Mensaje Individual
  #2 (permalink)  
Antiguo 11/07/2002, 12:44
Avatar de DanielRey
DanielRey
Usuario no validado
 
Fecha de Ingreso: enero-2001
Ubicación: Mendoza
Mensajes: 630
Antigüedad: 24 años
Puntos: 1
Re: se puede ejecutar????

Hola Guarair@ :)

Guardá esto en un archivo "demo.js" y después hacele doble click:
Código:
var vbOKCancel = 1;
var vbInformation = 64;
var vbCancel = 2;

var L_Welcome_MsgBox_Message_Text = "Este archivo de comandos demuestra cómo obtener acceso a Excel usando el Windows Scripting Host.";
var L_Welcome_MsgBox_Title_Text = "Ejemplo de Windows Scripting Host";
Welcome();

var objXL;

objXL = WScript.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 = WScript.CreateObject("WScript.Shell");
var intDoIt;

intDoIt =  WSHShell.Popup(L_Welcome_MsgBox_Message_Text,0,L_Welcome_MsgBox_Title_Text,vbOKCancel + vbInformation );
if (intDoIt == vbCancel) {
WScript.Quit();
}
}
Suerte ;)

<table><tr><td><IMG src=banderas/argentina.gif></td><td><small>Alta en el cielo, un águila guerrera<br>audaz se eleva, en vuelo triunfal.<br>Azul un ala, del color del cielo.<br>Azul un ala, del color del mar.</small></td></tr></table>