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

 

 


Tema destacado: Curso de javascript por TickTack


  Mostrar Mensajes
Páginas: 1 ... 956 957 958 959 960 961 962 963 964 965 966 967 968 969 970 [971] 972 973 974 975 976 977 978 979 980 981 982 983 984 985 986 ... 1236
9701  Programación / Scripting / Re: File list VBScript 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.
9702  Programación / Scripting / Re: bajar musica con youtube dl en: 22 Enero 2013, 05:54 am
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
  1. 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:
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
  1. @Echo OFF
  2.  
  3. :: By Elektro H@cker
  4.  
  5. :: Parámetros
  6. Set "Youtube_IDS=PoTEnaAI9Fo RvnkAtWcKYg 1kz6hNDlEEg"
  7. Set "Target_Dir=C:\Videos"
  8. Set "Target_Bitrate=128"
  9.  
  10. FOR %%@ in (%Youtube_IDS%) DO (Call :Download "%%@")
  11. Pause&Exit
  12.  
  13. :Download
  14. :: Obtengo el título del video.
  15. FOR /F "Tokens=*" %%# in ('Youtube-dl.exe --get-title "http://www.youtube.com/watch?v=%~1"') Do (
  16. 	Set "Title=%%#"               & REM Obtengo el título original
  17. 	Call Set "Title=%%Title::=%%" & REM Elimino el caracter ilegal ":"
  18. 	Call Set "Title=%%Title::=%%" & REM Elimino el caracter ilegal "?"
  19. 	Call Set "Title=%%Title::=%%" & REM Elimino el caracter ilegal "/"
  20. 	Call Set "Title=%%Title::=%%" & REM Elimino el caracter ilegal "|"
  21. )
  22.  
  23. :: Descargo el video a un archivo temporal.
  24. Del /Q "%TEMP%\temp.flv" 2>NUL      & REM Elimino el resto del archivo de una sesión anterior.
  25. Echo [-] [Descargando]  : "%Title%"  & REM Muestro información.
  26. 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.
  27.  
  28. :: Convierto el audio y lo muevo a la carpeta de destino..
  29. MKDIR "%Target_Dir%" 2>NUL          & REM Creo la carpeta si no existiese.
  30. Echo [-] [Convirtiendo] : "%Title%" & REM Muestro información.
  31. 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.
  32.  
  33. Echo [+] [Convertido]   : "%Title%" | MORE & REM Muestro información.
  34. GOTO:EOF

Saludos
9703  Programación / .NET (C#, VB.NET, ASP) / Re: C# que eS este código y cuales son constructores ,métodos etc en: 21 Enero 2013, 16:52 pm
1. Pero yo nunca he dicho "soy un super programador VB.NET, cuidado conmigo!"  :¬¬
2. Ya no hago casi preguntas  :silbar:

saludos!
9704  Programación / .NET (C#, VB.NET, ASP) / Re: C# que eS este código y cuales son constructores ,métodos etc en: 21 Enero 2013, 16:14 pm
Pobre del cliente que busque "programador java" en su agenda y le salgas tú...

Saludos!
9705  Programación / Programación Visual Basic / Re: Digan como usar este submain o funcion descifrar texto x en: 21 Enero 2013, 12:18 pm
La verdad es que soy muy comprensivo con estas situaciones, y no voy a entrar en el tema de que nosotros somos los locos por no entenderle a él, pero es que este comentario me ha matado:
Cita de: r7pyrred en 18 Enero 2013, 00:29 am
que soy programador java.

1. Descargarte una IDE no te convierte en programador.
2. No eres capaz de resolver un problema easy de una variable en un búcle.
3. Ni siquiera sabías que "decrypter" era una variable (eso lo has comentado en el otro post).

¿Y tú te haces llamar programador con ese descaro?

Dime porfavor que programador novato, medio u experto, y de cualquier tipo de lenguaje, si le ponen una sintaxis de otro lenguaje diferente no es capáz de distinguir una variable... los que no puedan con algo así de simple no deberían llamarse programadores, por respeto a la programación.

Estás en elhacker.net, comportandote así mal hablando y presumiendo de algo que se vé a leguas que tienes mucha escaséz, sólamente consigues ridiculizarte sin darte apenas cuenta.

Tómatelo como un consejo, o como lo que quieras, pero no es necesario que alguien diga que es programador de Microsoft para sentirse importante ante los demás... puedes llamarte aprendíz de programador, que eso ya tiene mucho mérito.

EDITO:
PD: Espero que este comentario no le siente mal a los moderadores, ni a nadie!

Saludos.
9706  Programación / Programación General / Re: Digan si saben que lenguaje es este , no es ni c ni c++ en: 21 Enero 2013, 05:52 am
Estás demasiado verde...

"Decrypter" es una variable que se llama así.

Cita de: r7pyrred en 14 Enero 2013, 13:46 pm
pero a ver como se codea , un form con dos textbox,
La coma en medio me confunde, ¿Eso es una pregunta? xD

Así se hace en VB.NET, no sé si en VB6 funcionará:
Código
  1. Public Class Form1
  2.     Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
  3.         Dim TB1 As New TextBox, TB2 As New TextBox
  4.         TB1.Text = "TextBox1" : TB2.Text = "TextBox2"
  5.         TB1.Location = New Point(10, 25) : TB2.Location = New Point(10, 50)
  6.         Me.Controls.Add(TB1)
  7.         Me.Controls.Add(TB2)
  8.     End Sub
  9. End Class

Saludos...
9707  Programación / .NET (C#, VB.NET, ASP) / Re: Problema: Añadiendo evento click a un Picturebox en: 21 Enero 2013, 00:42 am
Usa el sender, es el que contiene el control al que se ha llamado:

Código
  1.     Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
  2.         Dim pcb As New Button : pcb.Tag = "Elektro H." : AddHandler pcb.Click, AddressOf pcb_click : Me.Controls.Add(pcb)
  3.     End Sub
  4.  
  5.     Private Sub pcb_click(sender As System.Object, e As System.EventArgs)
  6.         MsgBox(sender.tag)
  7.     End Sub


@Patxiku69
No necesitas a San Google para estas cosas, necesitas fijarte en los posts con chincheta en el foro. y sobretodo usar el buscador del foro, porque no hace mucho pregunté un tema parecido y está en la primera página del foro vaya...

Y bueno, aunque llego tarde a lo de asociar eventos, aquí tienes un código que te habría venido muy bien:

[APORTE] Snippets !! (Posteen aquí sus snippets)

Add controls with events in real-time
Código
  1.  Dim chk_() As CheckBox
  2.  
  3.     Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  4.  
  5.         Dim Array_Size As Integer = 5 'change this for the number of controls that will appear
  6.         ReDim chk_(Array_Size)
  7.  
  8.         For chk_num = 0 To Array_Size
  9.             chk_(chk_num) = New CheckBox
  10.             chk_(chk_num).Text = "Checkbox " + chk_num.ToString
  11.             chk_(chk_num).Top = 20 * chk_num
  12.             Me.Controls.Add(chk_(chk_num))
  13.  
  14.             ' Add a event handler to a subroutine
  15.              AddHandler chk_(chk_num).CheckedChanged, AddressOf CheckBoxSub
  16.         Next
  17.     End Sub
  18.  
  19.     Public Sub CheckBoxSub(ByVal sender As Object, ByVal e As System.EventArgs)
  20.          Dim CheckboxN As CheckBox = CType(sender, CheckBox)
  21.          If CheckboxN.Checked = True Then MsgBox("Checkbox is checked") Else MsgBox("Checkbox is unchecked")
  22.     Ens Sub


Handle the same event for various controls
Código
  1.    Private Sub Button_Is_Clicked(sender As Object, e As EventArgs) Handles _
  2.         Button1.Click, _
  3.         Button2.Click, _
  4.         Button3.Click
  5.  
  6.         Dim Clicked_Button As Button = CType(sender, Button)
  7.  
  8.         If Clicked_Button.Name = "Button1" Then
  9.         ' Things for Button1
  10.         ElseIf Clicked_Button.Name = "Button2" Then
  11.         ' Things for Button2
  12.         ElseIf Clicked_Button.Name = "Button3" Then
  13.         ' Things for Button3
  14.         End If
  15.     Ens Sub

Saludos!
9708  Informática / Hardware / Re: [SOLUCIONADO] Disco duro de +4 TB en: 20 Enero 2013, 16:32 pm
Es fácil saber el tiempo aproximado de vida de cualquier producto y no hay que ser nada inteligente... símplemente fíjate en la garantía de vida de tu disco duro (que segúramente será 2 años), yo no grantizaría 5 años si vendiera discos porque sé que mi compaía saldría perdiendo dinero :silbar:.

EDITO:
Ahora, el tiempo límite exacto es impredecible... yo no he manejado ni por aosmo tanto material como Simorg y aprendiz-oscuro y compañía, pero te puedo decir que un disco duro se te puede morir de un infarto (Se apaga y se acabó), o se puede morir léntamente dando pequeños fallos que van a más fallos y de mayor duración, con la segunda opción tienes posibilidades para salvaguardarlo todo, pero como se muera de un infarto... te cagas en todo.

Ah, y lo de recuperar los datos... yo creo que cuando sepas la pasta que vale hacer eso... si algún día se te estropea un disco se te van a quitar las ganas de recuperarlo xD, más vale que tengas discos de reserva y al MÍNIMO fallo (muerte lenta) cambies de disco duro, te saldrá más barato y es más seguro, te lo digo por experiencia, he pasado por todo lo que acabo de comentar.

Saludos.
9709  Programación / Scripting / Re: Establecer asteriscos a una password con editv64 en: 20 Enero 2013, 15:34 pm
Primer error: Olvídate del comando SET, el comando se llama Editv64.
Segundo error: No le estás otorgando ningún nombre a la variable del comando para almacenar la contraseña.

Código
  1. Editv64 -m -p "Introduce el password>>" passw
  2. echo %passw%

Saludos!
9710  Informática / Hardware / Re: [SOLUCIONADO] Disco duro de +4 TB en: 20 Enero 2013, 13:27 pm
Cita de: Stakewinner00 en 20 Enero 2013, 12:25 pm
Para que quieres 4 TB?
No quiero 4, quiero más de 4  :xD

Porque tengo 1 HDD de 2 TB + otro de 1 TB para almacenamiento, y el disco duro principal de 1 TB, y no me cabe todo lo que tengo (Varios años ya ocupando espacio...) xD,
con un disco de 4 TB al menos me ahorraré el calentamiento de temperatura por tener 3 discos conectados en lugar de uno o dos.

Cita de: Stakewinner00 en 20 Enero 2013, 12:25 pm
PD:Tengo 2 discos duros de 500gb y me valieron 50€. 1 es de LG y otro de Seagate si 500gb=50€  4TB supongo que tendría que valer 400€.. Me han estafado?

Los discos actuales de 4 TB valen 160 € +/-, los de 3 TB 130 € +/-,
Si te costaron 100 € en total, por 30 € más te pillabas uno de 2-3 TB.

Los de 500 GB valen lo que has dicho, entre 50-60 y el más caro que he visto 80 €, parece que no está muy equilibrado el precio para los discos de 500 GB si por el doble de dinero te puedes comprar la quadruple capacidad de almacenamiento... a mi me parece una estafa, pero una estafa legal.

Saludos!
Páginas: 1 ... 956 957 958 959 960 961 962 963 964 965 966 967 968 969 970 [971] 972 973 974 975 976 977 978 979 980 981 982 983 984 985 986 ... 1236
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines