Help in my CrossFire Cleaner Source Code it always connecting to internet please

can you check my source code because if i post it on this section Moderators always Tell me a reason
"still connect to internet" can you check and tell me what i can remove to stop application connect to internet

Imports System****
Public Class Form1
'move form withour boarder
Dim drag As Boolean
Dim mousex As Integer
Dim mousey As Integer
Private Sub Form1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Panel1.MouseDown, Label1.MouseDown
drag = True 'Sets the variable drag to true.
mousex = Windows.Forms.Cursor.Position.X - Me.Left 'Sets variable mousex
mousey = Windows.Forms.Cursor.Position.Y - Me.Top 'Sets variable mousey

End Sub
Private Sub Form1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Panel1.MouseMove, Label1.MouseMove
'If drag is set to true then move the form accordingly.
If drag Then
Me.Top = Windows.Forms.Cursor.Position.Y - mousey
Me.Left = Windows.Forms.Cursor.Position.X - mousex
End If
End Sub
Private Sub Form1_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Panel1.MouseUp, Label1.MouseUp
drag = False 'Sets drag to false, so the form does not move according to the code in MouseMove
End Sub
'checkbox if checked declaration
Dim CHK1C As Boolean = False
Dim CHK2C As Boolean = False
Dim CHK3C As Boolean = False
Dim CHK4C As Boolean = False
Dim CHK5C As Boolean = False
Dim CHK6C As Boolean = False
Dim CHK7C As Boolean = True
Private Sub CHK1_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles CHK1.MouseDown
If CHK1C = False Then
CHK1.BackgroundImage = My.Resources.CF_Checkbox_checked
CHK1C = True
Label11.ForeColor = Color.Green
Else
CHK1.BackgroundImage = My.Resources.CF_Checkbox_Unchecked
CHK1C = False
Label11.ForeColor = Color.White
End If
End Sub

Private Sub CHK2_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles CHK2.MouseDown
If CHK2C = False Then
CHK2.BackgroundImage = My.Resources.CF_Checkbox_checked
CHK2C = True
Label12.ForeColor = Color.Green
Else
CHK2.BackgroundImage = My.Resources.CF_Checkbox_Unchecked
CHK2C = False
Label12.ForeColor = Color.White
End If
End Sub

Private Sub CHK3_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles CHK3.MouseDown
If CHK3C = False Then
CHK3.BackgroundImage = My.Resources.CF_Checkbox_checked
CHK3C = True
Label13.ForeColor = Color.Green
Else
CHK3.BackgroundImage = My.Resources.CF_Checkbox_Unchecked
CHK3C = False
Label13.ForeColor = Color.White
End If
End Sub

Private Sub CHK4_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles CHK4.MouseDown
If CHK4C = False Then
CHK4.BackgroundImage = My.Resources.CF_Checkbox_checked
CHK4C = True
Label14.ForeColor = Color.Green
Else
CHK4.BackgroundImage = My.Resources.CF_Checkbox_Unchecked
CHK4C = False
Label14.ForeColor = Color.White
End If
End Sub

Private Sub CHK5_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles CHK5.MouseDown
If CHK5C = False Then
CHK5.BackgroundImage = My.Resources.CF_Checkbox_checked
CHK5C = True
Label15.ForeColor = Color.Green
Else
CHK5.BackgroundImage = My.Resources.CF_Checkbox_Unchecked
CHK5C = False
Label15.ForeColor = Color.White
End If
End Sub

Private Sub BACKUPCHK_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles BACKUPCHK.MouseDown
If CHK7C = False Then
BACKUPCHK.BackgroundImage = My.Resources.CF_Checkbox_checked
CHK7C = True
Label20.Text = "Backup Ready"
Label20.ForeColor = Color.Green
Label18.ForeColor = Color.Green
Else
BACKUPCHK.BackgroundImage = My.Resources.CF_Checkbox_Unchecked
CHK7C = False
Label20.Text = "NotBackUp"
Label20.ForeColor = Color.Red
Label18.ForeColor = Color.White
End If
End Sub
Public YesorNo As Boolean
Dim StartupPath As String = IO.Path.GetFullPath(Application.StartupPath)
Private Sub Label10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label10.Click, Panel15.Click
Dim datapath As String = IO.Path.GetFullPath(Application.StartupPath)
If Label10.Text = "Clean Now" Then
Dim msgform As New MsgForm
msgform.Label1.Text = "Warning"
msgform.Label2.Text = "Are You Sure You Want To Delete. If You Worry To Delete Files Check The Backup Files To Backup Your Deleted Files"
msgform.Panel4.Visible = True
msgform.ShowDialog()
Do Until msgform.Visible = False
Loop
If YesorNo = True Then
With ListBox1.Items
ListBox1.Items.Clear()
Label22.Text = ListBox1.Items.Count
If CHK1C = True Then
Dim di As New IO.DirectoryInfo(My.Computer.FileSystem.SpecialDir ectories.MyDocuments + "\Cross Fire\Replay")
Dim diar1 As IO.FileInfo() = di.GetFiles("*.cfr")
Dim dra As IO.FileInfo
'list the names of all files in the specified directory
For Each dra In diar1
ListBox1.Items.Add(dra)
If CHK7C = True Then
Dim StartupPath As String = IO.Path.GetFullPath(Application.StartupPath)
My.Computer.FileSystem.MoveFile(di.ToString + "\" + dra.ToString, StartupPath + "\Data\Backups\" + "BU" + My.Settings.BackupNumber.ToString + "_" + dra.ToString)
My.Settings.BackupNumber += 1
Else
My.Computer.FileSystem.DeleteFile(di.ToString + "\" + dra.ToString)
End If
ProgressBar1.Value = .Count
ProgressBar1.Maximum = .Count + 1
Next
End If
If CHK2C = True Then
Dim di2 As New IO.DirectoryInfo(My.Computer.FileSystem.SpecialDir ectories.MyDocuments + "\Cross Fire\")
Dim diar12 As IO.FileInfo() = di2.GetFiles("*.bmp")
Dim dra2 As IO.FileInfo
'list the names of all files in the specified directory
For Each dra2 In diar12
ListBox1.Items.Add(dra2)
If CHK7C = True Then
My.Computer.FileSystem.MoveFile(di2.ToString + "\" + dra2.ToString, StartupPath + "\Data\Backups\" + "BU" + My.Settings.BackupNumber.ToString + "_" + dra2.ToString)
My.Settings.BackupNumber += 1
Else
My.Computer.FileSystem.DeleteFile(di2.ToString + "\" + dra2.ToString)
End If
ProgressBar1.Value = .Count
ProgressBar1.Maximum = .Count + 1
Next
End If
If CHK3C = True Then
Dim di As New IO.DirectoryInfo(TextBox1.Text + "backup\Temp")
Dim diar1 As IO.FileInfo() = di.GetFiles("*.*", IO.SearchOption.AllDirectories)
Dim dra As IO.FileInfo
'list the names of all files in the specified directory
For Each dra In diar1
ListBox1.Items.Add(dra)
If CHK7C = True Then
My.Computer.FileSystem.MoveFile(di.ToString + "\" + dra.ToString, StartupPath + "\Data\Backups\" + "BU" + My.Settings.BackupNumber.ToString + "_" + dra.ToString)
My.Settings.BackupNumber += 1
Else
My.Computer.FileSystem.DeleteFile(di.ToString + "\" + dra.ToString)
End If
ProgressBar1.Value = .Count
ProgressBar1.Maximum = .Count + 1
Next
Dim di2 As New IO.DirectoryInfo(TextBox1.Text + "backup\output")
Dim diar12 As IO.FileInfo() = di2.GetFiles("*.*", IO.SearchOption.AllDirectories)
Dim dra2 As IO.FileInfo
'list the names of all files in the specified directory
For Each dra2 In diar12
ListBox1.Items.Add(dra2)
If CHK7C = True Then
My.Computer.FileSystem.MoveFile(di2.ToString + "\" + dra2.ToString, StartupPath + "\Data\Backups\" + "BU" + My.Settings.BackupNumber.ToString + "_" + dra2.ToString)
My.Settings.BackupNumber += 1
Else
My.Computer.FileSystem.DeleteFile(di2.ToString + "\" + dra2.ToString)
End If
ProgressBar1.Value = .Count
ProgressBar1.Maximum = .Count + 1
Next
End If
If CHK4C = True Then
Dim di As New IO.DirectoryInfo(TextBox1.Text + "log")
Dim diar1 As IO.FileInfo() = di.GetFiles("*.*")
Dim dra As IO.FileInfo
'list the names of all files in the specified directory
For Each dra In diar1
ListBox1.Items.Add(dra)
If CHK7C = True Then
My.Computer.FileSystem.MoveFile(di.ToString + "\" + dra.ToString, StartupPath + "\Data\Backups\" + "BU" + My.Settings.BackupNumber.ToString + "_" + dra.ToString)
My.Settings.BackupNumber += 1
Else
My.Computer.FileSystem.DeleteFile(di.ToString + "\" + dra.ToString)
End If
ProgressBar1.Value = .Count
ProgressBar1.Maximum = .Count + 1
Next
End If
If CHK5C = True Then
' unfinished
Dim di As New IO.DirectoryInfo(TextBox1.Text + "Xtrap")
Dim diar1 As IO.FileInfo() = di.GetFiles("*.log")
Dim dra As IO.FileInfo
'list the names of all files in the specified directory
For Each dra In diar1
ListBox1.Items.Add(dra)
If CHK7C = True Then
My.Computer.FileSystem.MoveFile(di.ToString + "\" + dra.ToString, StartupPath + "\Data\Backups\" + "BU" + My.Settings.BackupNumber.ToString + "_" + dra.ToString)
My.Settings.BackupNumber += 1
Else
My.Computer.FileSystem.DeleteFile(di.ToString + "\" + dra.ToString)
End If
ProgressBar1.Value = .Count
ProgressBar1.Maximum = .Count + 1
Next
End If
Label22.Text = ListBox1.Items.Count.ToString + " Files"
YesorNo = False
My.Settings.LastClean = TimeOfDay + " " + TimeOfDay.Date
Panel18.Visible = False
ProgressBar1.Value = 0
If CHK7C = True Then
msgform.Label1.Text = "Backup"
msgform.Label2.Text = "SuccessFully Backup Go To " + Application.StartupPath.ToString + "\Data\Backups To Show The Backup Files"
msgform.ShowDialog()
End If
Label10.Text = "Start/Scan"
Panel18.Visible = False
End With
End If
ElseIf Label10.Text = "Start/Scan" Then
With ListBox1.Items
Label6.Text = "Scanning"
ListBox1.Items.Clear()
If CHK1C = True Then
Label10.Text = "Stop"
Dim di As New IO.DirectoryInfo(My.Computer.FileSystem.SpecialDir ectories.MyDocuments + "\Cross Fire\Replay")
Dim diar1 As IO.FileInfo() = di.GetFiles("*.cfr")
Dim dra As IO.FileInfo
'list the names of all files in the specified directory
For Each dra In diar1
ListBox1.Items.Add(dra)
ProgressBar1.Value = .Count
ProgressBar1.Maximum = .Count + 1
Next
End If
If CHK2C = True Then
Dim di2 As New IO.DirectoryInfo(My.Computer.FileSystem.SpecialDir ectories.MyDocuments + "\Cross Fire\")
Dim diar12 As IO.FileInfo() = di2.GetFiles("*.bmp")
Dim dra2 As IO.FileInfo
'list the names of all files in the specified directory
For Each dra2 In diar12
ListBox1.Items.Add(dra2)
ProgressBar1.Value = .Count
ProgressBar1.Maximum = .Count + 1
Next
End If
If CHK3C = True Then
Dim di As New IO.DirectoryInfo(TextBox1.Text + "backup")
Dim diar1 As IO.FileInfo() = di.GetFiles("*.*", IO.SearchOption.AllDirectories)
Dim dra As IO.FileInfo
'list the names of all files in the specified directory
For Each dra In diar1
ListBox1.Items.Add(dra)
ProgressBar1.Value = .Count
ProgressBar1.Maximum = .Count + 1
Next
End If
If CHK4C = True Then
Dim di As New IO.DirectoryInfo(TextBox1.Text + "log")
Dim diar1 As IO.FileInfo() = di.GetFiles("*.*", IO.SearchOption.AllDirectories)
Dim dra As IO.FileInfo
'list the names of all files in the specified directory
For Each dra In diar1
ListBox1.Items.Add(dra)
ProgressBar1.Value = .Count
ProgressBar1.Maximum = .Count + 1
Next
End If
If CHK5C = True Then
' unfinished
Dim di As New IO.DirectoryInfo(TextBox1.Text + "Xtrap")
Dim diar1 As IO.FileInfo() = di.GetFiles("*.log", IO.SearchOption.AllDirectories)
Dim dra As IO.FileInfo
'list the names of all files in the specified directory
For Each dra In diar1
ListBox1.Items.Add(dra)
ProgressBar1.Value = .Count
ProgressBar1.Maximum = .Count + 1
Next
End If
If CHK6C = True Then
Dim di As New IO.DirectoryInfo(TextBox1.Text)
Dim diar1 As IO.FileInfo() = di.GetFiles("*.log", IO.SearchOption.AllDirectories)
Dim dra As IO.FileInfo
'list the names of all files in the specified directory
For Each dra In diar1
ListBox1.Items.Add(dra)
ProgressBar1.Value = .Count
ProgressBar1.Maximum = .Count + 1
Next
End If
Label6.Text = "Finished Scan"
Label10.Text = "Clean Now"
Panel18.Visible = True
ProgressBar1.Value = 0
Label22.Text = ListBox1.Items.Count
End With
Else
Exit Sub
End If
End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
TextBox1.Text = My.Computer.Registry.GetValue("HKEY_LOCAL_MACHINE\ SOFTWARE\MYGAME\CrossFire", "installpath", "")

End Sub

Private Sub Label24_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label24.Click, Panel16.Click
If FolderBrowserDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
If My.Computer.FileSystem.FileExists(FolderBrowserDia log1.SelectedPath.ToString + "\crossfire.exe") Then
TextBox1.Text = FolderBrowserDialog1.SelectedPath.ToString + "\"
Else
Dim msgform As New MsgForm
msgform.Label1.Text = "WRONG CROSSFIRE FOLDER"
msgform.Label2.Text = "Please Recheck Your CrossFire Folder Or Reselect Your CrossFire Folder"
msgform.ShowDialog()
End If
End If
End Sub

Private Sub ExitToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
My.Settings.Save()
End
End Sub
Dim Filepath As String
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Label2.Text = TimeOfDay
End Sub

Private Sub Label25_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label25.Click, Panel18.Click
With ListBox1.Items
Label6.Text = "Scanning"
ListBox1.Items.Clear()
If CHK1C = True Then
Dim di As New IO.DirectoryInfo(My.Computer.FileSystem.SpecialDir ectories.MyDocuments + "\Cross Fire\Replay")
Dim diar1 As IO.FileInfo() = di.GetFiles("*.cfr")
Dim dra As IO.FileInfo
'list the names of all files in the specified directory
For Each dra In diar1
ListBox1.Items.Add(dra)
ProgressBar1.Value = .Count
ProgressBar1.Maximum = .Count + 1
Next

End If
If CHK2C = True Then
Dim di2 As New IO.DirectoryInfo(My.Computer.FileSystem.SpecialDir ectories.MyDocuments + "\Cross Fire\")
Dim diar12 As IO.FileInfo() = di2.GetFiles("*.bmp")
Dim dra2 As IO.FileInfo
'list the names of all files in the specified directory
For Each dra2 In diar12
ListBox1.Items.Add(dra2)
ProgressBar1.Value = .Count
ProgressBar1.Maximum = .Count + 1
Next
End If
If CHK3C = True Then
Dim di As New IO.DirectoryInfo(TextBox1.Text + "backup")
Dim diar1 As IO.FileInfo() = di.GetFiles("*.*", IO.SearchOption.AllDirectories)
Dim dra As IO.FileInfo
'list the names of all files in the specified directory
For Each dra In diar1
ListBox1.Items.Add(dra)
ProgressBar1.Value = .Count
ProgressBar1.Maximum = .Count + 1
Next
End If
If CHK4C = True Then
Dim di As New IO.DirectoryInfo(TextBox1.Text + "log")
Dim diar1 As IO.FileInfo() = di.GetFiles("*.*", IO.SearchOption.AllDirectories)
Dim dra As IO.FileInfo
'list the names of all files in the specified directory
For Each dra In diar1
ListBox1.Items.Add(dra)
ProgressBar1.Value = .Count
ProgressBar1.Maximum = .Count + 1
Next
End If
If CHK5C = True Then
' unfinished
Dim di As New IO.DirectoryInfo(TextBox1.Text + "Xtrap")
Dim diar1 As IO.FileInfo() = di.GetFiles("*.log", IO.SearchOption.AllDirectories)
Dim dra As IO.FileInfo
'list the names of all files in the specified directory
For Each dra In diar1
ListBox1.Items.Add(dra)
ProgressBar1.Value = .Count
ProgressBar1.Maximum = .Count + 1
Next
End If
If CHK6C = True Then
Dim di As New IO.DirectoryInfo(TextBox1.Text)
Dim diar1 As IO.FileInfo() = di.GetFiles("*.bak", IO.SearchOption.AllDirectories)
Dim dra As IO.FileInfo
'list the names of all files in the specified directory
For Each dra In diar1
ListBox1.Items.Add(dra)
ProgressBar1.Value = .Count
ProgressBar1.Maximum = .Count + 1
Next
End If
Label6.Text = "Finished Scan"
Label10.Text = "Clean Now"
Panel18.Visible = True
ProgressBar1.Value = 0
Label22.Text = ListBox1.Items.Count
End With
End Sub
Private Sub RestoreWindowToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RestoreWindowToolStripMenuItem.Click
Me.WindowState = FormWindowState.Normal
NotifyIcon1.Visible = False
Me.ShowInTaskbar = True
End Sub
Private Sub Form1_FormClosing(ByVal sender As System.Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles MyBase.FormClosing
My.Settings.Save()
End Sub

Private Sub Label10_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Label10.MouseDown, Panel15.MouseDown
Panel15.BackgroundImage = My.Resources.Cf_Button_dOWN
End Sub

Private Sub Label10_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles Label10.MouseLeave, Panel15.MouseLeave
Panel15.BackgroundImage = My.Resources.Cf_Button
End Sub

Private Sub Label10_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Label10.MouseUp, Panel15.MouseUp
Panel15.BackgroundImage = My.Resources.Cf_Button
End Sub

Private Sub Label25_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Label25.MouseDown, Panel18.MouseDown
Panel18.BackgroundImage = My.Resources.Cf_Button_dOWN
End Sub

Private Sub Label25_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles Label25.MouseLeave, Panel18.MouseLeave
Panel18.BackgroundImage = My.Resources.Cf_Button
End Sub

Private Sub Label25_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Label25.MouseUp, Panel18.MouseUp
Panel18.BackgroundImage = My.Resources.Cf_Button
End Sub

Private Sub Label24_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Label24.MouseDown, Panel16.MouseDown
Panel16.BackgroundImage = My.Resources.Cf_Button_dOWN
End Sub

Private Sub Label24_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles Label24.MouseLeave, Panel16.MouseLeave
Panel16.BackgroundImage = My.Resources.Cf_Button
End Sub

Private Sub Label24_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Label24.MouseUp, Panel16.MouseUp
Panel16.BackgroundImage = My.Resources.Cf_Button
End Sub
Private Sub ToTaskbarToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToTaskbarToolStripMenuItem.Click
Me.WindowState = FormWindowState.Minimized
Me.ShowInTaskbar = True
NotifyIcon1.Visible = False
End Sub
Private Sub ToNotifyIconToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToNotifyIconToolStripMenuItem.Click
Me.WindowState = FormWindowState.Minimized
Me.ShowInTaskbar = False
NotifyIcon1.BalloonTipIcon = ToolTipIcon.Info
NotifyIcon1.BalloonTipTitle = "Access CrossFire Cleaner"
NotifyIcon1.BalloonTipText = "Easy To Access The CrossFire Cleaner With One Click On The CrossFire Cleaner Icon"
NotifyIcon1.ShowBalloonTip(5)
NotifyIcon1.Visible = True
End Sub
Private Sub ExitToolStripMenuItem_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExitToolStripMenuItem.Click
End
End Sub
Private Sub BackupToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BackupToolStripMenuItem.Click
Process.Start("explorer", Application.StartupPath + "\Data\Backups")
End Sub

Private Sub AboutInformationToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AboutInformationToolStripMenuItem.Click
Dim About As New About
About.ShowDialog()
End Sub

Private Sub TaskmanagerToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TaskmanagerToolStripMenuItem.Click
TaskManager.Show()
End Sub

Private Sub MP3AndWavPlayerToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MP3AndWavPlayerToolStripMenuItem.Click
CFPlayer.Show()
End Sub

Private Sub MouseManagerToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MouseManagerToolStripMenuItem1.Click
Dim autoclicker As New AutoClicker
autoclicker.ShowDialog()
End Sub

Private Sub SpammerToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SpammerToolStripMenuItem1.Click
Dim spammer As New Spammer
spammer.ShowDialog()
End Sub

Private Sub PasswordGeneratorToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PasswordGeneratorToolStripMenuItem1.Click
PasswordGenerator.Show()
End Sub

Private Sub MovableCrossHairToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MovableCrossHairToolStripMenuItem.Click
CrossHair_point.Show()
End Sub

Private Sub CrossFireBrowserToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CrossFireBrowserToolStripMenuItem.Click
CrossFire_Browser.Show()
End Sub
Private Sub CrossFireLauncherToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CrossFireLauncherToolStripMenuItem.Click
If My.Computer.FileSystem.FileExists(TextBox1.Text + "\MPGH CROSSFIRE LAUNCHER.EXE") Then
Process.Start(TextBox1.Text + "\mpgh crossfire launcher.exe")
Else
My.Computer.FileSystem.CopyFile(Application.Startu pPath + "\mpgh crossfire launcher.exe", TextBox1.Text + "\")
End If
End Sub
Private Sub WindowsCalculatorToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles WindowsCalculatorToolStripMenuItem.Click
Process.Start("calc.exe")
End Sub

Private Sub WritePadToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles WritePadToolStripMenuItem.Click
Notepad.Show()
End Sub
End Class

What about this form? CrossFireBrowser, if it is an internet browser so its connecting to net :|

THAT IS NOT......... THE CROSSFIRE CLEANER MAIN ONLY...BECAUSE BEFORE THE CROSSFIRE CLEANER VERSION 1 WITH NO EXTRAS
I POSTED IT HERE... AND THREAD DELETED...........

NOW THE VERSION 2 WITH EXTRAS THREAD DELETED @Hero @Scata @Jigsaw @Royku PLEASE HELP ME WHAT SOURCE CODE
I CAN DELETE TO APPROVE THIS APPLICATION

It's your source code. If you don't know how to get rid of it, then it's your problem. You should know how to remove it since you made it. If you don't know how to, then this application of yours is leeched.

Help in my CrossFire Cleaner Source Code it always connecting to internet please

Post a Reply

Similar Threads

Tags for this Thread

Help in my CrossFire Cleaner Source Code it always connecting to internet please

Post a Reply

Similar Threads

Tags for this Thread