Description
I am shashank Soni i am making a project in BCA, BBA, MCA, MBA DCA PGDCA, ETC if you have any requirement inb Project FRee to call me +919691631901
+919806651958
[email protected]
A PROJECT REPORT ON WINDOWS XP FIREWALL Submitted for the partial fulfillment of the requirement for the degree of BACHELOR OF COMPUTER APPLICATION VIth Semester Subpervised by Manish khare(director) Mr.Pankaj komalwar(director) Under the guidance of Mr.Narendra Vishwakarma Submitted by: Priyanka Malik BCA –VI th SEM Makhanlal Chaturvedi Rashtriya Patrakarita Evam
Sanchar Vishwavidyalaya
2010-2011
K.K.EDUCATION INSTITUTE, JABALPUR
Affiliated to MAKHANLAL CHUTURVEDI RASHTRIYA PATRAKARITA EVAM SANCHAR VISHWAVIDYAYA Certificate This is to certify that this project reports entitled
WINDOWS XP FIREWALL Which is being submitted by the Students as partial fulfillment for the Degree of BCA-VI SEM of Makhanlal Chaturvedi Rashtriya Patrakarita Evam Sanchar Vishwavidylaya for the academic year 2010 - 2011, ensure the bonafide work of the candidate and was carried out under supervisio in this center of “K.K.Education Institute,Jabalpur”. This report is upto standard both in respect of its contents and its literary Presentation for being referred to the examiner. Submitted by: Priyanka Malik Vishwakarma) BCA-VI TH SEM Trainer (Mr.Narendra Project
K.EDUCATION INSTITUTE, JABALPUR
Affiliated to MAKHANLAL CHUTURVEDI RASHTRIYA PATRAKARITA EVAM SANCHAR VISHWAVIDYAYA Certificate this to certify that this project reports entitled “WINDOWS XP FIREWALL” Which is being submitted by the Students as partial fulfillment for the Degree of BCA-VI SEM of Makhanlal Chaturvedi Rashtriya Patrakarita Evam Sanchar Vishwavidylaya for the academic year 2010 – 2011 ,ensure the bonafide work of the candidate and was carried out under supervision in this center of “K.K. Education Institute, Jabalpur”. This report is upto standard both in respect of its contents and its literary Presentation for being referred to the examiner. Submitted by: Priyanka Malik Mr.Manish Khare BCA-VI TH SEM Mr.Pankaj Komalwar (Director) (Director)
K.K.EDUCATION INSTITUTE, JABALPUR
Affalated by MAKHANLAL CHUTURVEDI RASHTRIYA PATRAKARITA EVAM SANCHAR VISHWAVIDYAYA Certificate This is to certify that this project reports entitled “WINDOWS XP FIREWALL” Which is being submitted by the Students as partial fulfillment for the Degree Degree of BCA-VI SEM of Makhanlal Chaturvedi Rashtriya Patrakarita Evam Sanchar Vishwavidylaya for the academic year 2010 - 2011, ensure the bonafide work of the candidate and was carried out under supervision in this center of “K.K.Education Institute, Jabalpur”. This report is upto standard both in respect of its contents and its literary Presentation for being referred to the examiner . Submitted by: Priyanka Malik BCA-VI TH SEM Internal Examiner External Examiner
K.K.EDUCATION INSTITUTE, JABALPUR
Affiliated to MAKHANLAL CHUTURVEDI RASHTRIYA PATRAKARITA EVAM SANCHAR VISHWAVIDYAYA
Self certificate
I am the student of K. K. Education Institute declared the this project has been designed by me under the guidance of Mr.Narendra Vishwakarma.It our original work. It has been created as major project work for the degree of BCA-VI Sem. Submitted by: Priyanka Malik BCA-VI TH SEM
Declaration
I am the student of K.K. Education Institute declared that this project has been designed by under the guidance of Narendra Vishawakrma. It is our original work. it has been Created as major project work for the diploma of BCA VI SEM.
DATE PLACE - Jabalpur
Submitted by:
Priyanka Malik
Acknowledgement
I am express my sincere qratitude to MR. PANKAJ KOMALWER & MR.MANISH KHARE ( director)for providing me all the support for this project.
I thank to MR. NARENDRA VISHWAKARMA and all the faculties and non techninq staff of this institute for their supports. I am very thankful Mr.Narendra Vishwakarma.
Last but not the least I extend my qratefulness to my parents who help me throughout my studies in many ways.
Submitted by:
Priyanka Malik
INDEX
? Introducation ? Certificate ? Acknowledgment ? Index ? Project Work Evalulation ? About Project ? Hardware & Software Requrinment ? About Visual Basic.Net ? Flow Chart ? Data flow Diagram ? Splash form ? Login form ? Class Diagram ? Biliography
FIREWALL
It mean’s a Link between two letter ‘s .Their are number of office s facing this problem it mean know they are using physical Letter System it mean paper system in are paper Genrating problem’s. If a asign a number two like a two an I just send this letter office be asign one number when office will sendme the Answer of my letter so office to assign number b2 for a reference number. When the transaction will exist the operator how this System. He will be Faced the problem’s of be Letter Links.
So for solving this problem generate.This generateSoftware and though then software. We try to manage to letter Link problem.
Hardware Software Reqirement
Hardware:
Processors Hard disk Free Space Ram Memory Key Borad Mouse 1GB 126 key 2 Button (Standard) Pentium - 4 160MB 2 GB
Software:
Operating System Programming Language
Windows XP. Visual Basic 2005 Express Edition
About VB.Net
Visual Basic (VB) is a programming language based on the original DOS language called BASIC (Beginners' All-purpose Symbolic Instruction Code). VB.NET 2005, an offshoot of Visual Basic, is an object-oriented programming language based on VB that is implemented using the Microsoft .NET framework. The basic syntax of the Visual Basic language remains unchanged in VB.NET 2005, but includes additional features such as structured exception handling and short circuited expressions to enhance the infrastructure of the programming language. Developers have found VB.NET to be controversial as some of the software and developmental changes clash with the original language within VB and have caused compatibility issues. Visual Studio .NET is the predominant integrated development environment (IDE) that VB.NET developers employ. Visual Basic programmers supporting VB.NET indicate that language constructs and user interface features in the newer system have caused programming issues within the original VB system. Developers using VB.NET recognize that the upgraded VB system incorporates contemporary object oriented programming paradigms in a more stable environment than was originally thought possible.
Visual Basic .NET is a programming language that can be used to create winforms or webapp applications and create programming based in any object-oriented programming language (OOP), ADO.NET, Multithreading or Windows Services. VB.NET programming utilizes concepts connected to string encryption, forms inheritance, regular expressions and deployment.
Excel Reporting, dashboards from Excel charts and ranges, Windows Forms spreadsheet controls, Excel compatible charting, the fastest and most complete Excel compatible calculations
VB.NET 2005 Free Training VB.NET 2005 Free Training We are exited to let you know that we will be starting Visual Basic .NET 2005 Training. Please find the topics below which we will be covering during the course. This training is based on the latest Visual Basic .NET 2005 version. Visual Basic .NET 2005 Training 1. .NET Framework architecture The .NET.
The .NET Framework Architecture Part 2 VB.NET 2005 Free Training The .NET Framework Architecture Part 2. In this tutorial of The .NET Framework Architecture Part 2 we will learn about Just-In-Time JIT compilation Assemblies native
assemblies Global Assembly Cache GAC and Comparison of VB.NET C and J . Just-In-Time JIT compilation As stated above the Just in time compiler
Application Class and Message Class
Using Application Class Visual Basic 2005 introduces a speedy way to access many important classes relating to the Computer on which the application is running the user running it the application itself its forms and any associated web services. The best part of it all is that you can access it all using the new My object. Implementing Class Library Object Implementing Class Library Object in VB.NET 2005 Class Classical Object Oriented Concepts explain a class as a cookie cutter. A class allows you to create objects of the class. As a programmer you define a class with data fields properties methods and events. Then you can create objects based on that class that have state fields properties and Visual Studio.NET Namespaces Visual Studio.NET Namespaces The .NET Framework class library has thousands of classes which are needed for developing and deploying solutions. In order to organize all those classes for ease of use .NET Framework uses namespaces. This Gives the Classes their own space
and prevents conflicts between the various names in these classes. For instance
VB.net assemblies Creating and Managing .NET Assemblies Single-file and multi-file assemblies Combining modules written in different languages Creating a multi-file assembly End Namespace Static and dynamic assemblies Private and shared assemblies Sharing an assembly Satellite and Resource-only assemblies Compiling Satellite Assemblies Compiling Satellite.
Differences between VB.NET 1.0 and VB.NET 2.0 VB.NET 2005 Free Training Differences between VB.NET 1.0 and VB.NET 2.0 VB.NET 2005 comes with a number of enhancements. The IntelliSense Code snippets the Windows Forms designer updates IntelliSense filtering debugger data tips exception Assistant etc make
the software a pleasure to work with. The language has been spruced up with generics unsigned
Exploring the Forms Designer generated code VB.NET 2005 Free Training Exploring the Forms Designer generated code As you create a new project in the Visual Basic the IDE generally automatically adds lots of lines of code on its own. Visual Basic 2005 comes with an option to skip over this behavior of the Visual Basic IDE. The default option comes with this behavior enabled.
About Windows XP Firewall
A firewall is a set of related programs, located at a network gateway server, that protects the resources of a private network from users from other networks. (The term also implies the security policy that is used with the programs.) An enterprise with an intranet that allows its workers access to the wider Internet installs a firewall to prevent outsiders from accessing its own private data resources and for controlling what outside resources its own users have access Learn More Network Firewalls, Routers and Switches Network Security Monitoring and Analysis Network Security Best Practices and Products Basically, a firewall, working closely with a router program, examines each network packet to determine whether to forward it toward its destination. A firewall also includes or works with a proxy server that makes network requests on behalf of workstation users. A firewall is often installed in a specially designated computer separate from the rest of the network so that no incoming request can get directly at private network resources.
There are a number of firewall screening methods. A simple one is to screen requests to make sure they come from acceptable (previously identified) domain name and Internet Protocol addresses. For mobile users, firewalls allow remote access in to the private network by the use of secure logon procedures and authentication certificates.
A number of companies make firewall products. Features include logging and reporting, automatic alarms at given thresholds of attack, and a graphical user interface for controlling the firewall.
Computer security borrows this term from firefighting, where it originated. In firefighting, a firewall is a barrier established to prevent the spread of fire. Related glossary terms: virus, Firewall Builder (Fwbuilder), screened subnet (triple-homed Windows xp Firewall Windows Firewall A component of Microsoft Windows
Windows Firewall in Windows 7 Details Other names Type Included with Internet Connection Firewall Firewall software Windows Windows Windows Windows Windows Windows R2 XP Server 2003 Vista Server 2008 7 Server 2008
Service name Description
SharedAccess
Security Center
Related components Windows Security Center Windows Firewall is a software component of Microsoft Windows that provides firewalling and packet filtering functions. It was first included in Windows XP and Windows Server 2003. Prior to the release of Windows XP Service Pack 2 in 2004, it was known as Internet Connection Firewall.
Overview
When Windows XP was originally shipped in October 2001, it included a limited firewall called "Internet Connection Firewall". It was disabled by default due to concerns with backward compatibility, and the configuration screens were buried away in network configuration screens that many users never looked at. As a result, it was rarely used. In mid-2003, the Blaster worm attacked a large number of Windows machines, taking advantage of flaws in the RPC Windows service.[1] Several months later, the Sasser worm did something similar. The ongoing prevalence of these worms through 2004 resulted in unpatched machines being infected within a matter of minutes. [1] Because of these incidents, as well as other criticisms that Microsoft was not being active in protecting customers from threats, Microsoft decided to significantly improve both the functionality and the interface of Windows XP's built-in firewall, and rebrand it as Windows Firewall. Security log capabilities are included, which can record IP addresses and other data relating to connections originating from the home or office network or the Internet. It can record both dropped packets and successful connections. This can be used, for instance, to track every time a computer on the network connects to a website. This security log is not enabled by default; the administrator must enable it.[2] Versions Windows XP Windows Firewall settings in Windows XP Service Pack 2 Windows Firewall was first introduced as part of Windows XP Service Pack 2. Every type of network connection, whether it is wired, wireless, VPN, or even FireWire, has the firewall enabled by default, with some built-in exceptions to allow connections from machines on the local network. It also fixed a problem whereby the firewall policies would not be enabled on a network connection until several seconds after the connection itself was created, thereby creating a window of vulnerability.[3] A number of additions were made to Group Policy, so that Windows system administrators could configure the Windows Firewall product on a company-wide level. XP's Windows Firewall cannot block outbound connections; it is only capable of blocking inbound ones. Windows Firewall turned out to be one of the two most significant reasons (the other being DCOM activation security)[4] that many corporations did not upgrade to Service Pack 2 in a timely fashion. Around the time of SP2's release, a number of Internet sites were reporting significant application compatibility issues, though the majority of those ended up being nothing more than ports that needed to be opened on the firewall so that components of distributed systems (typically backup and antivirus solutions) could communicate.
Note that the DCOM problem can be solved by moving applications to DComLab's ComBridge protocol.
CONTROLS Form – In the Visual Basic NET design time environment, the first thing to concentrate on is that strange, big square in the top left. That's called a form. It's actually the pretty bit of your programme, the part that others will see when they launch your masterpiece. Granted, it doesn't look too attractive at the moment, but you'll soon discover ways to lick it into shape.
Label –Label Labels are those controls that are used to display text in other parts of the application. They are based on the Control class. Notable property of the label control is the text property which is used to set the text for the label.
TextBox – Windows users should be familiar with textboxes. This control looks like a box and accepts input from the user. The TextBox is based on the TextBoxBase class which is based on the Control class. TextBoxes are used to accept input from the user or used to display text. By default we can enter up to 2048 characters in a TextBox but if the Multiline property is set to True we can enter up to 32KB of text. The image below displays a Textbox.
ComboBox ComboBox is a combination of a TextBox and a ListBox. The ComboBox displays an editing field (TextBox) combined with a ListBox allowing us to select from the list or to enter new text. ComboBox displays data in a drop-down style format. The ComboBox class is derived from the ListBox class. Below is the Image of a ComboBox.
Gridview – You need to use the DataGridView control in the VB.NET language targeting Windows Forms to display and provide an interface to your data. The DataGridView control is an excellent way to display and allow editing for your data, which can then be persisted in the database again. Here we look at some important parts of using the DataGridView control.
Button – One of the most popular control in Visual Basic is the Button Control (previously Command Control). They are the controls which we click and release to perform some action. Buttons are used mostly for handling events in code, say, for sending data entered in the form to the database and so on. The default event of the Button is the Click event and the Button class is based on the ButtonBase class which is based on the Control class.
Menu Script –
Context menus are menus that appear when an item is right-clicked. In any windows application when you right-click your mouse you get a menu which might display some shortcuts from the Edit Menu, for example, cut, copy, paste, paste special and so on. All these menu items which are available when you right-click are called Context Menus. In Visual Basic we create context menus with the ContextMenu component. The ContextMenu component is edited exactly the same way the MainMenu component is edited. The ContextMenu appears at the top of the form and you can add menu items by typing them. To associate a ContextMenu with a particular form or control we need to set the ContextMenu property of that form or control to the appropriate menu.
FlowChart
Flow Chart
Start Splash
Login
Master
About Project
About Maker
WINDOWS XP FIREWALL
Data flow diagram
Level 0
Mailers
DataBase
Bibliography
• www.wikipedia.com
•
www.thecodeproject.com
Splash Form
Login Form
Main Form
Splash form
Public NotInheritable Class SplashScreen2 'TODO: This form can easily be set as the splash screen for the application by going to the "Application" tab ' of the Project Designer ("Properties" under the "Project" menu). Private Sub SplashScreen2_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load If My.Application.Info.Title <> "" Then ApplicationTitle.Text = My.Application.Info.Title Else 'If the application title is missing, use the application name, without the extension ApplicationTitle.Text = System.IO.Path.GetFileNameWithoutExtension(My.Application.I nfo.AssemblyName) End If Version.Text = System.String.Format(Version.Text, My.Application.Info.Version.Major, My.Application.Info.Version.Minor) 'Copyright info Copyright.Text = My.Application.Info.Copyright End Sub Dim i As Integer
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick Dim log As New LoginForm1 i = i + 1 If i = 10 Then log.Show() Me.Hide() End If End Sub End Class
Login form
Public Class LoginForm1 ' TODO: Insert code to perform custom authentication using the provided username and password ' (See http://go.microsoft.com/fwlink/?LinkId=35339). ' The custom principal can then be attached to the current thread's principal as follows: ' My.User.CurrentPrincipal = CustomPrincipal ' where CustomPrincipal is the IPrincipal implementation used to perform authentication. ' Subsequently, My.User will return identity information encapsulated in the CustomPrincipal object ' such as the username, display name, etc. Private Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK.Click If UsernameTextBox.Text = "Jaanu" And PasswordTextBox.Text = "priya" Then Dim a As New FrmMaster a.Show() Me.Hide() Else MessageBox.Show("invalid user") End If End Sub Private Sub Cancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cancel.Click Me.Close() End Sub Private Sub LoginForm1_FormClosed(ByVal sender As System.Object, ByVal e As
System.Windows.Forms.FormClosedEventArgs) Handles MyBase.FormClosed Application.Exit() End Sub End Class
FrmMaster
Public Class FrmMaster
Private Sub FrmMaster_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load End Sub Private Sub CloseToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Application.Exit() End Sub Private Sub HowDoIToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HowDoIToolStripMenuItem.Click Dim obj As New frmAboutProject obj.ShowDialog() End Sub Private Sub SearchToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SearchToolStripMenuItem.Click Dim obj As New frmAboutMaker obj.ShowDialog() End Sub Private Sub CodeToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CodeToolStripMenuItem.Click Dim obj As New FormDisplayReportSender()
obj.ShowDialog() End Sub Private Sub DesignerToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DesignerToolStripMenuItem.Click Dim obj As New FormDisplayReport() obj.ShowDialog() End Sub Private Sub OpenToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OpenToolStripMenuItem1.Click Dim obj As New FormDisplayReportReceiver() obj.ShowDialog() End Sub
Private Sub FromofficeToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FromofficeToolStripMenuItem.Click Dim obj As New FormOffice() obj.ShowDialog() End Sub Private Sub FormdesignationToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FormdesignationToolStripMenuItem.Click Dim obj As New FormDesignation() obj.ShowDialog() End Sub Private Sub FormuserToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FormuserToolStripMenuItem.Click Dim obj As New User() obj.ShowDialog()
End Sub Private Sub FToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FToolStripMenuItem.Click End Sub End Class
Main form Imports Imports Imports Imports vbAccelerator.Components.Controls System.IO System.Threading System.Reflection
Public Class frmMain Inherits System.Windows.Forms.Form #Region " Vom Windows Form Designer generierter Code " Public Sub New() MyBase.New() ' Dieser Aufruf ist für den Windows Form-Designer erforderlich. bolOnReading = True Application.EnableVisualStyles() InitializeComponent() ' Initialisierungen nach dem Aufruf InitializeComponent() hinzufügen End Sub ' Die Form überschreibt den Löschvorgang der Basisklasse, um Komponenten zu bereinigen. Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean) If disposing Then If Not (components Is Nothing) Then components.Dispose() End If End If MyBase.Dispose(disposing) End Sub ' Für Windows Form-Designer erforderlich
Private components As System.ComponentModel.IContainer 'HINWEIS: Die folgende Prozedur ist für den Windows FormDesigner erforderlich 'Sie kann mit dem Windows Form-Designer modifiziert werden. 'Verwenden Sie nicht den Code-Editor zur Bearbeitung. Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox Friend WithEvents Splitter1 As System.Windows.Forms.Splitter Friend WithEvents panelMain As System.Windows.Forms.Panel Friend WithEvents grpProgrammAusnahmen As System.Windows.Forms.GroupBox Friend WithEvents lsvProgramme As System.Windows.Forms.ListView Friend WithEvents cmdHinzufuegen As System.Windows.Forms.Button Friend WithEvents grpPorts As System.Windows.Forms.GroupBox Friend WithEvents cmdAddPorts As System.Windows.Forms.Button Friend WithEvents imgNavbar As System.Windows.Forms.ImageList Friend WithEvents barNavigation As vbAccelerator.Components.Controls.acclExplorerBar Friend WithEvents lblCaption As System.Windows.Forms.Label Friend WithEvents imgProgrammIcon As System.Windows.Forms.ImageList Friend WithEvents statMain As System.Windows.Forms.StatusBar Friend WithEvents progMain As System.Windows.Forms.ProgressBar Friend WithEvents lblDescription As System.Windows.Forms.Label Friend WithEvents cmdProgrammEntfernen As System.Windows.Forms.Button Friend WithEvents panelPorts As System.Windows.Forms.Panel
Friend WithEvents Label1 As System.Windows.Forms.Label Friend WithEvents grpOpenPorts As System.Windows.Forms.GroupBox Friend WithEvents lsvFreiePorts As System.Windows.Forms.ListView Friend WithEvents Label2 As System.Windows.Forms.Label Friend WithEvents lsvPorts As System.Windows.Forms.ListView Friend WithEvents panelAllgemein As System.Windows.Forms.Panel Friend WithEvents grpFirewallStatus As System.Windows.Forms.GroupBox Friend WithEvents cmdDeaktivieren As System.Windows.Forms.Button Friend WithEvents cmdAktivieren As System.Windows.Forms.Button Friend WithEvents lblStatus As System.Windows.Forms.Label Friend WithEvents imgStatus As System.Windows.Forms.PictureBox Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox Friend WithEvents chkICMP As System.Windows.Forms.CheckBox Friend WithEvents panelLog As System.Windows.Forms.Panel Friend WithEvents MenuStrip1 As System.Windows.Forms.MenuStrip Friend WithEvents FileToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem Friend WithEvents AboutProjectToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem Friend WithEvents AboutMakersToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem Friend WithEvents gridLog As System.Windows.Forms.DataGrid <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent() Me.components = New System.ComponentModel.Container Dim resources As System.ComponentModel.ComponentResourceManager = New
System.ComponentModel.ComponentResourceManager(GetType(frmM ain)) Me.barNavigation = New vbAccelerator.Components.Controls.acclExplorerBar Me.Splitter1 = New System.Windows.Forms.Splitter Me.panelMain = New System.Windows.Forms.Panel Me.panelLog = New System.Windows.Forms.Panel Me.gridLog = New System.Windows.Forms.DataGrid Me.grpOpenPorts = New System.Windows.Forms.GroupBox Me.Label2 = New System.Windows.Forms.Label Me.lsvFreiePorts = New System.Windows.Forms.ListView Me.grpProgrammAusnahmen = New System.Windows.Forms.GroupBox Me.cmdProgrammEntfernen = New System.Windows.Forms.Button Me.cmdHinzufuegen = New System.Windows.Forms.Button Me.lsvProgramme = New System.Windows.Forms.ListView Me.grpPorts = New System.Windows.Forms.GroupBox Me.panelPorts = New System.Windows.Forms.Panel Me.lsvPorts = New System.Windows.Forms.ListView Me.Label1 = New System.Windows.Forms.Label Me.cmdAddPorts = New System.Windows.Forms.Button Me.panelAllgemein = New System.Windows.Forms.Panel Me.GroupBox1 = New System.Windows.Forms.GroupBox Me.chkICMP = New System.Windows.Forms.CheckBox Me.grpFirewallStatus = New System.Windows.Forms.GroupBox Me.cmdDeaktivieren = New System.Windows.Forms.Button Me.cmdAktivieren = New System.Windows.Forms.Button Me.lblStatus = New System.Windows.Forms.Label Me.lblDescription = New System.Windows.Forms.Label Me.progMain = New System.Windows.Forms.ProgressBar Me.statMain = New System.Windows.Forms.StatusBar Me.imgNavbar = New System.Windows.Forms.ImageList(Me.components) Me.lblCaption = New System.Windows.Forms.Label Me.imgProgrammIcon = New System.Windows.Forms.ImageList(Me.components)
Me.MenuStrip1 = New System.Windows.Forms.MenuStrip Me.FileToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem Me.imgStatus = New System.Windows.Forms.PictureBox Me.PictureBox1 = New System.Windows.Forms.PictureBox Me.AboutProjectToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem Me.AboutMakersToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem Me.panelMain.SuspendLayout() Me.panelLog.SuspendLayout() CType(Me.gridLog, System.ComponentModel.ISupportInitialize).BeginInit() Me.grpOpenPorts.SuspendLayout() Me.grpProgrammAusnahmen.SuspendLayout() Me.grpPorts.SuspendLayout() Me.panelPorts.SuspendLayout() Me.panelAllgemein.SuspendLayout() Me.GroupBox1.SuspendLayout() Me.grpFirewallStatus.SuspendLayout() Me.MenuStrip1.SuspendLayout() CType(Me.imgStatus, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit() Me.SuspendLayout() ' 'barNavigation ' Me.barNavigation.AnimateStateChanges = True Me.barNavigation.BackColorEnd = System.Drawing.Color.Empty Me.barNavigation.BackColorStart = System.Drawing.Color.Empty Me.barNavigation.Dock = System.Windows.Forms.DockStyle.Left Me.barNavigation.DrawingStyle = vbAccelerator.Components.Controls.ExplorerBarDrawingStyle.S ystem
Me.barNavigation.ImageList = Nothing Me.barNavigation.Location = New System.Drawing.Point(0, 74) Me.barNavigation.Mode = vbAccelerator.Components.Controls.ExplorerBarMode.[Default] Me.barNavigation.Name = "barNavigation" Me.barNavigation.Redraw = True Me.barNavigation.ShowFocusRect = True Me.barNavigation.Size = New System.Drawing.Size(150, 340) Me.barNavigation.TabIndex = 1 Me.barNavigation.TitleImageList = Nothing Me.barNavigation.ToolTip = Nothing ' 'Splitter1 ' Me.Splitter1.Location = New System.Drawing.Point(150, 74) Me.Splitter1.Name = "Splitter1" Me.Splitter1.Size = New System.Drawing.Size(3, 340) Me.Splitter1.TabIndex = 2 Me.Splitter1.TabStop = False ' 'panelMain ' Me.panelMain.Controls.Add(Me.panelLog) Me.panelMain.Controls.Add(Me.grpOpenPorts) Me.panelMain.Controls.Add(Me.grpProgrammAusnahmen) Me.panelMain.Controls.Add(Me.grpPorts) Me.panelMain.Controls.Add(Me.panelAllgemein) Me.panelMain.Controls.Add(Me.lblDescription) Me.panelMain.Controls.Add(Me.progMain) Me.panelMain.Controls.Add(Me.statMain) Me.panelMain.Dock = System.Windows.Forms.DockStyle.Fill Me.panelMain.Location = New System.Drawing.Point(153, 74) Me.panelMain.Name = "panelMain" Me.panelMain.Size = New System.Drawing.Size(503, 340)
Me.panelMain.TabIndex = 3 ' 'panelLog ' Me.panelLog.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ Or System.Windows.Forms.AnchorStyles.Left) _ Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.panelLog.Controls.Add(Me.gridLog) Me.panelLog.Location = New System.Drawing.Point(8, 10) Me.panelLog.Name = "panelLog" Me.panelLog.Size = New System.Drawing.Size(488, 294) Me.panelLog.TabIndex = 8 Me.panelLog.Visible = False ' 'gridLog ' Me.gridLog.AllowNavigation = False Me.gridLog.DataMember = "" Me.gridLog.Dock = System.Windows.Forms.DockStyle.Fill Me.gridLog.HeaderForeColor = System.Drawing.SystemColors.ControlText Me.gridLog.Location = New System.Drawing.Point(0, 0) Me.gridLog.Name = "gridLog" Me.gridLog.ReadOnly = True Me.gridLog.Size = New System.Drawing.Size(488, 294) Me.gridLog.TabIndex = 0 ' 'grpOpenPorts '
Me.grpOpenPorts.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ Or System.Windows.Forms.AnchorStyles.Left) _ Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.grpOpenPorts.Controls.Add(Me.Label2) Me.grpOpenPorts.Controls.Add(Me.lsvFreiePorts) Me.grpOpenPorts.FlatStyle = System.Windows.Forms.FlatStyle.System Me.grpOpenPorts.Location = New System.Drawing.Point(8, 10) Me.grpOpenPorts.Name = "grpOpenPorts" Me.grpOpenPorts.Size = New System.Drawing.Size(488, 294) Me.grpOpenPorts.TabIndex = 6 Me.grpOpenPorts.TabStop = False Me.grpOpenPorts.Visible = False ' 'Label2 ' Me.Label2.BackColor = System.Drawing.SystemColors.ControlDark Me.Label2.Dock = System.Windows.Forms.DockStyle.Top Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label2.ForeColor = System.Drawing.Color.White Me.Label2.Location = New System.Drawing.Point(3, 16) Me.Label2.Name = "Label2" Me.Label2.Size = New System.Drawing.Size(482, 23) Me.Label2.TabIndex = 9 Me.Label2.Text = "Globally open ports" Me.Label2.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' 'lsvFreiePorts
' Me.lsvFreiePorts.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ Or System.Windows.Forms.AnchorStyles.Left) _ Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.lsvFreiePorts.Location = New System.Drawing.Point(15, 46) Me.lsvFreiePorts.Name = "lsvFreiePorts" Me.lsvFreiePorts.Size = New System.Drawing.Size(458, 242) Me.lsvFreiePorts.TabIndex = 8 Me.lsvFreiePorts.UseCompatibleStateImageBehavior = False ' 'grpProgrammAusnahmen ' Me.grpProgrammAusnahmen.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ Or System.Windows.Forms.AnchorStyles.Left) _ Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.grpProgrammAusnahmen.Controls.Add(Me.cmdProgrammEntferne n) Me.grpProgrammAusnahmen.Controls.Add(Me.cmdHinzufuegen) Me.grpProgrammAusnahmen.Controls.Add(Me.lsvProgramme) Me.grpProgrammAusnahmen.FlatStyle = System.Windows.Forms.FlatStyle.System Me.grpProgrammAusnahmen.Location = New System.Drawing.Point(8, 10)
Me.grpProgrammAusnahmen.Name = "grpProgrammAusnahmen" Me.grpProgrammAusnahmen.Size = New System.Drawing.Size(488, 294) Me.grpProgrammAusnahmen.TabIndex = 1 Me.grpProgrammAusnahmen.TabStop = False Me.grpProgrammAusnahmen.Text = "Programms and Services" Me.grpProgrammAusnahmen.Visible = False ' 'cmdProgrammEntfernen ' Me.cmdProgrammEntfernen.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.cmdProgrammEntfernen.FlatStyle = System.Windows.Forms.FlatStyle.System Me.cmdProgrammEntfernen.Location = New System.Drawing.Point(200, 262) Me.cmdProgrammEntfernen.Name = "cmdProgrammEntfernen" Me.cmdProgrammEntfernen.Size = New System.Drawing.Size(136, 23) Me.cmdProgrammEntfernen.TabIndex = 2 Me.cmdProgrammEntfernen.Text = "&Remove Programm" ' 'cmdHinzufuegen ' Me.cmdHinzufuegen.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.cmdHinzufuegen.FlatStyle = System.Windows.Forms.FlatStyle.System Me.cmdHinzufuegen.Location = New System.Drawing.Point(342, 262) Me.cmdHinzufuegen.Name = "cmdHinzufuegen" Me.cmdHinzufuegen.Size = New System.Drawing.Size(136, 23)
Me.cmdHinzufuegen.TabIndex = 1 Me.cmdHinzufuegen.Text = "&Add Programm" ' 'lsvProgramme ' Me.lsvProgramme.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ Or System.Windows.Forms.AnchorStyles.Left) _ Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.lsvProgramme.Location = New System.Drawing.Point(8, 16) Me.lsvProgramme.Name = "lsvProgramme" Me.lsvProgramme.Size = New System.Drawing.Size(472, 240) Me.lsvProgramme.TabIndex = 0 Me.lsvProgramme.UseCompatibleStateImageBehavior = False ' 'grpPorts ' Me.grpPorts.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ Or System.Windows.Forms.AnchorStyles.Left) _ Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.grpPorts.Controls.Add(Me.panelPorts) Me.grpPorts.Controls.Add(Me.cmdAddPorts) Me.grpPorts.FlatStyle = System.Windows.Forms.FlatStyle.System Me.grpPorts.Location = New System.Drawing.Point(8, 10) Me.grpPorts.Name = "grpPorts"
294)
Me.grpPorts.Size = New System.Drawing.Size(488,
Me.grpPorts.TabIndex = 2 Me.grpPorts.TabStop = False Me.grpPorts.Visible = False ' 'panelPorts ' Me.panelPorts.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ Or System.Windows.Forms.AnchorStyles.Left) _ Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.panelPorts.Controls.Add(Me.lsvPorts) Me.panelPorts.Controls.Add(Me.Label1) Me.panelPorts.Location = New System.Drawing.Point(8, 16) Me.panelPorts.Name = "panelPorts" Me.panelPorts.Size = New System.Drawing.Size(472, 240) Me.panelPorts.TabIndex = 3 ' 'lsvPorts ' Me.lsvPorts.Dock = System.Windows.Forms.DockStyle.Fill Me.lsvPorts.Location = New System.Drawing.Point(0, 23) Me.lsvPorts.Name = "lsvPorts" Me.lsvPorts.Size = New System.Drawing.Size(472, 217) Me.lsvPorts.TabIndex = 4 Me.lsvPorts.UseCompatibleStateImageBehavior = False ' 'Label1 '
Me.Label1.BackColor = System.Drawing.SystemColors.ControlDark Me.Label1.Dock = System.Windows.Forms.DockStyle.Top Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label1.ForeColor = System.Drawing.Color.White Me.Label1.Location = New System.Drawing.Point(0, 0) Me.Label1.Name = "Label1" Me.Label1.Size = New System.Drawing.Size(472, 23) Me.Label1.TabIndex = 3 Me.Label1.Text = "Portlist" Me.Label1.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' 'cmdAddPorts ' Me.cmdAddPorts.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.cmdAddPorts.FlatStyle = System.Windows.Forms.FlatStyle.System Me.cmdAddPorts.Location = New System.Drawing.Point(296, 262) Me.cmdAddPorts.Name = "cmdAddPorts" Me.cmdAddPorts.Size = New System.Drawing.Size(184, 23) Me.cmdAddPorts.TabIndex = 2 Me.cmdAddPorts.Text = "&Add selected Ports" ' 'panelAllgemein ' Me.panelAllgemein.Controls.Add(Me.GroupBox1) Me.panelAllgemein.Controls.Add(Me.grpFirewallStatus) Me.panelAllgemein.Location = New System.Drawing.Point(8, 10) Me.panelAllgemein.Name = "panelAllgemein"
Me.panelAllgemein.Size = New System.Drawing.Size(488, 318) Me.panelAllgemein.TabIndex = 7 ' 'GroupBox1 ' Me.GroupBox1.Controls.Add(Me.chkICMP) Me.GroupBox1.FlatStyle = System.Windows.Forms.FlatStyle.System Me.GroupBox1.Location = New System.Drawing.Point(0, 112) Me.GroupBox1.Name = "GroupBox1" Me.GroupBox1.Size = New System.Drawing.Size(488, 56) Me.GroupBox1.TabIndex = 2 Me.GroupBox1.TabStop = False ' 'chkICMP ' Me.chkICMP.FlatStyle = System.Windows.Forms.FlatStyle.System Me.chkICMP.Location = New System.Drawing.Point(12, 20) Me.chkICMP.Name = "chkICMP" Me.chkICMP.Size = New System.Drawing.Size(296, 24) Me.chkICMP.TabIndex = 0 Me.chkICMP.Text = "Allow Incoming Echo Requests" ' 'grpFirewallStatus ' Me.grpFirewallStatus.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.grpFirewallStatus.Controls.Add(Me.cmdDeaktivieren) Me.grpFirewallStatus.Controls.Add(Me.cmdAktivieren) Me.grpFirewallStatus.Controls.Add(Me.lblStatus)
Me.grpFirewallStatus.Controls.Add(Me.imgStatus) Me.grpFirewallStatus.FlatStyle = System.Windows.Forms.FlatStyle.System Me.grpFirewallStatus.Location = New System.Drawing.Point(0, 0) Me.grpFirewallStatus.Name = "grpFirewallStatus" Me.grpFirewallStatus.Size = New System.Drawing.Size(488, 104) Me.grpFirewallStatus.TabIndex = 1 Me.grpFirewallStatus.TabStop = False Me.grpFirewallStatus.Text = "Firewall Status" ' 'cmdDeaktivieren ' Me.cmdDeaktivieren.FlatStyle = System.Windows.Forms.FlatStyle.System Me.cmdDeaktivieren.Location = New System.Drawing.Point(111, 67) Me.cmdDeaktivieren.Name = "cmdDeaktivieren" Me.cmdDeaktivieren.Size = New System.Drawing.Size(88, 23) Me.cmdDeaktivieren.TabIndex = 3 Me.cmdDeaktivieren.Text = "&Deactivate" ' 'cmdAktivieren ' Me.cmdAktivieren.FlatStyle = System.Windows.Forms.FlatStyle.System Me.cmdAktivieren.Location = New System.Drawing.Point(10, 67) Me.cmdAktivieren.Name = "cmdAktivieren" Me.cmdAktivieren.Size = New System.Drawing.Size(88, 23) Me.cmdAktivieren.TabIndex = 2 Me.cmdAktivieren.Text = "&Activate" ' 'lblStatus ' Me.lblStatus.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!,
System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.lblStatus.Location = New System.Drawing.Point(56, 24) Me.lblStatus.Name = "lblStatus" Me.lblStatus.Size = New System.Drawing.Size(360, 23) Me.lblStatus.TabIndex = 1 Me.lblStatus.Text = "Firewall Status: " Me.lblStatus.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' 'lblDescription ' Me.lblDescription.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.lblDescription.Location = New System.Drawing.Point(32, 322) Me.lblDescription.Name = "lblDescription" Me.lblDescription.Size = New System.Drawing.Size(100, 14) Me.lblDescription.TabIndex = 5 ' 'progMain ' Me.progMain.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.progMain.Location = New System.Drawing.Point(152, 319) Me.progMain.Name = "progMain" Me.progMain.Size = New System.Drawing.Size(328, 16) Me.progMain.TabIndex = 4 ' 'statMain '
318)
Me.statMain.Location = New System.Drawing.Point(0,
Me.statMain.Name = "statMain" Me.statMain.Size = New System.Drawing.Size(503, 22) Me.statMain.TabIndex = 3 ' 'imgNavbar ' Me.imgNavbar.ImageStream = CType(resources.GetObject("imgNavbar.ImageStream"), System.Windows.Forms.ImageListStreamer) Me.imgNavbar.TransparentColor = System.Drawing.Color.Transparent Me.imgNavbar.Images.SetKeyName(0, "") ' 'lblCaption ' Me.lblCaption.BackColor = System.Drawing.Color.FromArgb(CType(CType(139, Byte), Integer), CType(CType(169, Byte), Integer), CType(CType(229, Byte), Integer)) Me.lblCaption.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.lblCaption.ForeColor = System.Drawing.Color.White Me.imgProgrammIcon.ColorDepth = System.Windows.Forms.ColorDepth.Depth8Bit Me.imgProgrammIcon.ImageSize = New System.Drawing.Size(16, 16) Me.imgProgrammIcon.TransparentColor = System.Drawing.Color.Transparent ' 'MenuStrip1 ' Me.MenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.FileToolStripMenuItem})
Me.MenuStrip1.Location = New System.Drawing.Point(0, 0) Me.MenuStrip1.Name = "MenuStrip1" Me.MenuStrip1.Size = New System.Drawing.Size(656, 24) Me.MenuStrip1.TabIndex = 5 Me.MenuStrip1.Text = "MenuStrip1" ' 'FileToolStripMenuItem ' Me.FileToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.AboutProjectToolStripMenuItem, Me.AboutMakersToolStripMenuItem}) Me.FileToolStripMenuItem.Name = "FileToolStripMenuItem" Me.FileToolStripMenuItem.Size = New System.Drawing.Size(35, 20) Me.FileToolStripMenuItem.Text = "File" ' 'imgStatus ' Me.imgStatus.Image = CType(resources.GetObject("imgStatus.Image"), System.Drawing.Image) Me.imgStatus.Location = New System.Drawing.Point(10, 18) Me.imgStatus.Name = "imgStatus" Me.imgStatus.Size = New System.Drawing.Size(40, 40) Me.imgStatus.TabIndex = 0 Me.imgStatus.TabStop = False ' 'PictureBox1 ' Me.PictureBox1.BackColor = System.Drawing.Color.FromArgb(CType(CType(139, Byte), Integer), CType(CType(169, Byte), Integer), CType(CType(229, Byte), Integer)) Me.PictureBox1.Dock = System.Windows.Forms.DockStyle.Top
Me.PictureBox1.Image = CType(resources.GetObject("PictureBox1.Image"), System.Drawing.Image) Me.PictureBox1.Location = New System.Drawing.Point(0, 24) Me.PictureBox1.Name = "PictureBox1" Me.PictureBox1.Size = New System.Drawing.Size(656, 50) Me.PictureBox1.TabIndex = 0 Me.PictureBox1.TabStop = False ' 'AboutProjectToolStripMenuItem ' Me.AboutProjectToolStripMenuItem.Image = Global.XPF.My.Resources.Resources.projecttttttttttttttttttt Me.AboutProjectToolStripMenuItem.Name = "AboutProjectToolStripMenuItem" Me.AboutProjectToolStripMenuItem.Size = New System.Drawing.Size(152, 22) Me.AboutProjectToolStripMenuItem.Text = "About Project" ' 'AboutMakersToolStripMenuItem ' Me.AboutMakersToolStripMenuItem.Image = Global.XPF.My.Resources.Resources.maker_ Me.AboutMakersToolStripMenuItem.Name = "AboutMakersToolStripMenuItem" Me.AboutMakersToolStripMenuItem.Size = New System.Drawing.Size(152, 22) Me.AboutMakersToolStripMenuItem.Text = "About Makers" ' 'frmMain ' Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13) Me.ClientSize = New System.Drawing.Size(656, 414) Me.Controls.Add(Me.lblCaption) Me.Controls.Add(Me.panelMain)
Me.Controls.Add(Me.Splitter1) Me.Controls.Add(Me.barNavigation) Me.Controls.Add(Me.PictureBox1) Me.Controls.Add(Me.MenuStrip1) Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon) Me.MainMenuStrip = Me.MenuStrip1 Me.MaximizeBox = False Me.Name = "frmMain" Me.Text = "XPF" Me.panelMain.ResumeLayout(False) Me.panelLog.ResumeLayout(False) CType(Me.gridLog, System.ComponentModel.ISupportInitialize).EndInit() Me.grpOpenPorts.ResumeLayout(False) Me.grpProgrammAusnahmen.ResumeLayout(False) Me.grpPorts.ResumeLayout(False) Me.panelPorts.ResumeLayout(False) Me.panelAllgemein.ResumeLayout(False) Me.GroupBox1.ResumeLayout(False) Me.grpFirewallStatus.ResumeLayout(False) Me.MenuStrip1.ResumeLayout(False) Me.MenuStrip1.PerformLayout() CType(Me.imgStatus, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit() Me.ResumeLayout(False) Me.PerformLayout() End Sub #End Region '--> Navigation Enum Private Enum enNavigation Allgemein = 0 Programme = 1 Ports = 2 GlobalOpenPorts = 3
Log = 4 End Enum Private Private Private Private Private Private Const LinesInDocument As Integer = 8869 oFirwall As cFirewall = Nothing imgEnabled As Image = Nothing imgDisabled As Image = Nothing readThread As Thread = Nothing bolOnReading As Boolean = False
#Region " Inits " '--> Create Navbar (Vbaccelerator Ctrl) Private Sub initNavbar() Dim bar As ExplorerBar Dim linkItem As ExplorerBarLinkItem Me.barNavigation.DrawingStyle = ExplorerBarDrawingStyle.XP Me.barNavigation.TitleImageList = Me.imgNavbar Try Me.barNavigation.Redraw = False bar = New ExplorerBar bar.IsSpecial = True bar.IconIndex = 0 bar.Text = "XPF" linkItem = New ExplorerBarLinkItem linkItem.Text = "Common" linkItem.Tag = "cmdAllgemein" bar.Items.Add(linkItem) linkItem = New ExplorerBarLinkItem linkItem.Text = "Programms" linkItem.Tag = "cmdPogramme" bar.Items.Add(linkItem) linkItem = New ExplorerBarLinkItem linkItem.Text = "Open Ports" linkItem.Tag = "cmdOpenPorts"
bar.Items.Add(linkItem) linkItem = New ExplorerBarLinkItem linkItem.Text = "Ports" linkItem.Tag = "cmdPorts" bar.Items.Add(linkItem) linkItem = New ExplorerBarLinkItem linkItem.Text = "Log" linkItem.Tag = "cmdLog" bar.Items.Add(linkItem) Me.barNavigation.Bars.Add(bar) Me.barNavigation.Redraw = True Catch End Try End Sub Private Sub initProgrammListview() With Me.lsvProgramme .SmallImageList = imgProgrammIcon .View = View.Details .CheckBoxes = True .Columns.Add("Programname", 300, HorizontalAlignment.Right) End With End Sub Private Sub initPortListView() With Me.lsvPorts .View = View.Details .CheckBoxes = True .Columns.Add("Port", 50, HorizontalAlignment.Center) .Columns.Add("Type", 50, HorizontalAlignment.Center) .Columns.Add(" ", 100, HorizontalAlignment.Center)
.Columns.Add("Description", 200, HorizontalAlignment.Center) .Columns.Add("Trojan Info", 200, HorizontalAlignment.Center) End With End Sub Private Sub initOpenPortListView() With Me.lsvFreiePorts .View = View.Details .Columns.Add("Port", 50, HorizontalAlignment.Center) .Columns.Add("Type", 50, HorizontalAlignment.Center) .Columns.Add("Name", 100, HorizontalAlignment.Center) End With End Sub Private Sub initPictures() '--> Get embedded Picture ressources imgEnabled = _ New System.Drawing.Bitmap([Assembly].GetExecutingAssembly().Get ManifestResourceStream("XPF.Aktiv.jpg")) imgDisabled = _ New System.Drawing.Bitmap([Assembly].GetExecutingAssembly().Get ManifestResourceStream("XPF.Inaktiv.jpg")) End Sub Private Sub ReadPortList() '--> read PortList from Application startup Directory '--> contains Portdescription Dim reader As StreamReader Dim strLine As String = String.Empty Dim strLineArray() As String = Nothing Dim lsvItem As ListViewItem
Try Me.progMain.Visible = True Me.progMain.Maximum = LinesInDocument Me.progMain.Minimum = 1 Me.lblDescription.Text = "Read PortList" Me.lsvPorts.Items.Clear() reader = New StreamReader("F:\FIrewalll\Firewall\xpfirewall\Portlist.txt") 'Application.StartupPath & "\Portlist.txt") While reader.Peek <> -1 strLine = reader.ReadLine If Not strLine Is Nothing Then strLineArray = strLine.Split("|") lsvItem = New ListViewItem(strLineArray(0)) For idx As Integer = 1 To strLineArray.GetUpperBound(0) lsvItem.SubItems.Add(strLineArray(idx)) Next If Not lsvItem Is Nothing Then Me.lsvPorts.Items.Add(lsvItem) Me.progMain.Value += 1 End If End While reader.Close() Me.progMain.Visible = False Me.lblDescription.Text = String.Empty Catch ex As Exception MessageBox.Show("No Portlist available", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error, MessageBoxDefaultButton.Button1) End Try End Sub
Private Sub ReadProgrammList() '--> read services and programms excluded from XP Firewall Dim arrProgramms As ArrayList Dim retProgramm As cFirewall.structAktiveApp Dim lsvItem As ListViewItem Dim lngImageCounter As Long = 0 Dim icoSource As New cExtractIcon Dim curIcon As Icon Try Me.lsvProgramme.Items.Clear() Me.progMain.Visible = True Me.lblDescription.Text = "Read Programs" arrProgramms = oFirwall.GetAllowedProgramms Me.progMain.Minimum = 1 Me.progMain.Maximum = arrProgramms.Count + 1 Me.progMain.Value = 1 If arrProgramms Is Nothing Then Exit Sub For Each retProgramm In arrProgramms lsvItem = New ListViewItem(retProgramm.AppName) curIcon = icoSource.ExtractFromFile(retProgramm.AppImage) If curIcon Is Nothing Then Me.imgProgrammIcon.Images.Add(Me.Icon) Else Me.imgProgrammIcon.Images.Add(icoSource.ExtractFromFile(ret Programm.AppImage)) End If lsvItem.ImageIndex = lngImageCounter lsvItem.Tag = retProgramm.appLocation Me.lsvProgramme.Items.Add(lsvItem) Me.progMain.Value += 1 Thread.Sleep(100) lngImageCounter += 1 Next Me.progMain.Visible = False
Me.lblDescription.Text = String.Empty Catch ex As Exception End Try End Sub Private Sub ReadOpenPortList() '--> Read all open Ports Dim arrOpenPorts As ArrayList Dim retPort As cFirewall.structPort Dim lsvItem As ListViewItem Try Me.lsvFreiePorts.Items.Clear() Me.progMain.Visible = True Me.lblDescription.Text = "Read open Ports" arrOpenPorts = oFirwall.OpenPortList Me.progMain.Minimum = 1 Me.progMain.Maximum = arrOpenPorts.Count + 1 Me.progMain.Value = 1 For Each retPort In arrOpenPorts lsvItem = New ListViewItem(retPort.PortNumber) lsvItem.SubItems.Add(retPort.Protocol) lsvItem.SubItems.Add(retPort.Name) Me.lsvFreiePorts.Items.Add(lsvItem) Me.progMain.Value += 1 Thread.Sleep(100) Next Me.progMain.Visible = False Me.lblDescription.Text = String.Empty Catch ex As Exception End Try End Sub
Private Sub ReadLogFile() '--> Gets LogFile information (if enabled) '--> File is normally under C:\Windows\pfirewall.log Dim oLog As New cFirewallLog oLog.FillDatasource() Me.gridLog.DataSource = oLog.FirewallLog End Sub Private Sub CheckFirewallStatus() '--> Gets the firewall status (enabled, disabled) Me.lblStatus.Text = String.Empty If oFirwall.FirewallStatus = True Then If Not imgEnabled Is Nothing Then Me.imgStatus.Image = imgEnabled Me.lblStatus.Text = "Firewall Status: active" Else If Not imgDisabled Is Nothing Then Me.imgStatus.Image = imgDisabled Me.lblStatus.Text = "Firewall Status: inactive" End If End Sub Private Sub checkICMP() '--> check if incoming ICMP is allowed If oFirwall.IsIncomingICMPAllowed Then Me.chkICMP.Checked = True Else Me.chkICMP.Checked = False End If End Sub
#End Region Private Sub frmMain_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load Call initNavbar() Call initProgrammListview() Call initPortListView() Call initPictures() Call initOpenPortListView() Me.progMain.Visible = False oFirwall = New cFirewall Call CheckFirewallStatus() Call checkICMP() bolOnReading = False readThread = New Thread(AddressOf ReadMethods) ReadThread.Start() End Sub Private Sub ReadMethods() Call Call Call Call ReadPortList() ReadProgrammList() ReadOpenPortList() ReadLogFile()
End Sub Private Sub barNavigation_ItemClick(ByVal sender As Object, ByVal args As vbAccelerator.Components.Controls.ExplorerBarItemClickEvent Args) Handles barNavigation.ItemClick Select Case args.Item.Tag Case "cmdAllgemein" : Call GrpVisible(enNavigation.Allgemein) Case "cmdPogramme" : Call GrpVisible(enNavigation.Programme)
Case "cmdPorts" : Call GrpVisible(enNavigation.Ports) Case "cmdOpenPorts" : Call GrpVisible(enNavigation.GlobalOpenPorts) Case "cmdLog" : Call GrpVisible(enNavigation.Log) End Select End Sub Private Sub GrpVisible(ByVal Entry As enNavigation) Select Case Entry Case enNavigation.Allgemein Me.grpPorts.Visible = False Me.grpProgrammAusnahmen.Visible = False Me.panelAllgemein.Visible = True Me.grpOpenPorts.Visible = False Me.panelLog.Visible = False Case enNavigation.Ports Me.grpPorts.Visible = True Me.grpProgrammAusnahmen.Visible = False Me.panelAllgemein.Visible = False Me.grpOpenPorts.Visible = False Me.panelLog.Visible = False Case enNavigation.GlobalOpenPorts Me.grpPorts.Visible = False Me.grpProgrammAusnahmen.Visible = False Me.panelAllgemein.Visible = False Me.grpOpenPorts.Visible = True Me.panelLog.Visible = False Case enNavigation.Log Me.grpPorts.Visible = False Me.grpProgrammAusnahmen.Visible = False Me.panelAllgemein.Visible = False Me.grpOpenPorts.Visible = False Me.panelLog.Visible = True End Select End Sub
Private Sub cmdHinzufuegen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdHinzufuegen.Click Dim dlg As New OpenFileDialog Dim bolSuccess As Boolean = False With dlg .Title = "Programm hinzufügen ... " .Filter = "Ausführbare Dateien (*.exe)|*.exe" If .ShowDialog = Windows.Forms.DialogResult.OK Then bolSuccess = oFirwall.AddApplication(New FileInfo(.FileName)) If bolSuccess Then Me.lsvProgramme.Items.Clear() Call ReadProgrammList() End If End If End With End Sub Private Sub cmdProgrammEntfernen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdProgrammEntfernen.Click Dim bolsuccess As Boolean = False 1 For idx As Integer = 0 To Me.lsvProgramme.Items.Count -
If Me.lsvProgramme.Items(idx).Checked Then bolsuccess = oFirwall.RemoveApplication(Me.lsvProgramme.Items(idx)) End If Next Call ReadProgrammList()
End Sub Private Sub cmdAktivieren_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) oFirwall.EnableFirewall() Call CheckFirewallStatus() End Sub Private Sub cmdDeaktivieren_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) oFirwall.DisableFirewall() Call CheckFirewallStatus() End Sub Private Sub cmdAddPorts_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdAddPorts.Click Me.progMain.Visible = True Me.progMain.Minimum = 1 Me.progMain.Maximum = Me.lsvPorts.Items.Count - 1 For Each itm As ListViewItem In Me.lsvPorts.Items If itm.Checked = True Then oFirwall.AddPortToFirewall(itm.SubItems(2).Text, itm.SubItems(1).Text, itm.Text) itm.Checked = False Me.progMain.Value += 1 End If Next Call ReadOpenPortList() End Sub Private Sub chkICMP_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkICMP.CheckedChanged
If bolOnReading = False Then oFirwall.AllowIncomingICMP(Me.chkICMP.Checked) End If End Sub Private Sub AboutProjectToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AboutProjectToolStripMenuItem.Click Dim obj As New AboutBox1 obj.Show() End Sub End Class
Module Imports System.IO Public Class cFirewallLog Private tbl As DataTable = Nothing Private LogFile As String = String.Empty Private winDir As DirectoryInfo Public ReadOnly Property FirewallLog() As DataTable Get Return tbl End Get End Property Private Sub CreateTable() '--> Create datatable that contains log Information Dim colDate As New DataColumn("Date", GetType(System.DateTime)) Dim colTime As New DataColumn("Time", GetType(System.DateTime))
Dim colAction As New DataColumn("Action", GetType(System.String)) Dim colProtocol As New DataColumn("Protocol", GetType(System.String)) Dim colSrcIP As New DataColumn("Source-IP", GetType(System.String)) Dim colDestIP As New DataColumn("Destination-IP", GetType(System.String)) Dim colSrcPort As New DataColumn("Source-Port", GetType(System.String)) Dim colDestProt As New DataColumn("Destination-Port", GetType(System.String)) Dim colSize As New DataColumn("Size", GetType(System.String)) Dim colFlags As New DataColumn("Flags", GetType(System.String)) tbl = New DataTable("FireLog") tbl.Columns.AddRange(New DataColumn() {colDate, colTime, colAction, colProtocol, _ colSrcIP, colDestIP, colSrcPort, colDestProt, colSize, colFlags}) End Sub Public Sub FillDatasource() Dim sysDir As New DirectoryInfo(Environment.GetFolderPath(Environment.Special Folder.System)) winDir = sysDir.Parent LogFile = "C:\WINDOWS\pfirewall.log" 'winDir.FullName.ToString & "\pfirewall.log" Call CreateTable() '--> check if Firewall exists in standardfolder, otherwise shop openfile dlg If Not File.Exists(Logfile) Then Dim dlg As New OpenFileDialog dlg.InitialDirectory = winDir.FullName
dlg.Filter = "*.log|*.log" dlg.Title = "Select Logfile" If dlg.ShowDialog = DialogResult.OK Then Logfile = dlg.FileName Else Application.Exit() End If End If '--> Copy File to temp path for reading because file may be in '--> exclusive use by firewall Dim strTempPath = Environment.GetEnvironmentVariable("TEMP") IO.File.Copy(LogFile, strTempPath & "\Logfile.txt", True) LogFile = strTempPath & "\Logfile.txt" '--> read information from Lofile in temp folder to datatable Try Dim stream As New IO.StreamReader(LogFile, FileMode.Open) Dim strTemp As String = String.Empty Dim strInformation As String = String.Empty Dim strInfoArray() As String Dim idx As Integer = 0 Dim row As DataRow While stream.Peek <> -1 strTemp = stream.ReadLine If strTemp.StartsWith("#") Then strInformation += strTemp & vbCrLf Else If strTemp.Trim.Length > 0 Then strInfoArray = strTemp.Split(" ") row = tbl.NewRow For idx = 0 To 9
row(idx) = strInfoArray(idx) Next tbl.Rows.Add(row) End If End If End While stream.Close() IO.File.Delete(LogFile) Catch '--> just do nothing when error occurs Finally If IO.File.Exists(LogFile) Then IO.File.Delete(LogFile) End Try End Sub End Classuihyui'[9']hno9hn ugvb
Imports System.Console Module Program Sub Main() Dim rows As Integer ' Input validation. Do Until Integer.TryParse(ReadLine("Enter a value for how many rows to be displayed: "), rows) AndAlso rows >= 1 Module
WriteLine("Allowed range is 1 and {0}", Integer.MaxValue) Loop ' Output of Floyd's Triangle Dim current = 1 For row = 1 To rows For column = 1 To row Write("{0,-2} ", current) current += 1 Next Next End Sub ''' <summary> ''' Shadows Console.ReadLine with a version which takes a prompt string. ''' </summary> Function ReadLine(Optional prompt As String = Nothing) As String If prompt IsNot Nothing Then Write(prompt) End If Return Console.ReadLine() End Function WriteLine()
End Module
Conclusion
In the end, we each must find a project which works for us a system which enables us to face, evaluate and make the hard choices now and down the road. I deally practicing on situations which mimic life will provide a level of comfort and make the real dilemmas less anxiety proworking, we need to feel what our limits are, accept others may be guided by different values perspectives, and respect that most people already have their own internal standards for ethical behavior. uihyui'[9']hno9hn ugvbuihyui'[9']hno9hn ugvbuihyui'[9']hno9hn ugvbuihyui'[9']hno9hn ugvbuihyui'[9']hno9hn ugvbuihyui'[9']hno9hn ugvbuihyui'[9']hno9hn
ugvbuihyui'[9']hno9hn ugvbuihyui'[9']hno9hn ugvbuihyui'[9']hno9hn ugvbuihyui'[9']hno9hn ugvbuihyui'[9']hno9hn ugvbuihyui'[9']hno9hn ugvbuihyui'[9']hno9hn ugvb
doc_692022759.doc
I am shashank Soni i am making a project in BCA, BBA, MCA, MBA DCA PGDCA, ETC if you have any requirement inb Project FRee to call me +919691631901
+919806651958
[email protected]
A PROJECT REPORT ON WINDOWS XP FIREWALL Submitted for the partial fulfillment of the requirement for the degree of BACHELOR OF COMPUTER APPLICATION VIth Semester Subpervised by Manish khare(director) Mr.Pankaj komalwar(director) Under the guidance of Mr.Narendra Vishwakarma Submitted by: Priyanka Malik BCA –VI th SEM Makhanlal Chaturvedi Rashtriya Patrakarita Evam
Sanchar Vishwavidyalaya
2010-2011
K.K.EDUCATION INSTITUTE, JABALPUR
Affiliated to MAKHANLAL CHUTURVEDI RASHTRIYA PATRAKARITA EVAM SANCHAR VISHWAVIDYAYA Certificate This is to certify that this project reports entitled
WINDOWS XP FIREWALL Which is being submitted by the Students as partial fulfillment for the Degree of BCA-VI SEM of Makhanlal Chaturvedi Rashtriya Patrakarita Evam Sanchar Vishwavidylaya for the academic year 2010 - 2011, ensure the bonafide work of the candidate and was carried out under supervisio in this center of “K.K.Education Institute,Jabalpur”. This report is upto standard both in respect of its contents and its literary Presentation for being referred to the examiner. Submitted by: Priyanka Malik Vishwakarma) BCA-VI TH SEM Trainer (Mr.Narendra Project
K.EDUCATION INSTITUTE, JABALPUR
Affiliated to MAKHANLAL CHUTURVEDI RASHTRIYA PATRAKARITA EVAM SANCHAR VISHWAVIDYAYA Certificate this to certify that this project reports entitled “WINDOWS XP FIREWALL” Which is being submitted by the Students as partial fulfillment for the Degree of BCA-VI SEM of Makhanlal Chaturvedi Rashtriya Patrakarita Evam Sanchar Vishwavidylaya for the academic year 2010 – 2011 ,ensure the bonafide work of the candidate and was carried out under supervision in this center of “K.K. Education Institute, Jabalpur”. This report is upto standard both in respect of its contents and its literary Presentation for being referred to the examiner. Submitted by: Priyanka Malik Mr.Manish Khare BCA-VI TH SEM Mr.Pankaj Komalwar (Director) (Director)
K.K.EDUCATION INSTITUTE, JABALPUR
Affalated by MAKHANLAL CHUTURVEDI RASHTRIYA PATRAKARITA EVAM SANCHAR VISHWAVIDYAYA Certificate This is to certify that this project reports entitled “WINDOWS XP FIREWALL” Which is being submitted by the Students as partial fulfillment for the Degree Degree of BCA-VI SEM of Makhanlal Chaturvedi Rashtriya Patrakarita Evam Sanchar Vishwavidylaya for the academic year 2010 - 2011, ensure the bonafide work of the candidate and was carried out under supervision in this center of “K.K.Education Institute, Jabalpur”. This report is upto standard both in respect of its contents and its literary Presentation for being referred to the examiner . Submitted by: Priyanka Malik BCA-VI TH SEM Internal Examiner External Examiner
K.K.EDUCATION INSTITUTE, JABALPUR
Affiliated to MAKHANLAL CHUTURVEDI RASHTRIYA PATRAKARITA EVAM SANCHAR VISHWAVIDYAYA
Self certificate
I am the student of K. K. Education Institute declared the this project has been designed by me under the guidance of Mr.Narendra Vishwakarma.It our original work. It has been created as major project work for the degree of BCA-VI Sem. Submitted by: Priyanka Malik BCA-VI TH SEM
Declaration
I am the student of K.K. Education Institute declared that this project has been designed by under the guidance of Narendra Vishawakrma. It is our original work. it has been Created as major project work for the diploma of BCA VI SEM.
DATE PLACE - Jabalpur
Submitted by:
Priyanka Malik
Acknowledgement
I am express my sincere qratitude to MR. PANKAJ KOMALWER & MR.MANISH KHARE ( director)for providing me all the support for this project.
I thank to MR. NARENDRA VISHWAKARMA and all the faculties and non techninq staff of this institute for their supports. I am very thankful Mr.Narendra Vishwakarma.
Last but not the least I extend my qratefulness to my parents who help me throughout my studies in many ways.
Submitted by:
Priyanka Malik
INDEX
? Introducation ? Certificate ? Acknowledgment ? Index ? Project Work Evalulation ? About Project ? Hardware & Software Requrinment ? About Visual Basic.Net ? Flow Chart ? Data flow Diagram ? Splash form ? Login form ? Class Diagram ? Biliography
FIREWALL
It mean’s a Link between two letter ‘s .Their are number of office s facing this problem it mean know they are using physical Letter System it mean paper system in are paper Genrating problem’s. If a asign a number two like a two an I just send this letter office be asign one number when office will sendme the Answer of my letter so office to assign number b2 for a reference number. When the transaction will exist the operator how this System. He will be Faced the problem’s of be Letter Links.
So for solving this problem generate.This generateSoftware and though then software. We try to manage to letter Link problem.
Hardware Software Reqirement
Hardware:
Processors Hard disk Free Space Ram Memory Key Borad Mouse 1GB 126 key 2 Button (Standard) Pentium - 4 160MB 2 GB
Software:
Operating System Programming Language
Windows XP. Visual Basic 2005 Express Edition
About VB.Net
Visual Basic (VB) is a programming language based on the original DOS language called BASIC (Beginners' All-purpose Symbolic Instruction Code). VB.NET 2005, an offshoot of Visual Basic, is an object-oriented programming language based on VB that is implemented using the Microsoft .NET framework. The basic syntax of the Visual Basic language remains unchanged in VB.NET 2005, but includes additional features such as structured exception handling and short circuited expressions to enhance the infrastructure of the programming language. Developers have found VB.NET to be controversial as some of the software and developmental changes clash with the original language within VB and have caused compatibility issues. Visual Studio .NET is the predominant integrated development environment (IDE) that VB.NET developers employ. Visual Basic programmers supporting VB.NET indicate that language constructs and user interface features in the newer system have caused programming issues within the original VB system. Developers using VB.NET recognize that the upgraded VB system incorporates contemporary object oriented programming paradigms in a more stable environment than was originally thought possible.
Visual Basic .NET is a programming language that can be used to create winforms or webapp applications and create programming based in any object-oriented programming language (OOP), ADO.NET, Multithreading or Windows Services. VB.NET programming utilizes concepts connected to string encryption, forms inheritance, regular expressions and deployment.
Excel Reporting, dashboards from Excel charts and ranges, Windows Forms spreadsheet controls, Excel compatible charting, the fastest and most complete Excel compatible calculations
VB.NET 2005 Free Training VB.NET 2005 Free Training We are exited to let you know that we will be starting Visual Basic .NET 2005 Training. Please find the topics below which we will be covering during the course. This training is based on the latest Visual Basic .NET 2005 version. Visual Basic .NET 2005 Training 1. .NET Framework architecture The .NET.
The .NET Framework Architecture Part 2 VB.NET 2005 Free Training The .NET Framework Architecture Part 2. In this tutorial of The .NET Framework Architecture Part 2 we will learn about Just-In-Time JIT compilation Assemblies native
assemblies Global Assembly Cache GAC and Comparison of VB.NET C and J . Just-In-Time JIT compilation As stated above the Just in time compiler
Application Class and Message Class
Using Application Class Visual Basic 2005 introduces a speedy way to access many important classes relating to the Computer on which the application is running the user running it the application itself its forms and any associated web services. The best part of it all is that you can access it all using the new My object. Implementing Class Library Object Implementing Class Library Object in VB.NET 2005 Class Classical Object Oriented Concepts explain a class as a cookie cutter. A class allows you to create objects of the class. As a programmer you define a class with data fields properties methods and events. Then you can create objects based on that class that have state fields properties and Visual Studio.NET Namespaces Visual Studio.NET Namespaces The .NET Framework class library has thousands of classes which are needed for developing and deploying solutions. In order to organize all those classes for ease of use .NET Framework uses namespaces. This Gives the Classes their own space
and prevents conflicts between the various names in these classes. For instance
VB.net assemblies Creating and Managing .NET Assemblies Single-file and multi-file assemblies Combining modules written in different languages Creating a multi-file assembly End Namespace Static and dynamic assemblies Private and shared assemblies Sharing an assembly Satellite and Resource-only assemblies Compiling Satellite Assemblies Compiling Satellite.
Differences between VB.NET 1.0 and VB.NET 2.0 VB.NET 2005 Free Training Differences between VB.NET 1.0 and VB.NET 2.0 VB.NET 2005 comes with a number of enhancements. The IntelliSense Code snippets the Windows Forms designer updates IntelliSense filtering debugger data tips exception Assistant etc make
the software a pleasure to work with. The language has been spruced up with generics unsigned
Exploring the Forms Designer generated code VB.NET 2005 Free Training Exploring the Forms Designer generated code As you create a new project in the Visual Basic the IDE generally automatically adds lots of lines of code on its own. Visual Basic 2005 comes with an option to skip over this behavior of the Visual Basic IDE. The default option comes with this behavior enabled.
About Windows XP Firewall
A firewall is a set of related programs, located at a network gateway server, that protects the resources of a private network from users from other networks. (The term also implies the security policy that is used with the programs.) An enterprise with an intranet that allows its workers access to the wider Internet installs a firewall to prevent outsiders from accessing its own private data resources and for controlling what outside resources its own users have access Learn More Network Firewalls, Routers and Switches Network Security Monitoring and Analysis Network Security Best Practices and Products Basically, a firewall, working closely with a router program, examines each network packet to determine whether to forward it toward its destination. A firewall also includes or works with a proxy server that makes network requests on behalf of workstation users. A firewall is often installed in a specially designated computer separate from the rest of the network so that no incoming request can get directly at private network resources.
There are a number of firewall screening methods. A simple one is to screen requests to make sure they come from acceptable (previously identified) domain name and Internet Protocol addresses. For mobile users, firewalls allow remote access in to the private network by the use of secure logon procedures and authentication certificates.
A number of companies make firewall products. Features include logging and reporting, automatic alarms at given thresholds of attack, and a graphical user interface for controlling the firewall.
Computer security borrows this term from firefighting, where it originated. In firefighting, a firewall is a barrier established to prevent the spread of fire. Related glossary terms: virus, Firewall Builder (Fwbuilder), screened subnet (triple-homed Windows xp Firewall Windows Firewall A component of Microsoft Windows
Windows Firewall in Windows 7 Details Other names Type Included with Internet Connection Firewall Firewall software Windows Windows Windows Windows Windows Windows R2 XP Server 2003 Vista Server 2008 7 Server 2008
Service name Description
SharedAccess
Security Center
Related components Windows Security Center Windows Firewall is a software component of Microsoft Windows that provides firewalling and packet filtering functions. It was first included in Windows XP and Windows Server 2003. Prior to the release of Windows XP Service Pack 2 in 2004, it was known as Internet Connection Firewall.
Overview
When Windows XP was originally shipped in October 2001, it included a limited firewall called "Internet Connection Firewall". It was disabled by default due to concerns with backward compatibility, and the configuration screens were buried away in network configuration screens that many users never looked at. As a result, it was rarely used. In mid-2003, the Blaster worm attacked a large number of Windows machines, taking advantage of flaws in the RPC Windows service.[1] Several months later, the Sasser worm did something similar. The ongoing prevalence of these worms through 2004 resulted in unpatched machines being infected within a matter of minutes. [1] Because of these incidents, as well as other criticisms that Microsoft was not being active in protecting customers from threats, Microsoft decided to significantly improve both the functionality and the interface of Windows XP's built-in firewall, and rebrand it as Windows Firewall. Security log capabilities are included, which can record IP addresses and other data relating to connections originating from the home or office network or the Internet. It can record both dropped packets and successful connections. This can be used, for instance, to track every time a computer on the network connects to a website. This security log is not enabled by default; the administrator must enable it.[2] Versions Windows XP Windows Firewall settings in Windows XP Service Pack 2 Windows Firewall was first introduced as part of Windows XP Service Pack 2. Every type of network connection, whether it is wired, wireless, VPN, or even FireWire, has the firewall enabled by default, with some built-in exceptions to allow connections from machines on the local network. It also fixed a problem whereby the firewall policies would not be enabled on a network connection until several seconds after the connection itself was created, thereby creating a window of vulnerability.[3] A number of additions were made to Group Policy, so that Windows system administrators could configure the Windows Firewall product on a company-wide level. XP's Windows Firewall cannot block outbound connections; it is only capable of blocking inbound ones. Windows Firewall turned out to be one of the two most significant reasons (the other being DCOM activation security)[4] that many corporations did not upgrade to Service Pack 2 in a timely fashion. Around the time of SP2's release, a number of Internet sites were reporting significant application compatibility issues, though the majority of those ended up being nothing more than ports that needed to be opened on the firewall so that components of distributed systems (typically backup and antivirus solutions) could communicate.
Note that the DCOM problem can be solved by moving applications to DComLab's ComBridge protocol.
CONTROLS Form – In the Visual Basic NET design time environment, the first thing to concentrate on is that strange, big square in the top left. That's called a form. It's actually the pretty bit of your programme, the part that others will see when they launch your masterpiece. Granted, it doesn't look too attractive at the moment, but you'll soon discover ways to lick it into shape.
Label –Label Labels are those controls that are used to display text in other parts of the application. They are based on the Control class. Notable property of the label control is the text property which is used to set the text for the label.
TextBox – Windows users should be familiar with textboxes. This control looks like a box and accepts input from the user. The TextBox is based on the TextBoxBase class which is based on the Control class. TextBoxes are used to accept input from the user or used to display text. By default we can enter up to 2048 characters in a TextBox but if the Multiline property is set to True we can enter up to 32KB of text. The image below displays a Textbox.
ComboBox ComboBox is a combination of a TextBox and a ListBox. The ComboBox displays an editing field (TextBox) combined with a ListBox allowing us to select from the list or to enter new text. ComboBox displays data in a drop-down style format. The ComboBox class is derived from the ListBox class. Below is the Image of a ComboBox.
Gridview – You need to use the DataGridView control in the VB.NET language targeting Windows Forms to display and provide an interface to your data. The DataGridView control is an excellent way to display and allow editing for your data, which can then be persisted in the database again. Here we look at some important parts of using the DataGridView control.
Button – One of the most popular control in Visual Basic is the Button Control (previously Command Control). They are the controls which we click and release to perform some action. Buttons are used mostly for handling events in code, say, for sending data entered in the form to the database and so on. The default event of the Button is the Click event and the Button class is based on the ButtonBase class which is based on the Control class.
Menu Script –
Context menus are menus that appear when an item is right-clicked. In any windows application when you right-click your mouse you get a menu which might display some shortcuts from the Edit Menu, for example, cut, copy, paste, paste special and so on. All these menu items which are available when you right-click are called Context Menus. In Visual Basic we create context menus with the ContextMenu component. The ContextMenu component is edited exactly the same way the MainMenu component is edited. The ContextMenu appears at the top of the form and you can add menu items by typing them. To associate a ContextMenu with a particular form or control we need to set the ContextMenu property of that form or control to the appropriate menu.
FlowChart
Flow Chart
Start Splash
Login
Master
About Project
About Maker
WINDOWS XP FIREWALL
Data flow diagram
Level 0
Mailers
DataBase
Bibliography
• www.wikipedia.com
•
www.thecodeproject.com
Splash Form
Login Form
Main Form
Splash form
Public NotInheritable Class SplashScreen2 'TODO: This form can easily be set as the splash screen for the application by going to the "Application" tab ' of the Project Designer ("Properties" under the "Project" menu). Private Sub SplashScreen2_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load If My.Application.Info.Title <> "" Then ApplicationTitle.Text = My.Application.Info.Title Else 'If the application title is missing, use the application name, without the extension ApplicationTitle.Text = System.IO.Path.GetFileNameWithoutExtension(My.Application.I nfo.AssemblyName) End If Version.Text = System.String.Format(Version.Text, My.Application.Info.Version.Major, My.Application.Info.Version.Minor) 'Copyright info Copyright.Text = My.Application.Info.Copyright End Sub Dim i As Integer
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick Dim log As New LoginForm1 i = i + 1 If i = 10 Then log.Show() Me.Hide() End If End Sub End Class
Login form
Public Class LoginForm1 ' TODO: Insert code to perform custom authentication using the provided username and password ' (See http://go.microsoft.com/fwlink/?LinkId=35339). ' The custom principal can then be attached to the current thread's principal as follows: ' My.User.CurrentPrincipal = CustomPrincipal ' where CustomPrincipal is the IPrincipal implementation used to perform authentication. ' Subsequently, My.User will return identity information encapsulated in the CustomPrincipal object ' such as the username, display name, etc. Private Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK.Click If UsernameTextBox.Text = "Jaanu" And PasswordTextBox.Text = "priya" Then Dim a As New FrmMaster a.Show() Me.Hide() Else MessageBox.Show("invalid user") End If End Sub Private Sub Cancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cancel.Click Me.Close() End Sub Private Sub LoginForm1_FormClosed(ByVal sender As System.Object, ByVal e As
System.Windows.Forms.FormClosedEventArgs) Handles MyBase.FormClosed Application.Exit() End Sub End Class
FrmMaster
Public Class FrmMaster
Private Sub FrmMaster_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load End Sub Private Sub CloseToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Application.Exit() End Sub Private Sub HowDoIToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HowDoIToolStripMenuItem.Click Dim obj As New frmAboutProject obj.ShowDialog() End Sub Private Sub SearchToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SearchToolStripMenuItem.Click Dim obj As New frmAboutMaker obj.ShowDialog() End Sub Private Sub CodeToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CodeToolStripMenuItem.Click Dim obj As New FormDisplayReportSender()
obj.ShowDialog() End Sub Private Sub DesignerToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DesignerToolStripMenuItem.Click Dim obj As New FormDisplayReport() obj.ShowDialog() End Sub Private Sub OpenToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OpenToolStripMenuItem1.Click Dim obj As New FormDisplayReportReceiver() obj.ShowDialog() End Sub
Private Sub FromofficeToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FromofficeToolStripMenuItem.Click Dim obj As New FormOffice() obj.ShowDialog() End Sub Private Sub FormdesignationToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FormdesignationToolStripMenuItem.Click Dim obj As New FormDesignation() obj.ShowDialog() End Sub Private Sub FormuserToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FormuserToolStripMenuItem.Click Dim obj As New User() obj.ShowDialog()
End Sub Private Sub FToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FToolStripMenuItem.Click End Sub End Class
Main form Imports Imports Imports Imports vbAccelerator.Components.Controls System.IO System.Threading System.Reflection
Public Class frmMain Inherits System.Windows.Forms.Form #Region " Vom Windows Form Designer generierter Code " Public Sub New() MyBase.New() ' Dieser Aufruf ist für den Windows Form-Designer erforderlich. bolOnReading = True Application.EnableVisualStyles() InitializeComponent() ' Initialisierungen nach dem Aufruf InitializeComponent() hinzufügen End Sub ' Die Form überschreibt den Löschvorgang der Basisklasse, um Komponenten zu bereinigen. Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean) If disposing Then If Not (components Is Nothing) Then components.Dispose() End If End If MyBase.Dispose(disposing) End Sub ' Für Windows Form-Designer erforderlich
Private components As System.ComponentModel.IContainer 'HINWEIS: Die folgende Prozedur ist für den Windows FormDesigner erforderlich 'Sie kann mit dem Windows Form-Designer modifiziert werden. 'Verwenden Sie nicht den Code-Editor zur Bearbeitung. Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox Friend WithEvents Splitter1 As System.Windows.Forms.Splitter Friend WithEvents panelMain As System.Windows.Forms.Panel Friend WithEvents grpProgrammAusnahmen As System.Windows.Forms.GroupBox Friend WithEvents lsvProgramme As System.Windows.Forms.ListView Friend WithEvents cmdHinzufuegen As System.Windows.Forms.Button Friend WithEvents grpPorts As System.Windows.Forms.GroupBox Friend WithEvents cmdAddPorts As System.Windows.Forms.Button Friend WithEvents imgNavbar As System.Windows.Forms.ImageList Friend WithEvents barNavigation As vbAccelerator.Components.Controls.acclExplorerBar Friend WithEvents lblCaption As System.Windows.Forms.Label Friend WithEvents imgProgrammIcon As System.Windows.Forms.ImageList Friend WithEvents statMain As System.Windows.Forms.StatusBar Friend WithEvents progMain As System.Windows.Forms.ProgressBar Friend WithEvents lblDescription As System.Windows.Forms.Label Friend WithEvents cmdProgrammEntfernen As System.Windows.Forms.Button Friend WithEvents panelPorts As System.Windows.Forms.Panel
Friend WithEvents Label1 As System.Windows.Forms.Label Friend WithEvents grpOpenPorts As System.Windows.Forms.GroupBox Friend WithEvents lsvFreiePorts As System.Windows.Forms.ListView Friend WithEvents Label2 As System.Windows.Forms.Label Friend WithEvents lsvPorts As System.Windows.Forms.ListView Friend WithEvents panelAllgemein As System.Windows.Forms.Panel Friend WithEvents grpFirewallStatus As System.Windows.Forms.GroupBox Friend WithEvents cmdDeaktivieren As System.Windows.Forms.Button Friend WithEvents cmdAktivieren As System.Windows.Forms.Button Friend WithEvents lblStatus As System.Windows.Forms.Label Friend WithEvents imgStatus As System.Windows.Forms.PictureBox Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox Friend WithEvents chkICMP As System.Windows.Forms.CheckBox Friend WithEvents panelLog As System.Windows.Forms.Panel Friend WithEvents MenuStrip1 As System.Windows.Forms.MenuStrip Friend WithEvents FileToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem Friend WithEvents AboutProjectToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem Friend WithEvents AboutMakersToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem Friend WithEvents gridLog As System.Windows.Forms.DataGrid <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent() Me.components = New System.ComponentModel.Container Dim resources As System.ComponentModel.ComponentResourceManager = New
System.ComponentModel.ComponentResourceManager(GetType(frmM ain)) Me.barNavigation = New vbAccelerator.Components.Controls.acclExplorerBar Me.Splitter1 = New System.Windows.Forms.Splitter Me.panelMain = New System.Windows.Forms.Panel Me.panelLog = New System.Windows.Forms.Panel Me.gridLog = New System.Windows.Forms.DataGrid Me.grpOpenPorts = New System.Windows.Forms.GroupBox Me.Label2 = New System.Windows.Forms.Label Me.lsvFreiePorts = New System.Windows.Forms.ListView Me.grpProgrammAusnahmen = New System.Windows.Forms.GroupBox Me.cmdProgrammEntfernen = New System.Windows.Forms.Button Me.cmdHinzufuegen = New System.Windows.Forms.Button Me.lsvProgramme = New System.Windows.Forms.ListView Me.grpPorts = New System.Windows.Forms.GroupBox Me.panelPorts = New System.Windows.Forms.Panel Me.lsvPorts = New System.Windows.Forms.ListView Me.Label1 = New System.Windows.Forms.Label Me.cmdAddPorts = New System.Windows.Forms.Button Me.panelAllgemein = New System.Windows.Forms.Panel Me.GroupBox1 = New System.Windows.Forms.GroupBox Me.chkICMP = New System.Windows.Forms.CheckBox Me.grpFirewallStatus = New System.Windows.Forms.GroupBox Me.cmdDeaktivieren = New System.Windows.Forms.Button Me.cmdAktivieren = New System.Windows.Forms.Button Me.lblStatus = New System.Windows.Forms.Label Me.lblDescription = New System.Windows.Forms.Label Me.progMain = New System.Windows.Forms.ProgressBar Me.statMain = New System.Windows.Forms.StatusBar Me.imgNavbar = New System.Windows.Forms.ImageList(Me.components) Me.lblCaption = New System.Windows.Forms.Label Me.imgProgrammIcon = New System.Windows.Forms.ImageList(Me.components)
Me.MenuStrip1 = New System.Windows.Forms.MenuStrip Me.FileToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem Me.imgStatus = New System.Windows.Forms.PictureBox Me.PictureBox1 = New System.Windows.Forms.PictureBox Me.AboutProjectToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem Me.AboutMakersToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem Me.panelMain.SuspendLayout() Me.panelLog.SuspendLayout() CType(Me.gridLog, System.ComponentModel.ISupportInitialize).BeginInit() Me.grpOpenPorts.SuspendLayout() Me.grpProgrammAusnahmen.SuspendLayout() Me.grpPorts.SuspendLayout() Me.panelPorts.SuspendLayout() Me.panelAllgemein.SuspendLayout() Me.GroupBox1.SuspendLayout() Me.grpFirewallStatus.SuspendLayout() Me.MenuStrip1.SuspendLayout() CType(Me.imgStatus, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit() Me.SuspendLayout() ' 'barNavigation ' Me.barNavigation.AnimateStateChanges = True Me.barNavigation.BackColorEnd = System.Drawing.Color.Empty Me.barNavigation.BackColorStart = System.Drawing.Color.Empty Me.barNavigation.Dock = System.Windows.Forms.DockStyle.Left Me.barNavigation.DrawingStyle = vbAccelerator.Components.Controls.ExplorerBarDrawingStyle.S ystem
Me.barNavigation.ImageList = Nothing Me.barNavigation.Location = New System.Drawing.Point(0, 74) Me.barNavigation.Mode = vbAccelerator.Components.Controls.ExplorerBarMode.[Default] Me.barNavigation.Name = "barNavigation" Me.barNavigation.Redraw = True Me.barNavigation.ShowFocusRect = True Me.barNavigation.Size = New System.Drawing.Size(150, 340) Me.barNavigation.TabIndex = 1 Me.barNavigation.TitleImageList = Nothing Me.barNavigation.ToolTip = Nothing ' 'Splitter1 ' Me.Splitter1.Location = New System.Drawing.Point(150, 74) Me.Splitter1.Name = "Splitter1" Me.Splitter1.Size = New System.Drawing.Size(3, 340) Me.Splitter1.TabIndex = 2 Me.Splitter1.TabStop = False ' 'panelMain ' Me.panelMain.Controls.Add(Me.panelLog) Me.panelMain.Controls.Add(Me.grpOpenPorts) Me.panelMain.Controls.Add(Me.grpProgrammAusnahmen) Me.panelMain.Controls.Add(Me.grpPorts) Me.panelMain.Controls.Add(Me.panelAllgemein) Me.panelMain.Controls.Add(Me.lblDescription) Me.panelMain.Controls.Add(Me.progMain) Me.panelMain.Controls.Add(Me.statMain) Me.panelMain.Dock = System.Windows.Forms.DockStyle.Fill Me.panelMain.Location = New System.Drawing.Point(153, 74) Me.panelMain.Name = "panelMain" Me.panelMain.Size = New System.Drawing.Size(503, 340)
Me.panelMain.TabIndex = 3 ' 'panelLog ' Me.panelLog.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ Or System.Windows.Forms.AnchorStyles.Left) _ Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.panelLog.Controls.Add(Me.gridLog) Me.panelLog.Location = New System.Drawing.Point(8, 10) Me.panelLog.Name = "panelLog" Me.panelLog.Size = New System.Drawing.Size(488, 294) Me.panelLog.TabIndex = 8 Me.panelLog.Visible = False ' 'gridLog ' Me.gridLog.AllowNavigation = False Me.gridLog.DataMember = "" Me.gridLog.Dock = System.Windows.Forms.DockStyle.Fill Me.gridLog.HeaderForeColor = System.Drawing.SystemColors.ControlText Me.gridLog.Location = New System.Drawing.Point(0, 0) Me.gridLog.Name = "gridLog" Me.gridLog.ReadOnly = True Me.gridLog.Size = New System.Drawing.Size(488, 294) Me.gridLog.TabIndex = 0 ' 'grpOpenPorts '
Me.grpOpenPorts.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ Or System.Windows.Forms.AnchorStyles.Left) _ Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.grpOpenPorts.Controls.Add(Me.Label2) Me.grpOpenPorts.Controls.Add(Me.lsvFreiePorts) Me.grpOpenPorts.FlatStyle = System.Windows.Forms.FlatStyle.System Me.grpOpenPorts.Location = New System.Drawing.Point(8, 10) Me.grpOpenPorts.Name = "grpOpenPorts" Me.grpOpenPorts.Size = New System.Drawing.Size(488, 294) Me.grpOpenPorts.TabIndex = 6 Me.grpOpenPorts.TabStop = False Me.grpOpenPorts.Visible = False ' 'Label2 ' Me.Label2.BackColor = System.Drawing.SystemColors.ControlDark Me.Label2.Dock = System.Windows.Forms.DockStyle.Top Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label2.ForeColor = System.Drawing.Color.White Me.Label2.Location = New System.Drawing.Point(3, 16) Me.Label2.Name = "Label2" Me.Label2.Size = New System.Drawing.Size(482, 23) Me.Label2.TabIndex = 9 Me.Label2.Text = "Globally open ports" Me.Label2.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' 'lsvFreiePorts
' Me.lsvFreiePorts.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ Or System.Windows.Forms.AnchorStyles.Left) _ Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.lsvFreiePorts.Location = New System.Drawing.Point(15, 46) Me.lsvFreiePorts.Name = "lsvFreiePorts" Me.lsvFreiePorts.Size = New System.Drawing.Size(458, 242) Me.lsvFreiePorts.TabIndex = 8 Me.lsvFreiePorts.UseCompatibleStateImageBehavior = False ' 'grpProgrammAusnahmen ' Me.grpProgrammAusnahmen.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ Or System.Windows.Forms.AnchorStyles.Left) _ Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.grpProgrammAusnahmen.Controls.Add(Me.cmdProgrammEntferne n) Me.grpProgrammAusnahmen.Controls.Add(Me.cmdHinzufuegen) Me.grpProgrammAusnahmen.Controls.Add(Me.lsvProgramme) Me.grpProgrammAusnahmen.FlatStyle = System.Windows.Forms.FlatStyle.System Me.grpProgrammAusnahmen.Location = New System.Drawing.Point(8, 10)
Me.grpProgrammAusnahmen.Name = "grpProgrammAusnahmen" Me.grpProgrammAusnahmen.Size = New System.Drawing.Size(488, 294) Me.grpProgrammAusnahmen.TabIndex = 1 Me.grpProgrammAusnahmen.TabStop = False Me.grpProgrammAusnahmen.Text = "Programms and Services" Me.grpProgrammAusnahmen.Visible = False ' 'cmdProgrammEntfernen ' Me.cmdProgrammEntfernen.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.cmdProgrammEntfernen.FlatStyle = System.Windows.Forms.FlatStyle.System Me.cmdProgrammEntfernen.Location = New System.Drawing.Point(200, 262) Me.cmdProgrammEntfernen.Name = "cmdProgrammEntfernen" Me.cmdProgrammEntfernen.Size = New System.Drawing.Size(136, 23) Me.cmdProgrammEntfernen.TabIndex = 2 Me.cmdProgrammEntfernen.Text = "&Remove Programm" ' 'cmdHinzufuegen ' Me.cmdHinzufuegen.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.cmdHinzufuegen.FlatStyle = System.Windows.Forms.FlatStyle.System Me.cmdHinzufuegen.Location = New System.Drawing.Point(342, 262) Me.cmdHinzufuegen.Name = "cmdHinzufuegen" Me.cmdHinzufuegen.Size = New System.Drawing.Size(136, 23)
Me.cmdHinzufuegen.TabIndex = 1 Me.cmdHinzufuegen.Text = "&Add Programm" ' 'lsvProgramme ' Me.lsvProgramme.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ Or System.Windows.Forms.AnchorStyles.Left) _ Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.lsvProgramme.Location = New System.Drawing.Point(8, 16) Me.lsvProgramme.Name = "lsvProgramme" Me.lsvProgramme.Size = New System.Drawing.Size(472, 240) Me.lsvProgramme.TabIndex = 0 Me.lsvProgramme.UseCompatibleStateImageBehavior = False ' 'grpPorts ' Me.grpPorts.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ Or System.Windows.Forms.AnchorStyles.Left) _ Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.grpPorts.Controls.Add(Me.panelPorts) Me.grpPorts.Controls.Add(Me.cmdAddPorts) Me.grpPorts.FlatStyle = System.Windows.Forms.FlatStyle.System Me.grpPorts.Location = New System.Drawing.Point(8, 10) Me.grpPorts.Name = "grpPorts"
294)
Me.grpPorts.Size = New System.Drawing.Size(488,
Me.grpPorts.TabIndex = 2 Me.grpPorts.TabStop = False Me.grpPorts.Visible = False ' 'panelPorts ' Me.panelPorts.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ Or System.Windows.Forms.AnchorStyles.Left) _ Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.panelPorts.Controls.Add(Me.lsvPorts) Me.panelPorts.Controls.Add(Me.Label1) Me.panelPorts.Location = New System.Drawing.Point(8, 16) Me.panelPorts.Name = "panelPorts" Me.panelPorts.Size = New System.Drawing.Size(472, 240) Me.panelPorts.TabIndex = 3 ' 'lsvPorts ' Me.lsvPorts.Dock = System.Windows.Forms.DockStyle.Fill Me.lsvPorts.Location = New System.Drawing.Point(0, 23) Me.lsvPorts.Name = "lsvPorts" Me.lsvPorts.Size = New System.Drawing.Size(472, 217) Me.lsvPorts.TabIndex = 4 Me.lsvPorts.UseCompatibleStateImageBehavior = False ' 'Label1 '
Me.Label1.BackColor = System.Drawing.SystemColors.ControlDark Me.Label1.Dock = System.Windows.Forms.DockStyle.Top Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label1.ForeColor = System.Drawing.Color.White Me.Label1.Location = New System.Drawing.Point(0, 0) Me.Label1.Name = "Label1" Me.Label1.Size = New System.Drawing.Size(472, 23) Me.Label1.TabIndex = 3 Me.Label1.Text = "Portlist" Me.Label1.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' 'cmdAddPorts ' Me.cmdAddPorts.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.cmdAddPorts.FlatStyle = System.Windows.Forms.FlatStyle.System Me.cmdAddPorts.Location = New System.Drawing.Point(296, 262) Me.cmdAddPorts.Name = "cmdAddPorts" Me.cmdAddPorts.Size = New System.Drawing.Size(184, 23) Me.cmdAddPorts.TabIndex = 2 Me.cmdAddPorts.Text = "&Add selected Ports" ' 'panelAllgemein ' Me.panelAllgemein.Controls.Add(Me.GroupBox1) Me.panelAllgemein.Controls.Add(Me.grpFirewallStatus) Me.panelAllgemein.Location = New System.Drawing.Point(8, 10) Me.panelAllgemein.Name = "panelAllgemein"
Me.panelAllgemein.Size = New System.Drawing.Size(488, 318) Me.panelAllgemein.TabIndex = 7 ' 'GroupBox1 ' Me.GroupBox1.Controls.Add(Me.chkICMP) Me.GroupBox1.FlatStyle = System.Windows.Forms.FlatStyle.System Me.GroupBox1.Location = New System.Drawing.Point(0, 112) Me.GroupBox1.Name = "GroupBox1" Me.GroupBox1.Size = New System.Drawing.Size(488, 56) Me.GroupBox1.TabIndex = 2 Me.GroupBox1.TabStop = False ' 'chkICMP ' Me.chkICMP.FlatStyle = System.Windows.Forms.FlatStyle.System Me.chkICMP.Location = New System.Drawing.Point(12, 20) Me.chkICMP.Name = "chkICMP" Me.chkICMP.Size = New System.Drawing.Size(296, 24) Me.chkICMP.TabIndex = 0 Me.chkICMP.Text = "Allow Incoming Echo Requests" ' 'grpFirewallStatus ' Me.grpFirewallStatus.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.grpFirewallStatus.Controls.Add(Me.cmdDeaktivieren) Me.grpFirewallStatus.Controls.Add(Me.cmdAktivieren) Me.grpFirewallStatus.Controls.Add(Me.lblStatus)
Me.grpFirewallStatus.Controls.Add(Me.imgStatus) Me.grpFirewallStatus.FlatStyle = System.Windows.Forms.FlatStyle.System Me.grpFirewallStatus.Location = New System.Drawing.Point(0, 0) Me.grpFirewallStatus.Name = "grpFirewallStatus" Me.grpFirewallStatus.Size = New System.Drawing.Size(488, 104) Me.grpFirewallStatus.TabIndex = 1 Me.grpFirewallStatus.TabStop = False Me.grpFirewallStatus.Text = "Firewall Status" ' 'cmdDeaktivieren ' Me.cmdDeaktivieren.FlatStyle = System.Windows.Forms.FlatStyle.System Me.cmdDeaktivieren.Location = New System.Drawing.Point(111, 67) Me.cmdDeaktivieren.Name = "cmdDeaktivieren" Me.cmdDeaktivieren.Size = New System.Drawing.Size(88, 23) Me.cmdDeaktivieren.TabIndex = 3 Me.cmdDeaktivieren.Text = "&Deactivate" ' 'cmdAktivieren ' Me.cmdAktivieren.FlatStyle = System.Windows.Forms.FlatStyle.System Me.cmdAktivieren.Location = New System.Drawing.Point(10, 67) Me.cmdAktivieren.Name = "cmdAktivieren" Me.cmdAktivieren.Size = New System.Drawing.Size(88, 23) Me.cmdAktivieren.TabIndex = 2 Me.cmdAktivieren.Text = "&Activate" ' 'lblStatus ' Me.lblStatus.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!,
System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.lblStatus.Location = New System.Drawing.Point(56, 24) Me.lblStatus.Name = "lblStatus" Me.lblStatus.Size = New System.Drawing.Size(360, 23) Me.lblStatus.TabIndex = 1 Me.lblStatus.Text = "Firewall Status: " Me.lblStatus.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' 'lblDescription ' Me.lblDescription.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.lblDescription.Location = New System.Drawing.Point(32, 322) Me.lblDescription.Name = "lblDescription" Me.lblDescription.Size = New System.Drawing.Size(100, 14) Me.lblDescription.TabIndex = 5 ' 'progMain ' Me.progMain.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.progMain.Location = New System.Drawing.Point(152, 319) Me.progMain.Name = "progMain" Me.progMain.Size = New System.Drawing.Size(328, 16) Me.progMain.TabIndex = 4 ' 'statMain '
318)
Me.statMain.Location = New System.Drawing.Point(0,
Me.statMain.Name = "statMain" Me.statMain.Size = New System.Drawing.Size(503, 22) Me.statMain.TabIndex = 3 ' 'imgNavbar ' Me.imgNavbar.ImageStream = CType(resources.GetObject("imgNavbar.ImageStream"), System.Windows.Forms.ImageListStreamer) Me.imgNavbar.TransparentColor = System.Drawing.Color.Transparent Me.imgNavbar.Images.SetKeyName(0, "") ' 'lblCaption ' Me.lblCaption.BackColor = System.Drawing.Color.FromArgb(CType(CType(139, Byte), Integer), CType(CType(169, Byte), Integer), CType(CType(229, Byte), Integer)) Me.lblCaption.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.lblCaption.ForeColor = System.Drawing.Color.White Me.imgProgrammIcon.ColorDepth = System.Windows.Forms.ColorDepth.Depth8Bit Me.imgProgrammIcon.ImageSize = New System.Drawing.Size(16, 16) Me.imgProgrammIcon.TransparentColor = System.Drawing.Color.Transparent ' 'MenuStrip1 ' Me.MenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.FileToolStripMenuItem})
Me.MenuStrip1.Location = New System.Drawing.Point(0, 0) Me.MenuStrip1.Name = "MenuStrip1" Me.MenuStrip1.Size = New System.Drawing.Size(656, 24) Me.MenuStrip1.TabIndex = 5 Me.MenuStrip1.Text = "MenuStrip1" ' 'FileToolStripMenuItem ' Me.FileToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.AboutProjectToolStripMenuItem, Me.AboutMakersToolStripMenuItem}) Me.FileToolStripMenuItem.Name = "FileToolStripMenuItem" Me.FileToolStripMenuItem.Size = New System.Drawing.Size(35, 20) Me.FileToolStripMenuItem.Text = "File" ' 'imgStatus ' Me.imgStatus.Image = CType(resources.GetObject("imgStatus.Image"), System.Drawing.Image) Me.imgStatus.Location = New System.Drawing.Point(10, 18) Me.imgStatus.Name = "imgStatus" Me.imgStatus.Size = New System.Drawing.Size(40, 40) Me.imgStatus.TabIndex = 0 Me.imgStatus.TabStop = False ' 'PictureBox1 ' Me.PictureBox1.BackColor = System.Drawing.Color.FromArgb(CType(CType(139, Byte), Integer), CType(CType(169, Byte), Integer), CType(CType(229, Byte), Integer)) Me.PictureBox1.Dock = System.Windows.Forms.DockStyle.Top
Me.PictureBox1.Image = CType(resources.GetObject("PictureBox1.Image"), System.Drawing.Image) Me.PictureBox1.Location = New System.Drawing.Point(0, 24) Me.PictureBox1.Name = "PictureBox1" Me.PictureBox1.Size = New System.Drawing.Size(656, 50) Me.PictureBox1.TabIndex = 0 Me.PictureBox1.TabStop = False ' 'AboutProjectToolStripMenuItem ' Me.AboutProjectToolStripMenuItem.Image = Global.XPF.My.Resources.Resources.projecttttttttttttttttttt Me.AboutProjectToolStripMenuItem.Name = "AboutProjectToolStripMenuItem" Me.AboutProjectToolStripMenuItem.Size = New System.Drawing.Size(152, 22) Me.AboutProjectToolStripMenuItem.Text = "About Project" ' 'AboutMakersToolStripMenuItem ' Me.AboutMakersToolStripMenuItem.Image = Global.XPF.My.Resources.Resources.maker_ Me.AboutMakersToolStripMenuItem.Name = "AboutMakersToolStripMenuItem" Me.AboutMakersToolStripMenuItem.Size = New System.Drawing.Size(152, 22) Me.AboutMakersToolStripMenuItem.Text = "About Makers" ' 'frmMain ' Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13) Me.ClientSize = New System.Drawing.Size(656, 414) Me.Controls.Add(Me.lblCaption) Me.Controls.Add(Me.panelMain)
Me.Controls.Add(Me.Splitter1) Me.Controls.Add(Me.barNavigation) Me.Controls.Add(Me.PictureBox1) Me.Controls.Add(Me.MenuStrip1) Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon) Me.MainMenuStrip = Me.MenuStrip1 Me.MaximizeBox = False Me.Name = "frmMain" Me.Text = "XPF" Me.panelMain.ResumeLayout(False) Me.panelLog.ResumeLayout(False) CType(Me.gridLog, System.ComponentModel.ISupportInitialize).EndInit() Me.grpOpenPorts.ResumeLayout(False) Me.grpProgrammAusnahmen.ResumeLayout(False) Me.grpPorts.ResumeLayout(False) Me.panelPorts.ResumeLayout(False) Me.panelAllgemein.ResumeLayout(False) Me.GroupBox1.ResumeLayout(False) Me.grpFirewallStatus.ResumeLayout(False) Me.MenuStrip1.ResumeLayout(False) Me.MenuStrip1.PerformLayout() CType(Me.imgStatus, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit() Me.ResumeLayout(False) Me.PerformLayout() End Sub #End Region '--> Navigation Enum Private Enum enNavigation Allgemein = 0 Programme = 1 Ports = 2 GlobalOpenPorts = 3
Log = 4 End Enum Private Private Private Private Private Private Const LinesInDocument As Integer = 8869 oFirwall As cFirewall = Nothing imgEnabled As Image = Nothing imgDisabled As Image = Nothing readThread As Thread = Nothing bolOnReading As Boolean = False
#Region " Inits " '--> Create Navbar (Vbaccelerator Ctrl) Private Sub initNavbar() Dim bar As ExplorerBar Dim linkItem As ExplorerBarLinkItem Me.barNavigation.DrawingStyle = ExplorerBarDrawingStyle.XP Me.barNavigation.TitleImageList = Me.imgNavbar Try Me.barNavigation.Redraw = False bar = New ExplorerBar bar.IsSpecial = True bar.IconIndex = 0 bar.Text = "XPF" linkItem = New ExplorerBarLinkItem linkItem.Text = "Common" linkItem.Tag = "cmdAllgemein" bar.Items.Add(linkItem) linkItem = New ExplorerBarLinkItem linkItem.Text = "Programms" linkItem.Tag = "cmdPogramme" bar.Items.Add(linkItem) linkItem = New ExplorerBarLinkItem linkItem.Text = "Open Ports" linkItem.Tag = "cmdOpenPorts"
bar.Items.Add(linkItem) linkItem = New ExplorerBarLinkItem linkItem.Text = "Ports" linkItem.Tag = "cmdPorts" bar.Items.Add(linkItem) linkItem = New ExplorerBarLinkItem linkItem.Text = "Log" linkItem.Tag = "cmdLog" bar.Items.Add(linkItem) Me.barNavigation.Bars.Add(bar) Me.barNavigation.Redraw = True Catch End Try End Sub Private Sub initProgrammListview() With Me.lsvProgramme .SmallImageList = imgProgrammIcon .View = View.Details .CheckBoxes = True .Columns.Add("Programname", 300, HorizontalAlignment.Right) End With End Sub Private Sub initPortListView() With Me.lsvPorts .View = View.Details .CheckBoxes = True .Columns.Add("Port", 50, HorizontalAlignment.Center) .Columns.Add("Type", 50, HorizontalAlignment.Center) .Columns.Add(" ", 100, HorizontalAlignment.Center)
.Columns.Add("Description", 200, HorizontalAlignment.Center) .Columns.Add("Trojan Info", 200, HorizontalAlignment.Center) End With End Sub Private Sub initOpenPortListView() With Me.lsvFreiePorts .View = View.Details .Columns.Add("Port", 50, HorizontalAlignment.Center) .Columns.Add("Type", 50, HorizontalAlignment.Center) .Columns.Add("Name", 100, HorizontalAlignment.Center) End With End Sub Private Sub initPictures() '--> Get embedded Picture ressources imgEnabled = _ New System.Drawing.Bitmap([Assembly].GetExecutingAssembly().Get ManifestResourceStream("XPF.Aktiv.jpg")) imgDisabled = _ New System.Drawing.Bitmap([Assembly].GetExecutingAssembly().Get ManifestResourceStream("XPF.Inaktiv.jpg")) End Sub Private Sub ReadPortList() '--> read PortList from Application startup Directory '--> contains Portdescription Dim reader As StreamReader Dim strLine As String = String.Empty Dim strLineArray() As String = Nothing Dim lsvItem As ListViewItem
Try Me.progMain.Visible = True Me.progMain.Maximum = LinesInDocument Me.progMain.Minimum = 1 Me.lblDescription.Text = "Read PortList" Me.lsvPorts.Items.Clear() reader = New StreamReader("F:\FIrewalll\Firewall\xpfirewall\Portlist.txt") 'Application.StartupPath & "\Portlist.txt") While reader.Peek <> -1 strLine = reader.ReadLine If Not strLine Is Nothing Then strLineArray = strLine.Split("|") lsvItem = New ListViewItem(strLineArray(0)) For idx As Integer = 1 To strLineArray.GetUpperBound(0) lsvItem.SubItems.Add(strLineArray(idx)) Next If Not lsvItem Is Nothing Then Me.lsvPorts.Items.Add(lsvItem) Me.progMain.Value += 1 End If End While reader.Close() Me.progMain.Visible = False Me.lblDescription.Text = String.Empty Catch ex As Exception MessageBox.Show("No Portlist available", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error, MessageBoxDefaultButton.Button1) End Try End Sub
Private Sub ReadProgrammList() '--> read services and programms excluded from XP Firewall Dim arrProgramms As ArrayList Dim retProgramm As cFirewall.structAktiveApp Dim lsvItem As ListViewItem Dim lngImageCounter As Long = 0 Dim icoSource As New cExtractIcon Dim curIcon As Icon Try Me.lsvProgramme.Items.Clear() Me.progMain.Visible = True Me.lblDescription.Text = "Read Programs" arrProgramms = oFirwall.GetAllowedProgramms Me.progMain.Minimum = 1 Me.progMain.Maximum = arrProgramms.Count + 1 Me.progMain.Value = 1 If arrProgramms Is Nothing Then Exit Sub For Each retProgramm In arrProgramms lsvItem = New ListViewItem(retProgramm.AppName) curIcon = icoSource.ExtractFromFile(retProgramm.AppImage) If curIcon Is Nothing Then Me.imgProgrammIcon.Images.Add(Me.Icon) Else Me.imgProgrammIcon.Images.Add(icoSource.ExtractFromFile(ret Programm.AppImage)) End If lsvItem.ImageIndex = lngImageCounter lsvItem.Tag = retProgramm.appLocation Me.lsvProgramme.Items.Add(lsvItem) Me.progMain.Value += 1 Thread.Sleep(100) lngImageCounter += 1 Next Me.progMain.Visible = False
Me.lblDescription.Text = String.Empty Catch ex As Exception End Try End Sub Private Sub ReadOpenPortList() '--> Read all open Ports Dim arrOpenPorts As ArrayList Dim retPort As cFirewall.structPort Dim lsvItem As ListViewItem Try Me.lsvFreiePorts.Items.Clear() Me.progMain.Visible = True Me.lblDescription.Text = "Read open Ports" arrOpenPorts = oFirwall.OpenPortList Me.progMain.Minimum = 1 Me.progMain.Maximum = arrOpenPorts.Count + 1 Me.progMain.Value = 1 For Each retPort In arrOpenPorts lsvItem = New ListViewItem(retPort.PortNumber) lsvItem.SubItems.Add(retPort.Protocol) lsvItem.SubItems.Add(retPort.Name) Me.lsvFreiePorts.Items.Add(lsvItem) Me.progMain.Value += 1 Thread.Sleep(100) Next Me.progMain.Visible = False Me.lblDescription.Text = String.Empty Catch ex As Exception End Try End Sub
Private Sub ReadLogFile() '--> Gets LogFile information (if enabled) '--> File is normally under C:\Windows\pfirewall.log Dim oLog As New cFirewallLog oLog.FillDatasource() Me.gridLog.DataSource = oLog.FirewallLog End Sub Private Sub CheckFirewallStatus() '--> Gets the firewall status (enabled, disabled) Me.lblStatus.Text = String.Empty If oFirwall.FirewallStatus = True Then If Not imgEnabled Is Nothing Then Me.imgStatus.Image = imgEnabled Me.lblStatus.Text = "Firewall Status: active" Else If Not imgDisabled Is Nothing Then Me.imgStatus.Image = imgDisabled Me.lblStatus.Text = "Firewall Status: inactive" End If End Sub Private Sub checkICMP() '--> check if incoming ICMP is allowed If oFirwall.IsIncomingICMPAllowed Then Me.chkICMP.Checked = True Else Me.chkICMP.Checked = False End If End Sub
#End Region Private Sub frmMain_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load Call initNavbar() Call initProgrammListview() Call initPortListView() Call initPictures() Call initOpenPortListView() Me.progMain.Visible = False oFirwall = New cFirewall Call CheckFirewallStatus() Call checkICMP() bolOnReading = False readThread = New Thread(AddressOf ReadMethods) ReadThread.Start() End Sub Private Sub ReadMethods() Call Call Call Call ReadPortList() ReadProgrammList() ReadOpenPortList() ReadLogFile()
End Sub Private Sub barNavigation_ItemClick(ByVal sender As Object, ByVal args As vbAccelerator.Components.Controls.ExplorerBarItemClickEvent Args) Handles barNavigation.ItemClick Select Case args.Item.Tag Case "cmdAllgemein" : Call GrpVisible(enNavigation.Allgemein) Case "cmdPogramme" : Call GrpVisible(enNavigation.Programme)
Case "cmdPorts" : Call GrpVisible(enNavigation.Ports) Case "cmdOpenPorts" : Call GrpVisible(enNavigation.GlobalOpenPorts) Case "cmdLog" : Call GrpVisible(enNavigation.Log) End Select End Sub Private Sub GrpVisible(ByVal Entry As enNavigation) Select Case Entry Case enNavigation.Allgemein Me.grpPorts.Visible = False Me.grpProgrammAusnahmen.Visible = False Me.panelAllgemein.Visible = True Me.grpOpenPorts.Visible = False Me.panelLog.Visible = False Case enNavigation.Ports Me.grpPorts.Visible = True Me.grpProgrammAusnahmen.Visible = False Me.panelAllgemein.Visible = False Me.grpOpenPorts.Visible = False Me.panelLog.Visible = False Case enNavigation.GlobalOpenPorts Me.grpPorts.Visible = False Me.grpProgrammAusnahmen.Visible = False Me.panelAllgemein.Visible = False Me.grpOpenPorts.Visible = True Me.panelLog.Visible = False Case enNavigation.Log Me.grpPorts.Visible = False Me.grpProgrammAusnahmen.Visible = False Me.panelAllgemein.Visible = False Me.grpOpenPorts.Visible = False Me.panelLog.Visible = True End Select End Sub
Private Sub cmdHinzufuegen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdHinzufuegen.Click Dim dlg As New OpenFileDialog Dim bolSuccess As Boolean = False With dlg .Title = "Programm hinzufügen ... " .Filter = "Ausführbare Dateien (*.exe)|*.exe" If .ShowDialog = Windows.Forms.DialogResult.OK Then bolSuccess = oFirwall.AddApplication(New FileInfo(.FileName)) If bolSuccess Then Me.lsvProgramme.Items.Clear() Call ReadProgrammList() End If End If End With End Sub Private Sub cmdProgrammEntfernen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdProgrammEntfernen.Click Dim bolsuccess As Boolean = False 1 For idx As Integer = 0 To Me.lsvProgramme.Items.Count -
If Me.lsvProgramme.Items(idx).Checked Then bolsuccess = oFirwall.RemoveApplication(Me.lsvProgramme.Items(idx)) End If Next Call ReadProgrammList()
End Sub Private Sub cmdAktivieren_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) oFirwall.EnableFirewall() Call CheckFirewallStatus() End Sub Private Sub cmdDeaktivieren_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) oFirwall.DisableFirewall() Call CheckFirewallStatus() End Sub Private Sub cmdAddPorts_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdAddPorts.Click Me.progMain.Visible = True Me.progMain.Minimum = 1 Me.progMain.Maximum = Me.lsvPorts.Items.Count - 1 For Each itm As ListViewItem In Me.lsvPorts.Items If itm.Checked = True Then oFirwall.AddPortToFirewall(itm.SubItems(2).Text, itm.SubItems(1).Text, itm.Text) itm.Checked = False Me.progMain.Value += 1 End If Next Call ReadOpenPortList() End Sub Private Sub chkICMP_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkICMP.CheckedChanged
If bolOnReading = False Then oFirwall.AllowIncomingICMP(Me.chkICMP.Checked) End If End Sub Private Sub AboutProjectToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AboutProjectToolStripMenuItem.Click Dim obj As New AboutBox1 obj.Show() End Sub End Class
Module Imports System.IO Public Class cFirewallLog Private tbl As DataTable = Nothing Private LogFile As String = String.Empty Private winDir As DirectoryInfo Public ReadOnly Property FirewallLog() As DataTable Get Return tbl End Get End Property Private Sub CreateTable() '--> Create datatable that contains log Information Dim colDate As New DataColumn("Date", GetType(System.DateTime)) Dim colTime As New DataColumn("Time", GetType(System.DateTime))
Dim colAction As New DataColumn("Action", GetType(System.String)) Dim colProtocol As New DataColumn("Protocol", GetType(System.String)) Dim colSrcIP As New DataColumn("Source-IP", GetType(System.String)) Dim colDestIP As New DataColumn("Destination-IP", GetType(System.String)) Dim colSrcPort As New DataColumn("Source-Port", GetType(System.String)) Dim colDestProt As New DataColumn("Destination-Port", GetType(System.String)) Dim colSize As New DataColumn("Size", GetType(System.String)) Dim colFlags As New DataColumn("Flags", GetType(System.String)) tbl = New DataTable("FireLog") tbl.Columns.AddRange(New DataColumn() {colDate, colTime, colAction, colProtocol, _ colSrcIP, colDestIP, colSrcPort, colDestProt, colSize, colFlags}) End Sub Public Sub FillDatasource() Dim sysDir As New DirectoryInfo(Environment.GetFolderPath(Environment.Special Folder.System)) winDir = sysDir.Parent LogFile = "C:\WINDOWS\pfirewall.log" 'winDir.FullName.ToString & "\pfirewall.log" Call CreateTable() '--> check if Firewall exists in standardfolder, otherwise shop openfile dlg If Not File.Exists(Logfile) Then Dim dlg As New OpenFileDialog dlg.InitialDirectory = winDir.FullName
dlg.Filter = "*.log|*.log" dlg.Title = "Select Logfile" If dlg.ShowDialog = DialogResult.OK Then Logfile = dlg.FileName Else Application.Exit() End If End If '--> Copy File to temp path for reading because file may be in '--> exclusive use by firewall Dim strTempPath = Environment.GetEnvironmentVariable("TEMP") IO.File.Copy(LogFile, strTempPath & "\Logfile.txt", True) LogFile = strTempPath & "\Logfile.txt" '--> read information from Lofile in temp folder to datatable Try Dim stream As New IO.StreamReader(LogFile, FileMode.Open) Dim strTemp As String = String.Empty Dim strInformation As String = String.Empty Dim strInfoArray() As String Dim idx As Integer = 0 Dim row As DataRow While stream.Peek <> -1 strTemp = stream.ReadLine If strTemp.StartsWith("#") Then strInformation += strTemp & vbCrLf Else If strTemp.Trim.Length > 0 Then strInfoArray = strTemp.Split(" ") row = tbl.NewRow For idx = 0 To 9
row(idx) = strInfoArray(idx) Next tbl.Rows.Add(row) End If End If End While stream.Close() IO.File.Delete(LogFile) Catch '--> just do nothing when error occurs Finally If IO.File.Exists(LogFile) Then IO.File.Delete(LogFile) End Try End Sub End Classuihyui'[9']hno9hn ugvb
Imports System.Console Module Program Sub Main() Dim rows As Integer ' Input validation. Do Until Integer.TryParse(ReadLine("Enter a value for how many rows to be displayed: "), rows) AndAlso rows >= 1 Module
WriteLine("Allowed range is 1 and {0}", Integer.MaxValue) Loop ' Output of Floyd's Triangle Dim current = 1 For row = 1 To rows For column = 1 To row Write("{0,-2} ", current) current += 1 Next Next End Sub ''' <summary> ''' Shadows Console.ReadLine with a version which takes a prompt string. ''' </summary> Function ReadLine(Optional prompt As String = Nothing) As String If prompt IsNot Nothing Then Write(prompt) End If Return Console.ReadLine() End Function WriteLine()
End Module
Conclusion
In the end, we each must find a project which works for us a system which enables us to face, evaluate and make the hard choices now and down the road. I deally practicing on situations which mimic life will provide a level of comfort and make the real dilemmas less anxiety proworking, we need to feel what our limits are, accept others may be guided by different values perspectives, and respect that most people already have their own internal standards for ethical behavior. uihyui'[9']hno9hn ugvbuihyui'[9']hno9hn ugvbuihyui'[9']hno9hn ugvbuihyui'[9']hno9hn ugvbuihyui'[9']hno9hn ugvbuihyui'[9']hno9hn ugvbuihyui'[9']hno9hn
ugvbuihyui'[9']hno9hn ugvbuihyui'[9']hno9hn ugvbuihyui'[9']hno9hn ugvbuihyui'[9']hno9hn ugvbuihyui'[9']hno9hn ugvbuihyui'[9']hno9hn ugvbuihyui'[9']hno9hn ugvb
doc_692022759.doc