AboutBox.vb
资源名称:xssshell.rar [点击查看]
上传用户:wangting
上传日期:2020-01-24
资源大小:2226k
文件大小:2k
源码类别:
破解
开发平台:
ASP/ASPX
- #Region "GPL License"
- 'This file is part of XSS Tunnel.
- '
- 'XSS Tunnel, XSS Tunneling tool
- 'Copyright (C) 2007 Ferruh Mavituna
- 'This program is free software; you can redistribute it and/or
- 'modify it under the terms of the GNU General Public License
- 'as published by the Free Software Foundation; either version 2
- 'of the License, or (at your option) any later version.
- 'This program is distributed in the hope that it will be useful,
- 'but WITHOUT ANY WARRANTY; without even the implied warranty of
- 'MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- 'GNU General Public License for more details.
- 'You should have received a copy of the GNU General Public License
- 'along with this program; if not, write to the Free Software
- 'Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
- #End Region
- Public NotInheritable Class AboutBox
- Private Sub AboutBox_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
- ' Set the title of the form.
- Dim ApplicationTitle As String
- If My.Application.Info.Title <> "" Then
- ApplicationTitle = My.Application.Info.Title
- Else
- ApplicationTitle = System.IO.Path.GetFileNameWithoutExtension(My.Application.Info.AssemblyName)
- End If
- Me.Text = String.Format("About {0}", ApplicationTitle)
- ' Initialize all of the text displayed on the About Box.
- ' TODO: Customize the application's assembly information in the "Application" pane of the project
- ' properties dialog (under the "Project" menu).
- Me.LabelProductName.Text = My.Application.Info.ProductName
- Me.LabelVersion.Text = String.Format("Version {0}", My.Application.Info.Version.ToString)
- Me.LabelCopyright.Text = My.Application.Info.Copyright
- Me.LabelCompanyName.Text = My.Application.Info.CompanyName
- Me.TextBoxDescription.Text = My.Application.Info.Description
- End Sub
- Private Sub OKButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OKButton.Click
- Me.Close()
- End Sub
- End Class