A AIO(All-In-One) DLL(with source)

V1 : Source and the DLL
V2 : Comming Soon...


Use it anywhere, just include my name : LS'n Industries

Source:

Code:

---

Imports System.IO
Imports System.IO.Compression
Imports System.Net
Public Class Files

    Shared Function CompressFile(ByRef file As String, ByRef destination As String) As String
        If IO.File.Exists(file) = False Then
            Return "Please specify a valid file (and path) to compress"
            Exit Function
        Else
            If IO.Directory.Exists(destination) = False Then
                Return "Please provide a destination location"
                Exit Function
            End If
        End If

        Try
            Dim name As String = Path.GetFileName(file)
            Dim source() As Byte = System.IO.File.ReadAllBytes(file)
            Dim compressed() As Byte = ConvertToByteArray(source)
            System.IO.File.WriteAllBytes(destination & "\" & name & ".zip", compressed)

            Return "Compression Successful!"
        Catch ex As Exception
            Return "Compression Error: " & ex.ToString()
        End Try
    End Function

    Shared Function ConvertToByteArray(ByVal source() As Byte) As Byte()
        Dim memoryStream As New MemoryStream()
        Dim gZipStream As New GZipStream(memoryStream, CompressionMode.Compress, True)
        gZipStream.Write(source, 0, source.Length)
        gZipStream.Dispose()
        memoryStream.Position = 0
        Dim buffer(memoryStream.Length) As Byte
        memoryStream.Read(buffer, 0, buffer.Length)
        memoryStream.Dispose()
        Return buffer
    End Function

    Shared Function WriteTxt(ByVal text As String, ByVal file As String)
        Dim strwri As New StreamWriter(file)
        strwri.Write(text)
        Return 0
    End Function

    Shared Function Del(ByVal xfile As String)
        File.Delete(xfile)
        Return 0
    End Function

    Shared Function FileCopyMove(ByVal move As Boolean, ByVal xfile As String, ByVal destination As String)
        If move = True Then
            File.Move(xfile, destination & "\" & xfile)
        ElseIf move = False Then
            File.Copy(xfile, destination & "\" & xfile)
        End If
        Return 0
    End Function

    Shared Function DownloadFile(ByVal file_url As String, ByVal destination_file As String)
        Dim wc As WebClient = New WebClient()
        wc.DownloadFile(file_url, destination_file)
        Return (0)
    End Function

    Shared Function UploadFile(ByVal url As String, ByVal file As String)
        Dim wc As WebClient = New WebClient()
        wc.UploadFile(url, file)
        Return 0
    End Function

End Class

Imports System.Environment
Public Class GetInfo

    Shared Function GetOS()
        If Is64BitOperatingSystem Then
            Return "x64"
        Else
            Return "x32"
        End If
    End Function

    Shared Function GetDesktop()
        Return GetFolderPath(SpecialFolder.DesktopDirectory)
    End Function

    Shared Function GetAppdata()
        Return GetFolderPath(SpecialFolder.ApplicationData)
    End Function

    Shared Function GetLocalAppdata()
        Return GetFolderPath(SpecialFolder.LocalApplicationData)
    End Function

    Shared Function GetSendTo()
        Return GetFolderPath(SpecialFolder.SendTo)
    End Function

    Shared Function GetStartMenu()
        Return GetFolderPath(SpecialFolder.StartMenu)
    End Function

    Shared Function GetProgramFiles()
        Return GetFolderPath(SpecialFolder.ProgramFiles)
    End Function

    Shared Function GetCurrentDirectory()
        Return CurrentDirectory
    End Function

    Shared Function GetProcessors()
        Return ProcessorCount
    End Function

    Shared Function GetUserFolder()
        Return GetFolderPath(SpecialFolder.UserProfile)
    End Function

    Shared Function GetSystemPath()
        Return GetFolderPath(SpecialFolder.System)
    End Function

    Shared Function GetOSInfo()
        Dim OSInfo As String
        OSInfo = OSVersion.VersionString & NewLine & OSVersion.Platform.ToString
        Return OSInfo
    End Function

    Shared Function GetUserName()
        Return UserName.ToString
    End Function

    Shared Function GetPcName()
        Return MachineName.ToString
    End Function

    Shared Function GetDomain()
        Return Environment.UserDomainName.ToString

    End Function

End Class


Public Class Mathematics

    Shared Function Addition(ByVal ParamArray Numbers() As Integer)
        Dim sum As Integer
        For Each i In Numbers
            sum += i
        Next
        Return sum
    End Function

    Shared Function Subtraction(ByVal FirstNumber As Integer, ByVal ParamArray MinusNumbers() As Integer)
        Dim sum As Integer = FirstNumber
        For Each i In MinusNumbers
            sum -= i
        Next
        Return sum
    End Function

    Shared Function Multiply(ByVal Number1 As Integer, ByVal Number2 As Integer)
        Dim sum As Integer
        sum = Number1 * Number2
        Return sum
    End Function

    Shared Function Divide(ByVal Number1 As Integer, ByVal Number2 As Integer)
        Dim sum As Integer
        sum = Number1 / Number2
        Return sum
    End Function

End Class


Imports System.IO
Imports System.Diagnostics
Public Class Processes

    Shared Function GetProcesses()
        Dim procwr As StreamWriter = New StreamWriter("temp.tmp")
        For Each P In Process.GetProcesses
            procwr.Write(P.ProcessName)
            procwr.Write(" - ")
            procwr.WriteLine(P.Id)
        Next
        procwr.Close()
        Dim processlist() As String = File.ReadAllLines("temp.tmp")
        File.Delete("temp.tmp")
        Return processlist
    End Function

    Shared Function KillProcess(ByVal ProcessName As String)
        Dim pProcess() As Process = System.Diagnostics.Process.GetProcessesByName(ProcessName)

        For Each p As Process In pProcess
            p.Kill()
        Next
        Return (0)
    End Function

    Shared Function CreateProcess(ByVal xfile As String)
        Process.Start(xfile)
        Return 0
    End Function

End Class

Public Class Work

    Shared Function Pause(ByVal time As Integer)
        Threading.Thread.Sleep(time)
        Return 0
    End Function


End Class

---