Attributes.Select(Function(a) DirectCast(a, Integer)).Sum()

32 + 64

#Region " Change File Attributes Function "
 
    ' [ Change File Attributes Function ]
    '
    ' // By Elektro H@cker
    '
    ' Examples :
    ' Change_File_Attributes("C:\File.txt", H + R)
    ' Change_File_Attributes("C:\File.txt", Hidden + Read_Only)
 
    Const Archive As Integer = 32, A As Integer = 32
    Const Directory As Integer = 16, D As Integer = 16
    Const Hidden As Integer = 2, H As Integer = 2
    Const Normal As Integer = 0, N As Integer = 0
    Const Read_Only As Integer = 1, R As Integer = 1
    Const System As Integer = 4, S As Integer = 4
    Const Volume As Integer = 8, V As Integer = 8
 
    Private Function Change_File_Attributes(ByVal File As String, ByVal Attributes As System.IO.FileAttributes) As Boolean
        If IO.File.Exists(File) Then
            Try
                FileSystem.SetAttr(File, Attributes)
                Return True ' File was modified OK
            Catch
                Return False ' File can't be modified maybe because User Permissions
            End Try
        Else
            Return Nothing ' File doesn't exist
        End If
    End Function
 
#End Region

    Dim file As New FileStream(data_path & "notes.txt", FileMode.Open)
            Dim text As String = Nothing
            Dim reader As New StreamReader(file)
            Dim writer As New StreamWriter(file)
 
            While Not reader.EndOfStream
                text = reader.ReadLine
                If text.Contains(value) Then
                    text.Replace(value, "")
                    writer.Write(text)
                End If
            End While
 
            file.Close()

List<string> quotelist=File.ReadAllLines(filename).ToList();
            string firstItem= quotelist[0];
            quotelist.RemoveAt(0);
            File.WriteAllLines(filename, quotelist.ToArray());
            return firstItem;

Set WshShell = WScript.CreateObject("WScript.Shell")
 
TimeOut = 5000 '  En MiliSegundos
 
While TimeOut = TimeOut
	WScript.Sleep(TimeOut)
	WshShell.SendKeys "{F1}"
Wend

        Dim OS_Version As String = System.Environment.OSVersion.ToString
        MsgBox(OS_Version)

    ' // By Elektro H@cker
    '
    ' USAGE:
    '
    ' MsgBox(String_Is_Email("User@Email.com"))
 
#Region " String Is Email Function "
 
    Private Function String_Is_Email(ByVal Email_String As String)
        Dim Emaill_RegEx As New System.Text.RegularExpressions.Regex("^[A-Za-z0-9][A-Za-z0-9]+\@[A-Za-z0-9]+\.[A-Za-z0-9][A-Za-z0-9]+$")
        If Emaill_RegEx.IsMatch(Email_String) Then Return True Else Return False
    End Function
 
#End Region

    ' USAGE:
    '
    ' MsgBox(Get_Random_Password(8))
    ' MsgBox(Get_Random_Password(36))
 
#Region " Get Random Password Function "
 
    Public Function Get_Random_Password(ByVal Password_Length As Double) As String
        Dim New_Password As String = System.Guid.NewGuid.ToString
        If Password_Length <= 0 OrElse Password_Length > New_Password.Length Then
            Throw New ArgumentException("Length must be between 1 and " & New_Password.Length)
        End If
        Return New_Password.Substring(0, Password_Length)
    End Function
 
#End Region

    ' // By Elektro H@cker
    ' 
    ' USAGE:
    '
    '  For Each Printer_Name In Get_Printers() : MsgBox(Printer_Name) : Next
 
    Private Function Get_Printers()
        Dim Printer_Array As New List(Of String)
        Try
            For Each Printer_Name As String In System.Drawing.Printing.PrinterSettings.InstalledPrinters : Printer_Array.Add(Printer_Name) : Next
        Catch ex As Exception
            If ex.Message.Contains("RPC") Then Return "RPC Service is not avaliable"
        End Try
        Return Printer_Array
    End Function