Mensajes

¿Quieres desactivar el servicio de escaneo en tiempo real de un AV?      

No podrías haber elegido nada más dificil.

Inicia tu PC y entra en modo seguro (A prueba de fallos) y ahi intentas hacer lo que quieres.

Código (dos) [Seleccionar] Expandir

SC Config "nombre del Servicio" Type ="own"

PD: Eso para cambiar de tipo "system" al que tú quieras, aunque siendo un servicio de un AV... seguro que no va a funcionar.

Saludos!

Necesito una ayuda con esto!, conseguí meter un sub en el thread, pero la cosa se complica porque tengo 3 subs,
el primer sub llama al segundo sub pasandole como argumento un nombre de directorio, el segundo sub llama al tercero pasandole otro argumento, y ya no se como meter todo eso en el thread...

Necesito que toda la región "Organize function" trabaje en un thread separado... lo que hice fue meter el 3er sub en el thread e intentar llamar a ese thread con el argumento del sub2, pero me dice que no hay referencia a la instancia del objeto o algo así.

Espero que alguien pueda ayudarme, he eliminado las partes menos importantes del form para que puedan examinarlo mejor:

Código (vbnet) [Seleccionar] Expandir



Public Class Form1


#Region "Declarations"

       ' MediaInfo
       Dim MI As MediaInfo

       ' Thread
       Dim paused As Boolean = False

       ' Others
       Dim NameOfDirectory As String = Nothing
       Dim aFile As FileInfo

#End Region



   'thread
   Dim t As New Thread(AddressOf ThreadProc)

   Public Sub ThreadProc()
       ' Aqui debería ir  todo el sub de "organize function", bueno... son 3 subs!
       If paused = True Then MsgBox("THREAD PAUSADO")
   End Sub



#Region "Properties"
...
#End Region

#Region "Load / Close"
...
#End Region

#Region "Get Total files Function"
...
#End Region

#Region "Option checkboxes"
...
#End Region

#Region "Folder buttons"
...
#End Region

#Region "Append text function"
...
#End Region





#Region "Action buttons"

  ' pause button
   Private Sub pause_button_Click(sender As Object, e As EventArgs) Handles pause_button.Click
       paused = True
   End Sub

   ' start button
       Private Sub Button2_Click(sender As Object, e As EventArgs) Handles start_button.Click

             t.Start()

                   ' Organization process
                   NameOfDirectory = userSelectedFolderPath
                   MediaInfo(NameOfDirectory)

       End Sub

#End region





#Region "Organize function"

       Public Sub MediaInfo(Directory)
           Dim MyDirectory As DirectoryInfo
           MyDirectory = New DirectoryInfo(NameOfDirectory)
           MediaInfoWorkWithDirectory(MyDirectory)
       End Sub

       Public Sub MediaInfoWorkWithDirectory(ByVal aDir As DirectoryInfo)
           Dim nextDir As DirectoryInfo
           MediaInfoWorkWithFilesInDir(aDir)
           For Each nextDir In aDir.GetDirectories
               Using writer As StreamWriter = New StreamWriter(aDir.FullName & "\" & nextDir.Name & "\" & nextDir.Name & ".m3u", False, System.Text.Encoding.UTF8)
                   'overwrite existing playlist
               End Using
               MediaInfoWorkWithDirectory(nextDir)
           Next
       End Sub

       Public Sub MediaInfoWorkWithFilesInDir(ByVal aDir As DirectoryInfo)

           Dim aFile As FileInfo

           For Each aFile In aDir.GetFiles()

              ' hacer cosas con aFile ...

           Next

       End Sub

#End Region



End Class

[EDITO]

De aquí me bajo yo los packs diarios que contienen +200 temas frescos!
http://electrohouse.ucoz.com/
http://electrovsfidget.ru/
Busca los packs de electro en las noticias de esas páginas, que suben packs de todo tipo.
PD: Y mejor si compras el servicio FTP, es caro, pero vale la pena, suben packs cada 2 dias y eso significa unos 800 temas frescos de electro cada semana .

EDITO: Esta otra página también es muy buena, pero el servicio VIP no merece la pena (Te lo dice un VIP ) http://forum.soundarea.org/

EDITO2: Y para temas amateurs (y profesionales) tienes Soundcloud y puedes usar mi herramienta [RUBY] SoundCloud Leecher v0.5 (Manten al día tu colección de música!)

PD2: Postea este tipo de dudas en el sitio correcto: Subforo: Series - Películas - Música - Juegos - Programas foro libre

[$Edu$]

Como ya dijo $Edu$ el script funciona correctamente, lo que está creando es la carpeta "C:\Usuarios" (No una carpeta dentro de "...\Usuarios\...")

Usas WinXP?

La única posibilidad lógica es que como te dice el intérprete, la carpeta ya existe .

Abre la CMD y escribe:

Código (dos) [Seleccionar] Expandir

If Exists "C:\Usuarios" (Echo La carpeta ya existe '¬¬)

Si quieres eliminarla...

Código (dos) [Seleccionar] Expandir

RD "C:\Usuarios"

Saludos!

jajaja, me robaste la idea sin saberlo!
Iba a hacerlo exactamente en el mismo buscador xD, mp3skull, que buen buscador gratis!

Gracias por el code!

Un saludo Doddy.

[Kubox]

Código ( vb.net) [Seleccionar] Expandir

proceso.redirectstandarderror = true
Dim stderr as string = Proceso.standarderror.readtoend


simplemente configuras el proceso para que redireccione los posibles errores.

Saludos dsd android

Gracias Kubox, aunque me expliqué mal, yo lo que necesitaba era el ExitCode, pero ya está.



Sobre el SharpFFmpeg, me voy a abstener de usarlo, aparte de porque el proyecto tiene SEIS años de antiguedad sin actualizarse, solo hay ejemplos escritos en C#, así que ni idea tengo xD.

Y el FFMPEG.Net no soporta codificación de video, y si no he entendido mal solo soporta pistas WAV, está muy verde, así que tampoco me sirve...

Saludos!

0 .. lines.length - 1 sería la manera correcta de recorrer el array.

Le tuve que restar una más:

Código (vbnet) [Seleccionar] Expandir

               For i As Integer = 0 To consolebox.Lines.Length - 2
                   Dim first As Integer = consolebox.GetFirstCharIndexFromLine(i)
                   '  MsgBox(first)
                   consolebox.Select(first, 10)
                   consolebox.SelectionColor = Color.Yellow
               Next

Listo! Gracias.

[EDITO]

EDITO: te me adelantaste Seba, ahora lo pruebo!

EDITO2: Tu ejemplo selecciona lineas enteras, yo necesito seleccionar la palabra "Processing" de cada linea

EDITO3: Ya está, como la palabra "Processing" empieza al principio de cada línea solo tengo que medir la longitud de la palabra y usarla como "final de índice" xD

GRACIAS



Me dice que el ínidce está fuera de la matriz, que lío:

Código (vbnet) [Seleccionar] Expandir


               For line = 0 To consolebox.Lines.Length
                   a = consolebox.GetFirstCharIndexFromLine(line)
                   b = consolebox.Lines(line).Length()
                   MsgBox(a & "," & b)
                   consolebox.Select(a, b)
                   consolebox.SelectionColor = Color.Yellow
               Next

ffmpeg-sharp

Your search did not generate any results.
You may want to try your search over all downloads.

This project currently has no downloads.

xD?

Te lo agradezco Seba, buscaré otro parecido...

Saludos

Pues he probado esto, y ralentiza el proceso sobre un 50% (obviamente cuanto mayor séa el contenido del richtextbox...)

Código (vbnet) [Seleccionar] Expandir

              Dim textEnd As Integer = consolebox.TextLength
                Dim index As Integer = 0
                Dim lastIndex As Integer = consolebox.Text.LastIndexOf("Processing")

                While index < lastIndex
                    consolebox.Find("Processing", index, textEnd, RichTextBoxFinds.None)
                    consolebox.SelectionColor = Color.Yellow
                    index = consolebox.Text.IndexOf("Processing", index) + 1
                End While