Mensajes

[htmlagilitypack]

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  .

Saludos

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

Siendo un canal de televisión famoso...

1. Lo más seguro es que el swf esté cifrado (protegido)
2. el swf sólamente pesa 6 kb, así que ahí dentro solo puede haber una cosa: un código de algún tipo
3. el código segúramente esté ofuscado (protegido)

Yo no sé mucho de redes pero sincéramente aunque tuvieras todo el conocimiento necesario para hacer eso, no creo que encontrases nada útil ahí dentro, ni siquiera una url directa, quizás solo usan el swf como medio de redireccionamiento, o algo raro, y luego tendrías que arreglartelas para conseguir los archivos necesarios, que obviamente no están en el SWF, estarán alojados en el servidor de esa página y porsupuesto también tendrá algún tipo de protección que requiera autentificación para descargarlos...

PD: Es una m*erda, lo sé.

Saludos.

[VB8]

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)

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.

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

Ni siquiera se ha parado a buscar en el MSDN, lo de list(T) y todas sus dudas del code aparecen ahí.

Si me dijera que lo ha buscado y lo ha leido pero sigue sin entenderlo, pues eso ya es distinto... pero ni siquiera lo ha buscado!

No estoy familiarizado con agregar varias DNS, etc, pero aquí tienes varios ejemplos más al final de la página: http://ss64.com/nt/netsh.html

[Asdexiva]

Asdexiva, podrías leer lo básico sobre Batch...

Añádele un ">NUL" al comando:

Código [Seleccionar] Expandir

Comando 1>NUL


Tutorial extendido de aprendizaje Batch
4.6 Operadores de desplazamiento lógico (o Redireccionamiento)

Saludos

no entiendo:

Example usage:

Código [Seleccionar] Expandir

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 (html4strict) [Seleccionar] Expandir

<HTML>
<HEAD>
<META content = "TEXT/HTML; charset=Windows-1251">
<TITLE>TreeView en HTA</TITLE>
<HTA:APPLICATION ID="exTreeView"
ApplicationName = "TreeView_HTA"
BORDER = "thin"
INNERBORDER = "no"
CONTEXTMENU = "no"
MAXIMIZEBUTTON = "no"
MinimizeButton = "no"
SysMenu = "yes"
SELECTION = "no"
SHOWINTASKBAR = "yes"
SCROLL = "no"
SINGLEINSTANCE="yes"
WindowState = "Normal"
/>

</HEAD>
<BODY bgcolor = "#EEEEEE" ONLOAD = "LoadForm()">
<FORM ID = mForm>
<TABLE style = width:100%>
<TR><TD style = width:30%>
<OBJECT ID = ExampleTreeView WIDTH = 250 HEIGHT = 550 PROGID = "MSComctlLib.TreeCtrl.2" CLASSID="clsid:C74190B6-8589-11D1-B16A-00C0F0283628">
<param name = "LineStyle" value = "1" />
<param name = "Style" value = "7" />
<param name = "Appearance" value = "0"/>
<param name = "BorderStyle" value = "1"/>
</OBJECT>
</TD>
<TD>
<INPUT type = "button" name = "fill" value = "Listar ...">
</TD></TR>
</TABLE>
</FORM>
<SCRIPT for = ExampleTreeView event = NodeClick>
WSH.Popup(mForm.all("ExampleTreeView").SelectedItem,0,"Ïðèìåð");
</SCRIPT>
<SCRIPT language = "JScript">

var WSH = new ActiveXObject("WScript.Shell");

function LoadForm()
{
window.resizeTo(800,600);
};

function filltreeview()
{

var TreeView = mForm.all("ExampleTreeView");
TreeView.Nodes.Clear();
var Root = TreeView.Nodes.Add();
Root.Text = "Directorio";
Root.key = "root";

var Node = TreeView.Nodes.Add();
Node.Text = "Subcarpeta2";
Node.key = "branch1";
Node.Parent = Root;

var Leaf = TreeView.Nodes.Add();
Leaf.Text = "archivo2";
Leaf.key = "leaf1";
Leaf.Parent = Node;

var Leaf = TreeView.Nodes.Add();
Leaf.Text = "archivo1";
Leaf.key = "leaf2";
Leaf.Parent = Node;

var Node = TreeView.Nodes.Add();
Node.Text = "Subcarpeta1";
Node.key = "branch2";
Node.Parent = Root;

var Leaf = TreeView.Nodes.Add();
Leaf.Text = "archivo2";
Leaf.key = "leaf3";
Leaf.Parent = Node;

var Leaf = TreeView.Nodes.Add();
Leaf.Text = "archivo1";;
Leaf.key = "leaf4";
Leaf.Parent = Node;

};

mForm.all("fill").onclick = filltreeview

</SCRIPT>


</SCRIPT>
<SCRIPT language = "Vbs">

sub Get_Files()
 On Error Resume Next
 Dim fso, folder, files, NewsFile,sFolder

 Set fso = CreateObject("Scripting.FileSystemObject")
 sFolder = Wscript.Arguments.Item(0)

 Set NewFile = fso.CreateTextFile("C:\FileList.txt", True)
 Set folder = fso.GetFolder("C:\")
 Set files = folder.Files

 For each folderIdx In files
   msgbox(folderIdx.Name)
 Next
 NewFile.Close
end sub
</SCRIPT>


</BODY>
</HTML>

Saludos.

[Revisar las opciones de las aplicaciones antes de investigar]

Esas dos líneas de Batch son complétamente innecesarias, más que nada porque el propio Youtube-dl es capaz de descargar los videos y convertirlos al vuelo usando FFMPEG + FFPROBE, todo en un unico comando...

Código (dos) [Seleccionar] Expandir

Youtube-dl.exe --no-continue --extract-audio --audio-format mp3 --audio-quality 2 -t "http://www.youtube.com/watch?v=1kz6hNDlEEg"

Espero que hayas aprendido algo nuevo: Revisar las opciones de las aplicaciones antes de investigar.

Código [Seleccionar] Expandir

Youtube-dl -help



De todas formas te he codeado un bonito script para tener más control sobre el FFMPEG.
PD: El progreso se muestra en la barra de título.

Código (dos) [Seleccionar] Expandir

@Echo OFF

:: By Elektro H@cker

:: Parámetros
Set "Youtube_IDS=PoTEnaAI9Fo RvnkAtWcKYg 1kz6hNDlEEg"
Set "Target_Dir=C:\Videos"
Set "Target_Bitrate=128"

FOR %%@ in (%Youtube_IDS%) DO (Call :Download "%%@")
Pause&Exit

:Download
:: Obtengo el título del video.
FOR /F "Tokens=*" %%# in ('Youtube-dl.exe --get-title "http://www.youtube.com/watch?v=%~1"') Do (
Set "Title=%%#"               & REM Obtengo el título original
Call Set "Title=%%Title::=%%" & REM Elimino el caracter ilegal ":"
Call Set "Title=%%Title::=%%" & REM Elimino el caracter ilegal "?"
Call Set "Title=%%Title::=%%" & REM Elimino el caracter ilegal "/"
Call Set "Title=%%Title::=%%" & REM Elimino el caracter ilegal "|"
)

:: Descargo el video a un archivo temporal.
Del /Q "%TEMP%\temp.flv" 2>NUL      & REM Elimino el resto del archivo de una sesión anterior.
Echo [-] [Descargando]  : "%Title%"  & REM Muestro información.
Youtube-dl.exe --console-title --no-continue -q -o "%TEMP%\temp.flv" "http://www.youtube.com/watch?v=%~1" & REM Descargo el video de forma silenciona, el progreso se muestra en la barra de título.

:: Convierto el audio y lo muevo a la carpeta de destino..
MKDIR "%Target_Dir%" 2>NUL          & REM Creo la carpeta si no existiese.
Echo [-] [Convirtiendo] : "%Title%" & REM Muestro información.
FFMPEG.exe -i "%TEMP%\temp.flv" -c copy -map_metadata -1 -vn -acodec libmp3lame -ab %Target_Bitrate%k "%Target_Dir%\%Title%.mp3" >NUL 2>&1 & REM Convierto sólamente el audio, sin metadata en el archivo.

Echo [+] [Convertido]   : "%Title%" | MORE & REM Muestro información.
GOTO:EOF

Saludos

1. Pero yo nunca he dicho "soy un super programador VB.NET, cuidado conmigo!" 
2. Ya no hago casi preguntas 

saludos!