Computer and computer file all infomation Hacker Source Code

Imports System.IO
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
SaveFileDialog1.FileName = "computer info"
SaveFileDialog1.Filter = "Text(*.txt)|*.txt|HTML(*html*)|*.html|PHP(*.php*)|*.php*|All files (*.*)|*.*"
SaveFileDialog1.ShowDialog()
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Dim i As Integer
Dim items() As String
Dim items2() As String
Dim items3() As String
Dim a As String
Dim itm, itm2, itm3 As String
Dim driveinfo As System.IO.DriveInfo
Dim b As Integer
a = SaveFileDialog1.FileName
b = 0
i = 0
Dim drives() As String
drives = Directory.GetLogicalDrives 'getting logical drives
Dim drive As String

If My.Computer.FileSystem.FileExists(a) = True Then 'checking for file existing where information has to be stored!!
My.Computer.FileSystem.DeleteFile(a) 'deleting the existing file!!
End If
My.Computer.FileSystem.WriteAllText(a, "Computer's operating system name: " & My.Computer.Info.OSFullName & vbNewLine & _
"Computer's available physical memory: " & My.Computer.Info.AvailablePhysicalMemory & vbNewLine & _
"Computer's available virtual memory: " & My.Computer.Info.AvailableVirtualMemory & vbNewLine & _
"Computer name: " & My.Computer.Name & vbNewLine & _
"Computer is Connected with network : " & My.Computer.Network.IsAvailable & vbNewLine & _
"Computer's language : " & My.Computer.Info.InstalledUICulture.DisplayName & vbNewLine & _
"Computer's Time : " & My.Computer.Clock.LocalTime() & vbNewLine & _
"Tick Count is: " & My.Computer.Clock.TickCount() & vbNewLine & _
"Mouse Button Swapped: " & My.Computer.Mouse.ButtonsSwapped() & vbNewLine & _
"Mouse Wheel Exist: " & My.Computer.Mouse.WheelExists() & vbNewLine & _
"Mouse Scroll per line: " & My.Computer.Mouse.WheelScrollLines() & vbNewLine & _
"IR location: " & My.Computer.FileSystem.CurrentDirectory() & vbNewLine & _
"IR Temporary File Location: " & My.Computer.FileSystem.GetTempFileName() & vbNewLine, True)
For Each drive In drives
b = b + 1
Next
ProgressBar1.Maximum = b
For Each drive In drives 'Writing found logical drives
i = i + 1
My.Computer.FileSystem.WriteAllText(a, "------------------------------------------------" & vbNewLine & drive & vbNewLine & "------------------------------------------------" & vbNewLine, True)
driveinfo = My.Computer.FileSystem.GetDriveInfo(drive)
If driveinfo.IsReady = False Then
My.Computer.FileSystem.WriteAllText(a, "This Drive is not currently in use!!" & vbNewLine, True)
Else
My.Computer.FileSystem.WriteAllText(a, "label:: " & driveinfo.VolumeLabel & vbNewLine & "Type:: " & driveinfo.DriveType.ToString & vbNewLine & _
"Total Size:: " & driveinfo.TotalSize & vbNewLine & "Free Space:: " & driveinfo.TotalFreeSpace & _
vbNewLine & "------------------------------------------------" & vbNewLine, True)

Try 'Finding the files in the logical drive
items = Directory.GetFileSystemEntries(drive)
Catch ex As Exception
End Try

For Each itm In items 'writing found files and folders one by one for first level 1
If Directory.Exists(itm) Then
My.Computer.FileSystem.WriteAllText(a, itm & vbNewLine, True)
Try
items2 = Directory.GetFileSystemEntries(itm) 'writing found files and folders one by one for second level 2
Catch ex As Exception
End Try
For Each itm2 In items2
If Directory.Exists(itm2) Then
My.Computer.FileSystem.WriteAllText(a, vbTab & itm2 & vbNewLine, True)
Try
items3 = Directory.GetFileSystemEntries(itm2) 'writing found files and folders one by one for third level 2
Catch ex As Exception
End Try

For Each itm3 In items3
If Directory.Exists(itm3) Then
My.Computer.FileSystem.WriteAllText(a, vbTab & vbTab & itm3 & vbNewLine, True)
Else
My.Computer.FileSystem.WriteAllText(a, vbTab & vbTab & itm3 & vbNewLine, True)
End If
Next
Else
My.Computer.FileSystem.WriteAllText(a, vbTab & itm2 & vbNewLine, True)
End If
Next
Else
My.Computer.FileSystem.WriteAllText(a, itm & vbNewLine, True)
End If
Next
End If
ProgressBar1.Value = i
Next
End
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Me.Close()
End Sub
End Class