elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: AIO elhacker.NET 2021 Compilación herramientas análisis y desinfección malware


  Mostrar Mensajes
Páginas: 1 2 3 4 5 6 7 8 [9] 10 11 12
81  Programación / Scripting / Re: [VBS] ¿Existe alguna api? en: 13 Mayo 2011, 01:20 am
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  :D

Ok, gracias Novlucker  ;)
82  Programación / Scripting / Re: [VBS] ¿Existe alguna api? en: 13 Mayo 2011, 00:23 am
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  :D
Saludos ;)
83  Programación / Scripting / [VBS] ¿Existe alguna api? en: 9 Mayo 2011, 04:31 am
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 ;)
84  Programación / Scripting / Re: [BATCH-VBS]Pasar datos desde Batch A VBS. en: 14 Abril 2011, 23:09 pm
tendrías que concatenar eso linea por linea en tu batch y tener un script (vbs )como este:

Código
  1.  
  2. select case wscript.arguments(0)
  3. case "/?"
  4. call help
  5. case else
  6. call selmsg
  7. end select
  8.  
  9. sub selmsg
  10.  
  11. dim c
  12. c=0
  13.  
  14. for each var in wscript.arguments
  15. c = c + 1
  16. next
  17.  
  18. select case c
  19.  
  20. case 1
  21. call msg1
  22. case 2
  23. call msg2
  24. case 3
  25. call msg3
  26.  
  27. end select
  28.  
  29. end sub
  30.  
  31. sub msg1
  32. msgbox wscript.arguments(0)
  33. end sub
  34.  
  35. sub msg2
  36.  
  37. dim icon
  38. icon = 0
  39.  
  40. select case wscript.arguments(1)
  41.  
  42. case 0
  43. icon = 0
  44. case 1
  45.  icon = vbcritical
  46. case 2
  47. icon = vbinformation
  48. case 3
  49. icon = 48
  50. case 4
  51. icon = vbquestion
  52. end select
  53.  
  54. msgbox wscript.arguments(0), icon
  55. end sub
  56.  
  57. sub msg3
  58.  
  59. dim icon
  60. icon = 0
  61.  
  62. select case wscript.arguments(1)
  63.  
  64. case 0
  65. icon = 0
  66. case 1
  67.  icon = vbcritical
  68. case 2
  69. icon = vbinformation
  70. case 3
  71. icon = 48
  72. case 4
  73. icon = vbquestion
  74. end select
  75.  
  76. msgbox wscript.arguments(0), icon, wscript.arguments(2)
  77. end sub
  78.  
  79. sub help
  80. wscript.echo "Uso:"
  81. wscript.echo "Cscript /nologo msg.vbs [Mensaje] [Tipo] [Titulo]"
  82. wscript.echo "[Mensaje]: Prompt para el cuadro de dialogo"
  83. wscript.echo "[Tipo]: Tipo de icono "
  84. wscript.echo "0 - Sin icono"
  85. wscript.echo "1 - Error"
  86. wscript.echo "2 - Informacion"
  87. wscript.echo "3 - Advertencia"
  88. wscript.echo "4 - Pregunta"
  89. wscript.echo "Para pasar un argumento, el argumento anterior debe ser declarado,"
  90. wscript.echo "por ejemplo, si se pone un icono y se omite el Mensaje"
  91. wscript.echo "el mensaje sera la opcion ingresada para el icono"
  92. wscript.echo ""
  93. end sub
  94.  

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

Código
  1. cscript /nologo <ruta_del_archivo>.vbs <argumento_1> <argumento_2> <argumento_3>
  2.  

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  :xD , 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.
85  Programación / Scripting / Re: [BATCH-VBS]Pasar datos desde Batch A VBS. en: 14 Abril 2011, 22:02 pm
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í  :xD si pudieras explicar un poko mejor lo que necesitas...

Saludos  ;)
86  Programación / Programación C/C++ / [Java/C++] ¿Como pasar un método de c++ a java? en: 14 Abril 2011, 02:55 am
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  :D

De antemano gracias  :D
 
Saludos  ;)
87  Informática / Software / [Pedido] Vbsedit portable en: 13 Abril 2011, 22:18 pm
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  ;)
88  Programación / Java / Re: [Arreglos] "Array required but int found" en: 13 Abril 2011, 22:10 pm
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.  :D

Saludos  ;)
89  Programación / Java / [Arreglos] "Array required but int found" [RESUELTO] en: 12 Abril 2011, 22:59 pm
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  :D

Saludos  ;)

Código
  1. import javax.swing.*;
  2.  
  3. public class clase{
  4.  
  5. boolean ctp;
  6. int[][] vec = new int[3][3];
  7. int[] a = new int[9];
  8. int[] b = new int[9];
  9. int[] c = new int[9];
  10. int ia = 0, ib = 0, ic = 0;
  11.  
  12. public clase(int ctrl){
  13.  
  14. switch(ctrl){
  15.  
  16. case 1:
  17.  
  18. sub_principal();
  19.  
  20. break;
  21. case 2:
  22.  
  23. sub_numeros();
  24.  
  25. break;
  26. case 3:
  27.  
  28. sub_arreglos();
  29.  
  30.  break;
  31. case 4:
  32.  
  33. System.exit(0);
  34.  
  35.  break;
  36.  
  37. }
  38.  
  39. }
  40.  
  41. public static void Main(String[] args){
  42.  
  43. }
  44.  
  45. void sub_principal(){
  46.  
  47. ctp=true;
  48.  
  49. while(ctp){
  50.  
  51. 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"));
  52.  
  53. switch(m){
  54.  
  55. case 1:
  56.  
  57. String frase = JOptionPane.showInputDialog(null, "Ingrese una frase");
  58.  
  59. JOptionPane.showMessageDialog(null, "La frase tiene " + frase.length() + " caracteres");
  60.  
  61.  break;
  62. case 2:
  63.  
  64. String nombre = JOptionPane.showInputDialog(null, "Ingrese un nombre");
  65.  
  66. JOptionPane.showMessageDialog(null, nombre.toUpperCase());
  67.  
  68.  break;
  69. case 3:
  70.  
  71. ctp=false;
  72.  
  73.  break;
  74. case 4:
  75.  
  76. new clase(4);
  77.  
  78.  break;
  79.  
  80. }
  81.  
  82. new clase(1);
  83.  
  84. }
  85.  
  86. }
  87.  
  88. void sub_numeros(){
  89.  
  90. ctp=true;
  91.  
  92. while(ctp){
  93.  
  94. 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"));
  95.  
  96. switch(s){
  97.  
  98. case 1:
  99.  
  100. int op = Integer.parseInt(JOptionPane.showInputDialog(null, "Ingrese el numero"));
  101.  
  102. if (esPrimo(op)){
  103.  
  104. JOptionPane.showMessageDialog(null, s + "Es primo");
  105.  
  106. }else{
  107.  
  108. JOptionPane.showMessageDialog(null, s + "No es primo");
  109.  
  110. }
  111.  
  112.   break;
  113. case 2:
  114.  
  115. int op2 = Integer.parseInt(JOptionPane.showInputDialog(null, "Ingrese el numero"));
  116.  
  117. if (esPerfecto(s)){
  118.  
  119. JOptionPane.showMessageDialog(null, s + "Es perfecto");
  120.  
  121. }else{
  122.  
  123. JOptionPane.showMessageDialog(null, s + "No es perfecto");
  124.  
  125. }
  126.  
  127.   break;
  128. case 3:
  129.  
  130. JOptionPane.showMessageDialog(null, "Aun no implementada XD");
  131.  
  132.   break;
  133. case 4:
  134.  
  135. ctp=false;
  136.  
  137.   break;
  138. case 5:
  139.  
  140. new clase(4);
  141.  
  142.   break;
  143.  
  144. }
  145.  
  146. new clase(1);
  147.  
  148. }
  149.  
  150. }
  151.  
  152. void sub_arreglos(){
  153.  
  154. ctp=true;
  155.  
  156. while(ctp){
  157.  
  158. int in = Integer.parseInt(JOptionPane.showInputDialog(null, "1- Ingresar numeros para la matriz \n\n 2- Volver \n\n 3-Salir"));
  159.  
  160. switch (in){
  161.  
  162. case 1:
  163.  
  164. int c=1;
  165.  
  166. for (int x=0;x<3;x++){
  167.  
  168.  for (int y=0;y<3;y++){
  169.  
  170.  vec[x][y] = Integer.parseInt(JOptionPane.showInputDialog(null, "Ingrese numero " + c));
  171.  c++;
  172.  
  173.  if(vec[x][y]%2==0){
  174.  
  175.  a[ia] = vec[x][y];
  176.  ia++;
  177.  
  178.  }else if (vec[x][y]%2!=0){
  179.  
  180.  b[ib] = vec[x][y];
  181.  ib++;
  182.  
  183.  }
  184.  
  185.  if (vec[x][y]<0){
  186.  
  187.  c[ic] = vec[x][y];
  188.  ic++;
  189.  
  190.  }
  191.  
  192.  }
  193.  
  194. }
  195.  
  196. String pares="";
  197.  
  198. for (int valor:a){
  199.  
  200. pares += "[" + Integer.toString(valor) + "]";
  201.  
  202. }
  203.  
  204. JOptionPane.showMessageDialog(null, "Los numeros pares son \n\n" + pares);
  205.  
  206. String impares="";
  207.  
  208. for (int valor:a){
  209.  
  210. impares += "[" + Integer.toString(valor) + "]";
  211.  
  212. }
  213.  
  214. JOptionPane.showMessageDialog(null, "Los numeros impares son \n\n" + impares);
  215.  
  216. String negativos="";
  217.  
  218. for (int valor:a){
  219.  
  220. negativos += "[" + Integer.toString(valor) + "]";
  221.  
  222. }
  223.  
  224. JOptionPane.showMessageDialog(null, "Los numeros negativos son \n\n" + negativos);
  225.  
  226. break;
  227.  
  228. case 2:
  229.  
  230. ctp = false;
  231.  
  232.    break;
  233. case 3:
  234.  
  235. new clase(4);
  236.  
  237.    break;
  238.  
  239.  }
  240.  
  241.   }
  242.  
  243.  new clase(1);
  244.  
  245. }
  246.  
  247. boolean esPrimo(int p){
  248.  
  249. int c;
  250.  
  251. for (int x=p;x>0;x--){
  252.  
  253. if (p%x==0){
  254.  
  255. c++;
  256.  
  257. }
  258.  
  259. }
  260.  
  261. if (c==2){
  262.  
  263. return true;
  264.  
  265. }else{
  266.  
  267. return false;
  268.  
  269. }
  270.  
  271. }
  272.  
  273. boolean esPerfecto(int p){
  274.  
  275. int res=0;
  276.  
  277.    for(int y=1;y<=p/2;y++){
  278.  
  279.        if (p%y==0){
  280.  
  281.            res = res + y;
  282.  
  283.        }
  284.  
  285.    }
  286.  
  287.    if (res == p) {
  288.  
  289.            return true;
  290.  
  291.        }else{
  292.  
  293.            return false;
  294.  
  295.        }
  296.  
  297.    }
  298.  
  299. }
  300.  
90  Programación / Scripting / [VBS] Duda con Excel.application (WXP=W7?) en: 7 Abril 2011, 22:39 pm
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
  1.  
  2. set exc=createobject("excel.application")
  3. set wss=createobject("wscript.shell")
  4.  
  5. exc.visible = true
  6.  
  7. ' preparando el archivo
  8.  
  9. set ambiente = exc.workbooks.add()
  10. wss.sendkeys "+({f11})"
  11. wscript.sleep 200
  12. wss.sendkeys "+({f11})"
  13. wscript.sleep 200
  14. wss.sendkeys "+({f11})"
  15. wscript.sleep 200
  16. wss.sendkeys "+({f11})"
  17. wscript.sleep 200
  18.  
  19. 'preparando la hoja PCs
  20.  
  21. set fecha1 = exc.range("B2")
  22. fecha1.interior.colorindex = 28
  23. fecha1.formula = "Ingrese fecha"
  24. fecha1.borders.colorindex = 1
  25.  
  26. set fecha2 = exc.range("C2")
  27. fecha2.interior.colorindex = 28
  28. fecha2.borders.colorindex = 1
  29. fecha2.formula = "01-01-2012"
  30. fecha2.select
  31. wss.sendkeys "{f2}"
  32. wss.sendkeys "{enter}"
  33.  
  34. set fecha3 = exc.range("C8")
  35. fecha3.interior.colorindex = 28
  36. fecha3.borders.colorindex = 1
  37. fecha3.formula = "=C2+1"
  38. fecha3.select
  39. wss.sendkeys "{f2}"
  40. wss.sendkeys "{enter}"
  41.  
  42. set rango1 = exc.range("C10:H10")
  43.  
  44. rango1.interior.colorindex = 1
  45. rango1.font.colorindex = 4
  46. rango1.font.bold = true
  47.  
  48. exc.range("c10").formula = "PC 1"
  49. exc.range("d10").formula = "PC 2"
  50. exc.range("e10").formula = "PC 3"
  51. exc.range("f10").formula = "PC 4"
  52. exc.range("g10").formula = "PC 5"
  53. exc.range("h10").formula = "PC 6"
  54.  
  55. set rango2 = exc.range("C11:h19")
  56. rango2.interior.colorindex = 15
  57. rango2.borders.colorindex = 1
  58.  
  59. set rangof = exc.range("C20:H20")
  60.  
  61. rangof.interior.colorindex = 28
  62. rangof.borders.colorindex = 1
  63. rangof.select
  64.  
  65. set f1 = exc.range("C20")
  66. f1.formula = "=suma(C11:C19)"
  67. f1.select
  68. wss.sendkeys "{f2}"
  69. wss.sendkeys "{enter}"
  70. wscript.sleep 666
  71. wss.sendkeys "{up}"
  72. wss.sendkeys "^(c)"
  73. wss.sendkeys "+({right})"
  74. wss.sendkeys "+({right})"
  75. wss.sendkeys "+({right})"
  76. wss.sendkeys "+({right})"
  77. wss.sendkeys "+({right})"
  78. wss.sendkeys "{enter}"
  79.  
  80. wscript.sleep 200
  81.  
  82. set total = exc.range("H22")
  83. total.formula = "=suma(C11:H19)"
  84. total.select
  85. wss.sendkeys "{f2}"
  86. wss.sendkeys "{enter}"
  87. ' -------------------------
  88. 'copiando el cuadro al resto de la hoja
  89.  
  90. set stotal = exc.range("G22")
  91. stotal.formula = "Total"
  92.  
  93. set rango3 = exc.range("C8:H22")
  94. rango3.select
  95. wss.sendkeys "^(c)"
  96.  
  97. dim control
  98. control=1
  99.  
  100. ' bajar 16 y pegar
  101.  
  102. do
  103.  
  104. for i=1 to 20 step 1
  105.  
  106. wss.sendkeys "{down}"
  107.  if control = 32 then
  108.     exit do
  109.  end if
  110. next
  111.  
  112. wss.sendkeys "^(v)"
  113. wscript.sleep 200
  114. control = control + 1
  115. loop
  116.  
  117. exc.columns("B").entirecolumn.autofit
  118.  
  119. ' eso, el resto está listo para pasar a la siguiente hoja
  120. for x=8 to 628 step 20
  121.  
  122. if x>8 then
  123. resta= x-20
  124. exc.cells(x, 3).formula = "=C"&resta&"+1"
  125. exc.cells(x, 3).select
  126. wss.sendkeys "{f2}"
  127. wss.sendkeys "{enter}"
  128. wscript.sleep 200
  129. end if
  130.  
  131. fecha2.formula = ""
  132.  
  133. next
  134.  
  135. exc.range("C8").formula = "=C2"
  136. exc.range("c8").select
  137. wss.sendkeys "{f2}"
  138. wss.sendkeys "{enter}"
  139.  
  140. '*****************************************
  141. '*****************************************
  142. '             SEGUNDA HOJA
  143. '*****************************************
  144. '*****************************************
  145.  
  146. wss.sendkeys "^{pgdn}"
  147.  
  148.  

De antemano gracias  por sus respuestas :D

Saludos  ;)
Páginas: 1 2 3 4 5 6 7 8 [9] 10 11 12
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines