Mensajes

Aparte de tu y yo, quien más ha participado?

ABDERRAMAH

[Tema: Librería de Snippets !! (Posteen aquí sus snippets) (Leído 10,100 veces)]

Tema: Librería de Snippets !! (Posteen aquí sus snippets)  (Leído 10,100 veces)

Anda! 10k de visitas! Enhorabuena

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

Código (vbnet) [Seleccionar] Expandir

#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.

Código (vbnet) [Seleccionar] Expandir

#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.
  
  
  Código (vbnet) [Seleccionar] Expandir
    ' 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.
  
  
  Código (vbnet) [Seleccionar] Expandir
     ' [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
  
  
  Código (vbnet) [Seleccionar] Expandir
  #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
  
  
  Código (vbnet) [Seleccionar] Expandir
  #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

http://www.kat.ph/  está offline o es mi red? Quien me puede confirmar!?

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

Saludos.

ver si pruebo con el uninstall tool o algo así porque no funciona el desinstalable.

¿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?.

Como hago esto?

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!

[C#]

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!

[saludos \m/ (cual es la etiqueta para spoiler??? o no hay???)]

saludos \m/ (cual es la etiqueta para spoiler??? o no hay???)

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.

como podria ver las claves en texto plano???

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