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

 

 


Tema destacado: Curso de javascript por TickTack


+  Foro de elhacker.net
|-+  Programación
| |-+  Scripting
| | |-+  File list VBScript		0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] 2 Ir Abajo Respuesta Imprimir
Autor Tema: File list VBScript  (Leído 7,481 veces)
z3nth10n


Desconectado Desconectado

Mensajes: 1.583


"Jack of all trades, master of none." - Zenthion


Ver Perfil WWW
File list VBScript
« en: 21 Enero 2013, 19:52 pm »
Hola amigos, pues bien necesito hacer una simple lista de archivos que muestre una carpeta, el problema es:

Lo quiero hacer en HTML (HTA) Electrooooorl
Y que cuando haga click a un archivo se cambie un src de un iframe...

Como lo podria hacer?

Un saludo.

He buscado y he encontrado esto:

http://www.go4expert.com/forums/showthread.php?t=927

pero no entiendo:

Citar
Example usage:

Código:
lister.vbs "c:\documents and settings"

Con este otro se puede, pero te muestra todo en alerts, yo quiero algo asi como un FileListBox, DirListBox de VB6... Y si no, elecktro buscame tutoriales de como hacerlo, no se como buscar, para hacer un emulador de algo. Aunque prefiero hacerlo en HTML ya que es mucho mas facil. :)

Lo que quiero hacer es un emulador de Unity, pero ahora que pienso, es mas facil hacer un emulador de paginas HTML que un iframe cambiante xD No se... el caso...

Es que podria buscar como hacer un navegador web en VB6 (con un objeto OLE de IE) que se como hacerlo, y luego un DirListBox y un FileListBox (aunque tendria que buscar los manuales del Win 2000. Y luego... aunque n ose como hacerlo... Tendria que saber como cambiar la direccion del objeto OLE al pulsar sobre cierto archivo. Que seria como decir que this file = web dir (ole)...

Ya vere... Durante lo que yo voy a hacer os dejo la duda.

Un saludo.
« Última modificación: 21 Enero 2013, 20:09 pm por Seazoux » En línea

⏩ Interesados hablad por Discord.
Eleкtro
Ex-Staff
*
Desconectado Desconectado

Mensajes: 9.885



Ver Perfil
Re: File list VBScript
« Respuesta #1 en: 22 Enero 2013, 06:24 am »
Cita de: Seazoux en 21 Enero 2013, 19:52 pm
no entiendo:

Example usage:
Código:
lister.vbs "c:\documents and settings"

Es un script que requiere argumentos, es decir, lo tienes que usar desde la consola pasándole como argumento el nombre de una carpeta que quieras listar... tál y como en ese ejemplo.



Creo que más bien lo que quieres es un TreeView, un Listbox quedaría fatál visualmente hablando, aparte de que el resultado sería gigantesco si listas +1.000 archivos...

Podría decirte lo que llevo diciendote desde que te pusiste con HTA... ya sabes que...
Podría explicarte como hacer un treeview en menos de 5 minutos, y debes saber que se puede agregar un navegador totálmente funcional simplemente EN UN CLICK, pero no me vas a hacer caso, ¿A que no? xD.

Y yo... paso de complicarme en HTA porque no sé lo suficiente,
Bueno, si quieres seguir por el camino más dificil, con esto tienes por donde empezar:

- Un treeview con eventos cuando clickas sobre un item
- he modificado el VBS de tu ejemplo para que trabaje sin argumentos

La idea de lo que debes hacer es muy sencilla, llamar al sub "get_files" y por cada archivo procesado en el FOR (donde está el msgbox), generar un nodo/item en el "listview" como en los ejemplos que ya hay en el code.

PD: Yo no sé como ejecutar ordenes de JS desde VBS, así que es cosa tuya o de quien sepa!

Código
  3. <META content = "TEXT/HTML; charset=Windows-1251">
  4. <TITLE>TreeView en HTA</TITLE>
  5. <HTA:APPLICATION ID="exTreeView"
  6. ApplicationName = "TreeView_HTA"
  7. BORDER = "thin"
  8. INNERBORDER = "no"
  9. CONTEXTMENU = "no"
  10. MAXIMIZEBUTTON = "no"
  11. MinimizeButton = "no"
  12. SysMenu = "yes"
  13. SELECTION = "no"
  14. SHOWINTASKBAR = "yes"
  15. SCROLL = "no"
  16. SINGLEINSTANCE="yes"
  17. WindowState = "Normal"
  18. />
  19.  
  20. </HEAD>
  21. <BODY bgcolor = "#EEEEEE" ONLOAD = "LoadForm()">
  22. <FORM ID = mForm>
  23. <TABLE style = width:100%>
  24. <TR><TD style = width:30%>
  25. <OBJECT ID = ExampleTreeView WIDTH = 250 HEIGHT = 550 PROGID = "MSComctlLib.TreeCtrl.2" CLASSID="clsid:C74190B6-8589-11D1-B16A-00C0F0283628">
  26. <param name = "LineStyle" value = "1" />
  27. <param name = "Style" value = "7" />
  28. <param name = "Appearance" value = "0"/>
  29. <param name = "BorderStyle" value = "1"/>
  31. </TD>
  32. <TD>
  33. <INPUT type = "button" name = "fill" value = "Listar ...">
  34. </TD></TR>
  36. </FORM>
  37. <SCRIPT for = ExampleTreeView event = NodeClick>
  38. WSH.Popup(mForm.all("ExampleTreeView").SelectedItem,0,"Ïðèìåð");
  40. <SCRIPT language = "JScript">
  41.  
  42. var WSH = new ActiveXObject("WScript.Shell");
  43.  
  44. function LoadForm()
  45. {
  46. window.resizeTo(800,600);
  47. };
  48.  
  49. function filltreeview()
  50. {
  51.  
  52. var TreeView = mForm.all("ExampleTreeView");
  53. TreeView.Nodes.Clear();
  54. var Root = TreeView.Nodes.Add();
  55. Root.Text = "Directorio";
  56. Root.key = "root";
  57.  
  58. var Node = TreeView.Nodes.Add();
  59. Node.Text = "Subcarpeta2";
  60. Node.key = "branch1";
  61. Node.Parent = Root;
  62.  
  63. var Leaf = TreeView.Nodes.Add();
  64. Leaf.Text = "archivo2";
  65. Leaf.key = "leaf1";
  66. Leaf.Parent = Node;
  67.  
  68. var Leaf = TreeView.Nodes.Add();
  69. Leaf.Text = "archivo1";
  70. Leaf.key = "leaf2";
  71. Leaf.Parent = Node;
  72.  
  73. var Node = TreeView.Nodes.Add();
  74. Node.Text = "Subcarpeta1";
  75. Node.key = "branch2";
  76. Node.Parent = Root;
  77.  
  78. var Leaf = TreeView.Nodes.Add();
  79. Leaf.Text = "archivo2";
  80. Leaf.key = "leaf3";
  81. Leaf.Parent = Node;
  82.  
  83. var Leaf = TreeView.Nodes.Add();
  84. Leaf.Text = "archivo1";;
  85. Leaf.key = "leaf4";
  86. Leaf.Parent = Node;
  87.  
  88. };
  89.  
  90. mForm.all("fill").onclick = filltreeview
  91.  
  93.  
  94.  
  96. <SCRIPT language = "Vbs">
  97.  
  98. sub Get_Files()
  99.   On Error Resume Next
  100.   Dim fso, folder, files, NewsFile,sFolder
  101.  
  102.   Set fso = CreateObject("Scripting.FileSystemObject")
  103.   sFolder = Wscript.Arguments.Item(0)
  104.  
  105.   Set NewFile = fso.CreateTextFile("C:\FileList.txt", True)
  106.   Set folder = fso.GetFolder("C:\")
  107.   Set files = folder.Files
  108.  
  109.   For each folderIdx In files
  110.     msgbox(folderIdx.Name)
  111.   Next
  112.   NewFile.Close
  113. end sub
  115.  
  116.  
  117. </BODY>
  118. </HTML>

Saludos.
« Última modificación: 22 Enero 2013, 06:28 am por EleKtro H@cker » En línea


z3nth10n


Desconectado Desconectado

Mensajes: 1.583


"Jack of all trades, master of none." - Zenthion


Ver Perfil WWW
Re: File list VBScript
« Respuesta #2 en: 22 Enero 2013, 07:30 am »
Le dije a mi padre que me pusiese el VB.net (VB 8)

Y porque quedaria visualemtne feo? Mira esto:



Yo quiero hacer un FGEmulator, pero en vez de reproducir unicamente flash simplmente cambiaria ese objeto OLE (flash) por uno que reproduzca codigos HTML.

Aunque bueno. Para flash si se puede no tengo ni idea si unity se le puden meter arcihoc senteros voy a probar y te digo. Un saludo.
En línea

⏩ Interesados hablad por Discord.
Eleкtro
Ex-Staff
*
Desconectado Desconectado

Mensajes: 9.885



Ver Perfil
Re: File list VBScript
« Respuesta #3 en: 22 Enero 2013, 10:05 am »
Cita de: Seazoux en 22 Enero 2013, 07:30 am
Le dije a mi padre que me pusiese el VB.net (VB 8)

VB8 es Visual Basic 2005, vamos que si te instalas esa porquería vas a retroceder en tus progresos como si estuvieras programando en el VB6,
lo que debes instalarte es VB 11 (Visual Basic 2012), es decir, Microsoft Visual Studio 2012.

Aquí lo tienes (para 64 Bit) : By Elektro H@cker > [APORTE] MEGA-PACK para iniciarse en VS2012 x64 (Instalador + Recursos + Tools)

Cita de: Seazoux en 22 Enero 2013, 07:30 am
Y porque quedaria visualemtne feo?
Si esa es la idea de menú que tienes pues entonces no está mal con un listbox, a esa aplicación le queda bien el listbox,
yo he visto paneles de emuladores que tienen un arbol de directorio con las roms y lo veo mejor, como el ejemplo del HTA, sobretodo por el tema de los subdirectorios... depende del gusto de cada uno xD.

Cita de: Seazoux en 22 Enero 2013, 07:30 am
uno que reproduzca codigos HTML.
En esta parte me he perdido... ¿reproducir?

PD: No todos somos unos viciados a los juegos ni sabemos que coj*nes es Unity '¬¬.

EDITO: PD2: En el botón que has marcado en rojo, bueno, no me he bajado el emulador pero ni falta que hace, al clickarlo no saldrá un "treeviewlist", saldrá el explorador de carpetas de Windows, es decir un "Browser folder dialog", ¿Lo estás confundiendo?.

Saludos
« Última modificación: 22 Enero 2013, 10:26 am por EleKtro H@cker » En línea


z3nth10n


Desconectado Desconectado

Mensajes: 1.583


"Jack of all trades, master of none." - Zenthion


Ver Perfil WWW
Re: File list VBScript
« Respuesta #4 en: 22 Enero 2013, 12:13 pm »
Esto de las versioes es un puto lio. En fin, el VB.net no se que version es esa, no se si es el Visual Basic 2008 o cual es, en fin. xD

Lo que digo con un reproductor HTML es poner un Objeto OLE con una API de IE que se como hacerlo y luego pon el Path hacia la carpeta que selecciones en el formulario ese raro (el primero). xD

Y luego si quieres cambiar de carpeta porque viene ya uno por defecto, pues tienes el Browser folder dialog o lo que sea xDD

Tengo que saber como cambiar la direccion web del objeto OLE a la del archivo que selecciones en el FileListBox xD

Se mucho, sobre lo que he practicado (empece con 11 años y medio a usar el VB6) y luego lo deje, pero bueno aprendi a hacer 3 o 4 gilipolleces xD Y he perdido toda la practica, es decir, que me tengo que poner a praticar como un loco esta tarde. XD

Cuando termine de hacer lo que voy a hacer esta tarde te pregunto por el codigo de "Como cambiar la direccion web del objeto OLE a la del archivo que selecciones en el FileListBox"

Un saludo.
En línea

⏩ Interesados hablad por Discord.
Eleкtro
Ex-Staff
*
Desconectado Desconectado

Mensajes: 9.885



Ver Perfil
Re: File list VBScript
« Respuesta #5 en: 22 Enero 2013, 13:04 pm »
Cita de: Seazoux en 22 Enero 2013, 12:13 pm
Cuando termine de hacer lo que voy a hacer esta tarde te pregunto por el codigo de "Como cambiar la direccion web del objeto OLE a la del archivo que selecciones en el FileListBox"

Pues me vas a preguntar justo lo que no entiendo que quieres decir...

Antes dijiste "reproducir un código htm", y ahora dices que quieres hacer un reproductor HTML?, ¿Que quieres decir con Reproductor HTML?, ¿reproductor de que? ¿video, audio, porno xD?, macho, explícate, en serio.

PD: Quizás no haga falta decir lo siguiente, pero por si acaso... si te pones a usar el VS2012 (o VB11)  haz tus preguntas en el subforo de .NET (No aquí, ni en el de visual basic)

Saludos
En línea


z3nth10n


Desconectado Desconectado

Mensajes: 1.583


"Jack of all trades, master of none." - Zenthion


Ver Perfil WWW
Re: File list VBScript
« Respuesta #6 en: 22 Enero 2013, 14:59 pm »
Cita de: EleKtro H@cker en 22 Enero 2013, 13:04 pm
Pues me vas a preguntar justo lo que no entiendo que quieres decir...

Antes dijiste "reproducir un código htm", y ahora dices que quieres hacer un reproductor HTML?, ¿Que quieres decir con Reproductor HTML?, ¿reproductor de que? ¿video, audio, porno xD?, macho, explícate, en serio.

PD: Quizás no haga falta decir lo siguiente, pero por si acaso... si te pones a usar el VS2012 (o VB11)  haz tus preguntas en el subforo de .NET (No aquí, ni en el de visual basic)

Saludos

Simplemente digo, reproducir un codigo HTML que está en un archivo HTML que contiene el juego Flash, Unity, Java o lo que sea, mediante un objeto OLE, que esta dentro de la ventana del programa. Ya? xD

Ahora, necesito hardcodear un poquito mas la cosilla, como tu bien sabes para conseguir un swf necesitamos ir a Google Chrome (o el navegador que usemos) darle a Inspeccionar elemento (en el caso del Google Chrome), justo al lado del Flash y buscar la etiqueta <object>, esto lo quiero hacer desde VB.net, 6 o lo que sea (en mi caso VB.net)... ¿Como lo podriamos hacer? Yo he pensado en varias soluciones, o bien que el programa se descargue en %temp% la pagina en formato .html y que vaya buscando cadenas de texto ue empiezen por "http://" y acaben por ".swf", se podria hacer, pero no se si es posible desde la misma web, sinque  se tenga que guardar la direccion web en formato -html dentro de la carpeta %temp%, seria posible? Como se haria?

Un saludo. xD
En línea

⏩ Interesados hablad por Discord.
Eleкtro
Ex-Staff
*
Desconectado Desconectado

Mensajes: 9.885



Ver Perfil
Re: File list VBScript
« Respuesta #7 en: 22 Enero 2013, 15:32 pm »
Cita de: Seazoux en 22 Enero 2013, 14:59 pm
digo, reproducir un codigo HTML que está en un archivo HTML que contiene el juego Flash

No, sigo sin entenderlo, ¿que instrucciones contiene ese código?

Si lo que quieres es parsear un html puedes usar la librería htmlagilitypack, o puedes hacerlo al modo tradicional (split, replace, etc...),
puedes almacenar el texto del html en una variable de tipo String para ahorrar unos miserables KB de espacio en el disco si quieres xD, y hacerle substrings en la variable junto a los otros methods que he mencionado...

De todas formas te repito lo anterior, la próxima duda de VB.NET a .NET y/o las de VB6 e inferiores a Visual Basic, no me hagas cerrar el post  :P.

Saludos
En línea


z3nth10n


Desconectado Desconectado

Mensajes: 1.583


"Jack of all trades, master of none." - Zenthion


Ver Perfil WWW
Re: File list VBScript
« Respuesta #8 en: 22 Enero 2013, 15:40 pm »
LOL, simplemente en vez de descargar el swf utilizamos un html que lo contenga, porque? porque luego el unity no se puede poner como un archivo, tienes que indexarlo desde html, asique pare generalizar todo, pues... eso... xD

En fin y porque me cierras el post si pregunt odudas de VB.net o VB6? Esto noes la cateogria de Scripting? LOL.

 :-\


Ademas lo que tu me has pasado se supone que esta bien como está pero en fin, como se hace para que se identifique las carpetas y todo eso xDDDDD


Debo leer mas xD Ya ni recordaba que me lo explicabas, pero paso de complicarme asi que... me pongo en el VB y ya. :)
« Última modificación: 22 Enero 2013, 15:45 pm por Seazoux » En línea

⏩ Interesados hablad por Discord.
Eleкtro
Ex-Staff
*
Desconectado Desconectado

Mensajes: 9.885



Ver Perfil
Re: File list VBScript
« Respuesta #9 en: 22 Enero 2013, 15:59 pm »
Cita de: Seazoux en 22 Enero 2013, 15:40 pm
porque me cierras el post si pregunt odudas de VB.net o VB6?
Esto noes la cateogria de Scripting? LOL.

Exáctamente por esa razón, si consideras .NET o VB6 como scripting entonces aún te queda demasiado por aprender.

Solo era un aviso de buen rollo para que sigas las normas, hay que llevar el ordén en el foro y aquí no se tratan esos temas.

Cita de: Seazoux en 22 Enero 2013, 15:40 pm
lo que tu me has pasado se supone que esta bien como está pero en fin, como se hace para que se identifique las carpetas y todo eso xDDDDD

paso de complicarme asi que... me pongo en el VB y ya. :)

A esa pregunta no sé si contestar, te diría como "identificar" en el código del VBS y hacerlo recursivo, pero para que luego no sepa(mos) hacer que el JS reciba la variable es perder el tiempo.
tu ponte al vbnet, haz la pregunta adecuada en el subforo adecuado y yo te ayudo (u otros miembros del foro), pero no te lo voy a dar todo hecho (para que así aprendas a hacerlo).

un saludo
En línea


Páginas: [1] 2 Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
Problemas con el Objeto File - Files del Objeto FSO (File System Object)
Programación Visual Basic 		cero_kill_byte 1 2,753 Último mensaje 19 Octubre 2005, 02:36 am
por la caca
help con list
Programación Visual Basic 		dark_soul 3 1,621 Último mensaje 18 Septiembre 2006, 17:57 pm
por SheKeL_C$
de un txt a un list
Programación Visual Basic 		sp26 9 2,827 Último mensaje 21 Noviembre 2006, 15:51 pm
por ranslsad
Duda con List.list en programa
Programación Visual Basic 		b_rabbit10 2 1,954 Último mensaje 17 Septiembre 2012, 04:47 am
por b_rabbit10
Método list Clase File
Java 		neveldine 1 2,184 Último mensaje 29 Diciembre 2015, 18:24 pm
por 0xFer
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines