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


Tema destacado: Entrar al Canal Oficial Telegram de elhacker.net


  Mostrar Mensajes
Páginas: 1 ... 1013 1014 1015 1016 1017 1018 1019 1020 1021 1022 1023 1024 1025 1026 1027 [1028] 1029 1030 1031 1032 1033 1034 1035 1036 1037 1038 1039 1040 1041 1042 1043 ... 1254
10271  Sistemas Operativos / Windows / Re: Desactivar un servicio en Windows 7 y SYSTEM no me deja en: 28 Noviembre 2012, 14:38 pm
¿Quieres desactivar el servicio de escaneo en tiempo real de un AV?  :laugh:  :laugh:  :laugh:

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
  1. 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!
10272  Programación / .NET (C#, VB.NET, ASP) / Re: Como puedo interrumpir el thread en un For while? en: 27 Noviembre 2012, 19:17 pm
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
  1.  
  2. Public Class Form1
  3.  
  4.  
  5. #Region "Declarations"
  6.  
  7.        ' MediaInfo
  8.        Dim MI As MediaInfo
  9.  
  10.        ' Thread
  11.        Dim paused As Boolean = False
  12.  
  13.        ' Others
  14.        Dim NameOfDirectory As String = Nothing
  15.        Dim aFile As FileInfo
  16.  
  17. #End Region
  18.  
  19.  
  20.  
  21.    'thread
  22.    Dim t As New Thread(AddressOf ThreadProc)
  23.  
  24.    Public Sub ThreadProc()
  25.        ' Aqui debería ir  todo el sub de "organize function", bueno... son 3 subs!
  26.        If paused = True Then MsgBox("THREAD PAUSADO")
  27.    End Sub
  28.  
  29.  
  30.  
  31. #Region "Properties"
  32. ...
  33. #End Region
  34.  
  35. #Region "Load / Close"
  36. ...
  37. #End Region
  38.  
  39. #Region "Get Total files Function"
  40. ...
  41. #End Region
  42.  
  43. #Region "Option checkboxes"
  44. ...
  45. #End Region
  46.  
  47. #Region "Folder buttons"
  48. ...
  49. #End Region
  50.  
  51. #Region "Append text function"
  52. ...
  53. #End Region
  54.  
  55.  
  56.  
  57.  
  58.  
  59. #Region "Action buttons"
  60.  
  61.   ' pause button
  62.    Private Sub pause_button_Click(sender As Object, e As EventArgs) Handles pause_button.Click
  63.        paused = True
  64.    End Sub
  65.  
  66.    ' start button
  67.        Private Sub Button2_Click(sender As Object, e As EventArgs) Handles start_button.Click
  68.  
  69.              t.Start()
  70.  
  71.                    ' Organization process
  72.                    NameOfDirectory = userSelectedFolderPath
  73.                    MediaInfo(NameOfDirectory)
  74.  
  75.        End Sub
  76.  
  77. #End region
  78.  
  79.  
  80.  
  81.  
  82.  
  83. #Region "Organize function"
  84.  
  85.        Public Sub MediaInfo(Directory)
  86.            Dim MyDirectory As DirectoryInfo
  87.            MyDirectory = New DirectoryInfo(NameOfDirectory)
  88.            MediaInfoWorkWithDirectory(MyDirectory)
  89.        End Sub
  90.  
  91.        Public Sub MediaInfoWorkWithDirectory(ByVal aDir As DirectoryInfo)
  92.            Dim nextDir As DirectoryInfo
  93.            MediaInfoWorkWithFilesInDir(aDir)
  94.            For Each nextDir In aDir.GetDirectories
  95.                Using writer As StreamWriter = New StreamWriter(aDir.FullName & "\" & nextDir.Name & "\" & nextDir.Name & ".m3u", False, System.Text.Encoding.UTF8)
  96.                    'overwrite existing playlist
  97.                End Using
  98.                MediaInfoWorkWithDirectory(nextDir)
  99.            Next
  100.        End Sub
  101.  
  102.        Public Sub MediaInfoWorkWithFilesInDir(ByVal aDir As DirectoryInfo)
  103.  
  104.            Dim aFile As FileInfo
  105.  
  106.            For Each aFile In aDir.GetFiles()
  107.  
  108.               ' hacer cosas con aFile ...
  109.  
  110.            Next
  111.  
  112.        End Sub
  113.  
  114. #End Region
  115.  
  116.  
  117.  
  118. End Class
10273  Foros Generales / Foro Libre / Re: descargar musica electro houses en: 27 Noviembre 2012, 17:14 pm
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 :P.

EDITO: Esta otra página también es muy buena, pero el servicio VIP no merece la pena (Te lo dice un VIP :xD) 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
10274  Programación / Scripting / Re: [VBS] Duda basica script en: 27 Noviembre 2012, 16:05 pm
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 :xD.

Abre la CMD y escribe:
Código
  1. If Exists "C:\Usuarios" (Echo La carpeta ya existe '¬¬)

Si quieres eliminarla...
Código
  1. RD "C:\Usuarios"

Saludos!
10275  Programación / Scripting / Re: [Perl] MP3 Downloader 0.1 en: 27 Noviembre 2012, 16:01 pm
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.
10276  Programación / .NET (C#, VB.NET, ASP) / Re: Como agarrar el error-output de un proceso? en: 27 Noviembre 2012, 15:59 pm
Código
  1. proceso.redirectstandarderror = true
  2. Dim stderr as string = Proceso.standarderror.readtoend
  3.  

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!
10277  Programación / .NET (C#, VB.NET, ASP) / Re: (SOLUCIONADO) Cambiar el color de una línea en un richtextbox en: 27 Noviembre 2012, 14:38 pm

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


Le tuve que restar una más:

Código
  1.                For i As Integer = 0 To consolebox.Lines.Length - 2
  2.                    Dim first As Integer = consolebox.GetFirstCharIndexFromLine(i)
  3.                    '  MsgBox(first)
  4.                    consolebox.Select(first, 10)
  5.                    consolebox.SelectionColor = Color.Yellow
  6.                Next

Listo! Gracias.
10278  Programación / .NET (C#, VB.NET, ASP) / Re: (SOLUCIONADO) Cambiar el color de una línea en un richtextbox en: 27 Noviembre 2012, 14:24 pm
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
  1.                For line = 0 To consolebox.Lines.Length
  2.                    a = consolebox.GetFirstCharIndexFromLine(line)
  3.                    b = consolebox.Lines(line).Length()
  4.                    MsgBox(a & "," & b)
  5.                    consolebox.Select(a, b)
  6.                    consolebox.SelectionColor = Color.Yellow
  7.                Next
10279  Programación / .NET (C#, VB.NET, ASP) / Re: Como agarrar el error-output de un proceso? en: 27 Noviembre 2012, 14:07 pm

Cita de: SOURCEFORGE
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
10280  Programación / .NET (C#, VB.NET, ASP) / Re: (SOLUCIONADO) Cambiar el color de una línea en un richtextbox en: 27 Noviembre 2012, 14:04 pm
Pues he probado esto, y ralentiza el proceso sobre un 50% (obviamente cuanto mayor séa el contenido del richtextbox...)

Código
  1.              Dim textEnd As Integer = consolebox.TextLength
  2.                Dim index As Integer = 0
  3.                Dim lastIndex As Integer = consolebox.Text.LastIndexOf("Processing")
  4.  
  5.                While index < lastIndex
  6.                    consolebox.Find("Processing", index, textEnd, RichTextBoxFinds.None)
  7.                    consolebox.SelectionColor = Color.Yellow
  8.                    index = consolebox.Text.IndexOf("Processing", index) + 1
  9.                End While
Páginas: 1 ... 1013 1014 1015 1016 1017 1018 1019 1020 1021 1022 1023 1024 1025 1026 1027 [1028] 1029 1030 1031 1032 1033 1034 1035 1036 1037 1038 1039 1040 1041 1042 1043 ... 1254
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines