Notes

Imports System.IO
Imports System.Threading
Imports System.Diagnostics
Imports System.Net
Imports System.Net.NetworkInformation

Public Class Form1
Private Declare Function SHEmptyRecycleBin Lib "shell32.dll" Alias "SHEmptyRecycleBinA" (ByVal hWnd As Int32, ByVal pszRootPath As String,
ByVal dwFlags As Int32) As Int32
Private Declare Function SHUpdateRecycleBinIcon Lib "shell32.dll" () As Int32
Private Sub PictureBox3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox3.Click
If (MsgBox("Çıkmak istediğinize emin misiniz ?", MsgBoxStyle.Question + MessageBoxButtons.YesNo, "Game Booster") = Windows.Forms.DialogResult.Yes) Then
Dim d As Double
For d = 1 To 0 + 0.2 Step -0.2
System.Threading.Thread.Sleep(10)
Application.DoEvents()
Me.Opacity = d
Me.Refresh()
Next d
Environment.Exit(0)
End If
End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.TopMost = True
Dim myNetworkAdapters() As NetworkInterface = NetworkInterface.GetAllNetworkInterfaces
Dim myAdapterProps As IPInterfaceProperties = Nothing
Dim myGateways As GatewayIPAddressInformationCollection = Nothing

For Each adapter As NetworkInterface In myNetworkAdapters
myAdapterProps = adapter.GetIPProperties

myGateways = myAdapterProps.GatewayAddresses

For Each Gateway As GatewayIPAddressInformation In myGateways
Label1.Text = Gateway.Address.ToString
Next
Next
For Fadein = 0.0 To 1.1 Step 0.1
Me.Opacity = Fadein
Me.Refresh()
Threading.Thread.Sleep(10)
Next
End Sub
Private Const SHERB_NOCONFIRMATION = &H1
Private Const SHERB_NOPROGRESSUI = &H2
Private Const SHERB_NOSOUND = &H4

Private Sub EmptyRecycleBin()
SHEmptyRecycleBin(Me.Handle.ToInt32, "", SHERB_NOCONFIRMATION + SHERB_NOSOUND)
SHUpdateRecycleBinIcon()
End Sub
Dim IsDraggingForm As Boolean = False
Private MousePos As New System.Drawing.Point(0, 0)

Private Sub Form1_MouseDown(ByVal sender As Object, ByVal e As MouseEventArgs) Handles MyBase.MouseDown
If e.Button = MouseButtons.Left Then
IsDraggingForm = True
MousePos = e.Location
End If
End Sub

Private Sub Form1_MouseUp(ByVal sender As Object, ByVal e As MouseEventArgs) Handles MyBase.MouseUp
If e.Button = MouseButtons.Left Then IsDraggingForm = False
End Sub

Private Sub Form1_MouseMove(ByVal sender As Object, ByVal e As MouseEventArgs) Handles MyBase.MouseMove
If IsDraggingForm Then
Dim temp As Point = New Point(Me.Location + (e.Location - MousePos))
Me.Location = temp
temp = Nothing
End If
End Sub

Private Sub PictureBox1_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseDown
If e.Button = MouseButtons.Left Then
IsDraggingForm = True
MousePos = e.Location
End If
End Sub

Private Sub PictureBox1_MouseUp(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseUp
If e.Button = MouseButtons.Left Then IsDraggingForm = False
End Sub

Private Sub PictureBox1_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseMove
If IsDraggingForm Then
Dim temp As Point = New Point(Me.Location + (e.Location - MousePos))
Me.Location = temp
temp = Nothing
End If
End Sub

Private Sub Form1_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles MyBase.KeyDown
If e.KeyCode = Keys.Delete Then
Dim d As Double
For d = 1 To 0 + 0.2 Step -0.2
System.Threading.Thread.Sleep(10)
Application.DoEvents()
Me.Opacity = d
Me.Refresh()
Next d
Environment.Exit(0)
Exit Sub
End If

End Sub

Private Sub PictureBox5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox5.Click
If SXC.ShowDialog() = System.Windows.Forms.DialogResult.OK Then
Dim dosyaismi As String
dosyaismi = IO.Path.GetFileName(SXC.FileName)
TextBox1.Text = dosyaismi
End If
End Sub

Private Sub PictureBox7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox7.Click
Try
If CheckBox1.Checked = True Then
Interaction.Shell("cmd /c @echo off", AppWinStyle.MinimizedFocus, False, -1)
Interaction.Shell("cmd /c title Speed Booster /", AppWinStyle.MinimizedFocus, False, -1)
Interaction.Shell("cmd /c del /s /f /q c:windowstemp*.*", AppWinStyle.MinimizedFocus, False, -1)
Interaction.Shell("cmd /c rd /s /q c:windowstemp", AppWinStyle.MinimizedFocus, False, -1)
Interaction.Shell("cmd /c md c:windowstemp", AppWinStyle.MinimizedFocus, False, -1)
Interaction.Shell("cmd /c del /s /f /q %temp%*.*", AppWinStyle.MinimizedFocus, False, -1)
Interaction.Shell("cmd /c rd /s /q %temp%", AppWinStyle.MinimizedFocus, False, -1)
Interaction.Shell("cmd /c md %temp%", AppWinStyle.MinimizedFocus, False, -1)
Interaction.Shell("cmd /c deltree /y c:windowstempor~1", AppWinStyle.MinimizedFocus, False, -1)
Interaction.Shell("cmd /c deltree /y c:windowstemp", AppWinStyle.MinimizedFocus, False, -1)
Interaction.Shell("cmd /c deltree /y c:windowstmp", AppWinStyle.MinimizedFocus, False, -1)
Interaction.Shell("cmd /c deltree /y c:windowsff*.tmp", AppWinStyle.MinimizedFocus, False, -1)
Interaction.Shell("cmd /c deltree /y c:windowshistory", AppWinStyle.MinimizedFocus, False, -1)
Interaction.Shell("cmd /c deltree /y c:windowscookies", AppWinStyle.MinimizedFocus, False, -1)
Interaction.Shell("cmd /c deltree /y c:windowsrecent", AppWinStyle.MinimizedFocus, False, -1)
Interaction.Shell("cmd /c deltree /y c:windowsspool", AppWinStyle.MinimizedFocus, False, -1)
Interaction.Shell("cmd /c printers", AppWinStyle.MinimizedFocus, False, -1)
Interaction.Shell("cmd /c del c:WIN386.SWP", AppWinStyle.MinimizedFocus, False, -1)
Interaction.Shell("cmd /c cls", AppWinStyle.MinimizedFocus, False, -1)
End If
If CheckBox2.Checked = True Then
EmptyRecycleBin()
End If
If CheckBox3.Checked = True Then
Interaction.Shell("cmd /c ipconfig /renew", AppWinStyle.MinimizedFocus, False, -1)
Interaction.Shell("cmd /c ipconfig /flushdns", AppWinStyle.MinimizedFocus, False, -1)
End If
If CheckBox4.Checked = True Then
Interaction.Shell("cmd /c @echo off", AppWinStyle.MinimizedFocus, False, -1)
Interaction.Shell("cmd /c cls", AppWinStyle.MinimizedFocus, False, -1)
Interaction.Shell("cmd /c title Internet Speeder /", AppWinStyle.MinimizedFocus, False, -1)
Interaction.Shell("cmd /c color a", AppWinStyle.MinimizedFocus, False, -1)
Interaction.Shell("cmd /c cls", AppWinStyle.MinimizedFocus, False, -1)
Interaction.Shell("cmd /c ping -t " & Label1.Text, AppWinStyle.MinimizedFocus, False, -1)
End If
Catch ex As Exception
Label3.ForeColor = Color.Red
Label3.Text = "Başarısız"
End Try
If x1.Text = "0" Or x2.Text = "0" Or x3.Text = "0" Or x4.Text = "0" Then
Label3.ForeColor = Color.Yellow
Label3.Text = "Seçili işlem bulunamadı"
End If
If x1.Text = "1" Or x2.Text = "1" Or x3.Text = "1" Or x4.Text = "1" Then
Label3.ForeColor = Color.Lime
Label3.Text = "Başarılı"
Try
Process.Start(SXC.FileName)
Catch ex As Exception
Label3.ForeColor = Color.Yellow
Label3.Text = "Oyun bulunamadı"
End Try
End If
End Sub

Private Sub SXC_FileOk(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles SXC.FileOk
End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
If CheckBox1.Checked = True Then
x1.Text = "1"
Else
x1.Text = "0"
End If
If CheckBox2.Checked = True Then
x2.Text = "1"
Else
x2.Text = "0"
End If
If CheckBox3.Checked = True Then
x3.Text = "1"
Else
x3.Text = "0"
End If
If CheckBox4.Checked = True Then
x4.Text = "1"
Else
x4.Text = "0"
End If
End Sub

Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
Randomize()
Label5.ForeColor = Color.FromArgb(255, Rnd() * 255, Rnd() * 255, Rnd() * 255)
End Sub

Private Sub Timer3_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer3.Tick
Dim load As Integer = CDec(PerformanceCounter1.NextValue.ToString())
load = 100 - load
Label4.Text = load.ToString & "%"
End Sub
End Class