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


 


Tema destacado: Deseas probar algunas mejoras a la interfaz del foro? Prueba cake! acerca de


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (Moderadores: Novlucker, seba123neo, kub0x, Eleкtro)
| | | |-+  Librería de Snippets !! (Compartan aquí sus snippets)
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: 1 2 3 4 5 6 7 8 [9] 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 ... 32 Ir Abajo Respuesta Imprimir
Autor Tema: Librería de Snippets !! (Compartan aquí sus snippets)  (Leído 65,813 veces)
Eleкtro
Moderador
***
Desconectado Desconectado

Mensajes: 5.826


"En teoría, la teoría y la práctica son lo mismo."


Ver Perfil
Re: Librería de Snippets !! (Posteen aquí sus snippets)
« Respuesta #112 en: 8 Mayo 2013, 17:02 »

El codigo de agregar un usuario en el sistema, lo tienes incluido aqui ?
¿Incluido donde?, ¿en el archivo del recopilatorio comprimido?, a que te refieres, el código lo tienes en la página 7.

Barbarísimo estos codes, este POST es para codes hechos por uno o se puede publicar un code que me haya encontrado, salu2
No hay reglas, puedes publicar tanto código própio como ajeno,
lo importante que hay que tener en cuenta es que séa código re-usable y no código hardcodeado.

un saludo!

EDITO:

Man tu tienes todos los codes que publicas alli dentro del compactado ??
Si, todos los codes que yo he publicado es porque he necesitado usarlos, y me guardo una copia que puedes encontrar en el post principal.


« Última modificación: 8 Mayo 2013, 17:14 por EleKtro H@cker » En línea

Como insertar un código:

 

-> Reglas del foro <-
Eleкtro
Moderador
***
Desconectado Desconectado

Mensajes: 5.826


"En teoría, la teoría y la práctica son lo mismo."


Ver Perfil
Re: Librería de Snippets !! (Posteen aquí sus snippets)
« Respuesta #113 en: 8 Mayo 2013, 17:14 »

¡ PACK DE SNIPPETS ACTUALIZADO EN EL POST PRINCIPAL !

Ya puedes descargar la colección completa de 290 snippets útiles.

PD: Y no te olvides de ser generoso compartiendo tu conocimiento con los demás en este post...

http://elektrostudios.tk/Snippets.zip


En línea

Como insertar un código:

 

-> Reglas del foro <-
Eleкtro
Moderador
***
Desconectado Desconectado

Mensajes: 5.826


"En teoría, la teoría y la práctica son lo mismo."


Ver Perfil
Re: Librería de Snippets !! (Posteen aquí sus snippets)
« Respuesta #114 en: 8 Mayo 2013, 20:34 »

Con esta Class pueden manejar la aplicación BoxedAppPacker en tiempo de ejecución para empaquetar otros proyectos .NET (u otro tipo de executables) para virtualizarlos.
PD: Se necesita la aplicación BoxedAppPacker v3.XXX (versión de consola), la class no usa el SDK.

Código
  1. #Region " BoxedAppPacker "
  2.  
  3. ' [ BoxedAppPacker Functions ]
  4. '
  5. ' // By Elektro H@cker
  6. '
  7. ' Instructions:
  8. ' 1. Add the "BoxedAppPackerConsole.exe" to the project
  9. ' 2. Add the "BoxedAppPacker Class" Class to the project
  10. '
  11. ' Examples:
  12. '
  13. ' -----------------
  14. ' Pack Single File:
  15. ' -----------------
  16. ' BoxedAppPacker.Pack_Single_File("C:\Windows\Explorer.exe", "C:\Virtual Explorer.exe")
  17. ' BoxedAppPacker.Pack_Single_File("C:\Windows\Explorer.exe", "C:\Virtual Explorer.exe", True, True, True, True, True, BoxedAppPacker.BoxedAppPackerVariables.ExeDir)
  18. '
  19. ' ---------------------------------
  20. ' Pack File And Include More Files:
  21. ' ---------------------------------
  22. ' BoxedAppPacker.Pack_File_And_Include_More_Files("C:\Windows\Explorer.exe", {"C:\Windows\system32\shell32.dll", "C:\Windows\system32\notepad.exe"}, "C:\Virtual Explorer.exe", True, True, True)
  23.  
  24.  
  25. #Region " BoxedAppPacker Class "
  26.  
  27. Public Class BoxedAppPacker
  28.  
  29.    ''' <summary>
  30.    ''' The BoxedAppPackerConsole.exe location.
  31.    ''' </summary>
  32.    Public Shared BoxedAppPacker_Location As String = ".\BoxedAppPackerConsole.exe"
  33.  
  34.    ''' <summary>
  35.    ''' Boxed App Packer Variables To Override CommandLine.
  36.    ''' </summary>
  37.    Public Enum BoxedAppPackerVariables
  38.        ExeDir ' a directory that contains the packed exe.
  39.        CurDir ' current directory .
  40.        ProgramFiles ' ProgramFiles environment variable.
  41.        Temp ' Temp environment variable.
  42.        BoxedAppVar_ExeFileName ' exe's file name (for example, "notepad.exe")
  43.        BoxedAppVar_ExeFileExtension ' exe's file extension (for example, "exe")
  44.        BoxedAppVar_ExeFileNameWithoutExtension ' exe's file name without extension (for example, "notepad")
  45.        BoxedAppVar_ExeFullPath ' exe's full path (for example, "C_\notepad.exe")
  46.        BoxedAppVar_OldCmdLine ' a command line specified when the packed exe started, you can use it to add additional arguments, for example: <BoxedAppVar:OldCmdLine> /NewSwitch
  47.        BoxedAppVar_OldArgs ' a command line specified when the packed exe started without the exe path, for example "<BoxedAppVar:ExeFullPath>" /C virtual.cmd <BoxedAppVar:OldArgs>, Usage: packed.exe Arg1 Arg2, It works as: original.exe /C virtual.cmd Arg1 Arg2
  48.    End Enum
  49.  
  50.    ''' <summary>
  51.    ''' Virtualize a single executable.
  52.    ''' </summary>
  53.    Public Shared Function Pack_Single_File(ByVal File As String, ByVal OutputFile As String, _
  54.                                    Optional ByVal Make_All_File_And_Registry_Changes_Virtual As Boolean = True, _
  55.                                    Optional ByVal Hide_Virtual_Files_From_File_Dialog As Boolean = True, _
  56.                                    Optional ByVal Share_Virtual_Environment_With_Child_Processes As Boolean = False, _
  57.                                    Optional ByVal Enable_Virtual_Registry As Boolean = True, _
  58.                                    Optional ByVal Enable_CommandLine_Arguments As Boolean = True, _
  59.                                    Optional ByVal CommandLine_Variable As BoxedAppPackerVariables = BoxedAppPackerVariables.ExeDir
  60.                                    ) As Boolean
  61.  
  62.        If Not Check_InputExecutable(File) Then Return False
  63.  
  64.        Dim CommandLine_Variable_Formatted As String = CommandLine_Variable.ToString.Replace("_", ":")
  65.  
  66.        Dim BoxedProject_Options_Section As String = "<project project_version=""2"" src=""" _
  67.                                                     & File & _
  68.                                                     """ dest=""" _
  69.                                                     & OutputFile & _
  70.                                                     """ cmd_line_overridden=""" _
  71.                                                     & Enable_CommandLine_Arguments & _
  72.                                                     """ cmd_args=""&lt;" _
  73.                                                     & CommandLine_Variable_Formatted & _
  74.                                                     "&gt;"" share_virtual_environment_with_child_processes=""" _
  75.                                                     & Share_Virtual_Environment_With_Child_Processes & _
  76.                                                     """ enable_debug_log=""false"" " & _
  77.                                                     "enable_virtual_registry=""" _
  78.                                                     & Enable_Virtual_Registry & _
  79.                                                     """ hide_virtual_files_from_file_dialog=""" _
  80.                                                     & Hide_Virtual_Files_From_File_Dialog & _
  81.                                                     """ all_changes_are_virtual=""" _
  82.                                                     & Make_All_File_And_Registry_Changes_Virtual & """>"
  83.  
  84.        Dim BoxedProject_File_Section As String = <a><![CDATA[
  85.  
  86.  <files>
  87.    <file source_path="" name="&lt;ExeDir&gt;" virtual="false" virtually_deleted="false" dir="true" plugin="false" register_as_com_library="false" register_as_com_server="false" com_server_reg_cmd_line_args="" register_as_typelib="false">
  88.      <files/>
  89.    </file>
  90.    <file source_path="" name="&lt;SystemRoot&gt;" virtual="false" virtually_deleted="false" dir="true" plugin="false" register_as_com_library="false" register_as_com_server="false" com_server_reg_cmd_line_args="" register_as_typelib="false">
  91.      <files>
  92.        <file source_path="" name="System32" virtual="false" virtually_deleted="false" dir="true" plugin="false" register_as_com_library="false" register_as_com_server="false" com_server_reg_cmd_line_args="" register_as_typelib="false">
  93.          <files/>
  94.        </file>
  95.      </files>
  96.    </file>
  97.  </files>
  98. ]]></a>.Value
  99.  
  100.        Dim BoxedProject_Registry_Section As String = <a><![CDATA[
  101.  <registry>
  102.    <keys>
  103.      <key name="HKEY_CLASSES_ROOT" virtual="false" virtually_deleted="false">
  104.        <values/>
  105.        <keys/>
  106.      </key>
  107.      <key name="HKEY_CURRENT_CONFIG" virtual="false" virtually_deleted="false">
  108.        <values/>
  109.        <keys/>
  110.      </key>
  111.      <key name="HKEY_CURRENT_USER" virtual="false" virtually_deleted="false">
  112.        <values/>
  113.        <keys/>
  114.      </key>
  115.      <key name="HKEY_LOCAL_MACHINE" virtual="false" virtually_deleted="false">
  116.        <values/>
  117.        <keys/>
  118.      </key>
  119.      <key name="HKEY_USERS" virtual="false" virtually_deleted="false">
  120.        <values/>
  121.        <keys/>
  122.      </key>
  123.    </keys>
  124.  </registry>
  125. </project>
  126. ]]></a>.Value
  127.  
  128.        Try
  129.            Using TextFile As New IO.StreamWriter(System.IO.Path.GetTempPath() & "BoxedAppPacker.boxedappproj", False, System.Text.Encoding.ASCII)
  130.                TextFile.WriteLine(BoxedProject_Options_Section)
  131.            End Using
  132.  
  133.            Using TextFile As New IO.StreamWriter(System.IO.Path.GetTempPath() & "BoxedAppPacker.boxedappproj", True, System.Text.Encoding.ASCII)
  134.                TextFile.WriteLine(BoxedProject_File_Section)
  135.                TextFile.WriteLine(BoxedProject_Registry_Section)
  136.            End Using
  137.  
  138.            Dim BoxedAppPacker_Console As New Process()
  139.            Dim BoxedAppPacker_Console_Info As New ProcessStartInfo()
  140.  
  141.            BoxedAppPacker_Console_Info.FileName = BoxedAppPacker_Location
  142.            BoxedAppPacker_Console_Info.Arguments = """" & System.IO.Path.GetTempPath() & "BoxedAppPacker.boxedappproj" & """"
  143.            BoxedAppPacker_Console_Info.CreateNoWindow = True
  144.            BoxedAppPacker_Console_Info.WindowStyle = ProcessWindowStyle.Hidden
  145.            BoxedAppPacker_Console_Info.UseShellExecute = False
  146.            BoxedAppPacker_Console.StartInfo = BoxedAppPacker_Console_Info
  147.            BoxedAppPacker_Console.Start()
  148.            BoxedAppPacker_Console.WaitForExit()
  149.  
  150.            If BoxedAppPacker_Console.ExitCode <> 0 Then
  151.                Return False
  152.            Else
  153.                Return True
  154.            End If
  155.        Catch ex As Exception
  156.            ' MsgBox(ex.Message)
  157.            Return False
  158.        End Try
  159.  
  160.    End Function
  161.  
  162.    ''' <summary>
  163.    ''' Virtualize a executable and include more files.
  164.    ''' </summary>
  165.    Public Shared Function Pack_File_And_Include_More_Files(ByVal File As String, ByVal SubFiles() As String, ByVal OutputFile As String, _
  166.                                Optional ByVal Make_All_File_And_Registry_Changes_Virtual As Boolean = True, _
  167.                                Optional ByVal Hide_Virtual_Files_From_File_Dialog As Boolean = True, _
  168.                                Optional ByVal Share_Virtual_Environment_With_Child_Processes As Boolean = False, _
  169.                                Optional ByVal Enable_Virtual_Registry As Boolean = True, _
  170.                                Optional ByVal Enable_CommandLine_Arguments As Boolean = True, _
  171.                                Optional ByVal CommandLine_Variable As BoxedAppPackerVariables = BoxedAppPackerVariables.ExeDir
  172.                                ) As Boolean
  173.  
  174.        If Not Check_InputExecutable(File) Then Return False
  175.  
  176.        Dim CommandLine_Variable_Formatted As String = CommandLine_Variable.ToString.Replace("_", ":")
  177.  
  178.        Dim BoxedProject_Options_Section As String = "<project project_version=""2"" src=""" _
  179.                                                     & File & _
  180.                                                     """ dest=""" _
  181.                                                     & OutputFile & _
  182.                                                     """ cmd_line_overridden=""" _
  183.                                                     & Enable_CommandLine_Arguments & _
  184.                                                     """ cmd_args=""&lt;" _
  185.                                                     & CommandLine_Variable_Formatted & _
  186.                                                     "&gt;"" share_virtual_environment_with_child_processes=""" _
  187.                                                     & Share_Virtual_Environment_With_Child_Processes & _
  188.                                                     """ enable_debug_log=""false"" " & _
  189.                                                     "enable_virtual_registry=""" _
  190.                                                     & Enable_Virtual_Registry & _
  191.                                                     """ hide_virtual_files_from_file_dialog=""" _
  192.                                                     & Hide_Virtual_Files_From_File_Dialog & _
  193.                                                     """ all_changes_are_virtual=""" _
  194.                                                     & Make_All_File_And_Registry_Changes_Virtual & """>"
  195.  
  196.        ' Generate File Section Start
  197.        Dim BoxedProject_File_Section_Start As String = <a><![CDATA[
  198.  
  199.  <files>
  200.    <file source_path="" name="&lt;ExeDir&gt;" virtual="false" virtually_deleted="false" dir="true" plugin="false" register_as_com_library="false" register_as_com_server="false" com_server_reg_cmd_line_args="" register_as_typelib="false">
  201.      <files>
  202. ]]></a>.Value
  203.  
  204.        ' Generate SubFiles Tags Section
  205.        Dim FileCount As Int16 = 0
  206.        Dim SubFile_Tag As String = Nothing
  207.  
  208.        For SubFile As Integer = 1 To SubFiles.Count
  209.            Application.DoEvents()
  210.            FileCount += 1
  211.  
  212.            If FileCount = 1 Then
  213.                SubFile_Tag += <a><![CDATA[
  214.        <file source_path="]]></a>.Value & SubFiles(FileCount - 1) & <a><![CDATA[" name="]]></a>.Value & SubFiles(FileCount - 1).Split("\").Last & <a><![CDATA[" virtual="true" virtually_deleted="false" dir="false" plugin="false" register_as_com_library="false" register_as_com_server="false" com_server_reg_cmd_line_args="/RegServer" register_as_typelib="false">
  215.          <files/>
  216. ]]></a>.Value
  217.            Else
  218.                SubFile_Tag += <a><![CDATA[
  219.        </file>
  220.        <file source_path="]]></a>.Value & SubFiles(FileCount - 1) & <a><![CDATA[" name="]]></a>.Value & SubFiles(FileCount - 1).Split("\").Last & <a><![CDATA[" virtual="true" virtually_deleted="false" dir="false" plugin="false" register_as_com_library="false" register_as_com_server="false" com_server_reg_cmd_line_args="/RegServer" register_as_typelib="false">
  221.          <files/>
  222. ]]></a>.Value
  223.            End If
  224.  
  225.        Next
  226.  
  227.        ' Generate File Section End
  228.        Dim BoxedProject_File_Section_End As String = <a><![CDATA[
  229.        </file>
  230.      </files>
  231.    </file>
  232.    <file source_path="" name="&lt;SystemRoot&gt;" virtual="false" virtually_deleted="false" dir="true" plugin="false" register_as_com_library="false" register_as_com_server="false" com_server_reg_cmd_line_args="" register_as_typelib="false">
  233.      <files>
  234.        <file source_path="" name="System32" virtual="false" virtually_deleted="false" dir="true" plugin="false" register_as_com_library="false" register_as_com_server="false" com_server_reg_cmd_line_args="" register_as_typelib="false">
  235.          <files/>
  236.        </file>
  237.      </files>
  238.    </file>
  239.  </files>
  240. ]]></a>.Value
  241.  
  242.        ' Generate Registry Section
  243.        Dim BoxedProject_Registry_Section As String = <a><![CDATA[
  244.  <registry>
  245.    <keys>
  246.      <key name="HKEY_CLASSES_ROOT" virtual="false" virtually_deleted="false">
  247.        <values/>
  248.        <keys/>
  249.      </key>
  250.      <key name="HKEY_CURRENT_CONFIG" virtual="false" virtually_deleted="false">
  251.        <values/>
  252.        <keys/>
  253.      </key>
  254.      <key name="HKEY_CURRENT_USER" virtual="false" virtually_deleted="false">
  255.        <values/>
  256.        <keys/>
  257.      </key>
  258.      <key name="HKEY_LOCAL_MACHINE" virtual="false" virtually_deleted="false">
  259.        <values/>
  260.        <keys/>
  261.      </key>
  262.      <key name="HKEY_USERS" virtual="false" virtually_deleted="false">
  263.        <values/>
  264.        <keys/>
  265.      </key>
  266.    </keys>
  267.  </registry>
  268. </project>
  269. ]]></a>.Value
  270.  
  271.        Try
  272.  
  273.            Using TextFile As New IO.StreamWriter(System.IO.Path.GetTempPath() & "BoxedAppPacker.boxedappproj", False, System.Text.Encoding.ASCII)
  274.                TextFile.WriteLine(BoxedProject_Options_Section)
  275.                TextFile.WriteLine(BoxedProject_File_Section_Start)
  276.                TextFile.WriteLine(SubFile_Tag)
  277.                TextFile.WriteLine(BoxedProject_File_Section_End)
  278.                TextFile.WriteLine(BoxedProject_Registry_Section)
  279.            End Using
  280.  
  281.            Dim BoxedAppPacker_Console As New Process()
  282.            Dim BoxedAppPacker_Console_Info As New ProcessStartInfo()
  283.  
  284.            BoxedAppPacker_Console_Info.FileName = BoxedAppPacker_Location
  285.            BoxedAppPacker_Console_Info.Arguments = """" & System.IO.Path.GetTempPath() & "BoxedAppPacker.boxedappproj" & """"
  286.            BoxedAppPacker_Console_Info.CreateNoWindow = True
  287.            BoxedAppPacker_Console_Info.WindowStyle = ProcessWindowStyle.Hidden
  288.            BoxedAppPacker_Console_Info.UseShellExecute = False
  289.            BoxedAppPacker_Console.StartInfo = BoxedAppPacker_Console_Info
  290.            BoxedAppPacker_Console.Start()
  291.            BoxedAppPacker_Console.WaitForExit()
  292.  
  293.            If BoxedAppPacker_Console.ExitCode <> 0 Then
  294.                Return False
  295.            Else
  296.                Return True
  297.            End If
  298.        Catch ex As Exception
  299.            ' MsgBox(ex.Message)
  300.            Return False
  301.        End Try
  302.  
  303.    End Function
  304.  
  305.    ' Checks if InputFile exist and also is a executable.
  306.    Private Shared Function Check_InputExecutable(ByVal File As String) As Boolean
  307.        If Not IO.File.Exists(File) Then
  308.            MsgBox("File don't exist.")
  309.            Return False
  310.        End If
  311.        If Not File.ToLower.EndsWith(".exe") Then
  312.            MsgBox("Not a valid executable file.")
  313.            Return False
  314.        End If
  315.        Return True
  316.    End Function
  317.  
  318. End Class
  319.  
  320. #End Region
  321.  
  322. #End Region
En línea

Como insertar un código:

 

-> Reglas del foro <-
Eleкtro
Moderador
***
Desconectado Desconectado

Mensajes: 5.826


"En teoría, la teoría y la práctica son lo mismo."


Ver Perfil
Re: Librería de Snippets !! (Posteen aquí sus snippets)
« Respuesta #115 en: 11 Mayo 2013, 08:28 »

Hacer Ping a una máquina:

Código
  1.    #Region " Ping "
  2.  
  3.       ' [ Ping Function ]
  4.       '
  5.       ' // By Elektro H@cker
  6.       '
  7.       ' Examples :
  8.       ' MsgBox(Ping("www.google.com"))
  9.       ' MsgBox(Ping("www.google.com", 500))
  10.       ' MsgBox(Ping("www.google.com", 500, New Byte(128) {}, False))
  11.       ' MsgBox(Ping("www.google.com", 500, System.Text.Encoding.ASCII.GetBytes("Hello"), True))
  12.       ' For X As Int32 = 1 To 10 : If Not Ping("www.google.com", 1000) Then : MsgBox("Ping try " & X & " failed") : End If : Next : MsgBox("Ping successfully")
  13.  
  14.       Public Function Ping(ByVal Address As String, _
  15.                              Optional ByVal TimeOut As Int64 = 200, _
  16.                              Optional ByVal BufferData As Byte() = Nothing, _
  17.                              Optional ByVal FragmentData As Boolean = False, _
  18.                              Optional ByVal TimeToLive As Int64 = 128) As Boolean
  19.  
  20.           Dim PingSender As New System.Net.NetworkInformation.Ping()
  21.           Dim PingOptions As New System.Net.NetworkInformation.PingOptions()
  22.  
  23.           If FragmentData Then PingOptions.DontFragment = False Else PingOptions.DontFragment = True
  24.           If BufferData Is Nothing Then BufferData = New Byte(31) {} ' Sets a BufferSize of 32 Bytes
  25.           PingOptions.Ttl = TimeToLive
  26.  
  27.           Dim Reply As System.Net.NetworkInformation.PingReply = PingSender.Send(Address, TimeOut, BufferData, PingOptions)
  28.  
  29.           If Reply.Status = System.Net.NetworkInformation.IPStatus.Success Then
  30.               ' MsgBox("Address: " & Reply.Address.ToString)
  31.               ' MsgBox("RoundTrip time: " & Reply.RoundtripTime)
  32.               ' MsgBox("Time to live: " & Reply.Options.Ttl)
  33.               ' MsgBox("Buffer size: " & Reply.Buffer.Length)
  34.               Return True
  35.           Else
  36.               Return False
  37.           End If
  38.  
  39.       End Function
  40.  
  41.    #End Region
En línea

Como insertar un código:

 

-> Reglas del foro <-
Eleкtro
Moderador
***
Desconectado Desconectado

Mensajes: 5.826


"En teoría, la teoría y la práctica son lo mismo."


Ver Perfil
Re: Librería de Snippets !! (Posteen aquí sus snippets)
« Respuesta #116 en: 11 Mayo 2013, 11:45 »


Devuelve la dirección IP de un Host

Código
  1. #Region " HostName To IP "
  2.  
  3.    ' [ HostName To IP Function ]
  4.    '
  5.    ' // By Elektro H@cker
  6.    '
  7.    ' Examples :
  8.    '
  9.    ' MsgBox(HostName_To_IP("www.google.com")) ' Result: 173.194.41.6
  10.  
  11.    Public Function HostName_To_IP(ByVal HotsName As String) As String
  12.        Return System.Net.Dns.GetHostEntry(HotsName).AddressList(1).ToString()
  13.    End Function
  14.  
  15. #End Region



Devuelve el Hostname de una IP

Código
  1. #Region " IP To HostName "
  2.  
  3.    ' [ IP To HostName Function ]
  4.    '
  5.    ' // By Elektro H@cker
  6.    '
  7.    ' Examples :
  8.    '
  9.    ' MsgBox(IP_To_HostName("173.194.41.6")) ' Result: mad01s14-in-f6.1e100.net
  10.  
  11.    Public Function IP_To_HostName(ByVal IP As String) As String
  12.        Return system.net.Dns.GetHostEntry(IP).HostName.ToString
  13.    End Function
  14.  
  15. #End Region





Valida si un nombre de archivo o ruta contiene caracteres no permitidos por Windows

(Este snippet lo posteé hace tiempo pero tenía varios fallos, los he corregido.)

Código
  1. #Region " Validate Windows FileName "
  2.  
  3.    ' [ Validate Windows FileName Function ]
  4.    '
  5.    ' Examples :
  6.    ' MsgBox(Validate_Windows_FileName("C:\Test.txt"))  ' Result: True
  7.    ' MsgBox(Validate_Windows_FileName("C:\Te|st.txt")) ' Result: False
  8.  
  9.    Private Function Validate_Windows_FileName(ByRef FileName As String)
  10.        Dim Directory As String = Nothing
  11.        Dim File As String = Nothing
  12.  
  13.        Try
  14.            Directory = FileName.Substring(0, FileName.LastIndexOf("\")) & "\"
  15.            File = FileName.Split("\").Last
  16.        Catch
  17.            If Directory Is Nothing Then File = FileName
  18.        End Try
  19.  
  20.        If Directory Is Nothing AndAlso File Is Nothing Then Return False
  21.  
  22.        If Not Directory Is Nothing Then
  23.            For Each InvalidCharacter As Char In IO.Path.GetInvalidPathChars
  24.                If Directory.Contains(InvalidCharacter) Then
  25.                    ' MsgBox(InvalidCharacter)
  26.                    Return False
  27.                End If
  28.            Next
  29.        End If
  30.  
  31.        If Not File Is Nothing Then
  32.            For Each InvalidCharacter As Char In IO.Path.GetInvalidFileNameChars
  33.                If File.Contains(InvalidCharacter) Then
  34.                    ' MsgBox(InvalidCharacter)
  35.                    Return False
  36.                End If
  37.            Next
  38.        End If
  39.  
  40.        Return True ' FileName is valid
  41.    End Function
  42.  
  43. #End Region
« Última modificación: 11 Mayo 2013, 11:56 por EleKtro H@cker » En línea

Como insertar un código:

 

-> Reglas del foro <-
Eleкtro
Moderador
***
Desconectado Desconectado

Mensajes: 5.826


"En teoría, la teoría y la práctica son lo mismo."


Ver Perfil
Re: Librería de Snippets !! (Posteen aquí sus snippets)
« Respuesta #117 en: 13 Mayo 2013, 07:40 »

Una class para combinar ejecutable de .NET con dependencias (dll's) en tiempo de ejecución...

Se necesita la aplicación IlMerge

Código
  1. #Region " IlMerge "
  2.  
  3. ' [ IlMerge Functions ]
  4. '
  5. ' // By Elektro H@cker
  6. '
  7. ' Instructions:
  8. ' 1. Add the "IlMerge.exe" to the project
  9. ' 2. Add the "IlMerge" Class to the project
  10. '
  11. ' Examples:
  12. ' IlMerge.Merge({"C:\Application.exe", "C:\Dependency.dll"}, "C:\Merged.exe")
  13. ' MsgBox(IlMerge.Merge({"C:\Application.exe", "C:\Dependency.dll"}, "C:\Merged.exe"))
  14.  
  15.  
  16. #Region " IlMerge class "
  17.  
  18. Public Class IlMerge
  19.  
  20.    ''' <summary>
  21.    ''' Set the location of IlMerge executable [Default: ".\IlMerge.exe"].
  22.    ''' </summary>
  23.    Public Shared IlMerge_Location As String = ".\IlMerge.exe"
  24.    ''' <summary>
  25.    ''' Set the location of IlMerge log file [Default: ".\IlMerge.log"].
  26.    ''' </summary>
  27.    Public Shared IlMerge_Log_Location As String = IlMerge_Location.Substring(0, IlMerge_Location.Length - 4) & ".log"
  28.  
  29.    ''' <summary>
  30.    ''' Merge
  31.    ''' </summary>
  32.    Public Shared Function Merge(ByVal InputFiles As String(), ByVal OutputFile As String) As Boolean
  33.  
  34.        Dim FilesString As String = Nothing
  35.        For Each File In InputFiles : FilesString += """" & File & """" & " " : Next
  36.  
  37.        Try : IO.File.Delete(IlMerge_Log_Location) : Catch : End Try ' Deletes old log if exist
  38.  
  39.        Try
  40.            Dim ResHacker As New Process()
  41.            Dim ResHacker_Info As New ProcessStartInfo()
  42.  
  43.            ResHacker_Info.FileName = IlMerge_Location
  44.            ResHacker_Info.Arguments = "/ndebug /log:" & """" & IlMerge_Log_Location & """" & " /out:" & """" & OutputFile & """" & " " & FilesString
  45.            ResHacker_Info.UseShellExecute = False
  46.            ResHacker.StartInfo = ResHacker_Info
  47.            ResHacker.Start()
  48.            ResHacker.WaitForExit()
  49.  
  50.            Try : IO.File.Delete(OutputFile.Substring(0, OutputFile.Length - 4) & ".pdb") : Catch : End Try ' Deletes Debug Generated File
  51.            Return Check_Last_Error()
  52.  
  53.        Catch ex As Exception
  54.            MsgBox(ex.Message)
  55.            Return False
  56.        End Try
  57.  
  58.    End Function
  59.  
  60.    ''' <summary>
  61.    ''' Return the last operation error if any [False = ERROR, True = Ok].
  62.    ''' </summary>
  63.    Private Shared Function Check_Last_Error()
  64.  
  65.        Try
  66.            Dim Line As String = Nothing
  67.            Dim Text As IO.StreamReader = IO.File.OpenText(IlMerge_Log_Location)
  68.  
  69.            Do Until Text.EndOfStream
  70.                Line = Text.ReadLine()
  71.                If Line.ToString.StartsWith("An exception occurred") Then
  72.                    Process.Start(IlMerge_Log_Location)
  73.                    Return False
  74.                End If
  75.            Loop
  76.  
  77.            Text.Close()
  78.            Text.Dispose()
  79.            Return True
  80.        Catch ex As Exception
  81.            MsgBox(ex.Message)
  82.            Return False
  83.        End Try
  84.  
  85.    End Function
  86.  
  87. End Class
  88.  
  89. #End Region
  90.  
  91. #End Region
En línea

Como insertar un código:

 

-> Reglas del foro <-
Eleкtro
Moderador
***
Desconectado Desconectado

Mensajes: 5.826


"En teoría, la teoría y la práctica son lo mismo."


Ver Perfil
Re: Librería de Snippets !! (Posteen aquí sus snippets)
« Respuesta #118 en: 17 Mayo 2013, 15:23 »

Comprobar si una imagen contiene cierto color.

Esta función me ha costado la vida conseguirla, ya la pueden guardar bien xD...


Código
  1.   Private Function Image_Has_Color(ByVal image As Image, ByVal color As Color) As Boolean
  2.  
  3.        Using Bitmap_Image = New Bitmap(image.Width, image.Height, System.Drawing.Imaging.PixelFormat.Format32bppArgb)
  4.  
  5.            Graphics.FromImage(Bitmap_Image).DrawImage(image, 0, 0)
  6.  
  7.            Dim Bitmap_Data = Bitmap_Image.LockBits(New Rectangle(0, 0, Bitmap_Image.Width, Bitmap_Image.Height), System.Drawing.Imaging.ImageLockMode.[ReadOnly], Bitmap_Image.PixelFormat)
  8.            Dim Bitmap_Pointer As IntPtr = Bitmap_Data.Scan0
  9.  
  10.            Dim Pixel_Color As Int32
  11.            Dim Result As Boolean = False
  12.  
  13.            For i = 0 To Bitmap_Data.Height * Bitmap_Data.Width - 1
  14.  
  15.                Pixel_Color = System.Runtime.InteropServices.Marshal.ReadInt32(Bitmap_Pointer, i * 4)
  16.  
  17.                If (Pixel_Color And &HFF000000) <> 0 AndAlso (Pixel_Color And &HFFFFFF) = (color.ToArgb() And &HFFFFFF) Then
  18.                    Result = True
  19.                    Exit For
  20.                End If
  21.  
  22.            Next
  23.  
  24.            Bitmap_Image.UnlockBits(Bitmap_Data)
  25.            Return Result
  26.  
  27.        End Using
  28.  
  29.    End Function

Ejemplo:
Código
  1.    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
  2.        MsgBox(Image_Has_Color(System.Drawing.Image.FromFile("C:\imagen.jpg"), Color.FromArgb(240, 240, 240)))
  3.    End Sub
En línea

Como insertar un código:

 

-> Reglas del foro <-
Eleкtro
Moderador
***
Desconectado Desconectado

Mensajes: 5.826


"En teoría, la teoría y la práctica son lo mismo."


Ver Perfil
Re: Librería de Snippets !! (Posteen aquí sus snippets)
« Respuesta #119 en: 17 Mayo 2013, 15:48 »

Devuelve una lista con todos los valores de una enumeración

Código
  1.    #Region " Get Enum Values "
  2.  
  3.       ' [ Get Enum Values Function ]
  4.       '
  5.       ' // By Elektro H@cker
  6.       '
  7.       ' Examples :
  8.       ' For Each value In Get_Enum_Values(Of KnownColor)() : MsgBox(value) : Next
  9.  
  10.    Private Function Get_Enum_Values(Of T)() As List(Of String)
  11.        Dim ValueList As New List(Of String)
  12.        For Each value In System.[Enum].GetValues(GetType(T)) : ValueList.Add(value.ToString) : Next
  13.        Return ValueList
  14.    End Function
  15.  
  16.    #End Region





Como hacer un Loop sobre todos los colores conocidos:

Código
  1.        For Each col In System.[Enum].GetValues(GetType(KnownColor))
  2.            Dim mycolor As Color = Color.FromKnownColor(col)
  3.            MsgBox(mycolor.ToString)
  4.            MsgBox(mycolor.R)
  5.            MsgBox(mycolor.G)
  6.            MsgBox(mycolor.B)
  7.        Next
« Última modificación: 17 Mayo 2013, 15:51 por EleKtro H@cker » En línea

Como insertar un código:

 

-> Reglas del foro <-
Eleкtro
Moderador
***
Desconectado Desconectado

Mensajes: 5.826


"En teoría, la teoría y la práctica son lo mismo."


Ver Perfil
Re: Librería de Snippets !! (Posteen aquí sus snippets)
« Respuesta #120 en: 17 Mayo 2013, 19:32 »

Redimensionar una imágen:

Código
  1. #Region " Resize Image "
  2.  
  3.    ' [ Save Resize Image Function ]
  4.    '
  5.    ' Examples :
  6.    '
  7.    ' PictureBox1.Image = Resize_Image(System.Drawing.Image.FromFile("C:\Image.png"), 256, 256)
  8.  
  9.    Private Function Resize_Image(ByVal img As Image, ByVal Width As Int32, ByVal Height As Int32) As Bitmap
  10.        Dim Bitmap_Source As New Bitmap(img)
  11.        Dim Bitmap_Dest As New Bitmap(CInt(Width), CInt(Height))
  12.        Dim Graphic As Graphics = Graphics.FromImage(Bitmap_Dest)
  13.        Graphic.DrawImage(Bitmap_Source, 0, 0, Bitmap_Dest.Width + 1, Bitmap_Dest.Height + 1)
  14.        Return Bitmap_Dest
  15.    End Function
  16.  
  17. #End Region





Redimensionar una imágen a escala:

Código
  1. #Region " Scale Image "
  2.  
  3.    ' [ Save Scale Image Function ]
  4.    '
  5.    ' Examples :
  6.    '
  7.    ' PictureBox1.Image = Scale_Image(System.Drawing.Image.FromFile("C:\Image.png"), 3) ' Scales to x3 of original size
  8.  
  9.    Private Function Scale_Image(ByVal img As Image, ByVal ScaleFactor As Single)
  10.        Dim Bitmap_Source As New Bitmap(img)
  11.        Dim Bitmap_Dest As New Bitmap(CInt(Bitmap_Source.Width * ScaleFactor), CInt(Bitmap_Source.Height * ScaleFactor))
  12.        Dim Graphic As Graphics = Graphics.FromImage(Bitmap_Dest)
  13.        Graphic.DrawImage(Bitmap_Source, 0, 0, Bitmap_Dest.Width + 1, Bitmap_Dest.Height + 1)
  14.        Return Bitmap_Dest
  15.    End Function
  16.  
  17. #End Region
En línea

Como insertar un código:

 

-> Reglas del foro <-
Eleкtro
Moderador
***
Desconectado Desconectado

Mensajes: 5.826


"En teoría, la teoría y la práctica son lo mismo."


Ver Perfil
Re: Librería de Snippets !! (Posteen aquí sus snippets)
« Respuesta #121 en: 18 Mayo 2013, 12:28 »

Reproducir, pausar, detener archivos MP3/WAV/MIDI

Código
  1.    ' PlayFile
  2.    '
  3.    ' Examples:
  4.    ' Dim Audio As New PlayFile("C:\File.mp3")
  5.    ' Audio.Play()
  6.    ' Audio.Pause()
  7.    ' Audio.Resume()
  8.    ' Audio.Stop()
  9.  
  10. #Region " PlayFile Class"
  11.  
  12. ''' <summary>
  13. ''' This class is a wrapper for the Windows API calls to play wave, midi or mp3 files.
  14. ''' </summary>
  15. ''' <remarks>
  16. ''' </remarks>
  17. Public Class PlayFile
  18.    '***********************************************************************************************************
  19.    '        Class:  PlayFile
  20.    '   Written By:  Blake Pell (bpell@indiana.edu)
  21.    ' Initial Date:  03/31/2007
  22.    ' Last Updated:  02/04/2009
  23.    '***********************************************************************************************************
  24.  
  25.    ' Windows API Declarations
  26.    Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Int32, ByVal hwndCallback As Int32) As Int32
  27.  
  28.    ''' <summary>
  29.    ''' Constructor:  Location is the filename of the media to play.  Wave files and Mp3 files are the supported formats.
  30.    ''' </summary>
  31.    ''' <param name="Location"></param>
  32.    ''' <remarks></remarks>
  33.    Public Sub New(ByVal location As String)
  34.        Me.Filename = location
  35.    End Sub
  36.  
  37.    ''' <summary>
  38.    ''' Plays the file that is specified as the filename.
  39.    ''' </summary>
  40.    ''' <remarks></remarks>
  41.    Public Sub Play()
  42.  
  43.        If _filename = "" Or Filename.Length <= 4 Then Exit Sub
  44.  
  45.        Select Case Right(Filename, 3).ToLower
  46.            Case "mp3"
  47.                mciSendString("open """ & _filename & """ type mpegvideo alias audiofile", Nothing, 0, IntPtr.Zero)
  48.  
  49.                Dim playCommand As String = "play audiofile from 0"
  50.  
  51.                If _wait = True Then playCommand += " wait"
  52.  
  53.                mciSendString(playCommand, Nothing, 0, IntPtr.Zero)
  54.            Case "wav"
  55.                mciSendString("open """ & _filename & """ type waveaudio alias audiofile", Nothing, 0, IntPtr.Zero)
  56.                mciSendString("play audiofile from 0", Nothing, 0, IntPtr.Zero)
  57.            Case "mid", "idi"
  58.                mciSendString("stop midi", "", 0, 0)
  59.                mciSendString("close midi", "", 0, 0)
  60.                mciSendString("open sequencer!" & _filename & " alias midi", "", 0, 0)
  61.                mciSendString("play midi", "", 0, 0)
  62.            Case Else
  63.                Throw New Exception("File type not supported.")
  64.                Call Close()
  65.        End Select
  66.  
  67.        IsPaused = False
  68.  
  69.    End Sub
  70.  
  71.    ''' <summary>
  72.    ''' Pause the current play back.
  73.    ''' </summary>
  74.    ''' <remarks></remarks>
  75.    Public Sub Pause()
  76.        mciSendString("pause audiofile", Nothing, 0, IntPtr.Zero)
  77.        IsPaused = True
  78.    End Sub
  79.  
  80.    ''' <summary>
  81.    ''' Resume the current play back if it is currently paused.
  82.    ''' </summary>
  83.    ''' <remarks></remarks>
  84.    Public Sub [Resume]()
  85.        mciSendString("resume audiofile", Nothing, 0, IntPtr.Zero)
  86.        IsPaused = False
  87.    End Sub
  88.  
  89.    ''' <summary>
  90.    ''' Stop the current file if it's playing.
  91.    ''' </summary>
  92.    ''' <remarks></remarks>
  93.    Public Sub [Stop]()
  94.        mciSendString("stop audiofile", Nothing, 0, IntPtr.Zero)
  95.    End Sub
  96.  
  97.    ''' <summary>
  98.    ''' Close the file.
  99.    ''' </summary>
  100.    ''' <remarks></remarks>
  101.    Public Sub Close()
  102.        mciSendString("close audiofile", Nothing, 0, IntPtr.Zero)
  103.    End Sub
  104.  
  105.    Private _wait As Boolean = False
  106.    ''' <summary>
  107.    ''' Halt the program until the .wav file is done playing.  Be careful, this will lock the entire program up until the
  108.    ''' file is done playing.  It behaves as if the Windows Sleep API is called while the file is playing (and maybe it is, I don't
  109.    ''' actually know, I'm just theorizing).  :P
  110.    ''' </summary>
  111.    ''' <value></value>
  112.    ''' <returns></returns>
  113.    ''' <remarks></remarks>
  114.    Public Property Wait() As Boolean
  115.        Get
  116.            Return _wait
  117.        End Get
  118.        Set(ByVal value As Boolean)
  119.            _wait = value
  120.        End Set
  121.    End Property
  122.  
  123.    ''' <summary>
  124.    ''' Sets the audio file's time format via the mciSendString API.
  125.    ''' </summary>
  126.    ''' <value></value>
  127.    ''' <returns></returns>
  128.    ''' <remarks></remarks>
  129.    ReadOnly Property Milleseconds() As Integer
  130.        Get
  131.            Dim buf As String = Space(255)
  132.            mciSendString("set audiofile time format milliseconds", Nothing, 0, IntPtr.Zero)
  133.            mciSendString("status audiofile length", buf, 255, IntPtr.Zero)
  134.  
  135.            buf = Replace(buf, Chr(0), "") ' Get rid of the nulls, they muck things up
  136.  
  137.            If buf = "" Then
  138.                Return 0
  139.            Else
  140.                Return CInt(buf)
  141.            End If
  142.        End Get
  143.    End Property
  144.  
  145.    ''' <summary>
  146.    ''' Gets the status of the current playback file via the mciSendString API.
  147.    ''' </summary>
  148.    ''' <value></value>
  149.    ''' <returns></returns>
  150.    ''' <remarks></remarks>
  151.    ReadOnly Property Status() As String
  152.        Get
  153.            Dim buf As String = Space(255)
  154.            mciSendString("status audiofile mode", buf, 255, IntPtr.Zero)
  155.            buf = Replace(buf, Chr(0), "")  ' Get rid of the nulls, they muck things up
  156.            Return buf
  157.        End Get
  158.    End Property
  159.  
  160.    ''' <summary>
  161.    ''' Gets the file size of the current audio file.
  162.    ''' </summary>
  163.    ''' <value></value>
  164.    ''' <returns></returns>
  165.    ''' <remarks></remarks>
  166.    ReadOnly Property FileSize() As Integer
  167.        Get
  168.            Try
  169.                Return My.Computer.FileSystem.GetFileInfo(_filename).Length
  170.            Catch ex As Exception
  171.                Return 0
  172.            End Try
  173.        End Get
  174.    End Property
  175.  
  176.    ''' <summary>
  177.    ''' Gets the channels of the file via the mciSendString API.
  178.    ''' </summary>
  179.    ''' <value></value>
  180.    ''' <returns></returns>
  181.    ''' <remarks></remarks>
  182.    ReadOnly Property Channels() As Integer
  183.        Get
  184.            Dim buf As String = Space(255)
  185.            mciSendString("status audiofile channels", buf, 255, IntPtr.Zero)
  186.  
  187.            If IsNumeric(buf) = True Then
  188.                Return CInt(buf)
  189.            Else
  190.                Return -1
  191.            End If
  192.        End Get
  193.    End Property
  194.  
  195.    ''' <summary>
  196.    ''' Used for debugging purposes.
  197.    ''' </summary>
  198.    ''' <value></value>
  199.    ''' <returns></returns>
  200.    ''' <remarks></remarks>
  201.    ReadOnly Property Debug() As String
  202.        Get
  203.            Dim buf As String = Space(255)
  204.            mciSendString("status audiofile channels", buf, 255, IntPtr.Zero)
  205.  
  206.            Return Str(buf)
  207.        End Get
  208.    End Property
  209.  
  210.    Private _isPaused As Boolean = False
  211.    ''' <summary>
  212.    ''' Whether or not the current playback is paused.
  213.    ''' </summary>
  214.    ''' <value></value>
  215.    ''' <returns></returns>
  216.    ''' <remarks></remarks>
  217.    Public Property IsPaused() As Boolean
  218.        Get
  219.            Return _isPaused
  220.        End Get
  221.        Set(ByVal value As Boolean)
  222.            _isPaused = value
  223.        End Set
  224.    End Property
  225.  
  226.    Private _filename As String
  227.    ''' <summary>
  228.    ''' The current filename of the file that is to be played back.
  229.    ''' </summary>
  230.    ''' <value></value>
  231.    ''' <returns></returns>
  232.    ''' <remarks></remarks>
  233.    Public Property Filename() As String
  234.        Get
  235.            Return _filename
  236.        End Get
  237.        Set(ByVal value As String)
  238.  
  239.            If My.Computer.FileSystem.FileExists(value) = False Then
  240.                Throw New System.IO.FileNotFoundException
  241.                Exit Property
  242.            End If
  243.  
  244.            _filename = value
  245.        End Set
  246.    End Property
  247. End Class
  248.  
  249. #End Region




Ejemplos de uso del Windows Media Player control:

Código
  1. #Region " Windows Media Player "
  2.  
  3.        AxWindowsMediaPlayer1.Visible = False
  4.        AxWindowsMediaPlayer1.URL = "C:\Audio.mp3"
  5.        AxWindowsMediaPlayer1.URL = "C:\Video.avi"
  6.        AxWindowsMediaPlayer1.settings.volume = 50
  7.        AxWindowsMediaPlayer1.settings.setMode("autoRewind", False) ' Mode indicating whether the tracks are rewound to the beginning after playing to the end. Default state is true.
  8.        AxWindowsMediaPlayer1.settings.setMode("loop", False) ' Mode indicating whether the sequence of tracks repeats itself. Default state is false.
  9.        AxWindowsMediaPlayer1.settings.setMode("showFrame", False) ' Mode indicating whether the nearest video key frame is displayed at the current position when not playing. Default state is false. Has no effect on audio tracks.
  10.        AxWindowsMediaPlayer1.settings.setMode("shuffle", False) ' Mode indicating whether the tracks are played in random order. Default state is false.
  11.        AxWindowsMediaPlayer1.Ctlcontrols.play()
  12.        AxWindowsMediaPlayer1.Ctlcontrols.stop()
  13.  
  14. #End Region
En línea

Como insertar un código:

 

-> Reglas del foro <-
Eleкtro
Moderador
***
Desconectado Desconectado

Mensajes: 5.826


"En teoría, la teoría y la práctica son lo mismo."


Ver Perfil
Re: Librería de Snippets !! (Posteen aquí sus snippets)
« Respuesta #122 en: 18 Mayo 2013, 12:48 »

Un ColorDialog "por defecto" que tiene las propiedades "Title" y "Location",
Además se puede handlear el color que hay seleccionado en cualquier momento en el modo "Full open", para obtener el color sin tener que confirmar el diálogo.

PD: Hay que instanciarlo siempre para handlear el .Currentcolor

Ejemplos de uso:

Código
  1. Public Class Form1
  2.  
  3.     Private WithEvents PicBox As New PictureBox
  4.     Private WithEvents ColorDlg As ColorDialog_RealTime.Colordialog_Realtime = Nothing
  5.  
  6.     Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
  7.         PicBox.BackColor = Color.Blue
  8.         Me.Controls.Add(PicBox)
  9.     End Sub
  10.  
  11.     Private Sub PicBox_Click(sender As Object, e As EventArgs) Handles PicBox.Click
  12.         ColorDlg = New ColorDialog_RealTime.Colordialog_Realtime
  13.         ColorDlg.Title = "Hello!"
  14.         ColorDlg.Location = New Point(Me.Right, Me.Top)
  15.         ColorDlg.Color = sender.backcolor
  16.         If ColorDlg.ShowDialog() = Windows.Forms.DialogResult.OK Then
  17.             sender.BackColor = ColorDlg.Color
  18.         End If
  19.         ColorDlg = Nothing
  20.     End Sub
  21.  
  22.     Private Sub ColorDlg_CurrentColor(c As System.Drawing.Color) Handles ColorDlg.CurrentColor
  23.         PicBox.BackColor = c
  24.     End Sub
  25.  
  26. End Class


Código
  1. Public Class Colordialog_Realtime
  2.    Inherits ColorDialog
  3.  
  4.    Public Event CurrentColor(ByVal c As Color)
  5.  
  6.    Private Const GA_ROOT As Integer = 2
  7.    Private Const WM_PAINT As Integer = &HF
  8.    Private Const WM_CTLCOLOREDIT As Integer = &H133
  9.  
  10.    Public Declare Function GetAncestor Lib "user32.dll" _
  11.        (ByVal hWnd As IntPtr, ByVal gaFlags As Integer) As IntPtr
  12.  
  13.    Private EditWindows As List(Of ApiWindow) = Nothing
  14.  
  15.    Public Sub New()
  16.        Me.FullOpen = True
  17.    End Sub
  18.  
  19.    <Runtime.InteropServices.DllImport("user32.dll")> _
  20.    Private Shared Function SetWindowText(hWnd As IntPtr, lpString As String) As Boolean
  21.    End Function
  22.  
  23.    Private Const SWP_NOSIZE As Integer = &H1
  24.    Private Declare Function SetWindowPos Lib "user32" Alias "SetWindowPos" _
  25.        (ByVal hwnd As IntPtr, ByVal hWndInsertAfter As Integer, ByVal x As Integer, ByVal y As Integer, ByVal cx As Integer, ByVal cy As Integer, ByVal wFlags As Integer) As Integer
  26.  
  27.    Private m_title As String = String.Empty
  28.    Private titleSet As Boolean = False
  29.  
  30.    Public Property Title() As String
  31.        Get
  32.            Return m_title
  33.        End Get
  34.        Set(value As String)
  35.            If value IsNot Nothing AndAlso value <> m_title Then
  36.                m_title = value
  37.                titleSet = False
  38.            End If
  39.        End Set
  40.    End Property
  41.  
  42.    Private m_location As Point = Point.Empty
  43.    Private locationSet As Boolean = False
  44.  
  45.    Public Property Location() As Point
  46.        Get
  47.            Return m_location
  48.        End Get
  49.        Set(value As Point)
  50.            If Not value.Equals(Point.Empty) AndAlso Not value.Equals(m_location) Then
  51.                m_location = value
  52.                locationSet = False
  53.            End If
  54.        End Set
  55.    End Property
  56.  
  57.    <System.Security.Permissions.PermissionSetAttribute(System.Security.Permissions.SecurityAction.Demand, Name:="FullTrust")> _
  58.    Protected Overrides Function HookProc(ByVal hWnd As IntPtr, ByVal msg As Integer, ByVal wParam As IntPtr, ByVal lParam As IntPtr) As IntPtr
  59.        Select Case msg
  60.            Case WM_PAINT
  61.                If Not titleSet AndAlso Title <> String.Empty Then
  62.                    SetWindowText(GetAncestor(hWnd, GA_ROOT), Title)
  63.                    titleSet = True
  64.                End If
  65.                If Not locationSet AndAlso Not m_location.Equals(Point.Empty) Then
  66.                    SetWindowPos(GetAncestor(hWnd, GA_ROOT), 0, m_location.X, m_location.Y, 0, 0, SWP_NOSIZE)
  67.                    locationSet = True
  68.                End If
  69.  
  70.            Case WM_CTLCOLOREDIT
  71.                If IsNothing(EditWindows) Then
  72.                    Dim mainWindow As IntPtr = GetAncestor(hWnd, GA_ROOT)
  73.                    If Not mainWindow.Equals(IntPtr.Zero) Then
  74.                        EditWindows = New List(Of ApiWindow)((New WindowsEnumerator).GetChildWindows(mainWindow, "Edit"))
  75.                    End If
  76.                End If
  77.  
  78.                If Not IsNothing(EditWindows) AndAlso EditWindows.Count = 6 Then
  79.                    Dim strRed As String = WindowsEnumerator.WindowText(EditWindows(3).hWnd)
  80.                    Dim strGreen As String = WindowsEnumerator.WindowText(EditWindows(4).hWnd)
  81.                    Dim strBlue As String = WindowsEnumerator.WindowText(EditWindows(5).hWnd)
  82.  
  83.                    Dim Red, Green, Blue As Integer
  84.                    If Integer.TryParse(strRed, Red) Then
  85.                        If Integer.TryParse(strGreen, Green) Then
  86.                            If Integer.TryParse(strBlue, Blue) Then
  87.                                RaiseEvent CurrentColor(Color.FromArgb(Red, Green, Blue))
  88.                            End If
  89.                        End If
  90.                    End If
  91.                End If
  92.        End Select
  93.  
  94.        Return MyBase.HookProc(hWnd, msg, wParam, lParam)
  95.    End Function
  96.  
  97. End Class
  98.  
  99. Class ApiWindow
  100.    Public hWnd As IntPtr
  101.    Public ClassName As String
  102.    Public MainWindowTitle As String
  103. End Class
  104.  
  105. Class WindowsEnumerator
  106.  
  107.    Private Delegate Function EnumCallBackDelegate(ByVal hwnd As IntPtr, ByVal lParam As Integer) As Integer
  108.  
  109.    Private Declare Function EnumWindows Lib "user32" _
  110.        (ByVal lpEnumFunc As EnumCallBackDelegate, ByVal lParam As Integer) As Integer
  111.  
  112.    Private Declare Function EnumChildWindows Lib "user32" _
  113.        (ByVal hWndParent As IntPtr, ByVal lpEnumFunc As EnumCallBackDelegate, ByVal lParam As Integer) As Integer
  114.  
  115.    Private Declare Function GetClassName Lib "user32" Alias "GetClassNameA" _
  116.        (ByVal hwnd As IntPtr, ByVal lpClassName As System.Text.StringBuilder, ByVal nMaxCount As Integer) As Integer
  117.  
  118.    Private Declare Function IsWindowVisible Lib "user32" (ByVal hwnd As IntPtr) As Integer
  119.  
  120.    Private Declare Function GetParent Lib "user32" (ByVal hwnd As IntPtr) As Integer
  121.  
  122.    Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" _
  123.        (ByVal hwnd As IntPtr, ByVal wMsg As Integer, ByVal wParam As Integer, ByVal lParam As Integer) As Integer
  124.  
  125.    Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" _
  126.        (ByVal hwnd As IntPtr, ByVal wMsg As Integer, ByVal wParam As Integer, ByVal lParam As System.Text.StringBuilder) As Integer
  127.  
  128.    Private _listChildren As New List(Of ApiWindow)
  129.    Private _listTopLevel As New List(Of ApiWindow)
  130.  
  131.    Private _topLevelClass As String = String.Empty
  132.    Private _childClass As String = String.Empty
  133.  
  134.    Public Overloads Function GetTopLevelWindows() As ApiWindow()
  135.        EnumWindows(AddressOf EnumWindowProc, &H0)
  136.        Return _listTopLevel.ToArray
  137.    End Function
  138.  
  139.    Public Overloads Function GetTopLevelWindows(ByVal className As String) As ApiWindow()
  140.        _topLevelClass = className
  141.        Return Me.GetTopLevelWindows()
  142.    End Function
  143.  
  144.    Public Overloads Function GetChildWindows(ByVal hwnd As Int32) As ApiWindow()
  145.        _listChildren.Clear()
  146.        EnumChildWindows(hwnd, AddressOf EnumChildWindowProc, &H0)
  147.        Return _listChildren.ToArray
  148.    End Function
  149.  
  150.    Public Overloads Function GetChildWindows(ByVal hwnd As Int32, ByVal childClass As String) As ApiWindow()
  151.        _childClass = childClass
  152.        Return Me.GetChildWindows(hwnd)
  153.    End Function
  154.  
  155.    Private Function EnumWindowProc(ByVal hwnd As Int32, ByVal lParam As Int32) As Int32
  156.        If GetParent(hwnd) = 0 AndAlso IsWindowVisible(hwnd) Then
  157.            Dim window As ApiWindow = GetWindowIdentification(hwnd)
  158.            If _topLevelClass.Length = 0 OrElse window.ClassName.ToLower() = _topLevelClass.ToLower() Then
  159.                _listTopLevel.Add(window)
  160.            End If
  161.        End If
  162.        Return 1
  163.    End Function
  164.  
  165.    Private Function EnumChildWindowProc(ByVal hwnd As Int32, ByVal lParam As Int32) As Int32
  166.        Dim window As ApiWindow = GetWindowIdentification(hwnd)
  167.        If _childClass.Length = 0 OrElse window.ClassName.ToLower() = _childClass.ToLower() Then
  168.            _listChildren.Add(window)
  169.        End If
  170.        Return 1
  171.    End Function
  172.  
  173.    Private Function GetWindowIdentification(ByVal hwnd As Integer) As ApiWindow
  174.        Dim classBuilder As New System.Text.StringBuilder(64)
  175.        GetClassName(hwnd, classBuilder, 64)
  176.  
  177.        Dim window As New ApiWindow
  178.        window.ClassName = classBuilder.ToString()
  179.        window.MainWindowTitle = WindowText(hwnd)
  180.        window.hWnd = hwnd
  181.        Return window
  182.    End Function
  183.  
  184.    Public Shared Function WindowText(ByVal hwnd As IntPtr) As String
  185.        Const W_GETTEXT As Integer = &HD
  186.        Const W_GETTEXTLENGTH As Integer = &HE
  187.  
  188.        Dim SB As New System.Text.StringBuilder
  189.        Dim length As Integer = SendMessage(hwnd, W_GETTEXTLENGTH, 0, 0)
  190.        If length > 0 Then
  191.            SB = New System.Text.StringBuilder(length + 1)
  192.            SendMessage(hwnd, W_GETTEXT, SB.Capacity, SB)
  193.        End If
  194.        Return SB.ToString
  195.    End Function
  196.  
  197. End Class
En línea

Como insertar un código:

 

-> Reglas del foro <-
Eleкtro
Moderador
***
Desconectado Desconectado

Mensajes: 5.826


"En teoría, la teoría y la práctica son lo mismo."


Ver Perfil
Re: Librería de Snippets !! (Posteen aquí sus snippets)
« Respuesta #123 en: 28 Mayo 2013, 17:24 »

Una class para grabar tareas del mouse (mover el mouse aquí, clickar botón izquierdo hallá, etc)

De momento solo he conseguido implementar los botones del mouse izquierdo/derecho.

Saludos.



Código
  1. #Region " Record Mouse Class "
  2.  
  3. ' [ Record Mouse Functions ]
  4. '
  5. ' // By Elektro H@cker
  6. '
  7. ' Examples :
  8. ' Record_Mouse.Start_Record()
  9. ' Record_Mouse.Stop_Record()
  10. ' Record_Mouse.Play() : While Not Record_Mouse.Play_Is_Completed : Application.DoEvents() : End While
  11. ' Record_Mouse.Mouse_Speed = 50
  12.  
  13. Public Class Record_Mouse
  14.  
  15.    ''' <summary>
  16.    ''' Sets the speed of recording/playing the mouse actions.
  17.    ''' Default value is 25.
  18.    ''' </summary>
  19.    Public Shared Mouse_Speed As Int64 = 30
  20.  
  21.    ''' <summary>
  22.    ''' Gets the status pf the current mouse play.
  23.    ''' False = Mouse task is still playing.
  24.    ''' True = Mouse task play is done.
  25.    ''' </summary>
  26.    Public Shared Play_Is_Completed As Boolean
  27.  
  28.    ' Where the mouse coordenates will be stored:
  29.    Private Shared Coordenates_List As New List(Of Point)
  30.    ' Where the mouse clicks will be stored:
  31.    Private Shared Clicks_Dictionary As New Dictionary(Of Int64, MouseButton)
  32.    ' Timer to record the mouse:
  33.    Private Shared WithEvents Record_Timer As New Timer
  34.    ' Button click count to rec/play clicks:
  35.    Private Shared Click_Count As Int32 = 0
  36.    ' Thread to reproduce the mouse actions:
  37.    Private Shared Thread_MousePlay_Var As System.Threading.Thread = New Threading.Thread(AddressOf Thread_MousePlay)
  38.    ' API to record the current mouse button state:
  39.    Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
  40.    ' API to reproduce a mouse button click:
  41.    Private Declare Sub Mouse_Event Lib "User32" Alias "mouse_event" (ByVal dwFlags As MouseButton, ByVal dx As Integer, ByVal dy As Integer, ByVal dwData As Integer, ByVal dwExtraInfo As Integer)
  42.    ' GetAsyncKeyState buttons status
  43.    Private Shared Last_ClickState_Left As Int64 = -1
  44.    Private Shared Last_ClickState_Right As Int64 = -1
  45.    Private Shared Last_ClickState_Middle As Int64 = -1
  46.  
  47.    Enum MouseButton
  48.  
  49.        Left_Down = &H2    ' Left button (hold)
  50.        Left_Up = &H4      ' Left button (release)
  51.  
  52.        Right_Down = &H8   ' Right button (hold)
  53.        Right_Up = &H10    ' Right button (release)
  54.  
  55.        Middle_Down = &H20 ' Middle button (hold)
  56.        Middle_Up = &H40   ' Middle button (release)
  57.  
  58.        Left               ' Left   button (press)
  59.        Right              ' Right  button (press)
  60.        Middle             ' Middle button (press)
  61.  
  62.    End Enum
  63.  
  64.    ''' <summary>
  65.    ''' Starts recording the mouse actions over the screen.
  66.    ''' It records the position of the mouse and left/right button clicks.
  67.    ''' </summary>
  68.    Public Shared Sub Start_Record()
  69.  
  70.        ' Reset vars:
  71.        Play_Is_Completed = False
  72.        Coordenates_List.Clear() : Clicks_Dictionary.Clear()
  73.        Last_ClickState_Left = -1 : Last_ClickState_Right = -1 : Last_ClickState_Middle = -1
  74.        Click_Count = 0
  75.  
  76.        ' Set Mouse Speed
  77.        Record_Timer.Interval = Mouse_Speed
  78.  
  79.        ' Start Recording:
  80.        Record_Timer.Start()
  81.  
  82.    End Sub
  83.  
  84.    ''' <summary>
  85.    ''' Stop recording the mouse actions.
  86.    ''' </summary>
  87.    Public Shared Sub Stop_Record()
  88.        Record_Timer.Stop()
  89.    End Sub
  90.  
  91.    ''' <summary>
  92.    ''' Reproduce the mouse actions.
  93.    ''' </summary>
  94.    Public Shared Sub Play()
  95.        Thread_MousePlay_Var = New Threading.Thread(AddressOf Thread_MousePlay)
  96.        Thread_MousePlay_Var.IsBackground = True
  97.        Thread_MousePlay_Var.Start()
  98.    End Sub
  99.  
  100.    ' Procedure used to store the mouse actions
  101.    Private Shared Sub Record_Timer_Tick(sender As Object, e As EventArgs) Handles Record_Timer.Tick
  102.  
  103.        Coordenates_List.Add(Control.MousePosition)
  104.  
  105.        ' Record Left click
  106.        If Not Last_ClickState_Left = GetAsyncKeyState(1) Then
  107.            Last_ClickState_Left = GetAsyncKeyState(1)
  108.            If GetAsyncKeyState(1) = 32768 Then
  109.                Click_Count += 1
  110.                Coordenates_List.Add(Nothing)
  111.                Clicks_Dictionary.Add(Click_Count, MouseButton.Left_Down)
  112.            ElseIf GetAsyncKeyState(1) = 0 Then
  113.                Click_Count += 1
  114.                Coordenates_List.Add(Nothing)
  115.                Clicks_Dictionary.Add(Click_Count, MouseButton.Left_Up)
  116.            End If
  117.        End If
  118.  
  119.        ' Record Right click
  120.        If Not Last_ClickState_Right = GetAsyncKeyState(2) Then
  121.            Last_ClickState_Right = GetAsyncKeyState(2)
  122.            If GetAsyncKeyState(2) = 32768 Then
  123.                Click_Count += 1
  124.                Coordenates_List.Add(Nothing)
  125.                Clicks_Dictionary.Add(Click_Count, MouseButton.Right_Down)
  126.            ElseIf GetAsyncKeyState(2) = 0 Then
  127.                Click_Count += 1
  128.                Coordenates_List.Add(Nothing)
  129.                Clicks_Dictionary.Add(Click_Count, MouseButton.Right_Up)
  130.            End If
  131.        End If
  132.  
  133.        ' Record Middle click
  134.        If Not Last_ClickState_Middle = GetAsyncKeyState(4) Then
  135.            Last_ClickState_Middle = GetAsyncKeyState(4)
  136.            If GetAsyncKeyState(4) = 32768 Then
  137.                Click_Count += 1
  138.                Coordenates_List.Add(Nothing)
  139.                Clicks_Dictionary.Add(Click_Count, MouseButton.Middle_Down)
  140.            ElseIf GetAsyncKeyState(4) = 0 Then
  141.                Click_Count += 1
  142.                Coordenates_List.Add(Nothing)
  143.                Clicks_Dictionary.Add(Click_Count, MouseButton.Middle_Up)
  144.            End If
  145.        End If
  146.  
  147.    End Sub
  148.  
  149.    ' Procedure to play a mouse button (click)
  150.    Private Shared Sub Mouse_Click(ByVal MouseButton As MouseButton)
  151.        Select Case MouseButton
  152.            Case MouseButton.Left : Mouse_Event(MouseButton.Left_Down, 0, 0, 0, 0) : Mouse_Event(MouseButton.Left_Up, 0, 0, 0, 0)
  153.            Case MouseButton.Right : Mouse_Event(MouseButton.Right_Down, 0, 0, 0, 0) : Mouse_Event(MouseButton.Right_Up, 0, 0, 0, 0)
  154.            Case MouseButton.Middle : Mouse_Event(MouseButton.Middle_Down, 0, 0, 0, 0) : Mouse_Event(MouseButton.Middle_Up, 0, 0, 0, 0)
  155.            Case Else : Mouse_Event(MouseButton, 0, 0, 0, 0)
  156.        End Select
  157.    End Sub
  158.  
  159.    ' Thread used for reproduce the mouse actions
  160.    Private Shared Sub Thread_MousePlay()
  161.  
  162.        Click_Count = 0
  163.        Clicks_Dictionary.Item(0) = Nothing
  164.  
  165.        For Each Coordenate In Coordenates_List
  166.  
  167.            Threading.Thread.Sleep(Mouse_Speed)
  168.  
  169.            If Coordenate = Nothing Then
  170.                Click_Count += 1
  171.                If Click_Count > 1 Then
  172.                    Mouse_Click(Clicks_Dictionary.Item(Click_Count))
  173.                End If
  174.            Else
  175.                Cursor.Position = Coordenate
  176.            End If
  177.  
  178.        Next
  179.  
  180.        Mouse_Click(MouseButton.Left_Up)
  181.        Mouse_Click(MouseButton.Right_Up)
  182.        Mouse_Click(MouseButton.Middle_Up)
  183.  
  184.        Play_Is_Completed = True
  185.  
  186.    End Sub
  187.  
  188. End Class
  189.  
  190. #End Region
« Última modificación: 12 Julio 2013, 09:50 por EleKtro H@cker » En línea

Como insertar un código:

 

-> Reglas del foro <-
Eleкtro
Moderador
***
Desconectado Desconectado

Mensajes: 5.826


"En teoría, la teoría y la práctica son lo mismo."


Ver Perfil
Re: Librería de Snippets !! (Posteen aquí sus snippets)
« Respuesta #124 en: 28 Mayo 2013, 18:39 »

Sección de ayuda para aplicaciones CommandLine.



Código
  1. #Region " Help Section "
  2.  
  3.    Private Sub Help()
  4.  
  5.        Dim Logo As String = <a><![CDATA[
  6. .____                        
  7. |    |    ____   ____   ____  
  8. |    |   /  _ \ / ___\ /  _ \
  9. |    |__(  <_> ) /_/  >  <_> )
  10. |_______ \____/\___  / \____/
  11.        \/    /_____/    By Elektro H@cker
  12. ]]></a>.Value
  13.  
  14.        Dim Help As String = <a><![CDATA[  
  15.  
  16. [+] Syntax:
  17.  
  18.    Program.exe [FILE] [SWITCHES]
  19.  
  20. [+] Switches:
  21.  
  22.    /Switch1   | Description.    (Default Value: X)
  23.    /Switch2   | Description.
  24.    /? (or) -? | Show this help.
  25.  
  26. [+] Switch value Syntax:
  27.  
  28.    /Switch1   (ms)
  29.    /Switch2   (X,Y)
  30.  
  31. [+] Usage examples:
  32.  
  33.    Program.exe "C:\File.txt" /Switch1
  34.    (Short explanation)
  35.  
  36. ]]></a>.Value
  37.  
  38.        Console.WriteLine(Logo & Help)
  39.        Application.Exit()
  40.  
  41.    End Sub
  42.  
  43. #End Region
En línea

Como insertar un código:

 

-> Reglas del foro <-
Eleкtro
Moderador
***
Desconectado Desconectado

Mensajes: 5.826


"En teoría, la teoría y la práctica son lo mismo."


Ver Perfil
Re: Librería de Snippets !! (Posteen aquí sus snippets)
« Respuesta #125 en: 29 Mayo 2013, 02:55 »

Descarga el código fuente de una URL al disco duro

Código
  1. #Region " Download URL SourceCode "
  2.  
  3.    ' [ Download URL SourceCode ]
  4.    '
  5.    ' Examples :
  6.    ' Download_URL_SourceCode("http://www.elhacker.net", "C:\Source.html")
  7.  
  8.    Private Sub Download_URL_SourceCode(ByVal url As String, ByVal OutputFile As String)
  9.  
  10.        Try
  11.            Using TextFile As New IO.StreamWriter(OutputFile, False, System.Text.Encoding.Default)
  12.                TextFile.WriteLine(New System.IO.StreamReader(System.Net.HttpWebRequest.Create(url).GetResponse().GetResponseStream()).ReadToEnd())
  13.            End Using
  14.  
  15.        Catch ex As Exception
  16.            MsgBox(ex.Message)
  17.        End Try
  18.  
  19.    End Sub
  20.  
  21. #End Region



Devuelve el código fuente de una URL

Código
  1. #Region " Get URL SourceCode "
  2.  
  3.    ' [ Get URL SourceCode Function ]
  4.    '
  5.    ' Examples :
  6.    ' MsgBox(Get_URL_SourceCode("http://www.google.com"))
  7.    ' Clipboard.SetText(Get_URL_SourceCode("http://www.google.com"))
  8.  
  9.    Private Function Get_URL_SourceCode(ByVal url As String, Optional ByVal OutputFile As String = Nothing) As String
  10.  
  11.        Try
  12.            Return New System.IO.StreamReader(System.Net.HttpWebRequest.Create(url).GetResponse().GetResponseStream()).ReadToEnd()
  13.        Catch ex As Exception
  14.            MsgBox(ex.Message)
  15.            Return Nothing
  16.        End Try
  17.  
  18.    End Function
  19.  
  20. #End Region




Parsear un HTML usando RegEx

Código
  1.    Private Sub Parse_HTML(ByVal TextFile As String)
  2.  
  3.        ' RegEx
  4.        Dim RegEx_Url As New System.Text.RegularExpressions.Regex("http://www.mp3crank.com.*\.html?")
  5.        Dim RegEx_Year As New System.Text.RegularExpressions.Regex("[1-2][0-9][0-9][0-9]")
  6.  
  7.        Dim Line As String = Nothing
  8.        Dim Text As New IO.StringReader(My.Computer.FileSystem.ReadAllText(TextFile))
  9.  
  10.        Do
  11.  
  12.            Line = Text.ReadLine()
  13.  
  14.            If Line Is Nothing Then
  15.  
  16.                Exit Do ' End of file
  17.  
  18.            Else
  19.  
  20.                ' Strip Year
  21.                '
  22.                ' Example:
  23.                ' <span class="year">2009</span>
  24.                '
  25.                If Line.Contains(<a><![CDATA[<span class="year">]]></a>.Value) Then
  26.                    MsgBox(RegEx_Year.Match(Line).Groups(0).ToString)
  27.                End If
  28.  
  29.                ' Strip URL
  30.                '
  31.                ' Example:
  32.                ' <div class="album"><h2><a href="http://www.mp3crank.com/echo-movement/in-the-ocean.htm"</a></h2></div>
  33.                '
  34.                If Line.Contains(<a><![CDATA[<div class="album">]]></a>.Value) Then
  35.                    MsgBox(RegEx_Url.Match(Line).Groups(0).ToString)
  36.                End If
  37.  
  38.            End If
  39.  
  40.        Loop
  41.  
  42.        Text.Close() : Text.Dispose()
  43.  
  44.    End Sub
En línea

Como insertar un código:

 

-> Reglas del foro <-
Páginas: 1 2 3 4 5 6 7 8 [9] 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 ... 32 Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
Code Snippets
Análisis y Diseño de Malware
De@th (L1zb3th) 2 1,038 Último mensaje 1 Julio 2007, 16:23
por Red Mx
[SOLUCIONADO] Duda sobre los snippets
.NET
Eleкtro 3 895 Último mensaje 20 Diciembre 2012, 13:50
por Novlucker
[Snippets] javascript / CSS / HTML5
Desarrollo Web
#!drvy 2 794 Último mensaje 19 Marzo 2013, 21:48
por #!drvy
Librería de Snippets en C/C++ « 1 2 3 »
Programación C/C++
Ikillnukes 31 4,388 Último mensaje 2 Agosto 2013, 17:13
por 0xDani
Librería de Plantillas !! (Compartan aquí sus plantillas)
.NET
Eleкtro 5 1,519 Último mensaje Ayer a las 13:42
por 1quark1
Powered by SMF 1.1.19 | SMF © 2006-2008, Simple Machines