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