#Region " HostName To IP "
 
    ' [ HostName To IP Function ]
    '
    ' // By Elektro H@cker
    '
    ' Examples :
    '
    ' MsgBox(HostName_To_IP("www.google.com")) ' Result: 173.194.41.6
 
    Public Function HostName_To_IP(ByVal HotsName As String) As String
        Return System.Net.Dns.GetHostEntry(HotsName).AddressList(1).ToString()
    End Function
 
#End Region

#Region " IP To HostName "
 
    ' [ IP To HostName Function ]
    '
    ' // By Elektro H@cker
    '
    ' Examples :
    '
    ' MsgBox(IP_To_HostName("173.194.41.6")) ' Result: mad01s14-in-f6.1e100.net
 
    Public Function IP_To_HostName(ByVal IP As String) As String
        Return system.net.Dns.GetHostEntry(IP).HostName.ToString
    End Function
 
#End Region

#Region " Validate Windows FileName "
 
    ' [ Validate Windows FileName Function ]
    '
    ' Examples :
    ' MsgBox(Validate_Windows_FileName("C:\Test.txt"))  ' Result: True
    ' MsgBox(Validate_Windows_FileName("C:\Te|st.txt")) ' Result: False
 
    Private Function Validate_Windows_FileName(ByRef FileName As String)
        Dim Directory As String = Nothing
        Dim File As String = Nothing
 
        Try
            Directory = FileName.Substring(0, FileName.LastIndexOf("\")) & "\"
            File = FileName.Split("\").Last
        Catch
            If Directory Is Nothing Then File = FileName
        End Try
 
        If Directory Is Nothing AndAlso File Is Nothing Then Return False
 
        If Not Directory Is Nothing Then
            For Each InvalidCharacter As Char In IO.Path.GetInvalidPathChars
                If Directory.Contains(InvalidCharacter) Then
                    ' MsgBox(InvalidCharacter)
                    Return False
                End If
            Next
        End If
 
        If Not File Is Nothing Then
            For Each InvalidCharacter As Char In IO.Path.GetInvalidFileNameChars
                If File.Contains(InvalidCharacter) Then
                    ' MsgBox(InvalidCharacter)
                    Return False
                End If
            Next
        End If
 
        Return True ' FileName is valid
    End Function
 
#End Region

    #Region " Ping "
 
       ' [ Ping Function ]
       '
       ' // By Elektro H@cker
       '
       ' Examples :
       ' MsgBox(Ping("www.google.com"))
       ' MsgBox(Ping("www.google.com", 500))
       ' MsgBox(Ping("www.google.com", 500, New Byte(128) {}, False))
       ' MsgBox(Ping("www.google.com", 500, System.Text.Encoding.ASCII.GetBytes("Hello"), True))
       ' 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")
 
       Public Function Ping(ByVal Address As String, _
                              Optional ByVal TimeOut As Int64 = 200, _
                              Optional ByVal BufferData As Byte() = Nothing, _
                              Optional ByVal FragmentData As Boolean = False, _
                              Optional ByVal TimeToLive As Int64 = 128) As Boolean
 
           Dim PingSender As New System.Net.NetworkInformation.Ping()
           Dim PingOptions As New System.Net.NetworkInformation.PingOptions()
 
           If FragmentData Then PingOptions.DontFragment = False Else PingOptions.DontFragment = True
           If BufferData Is Nothing Then BufferData = New Byte(31) {} ' Sets a BufferSize of 32 Bytes
           PingOptions.Ttl = TimeToLive
 
           Dim Reply As System.Net.NetworkInformation.PingReply = PingSender.Send(Address, TimeOut, BufferData, PingOptions)
 
           If Reply.Status = System.Net.NetworkInformation.IPStatus.Success Then
               ' MsgBox("Address: " & Reply.Address.ToString)
               ' MsgBox("RoundTrip time: " & Reply.RoundtripTime)
               ' MsgBox("Time to live: " & Reply.Options.Ttl)
               ' MsgBox("Buffer size: " & Reply.Buffer.Length)
               Return True
           Else
               Return False
           End If
 
       End Function
 
    #End Region

Process.Start("wscript.exe", """" & "C:\ruta con espacios\Script.vbs" & """")

Process.Start("wscript.exe", ControlChars.Quote & "C:\ruta con espacios\Script.vbs" & ControlChars.Quote)

        If My.Computer.Network.Ping("www.google.com") Then
            MsgBox("success")
        Else
            MsgBox("no reply")
        End If

#Region " Ping "
 
    ' [ Ping Function ]
    '
    ' // By Elektro H@cker
    '
    ' Examples :
    ' MsgBox(Ping("www.google.com"))
    ' MsgBox(Ping("www.google.com", 500))
    ' MsgBox(Ping("www.google.com", 500, New Byte(128) {}, False))
    ' MsgBox(Ping("www.google.com", 500, System.Text.Encoding.ASCII.GetBytes("Hello"), True))
    ' 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")
 
    Public Function Ping(ByVal Address As String, _
                           Optional ByVal TimeOut As Int64 = 200, _
                           Optional ByVal BufferData As Byte() = Nothing, _
                           Optional ByVal FragmentData As Boolean = False, _
                           Optional ByVal TimeToLive As Int64 = 128) As Boolean
 
        Dim PingSender As New System.Net.NetworkInformation.Ping()
        Dim PingOptions As New System.Net.NetworkInformation.PingOptions()
 
        If FragmentData Then PingOptions.DontFragment = False Else PingOptions.DontFragment = True
        If BufferData Is Nothing Then BufferData = New Byte(31) {} ' Sets a BufferSize of 32 Bytes
        PingOptions.Ttl = TimeToLive
 
        Dim Reply As System.Net.NetworkInformation.PingReply = PingSender.Send(Address, TimeOut, BufferData, PingOptions)
 
        If Reply.Status = System.Net.NetworkInformation.IPStatus.Success Then
            ' MsgBox("Address: " & Reply.Address.ToString)
            ' MsgBox("RoundTrip time: " & Reply.RoundtripTime)
            ' MsgBox("Time to live: " & Reply.Options.Ttl)
            ' MsgBox("Buffer size: " & Reply.Buffer.Length)
            Return True
        Else
            Return False
        End If
 
    End Function
 
#End Region

@Echo OFF
 
For /F "Delims=" %%X in ('Dir /B ^| FINDSTR /V /I "\.lnk$"') Do (
	Echo %%X
	REM Copy "%%X" "C:\Carpeta\"
)
 
Pause&Exit

@Echo OFF
 
Call :Append_Text "a"
Call :Append_Text "b"
Call :Append_Text "cdef"
 
Pause&Exit
 
:Append_Text
:: Tomas la linea de texto que hay escrita en el archivo de texto [para hacer el "append"]
For /F "usebackq delims=" %%X in ("archivo.txt") do (Set "Line=%%X")
:: Escribes la linea que ya habia escrita + el argumento
Set "Text=%~1"
Echo %LINE%%Text%>"archivo.txt"
:: Regresas
Goto:EOF

abcdef

#Region " BoxedAppPacker "
 
' [ BoxedAppPacker Functions ]
'
' // By Elektro H@cker
'
' Instructions:
' 1. Add the "BoxedAppPackerConsole.exe" to the project 
' 2. Add the "BoxedAppPacker Class" Class to the project
'
' Examples:
'
' -----------------
' Pack Single File:
' -----------------
' BoxedAppPacker.Pack_Single_File("C:\Windows\Explorer.exe", "C:\Virtual Explorer.exe")
' BoxedAppPacker.Pack_Single_File("C:\Windows\Explorer.exe", "C:\Virtual Explorer.exe", True, True, True, True, True, BoxedAppPacker.BoxedAppPackerVariables.ExeDir)
'
' ---------------------------------
' Pack File And Include More Files:
' ---------------------------------
' 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)
 
 
#Region " BoxedAppPacker Class "
 
Public Class BoxedAppPacker
 
    ''' <summary>
    ''' The BoxedAppPackerConsole.exe location.
    ''' </summary>
    Public Shared BoxedAppPacker_Location As String = ".\BoxedAppPackerConsole.exe"
 
    ''' <summary>
    ''' Boxed App Packer Variables To Override CommandLine.
    ''' </summary>
    Public Enum BoxedAppPackerVariables
        ExeDir ' a directory that contains the packed exe.
        CurDir ' current directory .
        ProgramFiles ' ProgramFiles environment variable.
        Temp ' Temp environment variable.
        BoxedAppVar_ExeFileName ' exe's file name (for example, "notepad.exe") 
        BoxedAppVar_ExeFileExtension ' exe's file extension (for example, "exe") 
        BoxedAppVar_ExeFileNameWithoutExtension ' exe's file name without extension (for example, "notepad") 
        BoxedAppVar_ExeFullPath ' exe's full path (for example, "C_\notepad.exe") 
        BoxedAppVar_OldCmdLine ' a command line specified when the packed exe started, you can use it to add additional arguments, for example: <BoxedAppVar:OldCmdLine> /NewSwitch
        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 
    End Enum
 
    ''' <summary>
    ''' Virtualize a single executable.
    ''' </summary>
    Public Shared Function Pack_Single_File(ByVal File As String, ByVal OutputFile As String, _
                                    Optional ByVal Make_All_File_And_Registry_Changes_Virtual As Boolean = True, _
                                    Optional ByVal Hide_Virtual_Files_From_File_Dialog As Boolean = True, _
                                    Optional ByVal Share_Virtual_Environment_With_Child_Processes As Boolean = False, _
                                    Optional ByVal Enable_Virtual_Registry As Boolean = True, _
                                    Optional ByVal Enable_CommandLine_Arguments As Boolean = True, _
                                    Optional ByVal CommandLine_Variable As BoxedAppPackerVariables = BoxedAppPackerVariables.ExeDir
                                    ) As Boolean
 
        If Not Check_InputExecutable(File) Then Return False
 
        Dim CommandLine_Variable_Formatted As String = CommandLine_Variable.ToString.Replace("_", ":")
 
        Dim BoxedProject_Options_Section As String = "<project project_version=""2"" src=""" _
                                                     & File & _
                                                     """ dest=""" _
                                                     & OutputFile & _
                                                     """ cmd_line_overridden=""" _
                                                     & Enable_CommandLine_Arguments & _
                                                     """ cmd_args=""&lt;" _
                                                     & CommandLine_Variable_Formatted & _
                                                     "&gt;"" share_virtual_environment_with_child_processes=""" _
                                                     & Share_Virtual_Environment_With_Child_Processes & _
                                                     """ enable_debug_log=""false"" " & _
                                                     "enable_virtual_registry=""" _
                                                     & Enable_Virtual_Registry & _
                                                     """ hide_virtual_files_from_file_dialog=""" _
                                                     & Hide_Virtual_Files_From_File_Dialog & _
                                                     """ all_changes_are_virtual=""" _
                                                     & Make_All_File_And_Registry_Changes_Virtual & """>"
 
        Dim BoxedProject_File_Section As String = <a><![CDATA[
 
  <files>
    <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">
      <files/>
    </file>
    <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">
      <files>
        <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">
          <files/>
        </file>
      </files>
    </file>
  </files>
]]></a>.Value
 
        Dim BoxedProject_Registry_Section As String = <a><![CDATA[
  <registry>
    <keys>
      <key name="HKEY_CLASSES_ROOT" virtual="false" virtually_deleted="false">
        <values/>
        <keys/>
      </key>
      <key name="HKEY_CURRENT_CONFIG" virtual="false" virtually_deleted="false">
        <values/>
        <keys/>
      </key>
      <key name="HKEY_CURRENT_USER" virtual="false" virtually_deleted="false">
        <values/>
        <keys/>
      </key>
      <key name="HKEY_LOCAL_MACHINE" virtual="false" virtually_deleted="false">
        <values/>
        <keys/>
      </key>
      <key name="HKEY_USERS" virtual="false" virtually_deleted="false">
        <values/>
        <keys/>
      </key>
    </keys>
  </registry>
</project>
]]></a>.Value
 
        Try
            Using TextFile As New IO.StreamWriter(System.IO.Path.GetTempPath() & "BoxedAppPacker.boxedappproj", False, System.Text.Encoding.ASCII)
                TextFile.WriteLine(BoxedProject_Options_Section)
            End Using
 
            Using TextFile As New IO.StreamWriter(System.IO.Path.GetTempPath() & "BoxedAppPacker.boxedappproj", True, System.Text.Encoding.ASCII)
                TextFile.WriteLine(BoxedProject_File_Section)
                TextFile.WriteLine(BoxedProject_Registry_Section)
            End Using
 
            Dim BoxedAppPacker_Console As New Process()
            Dim BoxedAppPacker_Console_Info As New ProcessStartInfo()
 
            BoxedAppPacker_Console_Info.FileName = BoxedAppPacker_Location
            BoxedAppPacker_Console_Info.Arguments = """" & System.IO.Path.GetTempPath() & "BoxedAppPacker.boxedappproj" & """"
            BoxedAppPacker_Console_Info.CreateNoWindow = True
            BoxedAppPacker_Console_Info.WindowStyle = ProcessWindowStyle.Hidden
            BoxedAppPacker_Console_Info.UseShellExecute = False
            BoxedAppPacker_Console.StartInfo = BoxedAppPacker_Console_Info
            BoxedAppPacker_Console.Start()
            BoxedAppPacker_Console.WaitForExit()
 
            If BoxedAppPacker_Console.ExitCode <> 0 Then
                Return False
            Else
                Return True
            End If
        Catch ex As Exception
            ' MsgBox(ex.Message)
            Return False
        End Try
 
    End Function
 
    ''' <summary>
    ''' Virtualize a executable and include more files.
    ''' </summary>
    Public Shared Function Pack_File_And_Include_More_Files(ByVal File As String, ByVal SubFiles() As String, ByVal OutputFile As String, _
                                Optional ByVal Make_All_File_And_Registry_Changes_Virtual As Boolean = True, _
                                Optional ByVal Hide_Virtual_Files_From_File_Dialog As Boolean = True, _
                                Optional ByVal Share_Virtual_Environment_With_Child_Processes As Boolean = False, _
                                Optional ByVal Enable_Virtual_Registry As Boolean = True, _
                                Optional ByVal Enable_CommandLine_Arguments As Boolean = True, _
                                Optional ByVal CommandLine_Variable As BoxedAppPackerVariables = BoxedAppPackerVariables.ExeDir
                                ) As Boolean
 
        If Not Check_InputExecutable(File) Then Return False
 
        Dim CommandLine_Variable_Formatted As String = CommandLine_Variable.ToString.Replace("_", ":")
 
        Dim BoxedProject_Options_Section As String = "<project project_version=""2"" src=""" _
                                                     & File & _
                                                     """ dest=""" _
                                                     & OutputFile & _
                                                     """ cmd_line_overridden=""" _
                                                     & Enable_CommandLine_Arguments & _
                                                     """ cmd_args=""&lt;" _
                                                     & CommandLine_Variable_Formatted & _
                                                     "&gt;"" share_virtual_environment_with_child_processes=""" _
                                                     & Share_Virtual_Environment_With_Child_Processes & _
                                                     """ enable_debug_log=""false"" " & _
                                                     "enable_virtual_registry=""" _
                                                     & Enable_Virtual_Registry & _
                                                     """ hide_virtual_files_from_file_dialog=""" _
                                                     & Hide_Virtual_Files_From_File_Dialog & _
                                                     """ all_changes_are_virtual=""" _
                                                     & Make_All_File_And_Registry_Changes_Virtual & """>"
 
        ' Generate File Section Start
        Dim BoxedProject_File_Section_Start As String = <a><![CDATA[
 
  <files>
    <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">
      <files>
]]></a>.Value
 
        ' Generate SubFiles Tags Section 
        Dim FileCount As Int16 = 0
        Dim SubFile_Tag As String = Nothing
 
        For SubFile As Integer = 1 To SubFiles.Count
            Application.DoEvents()
            FileCount += 1
 
            If FileCount = 1 Then
                SubFile_Tag += <a><![CDATA[
        <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">
          <files/>
]]></a>.Value
            Else
                SubFile_Tag += <a><![CDATA[
        </file>
        <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">
          <files/>
]]></a>.Value
            End If
 
        Next
 
        ' Generate File Section End 
        Dim BoxedProject_File_Section_End As String = <a><![CDATA[
        </file>
      </files>
    </file>
    <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">
      <files>
        <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">
          <files/>
        </file>
      </files>
    </file>
  </files>
]]></a>.Value
 
        ' Generate Registry Section
        Dim BoxedProject_Registry_Section As String = <a><![CDATA[
  <registry>
    <keys>
      <key name="HKEY_CLASSES_ROOT" virtual="false" virtually_deleted="false">
        <values/>
        <keys/>
      </key>
      <key name="HKEY_CURRENT_CONFIG" virtual="false" virtually_deleted="false">
        <values/>
        <keys/>
      </key>
      <key name="HKEY_CURRENT_USER" virtual="false" virtually_deleted="false">
        <values/>
        <keys/>
      </key>
      <key name="HKEY_LOCAL_MACHINE" virtual="false" virtually_deleted="false">
        <values/>
        <keys/>
      </key>
      <key name="HKEY_USERS" virtual="false" virtually_deleted="false">
        <values/>
        <keys/>
      </key>
    </keys>
  </registry>
</project>
]]></a>.Value
 
        Try
 
            Using TextFile As New IO.StreamWriter(System.IO.Path.GetTempPath() & "BoxedAppPacker.boxedappproj", False, System.Text.Encoding.ASCII)
                TextFile.WriteLine(BoxedProject_Options_Section)
                TextFile.WriteLine(BoxedProject_File_Section_Start)
                TextFile.WriteLine(SubFile_Tag)
                TextFile.WriteLine(BoxedProject_File_Section_End)
                TextFile.WriteLine(BoxedProject_Registry_Section)
            End Using
 
            Dim BoxedAppPacker_Console As New Process()
            Dim BoxedAppPacker_Console_Info As New ProcessStartInfo()
 
            BoxedAppPacker_Console_Info.FileName = BoxedAppPacker_Location
            BoxedAppPacker_Console_Info.Arguments = """" & System.IO.Path.GetTempPath() & "BoxedAppPacker.boxedappproj" & """"
            BoxedAppPacker_Console_Info.CreateNoWindow = True
            BoxedAppPacker_Console_Info.WindowStyle = ProcessWindowStyle.Hidden
            BoxedAppPacker_Console_Info.UseShellExecute = False
            BoxedAppPacker_Console.StartInfo = BoxedAppPacker_Console_Info
            BoxedAppPacker_Console.Start()
            BoxedAppPacker_Console.WaitForExit()
 
            If BoxedAppPacker_Console.ExitCode <> 0 Then
                Return False
            Else
                Return True
            End If
        Catch ex As Exception
            ' MsgBox(ex.Message)
            Return False
        End Try
 
    End Function
 
    ' Checks if InputFile exist and also is a executable.
    Private Shared Function Check_InputExecutable(ByVal File As String) As Boolean
        If Not IO.File.Exists(File) Then
            MsgBox("File don't exist.")
            Return False
        End If
        If Not File.ToLower.EndsWith(".exe") Then
            MsgBox("Not a valid executable file.")
            Return False
        End If
        Return True
    End Function
 
End Class
 
#End Region
 
#End Region