Mensajes

Me parece bien el código,
para mover archivos y carpetas puedes usar el comando "Move".

Esto no se para que sirve pero lo encontre en un bat que hacia lo mismo:

Código [Seleccionar] Expandir

rmdir App /S /Q
md App

Escribe esto en la consola y sabrás para que sirven:

Código [Seleccionar] Expandir

rmdir /?
md /?

PD: Porfavor, no uses rmdir sin saber para que sirve, es "peligroso" si se usa mal.

Saludos.

Antes de nada, usa el botón "Insertar código" para postear codes.

estara bien asi

Sí, tanto el ejemplo que te puse como tu modificación son correctas y funcionan al menos en Windows 7,
Usas XP y no lo he probado en XP, quizás la sintaxis de SCHTASKS cambia para XP, puedes buscar la información en Google o sin ir más lejos, en la consola:

Código [Seleccionar] Expandir

SCHTASKS /?
...Y hacer los cambios necesarios.

Un saludo!

[FastColoredTextBox] Scroll Text

Scrollea hasta el final del texto y posiciona el cursor del teclado en el último caracter.

PD: Se requiere el control extendido FastColoredTextbox.

Código (vbnet) [Seleccionar] Expandir

#Region " [FastColoredTextBox] Scroll Text "

    ' FastColoredTextBox] Scroll Text
    '
    ' // By Elektro H@cker

    Private Sub FastColoredTextBox1_TextChanged(sender As Object, e As FastColoredTextBoxNS.TextChangedEventArgs) _
        Handles FastColoredTextBox1.TextChangedDelayed

        sender.ScrollLeft()
        sender.Navigate(sender.Lines.Count - 1) ' Scroll to down
        sender.SelectionStart = sender.Text.Length ' Set the keyboard cursor position

    End Sub

#End Region

Seriusly? xD Y yo buscando como un negro 20000 código por Interné...

Claro, si alguna vez me hicieras caso y leyeras el nombre y la descripción de cada propiedad, ni 3 minutos lleva mirarse las propiedades de un Form, aparte de aprender un poco más no perderías tiempo buscando códigos tontos.
...Pero lo que me hace gracia es que alguien haya gastado tiempo escribiendo ese código que comentas, me imagino que también lo habrá escrito sin saber que existia dicha propiedad, el colmo xD.

En fín, publica lo que quieras de todas formas he?, pa eso está esta sección.

saludos

Deberías poner mi code para que cambien las imagenes al pasar el mouse...

Puedes colaborar publicando tus códigos aquí, yo publico solo lo mio, o lo que encuentro por ahí en zonas prohibidas de la red xD.
Eres libre de publicar aquí tus snippets.

Tengo otro code, que adapta una imagen al fondo del Form... (Es decir si el form es de 800x600 y la imagen 1024x768 se redimensiona automaticamente)

Miedo me da ese código, no sé si querrás publicar eso, te lo digo más que nada porque no le veo sentido ni utilidad cuando existe una propiedad para redimensionar la imágen:

Código [Seleccionar] Expandir

Me.BackgroundImageLayout = ImageLayout.Stretch

Saludos!

pásame el source

He probado con Me.Hide() y luego Me.Dispose() (en ambos forms)

He quitado el Hide, y he puesto el Dispose y luego el Show, pero se cierra la app antes de que ocurra nada...

Vamos a ver Seazoux, ¿me quieres decir que has intentado disposar el form principal?, ¿pero has entendido algo de lo que dije antes? xD, si liberas el form principal de la memória, por supuesto que se va a "cerrar" la app.

Como ya te dije por MP (no sé si ya lo habrás intentado) solo tienes que reemplazar el ".Hide" por ".Dispose":

Form2.Show() ' Para mostrar el form
form2.Hide() ' Para ocultarlo
Form2.Dispose() ' Para liberarlo, en lugar de ocultarlo.

Donde tengas colocado "form2.hide" pues pones "form2.dispose", o "me.dispose" (En un form secundario)

El For procesa los archivos uno a uno y efectua las ordenes que le indiques a ese archivo, y luego al siguiente archivo, y así hasta que se complete la serie de archivos encontrados/procesados.

En la variable (en este caso "%%#", puedes darle otro nombre siempre que cumpla el patrón permitido como "%%a") sirve para almacenar el nombre del archivo que se está procesando en ese momento,
La variable la puedes expandir para obtener información concreta sobre el archivo, aunque en este caso solo interesa obtener el nombre completo, así que no hay que expandir, el "~f" lo puse como ejemplo visual pero no es necesario aquí.

Los paréntesis son los operadores de agrupación, y sirven para agrupar un conjunto de ordenes,
"(Echo hola)" sirve igual que "Echo hola", pero en el For uso los paréntesis porque es la manera correcta de programar un For, tanto un For como un If.

Si ves códigos así por internet, están muy mal:

Código [Seleccionar] Expandir

if "a" == "b" echo si & pause else echo no

Al no estar agrupado no se define el limite del grupo y el "Else" no se va a procesar.
Hay que hacerlo así:

Código [Seleccionar] Expandir

if "a" == "b" (echo si & pause) else (echo no)

Y nada, después de esta pequeña clase... te aconsejo que sigas leyendo más, el For es "grande" para alguien que está empezando.

Saludos

Una función para devolver una lista con todas las coincidencias de un RegEx:

Código (vbnet) [Seleccionar] Expandir

#Region " RegEx Matches To List "

   ' [ RegEx Matches To List Function ]
   '
   ' // By Elektro H@cker
   '
   ' Examples :
   ' Dim str As String = "<span class=""genres""><a href=""http://www.mp3crank.com/genre/alternative"" rel=""tag"">Alternative</a> / <a href=""http://www.mp3crank.com/genre/indie"" rel=""tag"">Indie</a> / <a href=""http://www.mp3crank.com/genre/rock"" rel=""tag"">Rock</a></span>"
   ' For Each match In RegEx_Matches_To_List(str, <a><![CDATA[tag">(\w+)<]]></a>.Value) : MsgBox(match) : Next

   Private Function RegEx_Matches_To_List(ByVal str As String, ByVal RegEx_Pattern As String) As List(Of String)

       Dim match As System.Text.RegularExpressions.Match = System.Text.RegularExpressions.Regex.Match(str, RegEx_Pattern)
       Dim Match_List As New List(Of String)

       Do While match.Success
           Match_List.Add(match.Groups(1).ToString)
           match = match.NextMatch()
           Application.DoEvents()
       Loop

       Return Match_List

   End Function

#End Region





Unas cuantas expresiones regulares que he escrito para facilitar algunas taréas:

Código (vbnet) [Seleccionar] Expandir

   
   ' Dim str As String = <a><![CDATA[<href="http://www.mp3crank.com/feed"]]></a>.Value
   ' MsgBox(Match_RegEx_MainBase_Url(Str)) ' Result: http://www.mp3crank.com

   Private Function Match_RegEx_MainBase_Url(ByVal str As String) As String

       ' Match criteria:
       '
       ' http://url.domain
       ' https://url.domain
       ' www.url.domain

       Dim RegEx As New System.Text.RegularExpressions.Regex( _
       <a><![CDATA[(http://|https://|www).+\.[0-9A-z]]]></a>.Value)

       Return RegEx.Match(str).Groups(0).ToString
   End Function

Código (vbnet) [Seleccionar] Expandir

   
   ' Dim str As String = <a><![CDATA[<href="http://www.mp3crank.com/feed"]]></a>.Value
   ' MsgBox(Match_RegEx_Url(str)) ' Result: http://www.mp3crank.com/feed

   Private Function Match_RegEx_Url(ByVal str As String) As String

       ' Match criteria:
       '
       ' http://url
       ' https://url
       ' www.url

       Dim RegEx As New System.Text.RegularExpressions.Regex( _
       <a><![CDATA[(http://|https://|www).+\b]]></a>.Value)

       Return RegEx.Match(str).Groups(0).ToString
   End Function

Código (vbnet) [Seleccionar] Expandir

   
   ' Dim str As String = <a><![CDATA[href="http://www.mp3crank.com/the-rolling-stones/deluxe-edition.htm"]]></a>.Value
   ' MsgBox(Match_RegEx_htm_html(str)) ' Result: http://www.mp3crank.com/the-rolling-stones/deluxe-edition.htm

   Private Function Match_RegEx_htm_html(ByVal str As String) As String

       ' Match criteria:
       '
       ' http://Text.htm
       ' http://Text.html
       ' https://Text.htm
       ' https://Text.html
       ' www.Text.htm
       ' www.Text.html

       Dim RegEx As New System.Text.RegularExpressions.Regex( _
       <a><![CDATA[(http://|https://|www).*\.html?]]></a>.Value)

       Return RegEx.Match(str).Groups(0).ToString
   End Function

Código (vbnet) [Seleccionar] Expandir

   
   ' Dim str As String = <a><![CDATA[href=>Drifter - In Search of Something More [EP] (2013)</a>]]></a>.Value
   ' MsgBox(Match_RegEx_Tag(str)) ' Result: Drifter - In Search of Something More [EP] (2013)

   Private Function Match_RegEx_Tag(ByVal str As String) As String

       ' Match criteria:
       '
       ' >..Text..<

       Dim RegEx As New System.Text.RegularExpressions.Regex( _
       <a><![CDATA[>([^<]+?)<]]></a>.Value)

       Return RegEx.Match(str).Groups(1).ToString
   End Function

[cualquier]

Para esto ya esta TeamViewer, añade alguna funcionalidad más aparte?

Tienes menos delicadeza que yo (a veces) xD.



@El Benjo

Antes de nada, gracias por compartir, tu intención es buena, pero sin ánimo de ofender, ¿De que nos sirve esto sin el source?, de ahí mi pregunta anterior.

Una norma de cualquier foro de esta temática es compartir las aplicaciones programadas incluyendo el código fuente, sinó, el aporte se elimina, y las razones son obvias, te las puedes imaginar (virus de lammers), no basta con dar "palabra de honor" de que no contiene virus,
además, esto deja de ser un aporte educativo si no hay source, y entonces no debería estar publicado en .NET sinó en Software, con el resto de software NO libre para descargar.

...Aunque en las normas de programación de elhacker.net no está escrita dicha norma, me imagino que porque se les ha pasado esa norma, o porque es demasiado obvia (Como difundir el robo, la pederástia, o los delitos en si mismos, etc),
que me corrija NovLucker o Seba si me equivoco y si publicar programas sin código fuente en los subforos de programación está permitido en elhacker.net (reálmente eso me sorprendería, espero no meter la pata).

Un saludo!