Mensajes

Jaja, yo también tenía ganas de hacer un tutorial, pero no tengo info base =/, pero el tuyo es lejos el mejor que he visto 

Ok, gracias Novlucker 

Si está buenísima, pero me refería a algo más completo, he visto gente que instancia objetos un poko raros en vbs, y quería saber si existía algo así como una lista de todos los objetos posibles a instanciar junto con sus métodos, el uso da lo mismo eso se puede deducir Xd.

De antemano gracias 
Saludos

Buenas quería saber si existe una api de vbs como la de java, con sus sumarios de variables metodos y eso, de antemano gracias

Saludos

tendrías que concatenar eso linea por linea en tu batch y tener un script (vbs )como este:

Código (vb) [Seleccionar] Expandir



select case wscript.arguments(0)
case "/?"
call help
case else
call selmsg
end select

sub selmsg

dim c
c=0

for each var in wscript.arguments
c = c + 1
next

select case c

case 1
call msg1
case 2
call msg2
case 3
call msg3

end select

end sub

sub msg1
msgbox wscript.arguments(0)
end sub

sub msg2

dim icon
icon = 0

select case wscript.arguments(1)

case 0
icon = 0
case 1
 icon = vbcritical
case 2
icon = vbinformation
case 3
icon = 48
case 4
icon = vbquestion
end select

msgbox wscript.arguments(0), icon
end sub

sub msg3

dim icon
icon = 0

select case wscript.arguments(1)

case 0
icon = 0
case 1
 icon = vbcritical
case 2
icon = vbinformation
case 3
icon = 48
case 4
icon = vbquestion
end select

msgbox wscript.arguments(0), icon, wscript.arguments(2)
end sub

sub help
wscript.echo "Uso:"
wscript.echo "Cscript /nologo msg.vbs [Mensaje] [Tipo] [Titulo]"
wscript.echo "[Mensaje]: Prompt para el cuadro de dialogo"
wscript.echo "[Tipo]: Tipo de icono "
wscript.echo "0 - Sin icono"
wscript.echo "1 - Error"
wscript.echo "2 - Informacion"
wscript.echo "3 - Advertencia"
wscript.echo "4 - Pregunta"
wscript.echo "Para pasar un argumento, el argumento anterior debe ser declarado,"
wscript.echo "por ejemplo, si se pone un icono y se omite el Mensaje"
wscript.echo "el mensaje sera la opcion ingresada para el icono"
wscript.echo ""
end sub


Luego lo llamas así en tu batch o si kieres desde la cmd:

Código (dos) [Seleccionar] Expandir


cscript /nologo <ruta_del_archivo>.vbs <argumento_1> <argumento_2> <argumento_3>


Concatenas la variable en batch o cmd como dije anteriormente y se lo pasas como el segundo argumento al script.vbs

Ahora ¿como concatenar saltos de línea en batch? ni idea   , pero algo es algo

Saludos  

PD1: Puedes consular el uso con cscript /nologo script.vbs /?


PD2: Este tipo de cosas (y muchas más) aprendes con el manual de vbs de novlucker.

A ver si entendí, ¿lo que quieres es concatenar saltos de línea?

msgbox ("linea 1"&vbcrlf&"linea2")

Lo que no entiendo es que monos pintaría batch akí  si pudieras explicar un poko mejor lo que necesitas...

Saludos 

Hola, tengo intenciones de crear métodos en c++ y usarlos en java, he leído que es posible pero no se por donde empezar, sies posible que me dieron algunos nombres para empezar a googlear sería feliz 

De antemano gracias 

Saludos 

Hola, he estado buscando y no he podido encontrar este programa, al menos no en su forma portable, si alguien me puede dar un link le estaría muy agradecido, sino es posible vbsedit cualquier "IDE" para vbs portable me sirve.

De antemano gracias

Saludos 

Nop, el resto no da problemas, pero ya me dijeron en otro foro, loque pasa es que dentro del método inicié una variable local de tipo int llamada "c", entonces se blokea el scope del array global del mismo nombre, XD, bueno, gracias de todos modos. 

Saludos 

Hola, tengo un problema con lo siguiente:

Instancié tres arreglos de la siguiente forma:

int[] a = new int[9];
int[] b = new int[9];
int[] c = new int[9];

creé tres índices para los arreglos de la siguiente forma:

int ia = 0, ib = 0, ic = 0;

El problema es que si en c[ic] guardo un valor el compilador me suelta "Array required but int found "  , no se que estoy haciendo mal, les dejo el código, de antemano gracias por sus respuestas  

Saludos  

Código (java) [Seleccionar] Expandir


import javax.swing.*;

public class clase{

boolean ctp;
int[][] vec = new int[3][3];
int[] a = new int[9];
int[] b = new int[9];
int[] c = new int[9];
int ia = 0, ib = 0, ic = 0;

public clase(int ctrl){

switch(ctrl){

case 1:

sub_principal();

break;
case 2:

sub_numeros();

break;
case 3:

sub_arreglos();

 break;
case 4:

System.exit(0);

 break;

}

}

public static void Main(String[] args){

}

void sub_principal(){

ctp=true;

while(ctp){

int m = Integer.parseInt(JOptionPane.showInputDialog(null, "1- Ingresar una frase para contar sus caracteres \n\n 2- Ingresar un Nombre para mostrar en minúsculas o mayúsculas \n\n 3- Volver \n\n 4- Salir"));

switch(m){

case 1:

String frase = JOptionPane.showInputDialog(null, "Ingrese una frase");

JOptionPane.showMessageDialog(null, "La frase tiene " + frase.length() + " caracteres");

 break;
case 2:

String nombre = JOptionPane.showInputDialog(null, "Ingrese un nombre");

JOptionPane.showMessageDialog(null, nombre.toUpperCase());

 break;
case 3:

ctp=false;

 break;
case 4:

new clase(4);

 break;

}

new clase(1);

}

}

void sub_numeros(){

ctp=true;

while(ctp){

int s = Integer.parseInt(JOptionPane.showInputDialog(null, "1- Ver si el numero es primo \n\n 2- Ver si el numero es perfecto \n\n 3- Calcular MCM entre dos numeros \n\n 4- Volver 5- Salir"));

switch(s){

case 1:

int op = Integer.parseInt(JOptionPane.showInputDialog(null, "Ingrese el numero"));

if (esPrimo(op)){

JOptionPane.showMessageDialog(null, s + "Es primo");

}else{

JOptionPane.showMessageDialog(null, s + "No es primo");

}

  break;
case 2:

int op2 = Integer.parseInt(JOptionPane.showInputDialog(null, "Ingrese el numero"));

if (esPerfecto(s)){

JOptionPane.showMessageDialog(null, s + "Es perfecto");

}else{

JOptionPane.showMessageDialog(null, s + "No es perfecto");

}

  break;
case 3:

JOptionPane.showMessageDialog(null, "Aun no implementada XD");

  break;
case 4:
 
ctp=false;

  break;
case 5:

new clase(4);

  break;

}

new clase(1);

}

}

void sub_arreglos(){

ctp=true;

while(ctp){

int in = Integer.parseInt(JOptionPane.showInputDialog(null, "1- Ingresar numeros para la matriz \n\n 2- Volver \n\n 3-Salir"));

switch (in){

case 1:

int c=1;

for (int x=0;x<3;x++){

 for (int y=0;y<3;y++){
 
 vec[x][y] = Integer.parseInt(JOptionPane.showInputDialog(null, "Ingrese numero " + c));
 c++;
 
 if(vec[x][y]%2==0){
 
 a[ia] = vec[x][y];
 ia++;
 
 }else if (vec[x][y]%2!=0){
 
 b[ib] = vec[x][y];
 ib++;
 
 }
 
 if (vec[x][y]<0){
 
 c[ic] = vec[x][y];
 ic++;
 
 }
 
 }

}

String pares="";

for (int valor:a){

pares += "[" + Integer.toString(valor) + "]";

}

JOptionPane.showMessageDialog(null, "Los numeros pares son \n\n" + pares);

String impares="";

for (int valor:a){

impares += "[" + Integer.toString(valor) + "]";

}

JOptionPane.showMessageDialog(null, "Los numeros impares son \n\n" + impares);

String negativos="";

for (int valor:a){

negativos += "[" + Integer.toString(valor) + "]";

}

JOptionPane.showMessageDialog(null, "Los numeros negativos son \n\n" + negativos);

break;

case 2:

ctp = false;

   break;
case 3:

new clase(4);

   break;
 
 }

  }
 
 new clase(1);
 
}

boolean esPrimo(int p){

int c;

for (int x=p;x>0;x--){

if (p%x==0){

c++;

}

}

if (c==2){

return true;

}else{

return false;

}

}

boolean esPerfecto(int p){

int res=0;

   for(int y=1;y<=p/2;y++){

       if (p%y==0){

           res = res + y;

       }

   }
   
   if (res == p) {

           return true;

       }else{

           return false;

       }

   }

}


Hola, tengo el siguiente script, en windows xP me funka bien, en windows 7 se vuelve loko  , básicamente crea una planilla de excel para un ciber café, usa excel.application para crear la primera parte de la planilla, y luego copio el resto con wscript.shell.sendkeys, uso tiempos entre las pulsaciones de teclas para que no se me caiga el script (y de paso excel, porque me ha pasado), bueno les dejo el script:

Código (vb) [Seleccionar] Expandir



set exc=createobject("excel.application")
set wss=createobject("wscript.shell")

exc.visible = true

' preparando el archivo

set ambiente = exc.workbooks.add()
wss.sendkeys "+({f11})"
wscript.sleep 200
wss.sendkeys "+({f11})"
wscript.sleep 200
wss.sendkeys "+({f11})"
wscript.sleep 200
wss.sendkeys "+({f11})"
wscript.sleep 200

'preparando la hoja PCs

set fecha1 = exc.range("B2")
fecha1.interior.colorindex = 28
fecha1.formula = "Ingrese fecha"
fecha1.borders.colorindex = 1

set fecha2 = exc.range("C2")
fecha2.interior.colorindex = 28
fecha2.borders.colorindex = 1
fecha2.formula = "01-01-2012"
fecha2.select
wss.sendkeys "{f2}"
wss.sendkeys "{enter}"

set fecha3 = exc.range("C8")
fecha3.interior.colorindex = 28
fecha3.borders.colorindex = 1
fecha3.formula = "=C2+1"
fecha3.select
wss.sendkeys "{f2}"
wss.sendkeys "{enter}"

set rango1 = exc.range("C10:H10")

rango1.interior.colorindex = 1
rango1.font.colorindex = 4
rango1.font.bold = true

exc.range("c10").formula = "PC 1"
exc.range("d10").formula = "PC 2"
exc.range("e10").formula = "PC 3"
exc.range("f10").formula = "PC 4"
exc.range("g10").formula = "PC 5"
exc.range("h10").formula = "PC 6"

set rango2 = exc.range("C11:h19")
rango2.interior.colorindex = 15
rango2.borders.colorindex = 1

set rangof = exc.range("C20:H20")

rangof.interior.colorindex = 28
rangof.borders.colorindex = 1
rangof.select

set f1 = exc.range("C20")
f1.formula = "=suma(C11:C19)"
f1.select
wss.sendkeys "{f2}"
wss.sendkeys "{enter}"
wscript.sleep 666
wss.sendkeys "{up}"
wss.sendkeys "^(c)"
wss.sendkeys "+({right})"
wss.sendkeys "+({right})"
wss.sendkeys "+({right})"
wss.sendkeys "+({right})"
wss.sendkeys "+({right})"
wss.sendkeys "{enter}"

wscript.sleep 200

set total = exc.range("H22")
total.formula = "=suma(C11:H19)"
total.select
wss.sendkeys "{f2}"
wss.sendkeys "{enter}"
' -------------------------
'copiando el cuadro al resto de la hoja

set stotal = exc.range("G22")
stotal.formula = "Total"

set rango3 = exc.range("C8:H22")
rango3.select
wss.sendkeys "^(c)"

dim control
control=1

' bajar 16 y pegar

do

for i=1 to 20 step 1

wss.sendkeys "{down}"
 if control = 32 then
    exit do
 end if
next

wss.sendkeys "^(v)"
wscript.sleep 200
control = control + 1
loop

exc.columns("B").entirecolumn.autofit

' eso, el resto está listo para pasar a la siguiente hoja
for x=8 to 628 step 20

if x>8 then
resta= x-20
exc.cells(x, 3).formula = "=C"&resta&"+1"
exc.cells(x, 3).select
wss.sendkeys "{f2}"
wss.sendkeys "{enter}"
wscript.sleep 200
end if

fecha2.formula = ""

next

exc.range("C8").formula = "=C2"
exc.range("c8").select
wss.sendkeys "{f2}"
wss.sendkeys "{enter}"

'*****************************************
'*****************************************
'             SEGUNDA HOJA
'*****************************************
'*****************************************

wss.sendkeys "^{pgdn}"



De antemano gracias  por sus respuestas

Saludos