ABDERRAMAH

Las visitas me dan igual ...pero es una situación crítica que de 10.000 lecturas sólamente 3 personas (incluida yo) hayan participado a contribuir.

 Abre un archivo o una carpeta en el explorador de Windows

#Region " Open In Explorer "
 
    ' [ Open In Explorer ]
    '
    ' // By Elektro H@cker
    '
    ' Examples :
    ' Open_In_Explorer("C:\Folder\")
    ' Open_In_Explorer("C:\Folder\File.txt")
 
    Private Sub Open_In_Explorer(ByVal File_Or_Folder As String)
 
        If File_Or_Folder.EndsWith("\") Then File_Or_Folder = File_Or_Folder.Substring(0, File_Or_Folder.Length - 1)
 
        If IO.Directory.Exists(File_Or_Folder) Then
            Dim FileInformation As IO.FileInfo = My.Computer.FileSystem.GetFileInfo(File_Or_Folder)
            Process.Start("explorer.exe", " /select," & IO.Path.Combine(FileInformation.DirectoryName, FileInformation.Name))
        ElseIf IO.File.Exists(File_Or_Folder) Then
            Dim FolderInformation As IO.DirectoryInfo = My.Computer.FileSystem.GetDirectoryInfo(File_Or_Folder)
            Process.Start("explorer.exe ", FolderInformation.FullName)
        Else
            Throw New Exception(File_Or_Folder & " doesn't exist")
        End If
 
    End Sub
 
#End Region

---

 Abre un dialogo y selecciona un proceso para ejecutar un archivo.

#Region " Open With... "
 
    ' [ Open With... ]
    '
    ' // By Elektro H@cker
    '
    ' Examples :
    ' Open_With("C:\File.txt") ' And select "Notepad.exe" in the Dialog...
 
    Private Sub Open_With(ByVal File_Or_Folder As String)
 
        Dim OpenWith As New OpenFileDialog()
        OpenWith.InitialDirectory = Environ("programfiles")
        OpenWith.Title = "Open file with..."
        OpenWith.Filter = "Application|*.exe"
 
        If OpenWith.ShowDialog() = DialogResult.OK Then
            Process.Start(OpenWith.FileName, " " & """" & File_Or_Folder & """")
        End If
 
    End Sub
 
#End Region

Unos snippets que hice para usarlos con ListViews:

• Auto scrollea un Listview hasta el último Item.

   ' Scroll ListView
    Private Sub Scroll_ListView(ByVal ListView_Name As ListView)
        ListView_Name.EnsureVisible(ListView_Name.Items.Count - 1)
    End Sub

---

• Deshabilita el menú contextual si no hay ningún Item seleccionado.

    ' [ListView] Auto-Disable ContextMenu
    Private Sub ContextMenu_Opening(sender As System.Object, e As System.ComponentModel.CancelEventArgs) _
    Handles Listview1_ContextMenu.Opening
 
        If ListView1.SelectedItems.Count = 0 Then e.Cancel = True
 
    End Sub
 

---

• Copia el contenido de un Item al portapapeles

#Region " [ListView] Copy Item To Clipboard "
 
 
    ' [ [ListView] Copy Item To Clipboard ]
    '
    ' // By Elektro H@cker
    '
    ' Examples :
    '
    ' Copy_Selected_Items_To_Clipboard(ListView1, 0)    ' Copies Item 0
    ' Copy_Selected_Items_To_Clipboard(ListView1, 0, 2) ' Copies SubItem 2 of Item 0
 
    Private Sub Copy_Item_To_Clipboard(ByVal ListView_Name As ListView, _
                                       ByVal Item As Int32, _
                                       Optional ByVal SubItem As Int64 = 0)
 
        Clipboard.SetText(ListView_Name.Items(Item).SubItems(SubItem).Text)
 
    End Sub
 
#End Region

---

•  Copia el contenido de los items seleccionados al portapapeles

#Region " [ListView] Copy Selected-Items To Clipboard "
 
    ' [ [ListView] Copy Selected-Items To Clipboard ]
    '
    ' // By Elektro H@cker
    '
    ' Examples :
    '
    ' Copy_Selected_Items_To_Clipboard(ListView1)    ' Copies all SubItems of selected Items
    ' Copy_Selected_Items_To_Clipboard(ListView1, 2) ' Copies only SubItem 2 of selected Items
 
    Private Sub Copy_Selected_Items_To_Clipboard(ByVal ListView_Name As ListView, _
                                                 Optional ByVal SubItem As Int32 = -0)
 
        Dim text As String = String.Empty
 
        For Each Entry As ListViewItem In ListView_Name.SelectedItems()
 
            If SubItem = -0 Then
                For Each Subi As ListViewItem.ListViewSubItem In ListView_Name.Items(Entry.Index).SubItems
                    text &= " " & Subi.Text
                Next
                text &= ControlChars.NewLine
            Else
                text &= ControlChars.NewLine & ListView_Name.Items(Entry.Index).SubItems(SubItem).Text
            End If
 
        Next
 
        Clipboard.SetText(text)
 
    End Sub
 
#End Region

Parece que símplemente se han movido: http://kickass.to/

Saludos.

¿Aún no lo has probado?

He pasado por lo mismo que tu (mas o menos), si no utilizas el programa que te dije (o uno dedicado a lo mismo) no vas a poder desinstalarlo, y una vez lo desinstalas con el uninstalltool no queda ni rastro, y puedes volver a instalarlo de nuevo sin problemas.

Pero eres libre de hacer caso de mi consejo,
Saludos!

¿En que lenguaje?.

Hola.

Pues según de la forma en que lo planteaste, eso no puedes hacerlo.

Lo que te sugiero es que escribas un archivo de lista multimedia (por ejemplo una lista de tipo "m3u"), y ahí escribas los videos que deseas reproducir, se reproducirán uno detrás de otro.

...Símplemente eso, escribir el M3U y ejecutar el M3U a "X" hora.

Para ejecutar una accion a cierta hora puedes usar el programador de tareas de Windows, puedes hacerlo así, o usando Batch, o con miles de programas que sirven precísamente para eso.

Saludos!

Ese código es de C#.

¿No crees que es tener bastante morro pedir que te den el código todo hecho?, de todas formas no puedes acceder diréctamente a las funciones de la API de Windows con VBS (al menos hasta donde yo sé, que tampoco soy un experto en VBS),
puedes usar ese código de C# (es fácil de convertirlo a código VB.NET), o algo mucho más fácil que puedes hacer es usar la utilidad commandline de esa url, y así obtienes el output descifrado sin mayores esfuerzos.

Saludos!

No, no hay Spoilers en el foro.

Y si me permites un consejo, no colorees tus mensajes, no todos usamos el theme default del foro y eso hace que para algunos (como yo) el azul sea imposible de leer.

---

Las claves están encriptadas con el mecanismo de Windows, "Windows Cryptography", así que para desencriptarlas debes usar el algoritmo que usa windows, la función "CryptUnprotectData" de la dll "Crypt32.dll" de Windows, pero óbviamente esto no puedes hacerlo en un """lenguaje""" como Batch, aunque en cualquier otro lenguaje si que puedes hacerlo.

Llegados a este punto tienes dos maneras de resolver el problema:

1. Aprender un lenguaje de verdad capacitado para esa tarea.

2. Usar herramientas externas: http://securityxploded.com/wifi-password-decryptor.php
(Tiene version commandline)

PD: De todas formas, esas claves solo vas a poder desencriptarlas con tu mismo usuario, y debe de hacerse en el mismo PC, así que no te recomiendo guardarlas en un dispositivo de almacenamiento, para luego formatear, e intentar recuperarlas, porque no podrás desencriptarlas después del formateo... a no ser que diréctamente guardes las claves desencriptadas al momento de hacer "el backup".  

Saludos