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


Tema destacado: Guía rápida para descarga de herramientas gratuitas de seguridad y desinfección


  Mostrar Mensajes
Páginas: 1 ... 857 858 859 860 861 862 863 864 865 866 867 868 869 870 871 [872] 873 874 875 876 877 878 879 880 881 882 883 884 885 886 887 ... 1254
8711  Programación / Scripting / Re: AYUDA BATCH COMODIN ? en: 19 Julio 2013, 12:09 pm
@japarrado

Hola,
Usa el botón de insertar código, lee mi firma.





el problema que tengo es que ademas de estarme moviendo los archivos con cuatro letras despues de "_T" tambien me mueve archivos como:

que tengo mal?

No hay ningún problema con dicho FOR, el patrón de búsqueda es correcto y no matchea archivos que tengan más de 4 caracteres después de la "T". El problema está en otra parte del código que no nos has mostrado todavía.

Puedes probar esto, pero es exáctamente lo mismo, y como ya digo tu primer FOR funciona corréctamente:

Código
  1. FOR /F %%a in ('Dir /B /S "??_T????.sql"')  DO (
  2. echo %%a
  3.   rem move %%a %v_incidente%\%v_incidente%\SCRIPTS
  4. rem  @echo @@%%a   >> %v_incidente%\%v_incidente%\SCRIPTS\INSTALADOR.sql
  5. )

Saludos
8712  Programación / Scripting / Re: programas de consola en: 19 Julio 2013, 11:45 am
- > [BATCH] Recopilatorio de herramientas CommandLine. (Actualizado el 30/03/2012)
8713  Programación / Scripting / Re: Eliminar espacios lineas archivo de texto en: 18 Julio 2013, 11:13 am
observo que al final de cada linea me mantiene el espacio en blanco.

Antes de nada, tienes que usar el tag para insertar código, en mi firma tienes como hacerlo.

Código
  1. Call Echo %%LINE: =%% >>new.txt

Estás dejando un espacio en blanco antes del operador, puedes eliminarlo,
un saludo
8714  Programación / Scripting / Re: Eliminar espacios lineas archivo de texto en: 18 Julio 2013, 11:06 am
echo de menos el poder guardar el resultado en un nuevo archivo de texto.

Es algo muy sencillo de hacer sin dificultad alguna, lee un poco aquí:

By Elektro H@cker - Tutorial extendido de aprendizaje Batch

4.6 Operadores de desplazamiento lógico (o Redireccionamiento)


Saludos
8715  Programación / Scripting / Re: Eliminar espacios lineas archivo de texto en: 18 Julio 2013, 10:54 am
Código
  1. @Echo OFF
  2.  
  3. FOR /F "Usebackq Tokens=*" %%# IN ("Archivo.txt") DO (
  4. Set "Line=%%#"
  5. Call Echo %%LINE: =%%
  6. )
  7.  
  8. Pause&Exit

Saludos
8716  Programación / .NET (C#, VB.NET, ASP) / [SOLUCIONADO] Problema al convertir Bitmap a Ico en: 18 Julio 2013, 06:57 am
Estoy intentando convertir un Bitmap al tipo de imágen Icono (ICO), para guardar esa imágen al disco en formato ICO, pero el resultado que obtengo es un archivo PNG con la extensión modificada a ICO.

¿Porque la Class ImageFormat me guarda la imagen en formato PNG cuando le estoy indicando que me guarde el archivo en formato ICO?.

No conozco otra manera de de guardar una imágen al disco (sin usar librerías o aplicaciones d terceros), ¿Como resuelvo esto?.

¿Acaso hay algo mal en el code?

Esta es la manera en la que estoy usando mi code:
Código
  1. Save_Icon(Resize_Image(Bitmap.FromFile(PictureBox_Regedit.Tag), "Regedit.ico")

Y esto es el resto del code:
Código
  1. Private Sub Save_Icon(ByVal Source As Bitmap, ByVal Filename As String)
  2.  
  3.    Try
  4.        If Not Directory.Exists(AppDir) Then Directory.CreateDirectory(AppDir)
  5.        If Not Directory.Exists(AppIcons) Then Directory.CreateDirectory(AppIcons)
  6.        Source.MakeTransparent()
  7.        Source.Save(Path.Combine(AppIcons, Filename), ImageFormat.Icon)
  8.    Catch ex As Exception
  9.        Throw New Exception(ex.Message)
  10.    End Try
  11.  
  12. End Sub
  13.  
  14. Private Function Resize_Image(ByVal img As Image, ByVal Width As Int32, ByVal Height As Int32) As Bitmap
  15.    Dim Bitmap_Source As New Bitmap(img)
  16.    Dim Bitmap_Dest As New Bitmap(CInt(24), CInt(24))
  17.    Dim Graphic As Graphics = Graphics.FromImage(Bitmap_Dest)
  18.    Graphic.DrawImage(Bitmap_Source, 0, 0, Bitmap_Dest.Width + 1, Bitmap_Dest.Height + 1)
  19.    Return Bitmap_Dest
  20. End Function

EDITO: El problema sucede tanto usando "maketransparent" como sin usarlo.
8717  Programación / .NET (C#, VB.NET, ASP) / Re: Librería de Snippets !! (Posteen aquí sus snippets) en: 18 Julio 2013, 06:26 am
· Expandir todas las variables de un string

PD: Útil para permitir al usuario manejar variables de entorno en la aplicación por ejemplo para setear una ruta, o cargar una ruta que contenga variables de entorno desde un archivo INI.

Código
  1. #Region " Expand Variables In String "
  2.  
  3.    ' [ Expand Variables In String Function ]
  4.    '
  5.    ' // By Elektro H@cker
  6.    '
  7.    ' Examples :
  8.    ' MsgBox(Expand_Variables_In_String("%homedrive%\Users\%username%\%fake-var%\")) ' Result: C:\Users\Administrador\%fake-var%\
  9.  
  10.    Public Function Expand_Variables_In_String(ByVal str As String) As String
  11.  
  12.        Dim match As System.Text.RegularExpressions.Match = _
  13.        System.Text.RegularExpressions.Regex.Match(str, "(%.*%)")
  14.  
  15.        Do While match.Success
  16.            str = str.Replace(match.ToString, Environment.ExpandEnvironmentVariables(match.ToString))
  17.            match = match.NextMatch()
  18.        Loop
  19.  
  20.        Return str
  21.  
  22.    End Function
  23.  
  24. #End Region
8718  Programación / .NET (C#, VB.NET, ASP) / Re: llamar funcion equivalente a shell desde window mobile en: 18 Julio 2013, 06:14 am
estoy revisando este codigo pero no me funciona

Hola, Manuel, Si no nos proporcionas el mensaje de la excepción o nos dices como mínimo en que línea tienes dicho error, ¿como esperas que te podamos ayudar?.

El código en si mismo es correcto, la sintaxis es correcta, debería funcionar...

Veo que escribes todos los namespaces, si no importas las referencias entonces me imagino que el error lo tienes aquí:
Código
  1. Catch ex As ComponentModel.Win32Exception

En ese caso importa "system" o modifica lal ínea, así:
Código
  1. Catch ex As System.ComponentModel.Win32Exception

No veo que pueda existir ningún otro error en ese código, o estás hablando de esa linea, o el executable no está donde debería estar... una de dos.


EDITO:

Prueba así...

Código
  1. Imports System
  2. Imports System.Diagnostics
  3.  
  4. Public Class Form1
  5.  
  6.    Const ERROR_FILE_NOT_FOUND As Integer = 2
  7.  
  8.    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Shown
  9.  
  10.        Dim ProgramaConRuta As String = "gTimeSync.exe"
  11.        Dim Parametro As String = "-u" ' No es necesario que le añadas un espacio delante.
  12.  
  13.        Try
  14.            Process.Start(ProgramaConRuta, Parametro)
  15.            Beep()
  16.        Catch ex As ComponentModel.Win32Exception
  17.            If ex.NativeErrorCode = ERROR_FILE_NOT_FOUND Then
  18.                MsgBox(String.Format("Error: ""{0}""", ex.Message), MsgBoxStyle.Critical, "Comprueba la ruta del programa.")
  19.            End If
  20.        End Try
  21.  
  22.    End Sub
  23.  
  24. end class

Saludos
8719  Programación / Scripting / Re: ejecutar un bat en segundo plano en: 18 Julio 2013, 01:31 am
@sysfactory

1. No se reviven temas de hace 5 años para formular una pregunta, crea un nuevo post.

2. Debes hacerlo en la sección correcta, VB.NET no es un lenguaje de Scripting.

3. Al postear un código debes usar el tag para insertar código.

Puedes usar la Class Process para reemplazar a la función Shell:
Código
  1. Process.Start("Exe", "Argumentos")

Cierro el tema,
Saludos.
8720  Programación / .NET (C#, VB.NET, ASP) / Re: Sacar el color del Pixel que se ha pulsado con VB.NET en: 17 Julio 2013, 23:57 pm
Hola buenas, es posible lo que intento hacer o es una locura?

Se puede hacer -> [SOURCE] Color.NET Autor: EleKtro H@cker



Código
  1. #Region " Get Pixel Color "
  2.  
  3.    ' [ Get Pixel Color Function ]
  4.    '
  5.    ' // By Elektro H@cker
  6.    '
  7.    ' Examples :
  8.    '
  9.    ' Dim RGB As Color = Get_Pixel_Color(MousePosition.X, MousePosition.Y, ColorType.RGB)
  10.    ' MsgBox(Get_Pixel_Color(100, 100, ColorType.RGB).ToString)
  11.    ' MsgBox(Get_Pixel_Color(100, 100, ColorType.HEX))
  12.    ' MsgBox(Get_Pixel_Color(100, 100, ColorType.HTML))
  13.  
  14.    <System.Runtime.InteropServices.DllImport("user32.dll")> Shared Function GetDC(hwnd As IntPtr) As IntPtr
  15.    End Function
  16.  
  17.    <System.Runtime.InteropServices.DllImport("user32.dll")> Shared Function ReleaseDC(hwnd As IntPtr, hdc As IntPtr) As Int32
  18.    End Function
  19.  
  20.    <System.Runtime.InteropServices.DllImport("gdi32.dll")> Shared Function GetPixel(hdc As IntPtr, nXPos As Integer, nYPos As Integer) As UInteger
  21.    End Function
  22.  
  23.    Public Enum ColorType
  24.        RGB
  25.        HEX
  26.        HTML
  27.    End Enum
  28.  
  29.    Public Function Get_Pixel_Color(ByVal x As Int32, ByVal y As Int32, ByVal ColorType As ColorType)
  30.  
  31.        Dim hdc As IntPtr = GetDC(IntPtr.Zero)
  32.        Dim pixel As UInteger = GetPixel(hdc, x, y)
  33.        ReleaseDC(IntPtr.Zero, hdc)
  34.  
  35.        Dim RGB As Color = Color.FromArgb(CType((pixel And &HFF), Integer), CType((pixel And &HFF00), Integer) >> 8, CType((pixel And &HFF0000), Integer) >> 16)
  36.        Dim R As Int16 = RGB.R, G As Int16 = RGB.G, B As Int16 = RGB.B
  37.        Dim HEX_R As String, HEX_G As String, HEX_B As String
  38.  
  39.        Select Case ColorType
  40.            Case ColorType.RGB : Return RGB
  41.            Case ColorType.HEX
  42.                If Hex(R) = Hex(0) Then HEX_R = "00" Else HEX_R = Hex(R)
  43.                If Hex(G) = Hex(0) Then HEX_G = "00" Else HEX_G = Hex(G)
  44.                If Hex(B) = Hex(0) Then HEX_B = "00" Else HEX_B = Hex(B)
  45.                Return (HEX_R & HEX_G & HEX_B)
  46.            Case ColorType.HTML : Return ColorTranslator.ToHtml(RGB)
  47.            Case Else : Return Nothing
  48.        End Select
  49.  
  50.    End Function
  51.  
  52. #End Region
Páginas: 1 ... 857 858 859 860 861 862 863 864 865 866 867 868 869 870 871 [872] 873 874 875 876 877 878 879 880 881 882 883 884 885 886 887 ... 1254
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines