|
9141
|
Programación / Scripting / Re: [BATCH] [ANDROID] A ver si se podria hacer esto... :D
|
en: 31 Mayo 2013, 15:29 pm
|
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: 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í: 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
|
|
|
9142
|
Programación / .NET (C#, VB.NET, ASP) / Re: Librería de Snippets !! (Posteen aquí sus snippets)
|
en: 31 Mayo 2013, 13:27 pm
|
Una función para devolver una lista con todas las coincidencias de un RegEx: #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: ' 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
' 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
' 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
' 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
|
|
|
9143
|
Programación / .NET (C#, VB.NET, ASP) / Re: [APLICACIÓN] ComRem 1.3
|
en: 31 Mayo 2013, 12:46 pm
|
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!
|
|
|
9144
|
Programación / Scripting / Re: [BATCH] [ANDROID] A ver si se podria hacer esto... :D
|
en: 31 Mayo 2013, 11:01 am
|
Hola, Antes de nada, usa títulos descriptivos, no cosas como "ayuda" o "¿como se puede hacer esto?".
Utiliza un FOR para recorrer los archivos que quieras y efectuar cada acción con cada archivo del recorrido. For %%# in ("C:\*.*") do (Echo %%#) For %%# in ("C:\*.apk") do ( java -Xmx1024m -jar baksmali.jar -c core.jar:core-junit.jar:bouncycastle.jar:ext.jar:framework.jar:framework2.jar:android.policy.jar:services.jar:apache-xml.jar:com.lge.core.jar -x "%%~f#" ) ...Lo mismo si necesitas automatizar algo con las carpetas, utiliza un FOR /D. Saludos
|
|
|
9145
|
Programación / Scripting / Re: ayuda comando At y msg*
|
en: 31 Mayo 2013, 10:41 am
|
No puedes, el comando AT no ofrece casi funcionalidades, en su lugar usa el comando SCHTASKS para crear una taréa programada repetitiva de 5 minutos. schtasks /create /tn "Nombre de tarea" /tr "msg.exe * Texto" /sc minute /mo 5
Saludos.
|
|
|
9146
|
Programación / Scripting / Re: Script Batch Para Subir archivo a FTP
|
en: 31 Mayo 2013, 10:36 am
|
Un archivo de texto plano no es un archivo binário, prueba así: open ftp.soportehosting.com.ar usuario password ascii put "c:\datos.txt" quit
...O diréctamente sin definir el tipo de transferencia de datos (ascii/binary).
|
|
|
9148
|
Programación / .NET (C#, VB.NET, ASP) / Re: Problema al mostrar el Form Parent
|
en: 31 Mayo 2013, 09:32 am
|
Tienes algún tipo de código conflictivo en el form principal o el form secundario, un show/hide debería funcionar sin problemas, pero yo no te recomiendo que uses la propiedad visible ni que uses el método show/hide. ...En lugar de eso usa "Dispose" para liberar todos los recursos utilizados por el form secundario, así se pierde "el código conflictivo" y lo instancias desde cero la próxima vez al usar "Show". Form2.Show() Form2.Dispose() Form2.Show() Si eso te sigue sin funcionar, chungo... habría que fijarse entonces en el form principal. Saludos!
|
|
|
9149
|
Programación / .NET (C#, VB.NET, ASP) / Re: Librería de Snippets !! (Posteen aquí sus snippets)
|
en: 31 Mayo 2013, 09:27 am
|
Cancelar el evento OnMove #Region " Cancel Move Form " ' Examples: ' Me.Moveable = False ' Me.Moveable = True Private Declare Function EnableMenuItem Lib "user32.dll" Alias "EnableMenuItem" (ByVal hMenu As IntPtr, ByVal uIDEnableItem As Int32, ByVal uEnable As Int32) As Int32 Private bMoveable As Boolean = True Public Overridable Property Moveable() As Boolean Get Return bMoveable End Get Set(ByVal Value As Boolean) If bMoveable <> Value Then bMoveable = Value End If End Set End Property Protected Overrides Sub WndProc(ByRef m As Message) If m.Msg = &H117& Then 'Handles popup of system menu. If m.LParam.ToInt32 \ 65536 <> 0 Then 'divide by 65536 to get hiword. Dim AbleFlags As Int32 = &H0& If Not Moveable Then AbleFlags = &H2& Or &H1& EnableMenuItem(m.WParam, &HF010&, &H0& Or AbleFlags) End If End If If Not Moveable Then 'Cancels any attempt to drag the window by it's caption. If m.Msg = &HA1 Then If m.WParam.ToInt32 = &H2 Then Return 'Redundant but cancels any clicks on the Move system menu item. If m.Msg = &H112 Then If (m.WParam.ToInt32 And &HFFF0) = &HF010& Then Return End If 'Return control to base message handler. MyBase.WndProc(m) End Sub #End Region
|
|
|
9150
|
Programación / .NET (C#, VB.NET, ASP) / Re: Mostrar/Ocultar
|
en: 31 Mayo 2013, 09:24 am
|
Aprovecho de una ves... y como hago para no mover el form.. es decir bloquearlo que cuando se abra no se pueda mover  La manera sencilla: Dim Fixed_Location As Point ' = New Point(X, Y) ' Seteamos el valor por defecto. Private Sub Form1_Shown(sender As Object, e As EventArgs) Handles MyBase.Shown ' ...O seteamos el valor por defecto cuando la ventana se haya creado. Fixed_Location = New Point(Me.Location.X, Me.Location.Y) End Sub Private Sub Form1_Move(sender As Object, e As EventArgs) Handles MyBase.Move If Me.Visible Then Me.Location = Fixed_Location End Sub
Después de hacerlo me he encontrado con el problema de que el layer de la ventana se sigue dibujando por la pantalla si se mantiene el botón del mouse para intentar arrastrarlo, es una cosa sin importancia, pero como me gusta la eficacia, al final he buscado la manera de hacerlo usando los mensajes de Windows: (Este código no es mío) #Region " Cancel Move Form " ' Examples: ' Me.Moveable = False ' Me.Moveable = True Private Declare Function EnableMenuItem Lib "user32.dll" Alias "EnableMenuItem" (ByVal hMenu As IntPtr, ByVal uIDEnableItem As Int32, ByVal uEnable As Int32) As Int32 Private bMoveable As Boolean = True Public Overridable Property Moveable() As Boolean Get Return bMoveable End Get Set(ByVal Value As Boolean) If bMoveable <> Value Then bMoveable = Value End If End Set End Property Protected Overrides Sub WndProc(ByRef m As Message) If m.Msg = &H117& Then 'Handles popup of system menu. If m.LParam.ToInt32 \ 65536 <> 0 Then 'divide by 65536 to get hiword. Dim AbleFlags As Int32 = &H0& If Not Moveable Then AbleFlags = &H2& Or &H1& EnableMenuItem(m.WParam, &HF010&, &H0& Or AbleFlags) End If End If If Not Moveable Then 'Cancels any attempt to drag the window by it's caption. If m.Msg = &HA1 Then If m.WParam.ToInt32 = &H2 Then Return 'Redundant but cancels any clicks on the Move system menu item. If m.Msg = &H112 Then If (m.WParam.ToInt32 And &HFFF0) = &HF010& Then Return End If 'Return control to base message handler. MyBase.WndProc(m) End Sub #End Region
Saludos...
|
|
|
|
|
|
|