admin/Checker
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

added more buttons, still on the design part

Browse Source
This commit is contained in:
Darrel Israel
2024-06-03 10:27:23 +08:00
parent 8006a437f5
commit 585c30ee2d
10 changed files with 353 additions and 105 deletions
Download Patch File Download Diff File Expand all files Collapse all files
Checker/Checker.vbproj
+5
View File
@@ -47,6 +47,9 @@
<PropertyGroup>
<OptionInfer>On</OptionInfer>
</PropertyGroup>
<PropertyGroup>
<ApplicationManifest>app.manifest</ApplicationManifest>
</PropertyGroup>
<ItemGroup>
<Reference Include="MetroFramework, Version=1.4.0.0, Culture=neutral, PublicKeyToken=5f91a84759bf584a, processorArchitecture=MSIL">
<HintPath>..\packages\MetroModernUI.1.4.0.0\lib\net\MetroFramework.dll</HintPath>
@@ -99,6 +102,7 @@
<Compile Include="My Project\Application.Designer.vb">
<AutoGen>True</AutoGen>
<DependentUpon>Application.myapp</DependentUpon>
<DesignTime>True</DesignTime>
</Compile>
<Compile Include="My Project\Resources.Designer.vb">
<AutoGen>True</AutoGen>
@@ -126,6 +130,7 @@
</EmbeddedResource>
</ItemGroup>
<ItemGroup>
<None Include="app.manifest" />
<None Include="My Project\Application.myapp">
<Generator>MyApplicationCodeGenerator</Generator>
<LastGenOutput>Application.Designer.vb</LastGenOutput>
Checker/Import.Designer.vb
Generated
+116 -91
View File
@@ -33,9 +33,11 @@ Partial Class Import
Me.Panel6 = New System.Windows.Forms.Panel()
Me.Panel7 = New System.Windows.Forms.Panel()
Me.Panel12 = New System.Windows.Forms.Panel()
Me.ListBox1 = New System.Windows.Forms.ListBox()
Me.Panel11 = New System.Windows.Forms.Panel()
Me.Label4 = New System.Windows.Forms.Label()
Me.Panel10 = New System.Windows.Forms.Panel()
Me.btnRemove = New MetroFramework.Controls.MetroButton()
Me.btnBrowse = New MetroFramework.Controls.MetroButton()
Me.Panel13 = New System.Windows.Forms.Panel()
Me.Panel9 = New System.Windows.Forms.Panel()
@@ -44,18 +46,18 @@ Partial Class Import
Me.Panel15 = New System.Windows.Forms.Panel()
Me.Panel16 = New System.Windows.Forms.Panel()
Me.Panel17 = New System.Windows.Forms.Panel()
Me.btnRemove = New MetroFramework.Controls.MetroButton()
Me.ListBox1 = New System.Windows.Forms.ListBox()
Me.Panel18 = New System.Windows.Forms.Panel()
Me.Panel19 = New System.Windows.Forms.Panel()
Me.Panel20 = New System.Windows.Forms.Panel()
Me.Panel21 = New System.Windows.Forms.Panel()
Me.Label5 = New System.Windows.Forms.Label()
Me.Panel22 = New System.Windows.Forms.Panel()
Me.Panel23 = New System.Windows.Forms.Panel()
Me.Panel21 = New System.Windows.Forms.Panel()
Me.Panel20 = New System.Windows.Forms.Panel()
Me.Panel19 = New System.Windows.Forms.Panel()
Me.Panel18 = New System.Windows.Forms.Panel()
Me.Panel24 = New System.Windows.Forms.Panel()
Me.Label6 = New System.Windows.Forms.Label()
Me.Panel23 = New System.Windows.Forms.Panel()
Me.MetroComboBox1 = New MetroFramework.Controls.MetroComboBox()
Me.Label6 = New System.Windows.Forms.Label()
Me.Panel22 = New System.Windows.Forms.Panel()
Me.OpenFileDialog1 = New System.Windows.Forms.OpenFileDialog()
Me.btnAccept = New System.Windows.Forms.Button()
Me.Panel4.SuspendLayout()
Me.Panel7.SuspendLayout()
Me.Panel12.SuspendLayout()
@@ -110,7 +112,7 @@ Partial Class Import
Me.Label3.Location = New System.Drawing.Point(164, 3)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(49, 17)
Me.Label3.TabIndex = 9
Me.Label3.TabIndex = 2
Me.Label3.Text = "Paste"
'
'Label2
@@ -121,7 +123,7 @@ Partial Class Import
Me.Label2.Location = New System.Drawing.Point(121, 3)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(34, 17)
Me.Label2.TabIndex = 8
Me.Label2.TabIndex = 1
Me.Label2.Text = "File"
'
'Label1
@@ -172,6 +174,17 @@ Partial Class Import
Me.Panel12.Size = New System.Drawing.Size(271, 186)
Me.Panel12.TabIndex = 9
'
'ListBox1
'
Me.ListBox1.BackColor = System.Drawing.Color.FromArgb(CType(CType(17, Byte), Integer), CType(CType(17, Byte), Integer), CType(CType(17, Byte), Integer))
Me.ListBox1.Dock = System.Windows.Forms.DockStyle.Fill
Me.ListBox1.FormattingEnabled = True
Me.ListBox1.ItemHeight = 16
Me.ListBox1.Location = New System.Drawing.Point(0, 0)
Me.ListBox1.Name = "ListBox1"
Me.ListBox1.Size = New System.Drawing.Size(271, 186)
Me.ListBox1.TabIndex = 1
'
'Panel11
'
Me.Panel11.Controls.Add(Me.Label4)
@@ -203,13 +216,26 @@ Partial Class Import
Me.Panel10.Size = New System.Drawing.Size(81, 219)
Me.Panel10.TabIndex = 5
'
'btnRemove
'
Me.btnRemove.Dock = System.Windows.Forms.DockStyle.Top
Me.btnRemove.FontSize = MetroFramework.MetroButtonSize.Medium
Me.btnRemove.Location = New System.Drawing.Point(0, 67)
Me.btnRemove.Name = "btnRemove"
Me.btnRemove.Size = New System.Drawing.Size(81, 35)
Me.btnRemove.TabIndex = 4
Me.btnRemove.Text = "Remove"
Me.btnRemove.Theme = MetroFramework.MetroThemeStyle.Dark
Me.btnRemove.UseSelectable = True
'
'btnBrowse
'
Me.btnBrowse.Dock = System.Windows.Forms.DockStyle.Top
Me.btnBrowse.FontSize = MetroFramework.MetroButtonSize.Medium
Me.btnBrowse.Location = New System.Drawing.Point(0, 32)
Me.btnBrowse.Name = "btnBrowse"
Me.btnBrowse.Size = New System.Drawing.Size(81, 35)
Me.btnBrowse.TabIndex = 4
Me.btnBrowse.TabIndex = 3
Me.btnBrowse.Text = "Browse"
Me.btnBrowse.Theme = MetroFramework.MetroThemeStyle.Dark
Me.btnBrowse.UseSelectable = True
@@ -274,63 +300,6 @@ Partial Class Import
Me.Panel17.Size = New System.Drawing.Size(342, 47)
Me.Panel17.TabIndex = 14
'
'btnRemove
'
Me.btnRemove.Dock = System.Windows.Forms.DockStyle.Top
Me.btnRemove.Location = New System.Drawing.Point(0, 67)
Me.btnRemove.Name = "btnRemove"
Me.btnRemove.Size = New System.Drawing.Size(81, 35)
Me.btnRemove.TabIndex = 5
Me.btnRemove.Text = "Remove"
Me.btnRemove.Theme = MetroFramework.MetroThemeStyle.Dark
Me.btnRemove.UseSelectable = True
'
'ListBox1
'
Me.ListBox1.BackColor = System.Drawing.Color.FromArgb(CType(CType(17, Byte), Integer), CType(CType(17, Byte), Integer), CType(CType(17, Byte), Integer))
Me.ListBox1.Dock = System.Windows.Forms.DockStyle.Fill
Me.ListBox1.FormattingEnabled = True
Me.ListBox1.ItemHeight = 16
Me.ListBox1.Location = New System.Drawing.Point(0, 0)
Me.ListBox1.Name = "ListBox1"
Me.ListBox1.Size = New System.Drawing.Size(271, 186)
Me.ListBox1.TabIndex = 1
'
'Panel18
'
Me.Panel18.Controls.Add(Me.Panel24)
Me.Panel18.Controls.Add(Me.Panel23)
Me.Panel18.Controls.Add(Me.Panel22)
Me.Panel18.Dock = System.Windows.Forms.DockStyle.Fill
Me.Panel18.Location = New System.Drawing.Point(20, 350)
Me.Panel18.Name = "Panel18"
Me.Panel18.Size = New System.Drawing.Size(342, 192)
Me.Panel18.TabIndex = 16
'
'Panel19
'
Me.Panel19.Dock = System.Windows.Forms.DockStyle.Left
Me.Panel19.Location = New System.Drawing.Point(0, 0)
Me.Panel19.Name = "Panel19"
Me.Panel19.Size = New System.Drawing.Size(12, 47)
Me.Panel19.TabIndex = 4
'
'Panel20
'
Me.Panel20.Dock = System.Windows.Forms.DockStyle.Top
Me.Panel20.Location = New System.Drawing.Point(12, 0)
Me.Panel20.Name = "Panel20"
Me.Panel20.Size = New System.Drawing.Size(330, 10)
Me.Panel20.TabIndex = 6
'
'Panel21
'
Me.Panel21.Dock = System.Windows.Forms.DockStyle.Bottom
Me.Panel21.Location = New System.Drawing.Point(12, 37)
Me.Panel21.Name = "Panel21"
Me.Panel21.Size = New System.Drawing.Size(330, 10)
Me.Panel21.TabIndex = 7
'
'Label5
'
Me.Label5.AutoSize = True
@@ -341,13 +310,49 @@ Partial Class Import
Me.Label5.TabIndex = 8
Me.Label5.Text = "Defaults:"
'
'Panel22
'Panel21
'
Me.Panel22.Dock = System.Windows.Forms.DockStyle.Left
Me.Panel22.Location = New System.Drawing.Point(0, 0)
Me.Panel22.Name = "Panel22"
Me.Panel22.Size = New System.Drawing.Size(12, 192)
Me.Panel22.TabIndex = 5
Me.Panel21.Dock = System.Windows.Forms.DockStyle.Bottom
Me.Panel21.Location = New System.Drawing.Point(12, 37)
Me.Panel21.Name = "Panel21"
Me.Panel21.Size = New System.Drawing.Size(330, 10)
Me.Panel21.TabIndex = 7
'
'Panel20
'
Me.Panel20.Dock = System.Windows.Forms.DockStyle.Top
Me.Panel20.Location = New System.Drawing.Point(12, 0)
Me.Panel20.Name = "Panel20"
Me.Panel20.Size = New System.Drawing.Size(330, 10)
Me.Panel20.TabIndex = 6
'
'Panel19
'
Me.Panel19.Dock = System.Windows.Forms.DockStyle.Left
Me.Panel19.Location = New System.Drawing.Point(0, 0)
Me.Panel19.Name = "Panel19"
Me.Panel19.Size = New System.Drawing.Size(12, 47)
Me.Panel19.TabIndex = 4
'
'Panel18
'
Me.Panel18.Controls.Add(Me.btnAccept)
Me.Panel18.Controls.Add(Me.Panel24)
Me.Panel18.Controls.Add(Me.Panel23)
Me.Panel18.Controls.Add(Me.Panel22)
Me.Panel18.Dock = System.Windows.Forms.DockStyle.Fill
Me.Panel18.Location = New System.Drawing.Point(20, 350)
Me.Panel18.Name = "Panel18"
Me.Panel18.Size = New System.Drawing.Size(342, 192)
Me.Panel18.TabIndex = 16
'
'Panel24
'
Me.Panel24.Dock = System.Windows.Forms.DockStyle.Top
Me.Panel24.Location = New System.Drawing.Point(12, 40)
Me.Panel24.Name = "Panel24"
Me.Panel24.Size = New System.Drawing.Size(330, 10)
Me.Panel24.TabIndex = 8
'
'Panel23
'
@@ -359,13 +364,17 @@ Partial Class Import
Me.Panel23.Size = New System.Drawing.Size(330, 40)
Me.Panel23.TabIndex = 6
'
'Panel24
'MetroComboBox1
'
Me.Panel24.Dock = System.Windows.Forms.DockStyle.Top
Me.Panel24.Location = New System.Drawing.Point(12, 40)
Me.Panel24.Name = "Panel24"
Me.Panel24.Size = New System.Drawing.Size(330, 10)
Me.Panel24.TabIndex = 8
Me.MetroComboBox1.FormattingEnabled = True
Me.MetroComboBox1.ItemHeight = 24
Me.MetroComboBox1.Items.AddRange(New Object() {"HTTP", "Socks4", "Socks4a", "Socks5"})
Me.MetroComboBox1.Location = New System.Drawing.Point(102, 4)
Me.MetroComboBox1.Name = "MetroComboBox1"
Me.MetroComboBox1.Size = New System.Drawing.Size(222, 30)
Me.MetroComboBox1.TabIndex = 5
Me.MetroComboBox1.Theme = MetroFramework.MetroThemeStyle.Dark
Me.MetroComboBox1.UseSelectable = True
'
'Label6
'
@@ -377,17 +386,31 @@ Partial Class Import
Me.Label6.TabIndex = 9
Me.Label6.Text = "Type"
'
'MetroComboBox1
'Panel22
'
Me.MetroComboBox1.FormattingEnabled = True
Me.MetroComboBox1.ItemHeight = 24
Me.MetroComboBox1.Items.AddRange(New Object() {"HTTP", "Socks4", "Socks4a", "Socks5"})
Me.MetroComboBox1.Location = New System.Drawing.Point(102, 5)
Me.MetroComboBox1.Name = "MetroComboBox1"
Me.MetroComboBox1.Size = New System.Drawing.Size(222, 30)
Me.MetroComboBox1.TabIndex = 9
Me.MetroComboBox1.Theme = MetroFramework.MetroThemeStyle.Dark
Me.MetroComboBox1.UseSelectable = True
Me.Panel22.Dock = System.Windows.Forms.DockStyle.Left
Me.Panel22.Location = New System.Drawing.Point(0, 0)
Me.Panel22.Name = "Panel22"
Me.Panel22.Size = New System.Drawing.Size(12, 192)
Me.Panel22.TabIndex = 5
'
'OpenFileDialog1
'
Me.OpenFileDialog1.FileName = "OpenFileDialog1"
Me.OpenFileDialog1.InitialDirectory = "C:\"
'
'btnAccept
'
Me.btnAccept.BackColor = System.Drawing.Color.FromArgb(CType(CType(17, Byte), Integer), CType(CType(17, Byte), Integer), CType(CType(17, Byte), Integer))
Me.btnAccept.FlatStyle = System.Windows.Forms.FlatStyle.Popup
Me.btnAccept.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.2!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.btnAccept.ForeColor = System.Drawing.Color.Gainsboro
Me.btnAccept.Location = New System.Drawing.Point(21, 160)
Me.btnAccept.Name = "btnAccept"
Me.btnAccept.Size = New System.Drawing.Size(315, 29)
Me.btnAccept.TabIndex = 9
Me.btnAccept.Text = "Accept"
Me.btnAccept.UseVisualStyleBackColor = False
'
'Import
'
@@ -460,4 +483,6 @@ Partial Class Import
Friend WithEvents MetroComboBox1 As MetroFramework.Controls.MetroComboBox
Friend WithEvents Label6 As Label
Friend WithEvents Panel22 As Panel
Friend WithEvents OpenFileDialog1 As OpenFileDialog
Friend WithEvents btnAccept As Button
End Class
Checker/Import.resx
+3
View File
@@ -117,4 +117,7 @@
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<metadata name="OpenFileDialog1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
</root>
Checker/Import.vb
+21 -1
View File
@@ -1,3 +1,23 @@
Public Class Import
Imports System.IO
Public Class Import
Private Sub btnBrowse_Click(sender As Object, e As EventArgs) Handles btnBrowse.Click
OpenFileDialog1.ShowDialog()
End Sub
Sub proxyAdderListBox() Handles OpenFileDialog1.FileOk
Dim fileName As String = Path.GetFileNameWithoutExtension(OpenFileDialog1.FileName)
ListBox1.Items.Add(fileName)
ListBox1.ForeColor = Color.Gainsboro
End Sub
Sub AddRowsFromFile(filepath As String)
Dim lines As String() = File.ReadAllLines(filepath)
For Each line As String In lines
Main.DataGridView1.Rows.Add(line)
Next
End Sub
End Class
Checker/Main.Designer.vb
Generated
+103 -3
View File
@@ -1,9 +1,9 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Class Main
Inherits System.Windows.Forms.Form
'Form overrides dispose to clean up the component list.
<System.Diagnostics.DebuggerNonUserCode()> _
<System.Diagnostics.DebuggerNonUserCode()>
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
@@ -20,8 +20,15 @@ Partial Class Main
'NOTE: The following procedure is required by the Windows Form Designer
'It can be modified using the Windows Form Designer.
'Do not modify it using the code editor.
<System.Diagnostics.DebuggerStepThrough()> _
<System.Diagnostics.DebuggerStepThrough()>
Private Sub InitializeComponent()
Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle5 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle6 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle7 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle4 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Me.Panel1 = New System.Windows.Forms.Panel()
Me.btnMinimize = New MetroFramework.Controls.MetroButton()
Me.btnMaximize = New MetroFramework.Controls.MetroButton()
@@ -76,6 +83,12 @@ Partial Class Main
Me.Label4 = New System.Windows.Forms.Label()
Me.Panel20 = New System.Windows.Forms.Panel()
Me.DataGridView1 = New System.Windows.Forms.DataGridView()
Me.type = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.proxy = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.port = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.working = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.ping = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.lastchecked = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.Panel1.SuspendLayout()
Me.Panel4.SuspendLayout()
Me.Panel11.SuspendLayout()
@@ -649,16 +662,97 @@ Partial Class Main
'
'DataGridView1
'
Me.DataGridView1.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
Me.DataGridView1.BackgroundColor = System.Drawing.Color.FromArgb(CType(CType(17, Byte), Integer), CType(CType(17, Byte), Integer), CType(CType(17, Byte), Integer))
Me.DataGridView1.BorderStyle = System.Windows.Forms.BorderStyle.None
Me.DataGridView1.ColumnHeadersBorderStyle = System.Windows.Forms.DataGridViewHeaderBorderStyle.None
DataGridViewCellStyle1.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleCenter
DataGridViewCellStyle1.BackColor = System.Drawing.Color.FromArgb(CType(CType(17, Byte), Integer), CType(CType(17, Byte), Integer), CType(CType(17, Byte), Integer))
DataGridViewCellStyle1.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle1.ForeColor = System.Drawing.Color.Gainsboro
DataGridViewCellStyle1.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle1.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle1.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.DataGridView1.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle1
Me.DataGridView1.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.DataGridView1.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.type, Me.proxy, Me.port, Me.working, Me.ping, Me.lastchecked})
DataGridViewCellStyle5.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle5.BackColor = System.Drawing.Color.FromArgb(CType(CType(17, Byte), Integer), CType(CType(17, Byte), Integer), CType(CType(17, Byte), Integer))
DataGridViewCellStyle5.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle5.ForeColor = System.Drawing.Color.Gainsboro
DataGridViewCellStyle5.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle5.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle5.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.DataGridView1.DefaultCellStyle = DataGridViewCellStyle5
Me.DataGridView1.Dock = System.Windows.Forms.DockStyle.Fill
Me.DataGridView1.EnableHeadersVisualStyles = False
Me.DataGridView1.GridColor = System.Drawing.Color.FromArgb(CType(CType(17, Byte), Integer), CType(CType(17, Byte), Integer), CType(CType(17, Byte), Integer))
Me.DataGridView1.Location = New System.Drawing.Point(25, 152)
Me.DataGridView1.Name = "DataGridView1"
Me.DataGridView1.RowHeadersBorderStyle = System.Windows.Forms.DataGridViewHeaderBorderStyle.None
DataGridViewCellStyle6.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle6.BackColor = System.Drawing.Color.FromArgb(CType(CType(17, Byte), Integer), CType(CType(17, Byte), Integer), CType(CType(17, Byte), Integer))
DataGridViewCellStyle6.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle6.ForeColor = System.Drawing.Color.Gainsboro
DataGridViewCellStyle6.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle6.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle6.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.DataGridView1.RowHeadersDefaultCellStyle = DataGridViewCellStyle6
Me.DataGridView1.RowHeadersVisible = False
Me.DataGridView1.RowHeadersWidth = 51
DataGridViewCellStyle7.BackColor = System.Drawing.Color.FromArgb(CType(CType(17, Byte), Integer), CType(CType(17, Byte), Integer), CType(CType(17, Byte), Integer))
DataGridViewCellStyle7.ForeColor = System.Drawing.Color.Gainsboro
Me.DataGridView1.RowsDefaultCellStyle = DataGridViewCellStyle7
Me.DataGridView1.RowTemplate.Height = 24
Me.DataGridView1.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
Me.DataGridView1.Size = New System.Drawing.Size(538, 542)
Me.DataGridView1.TabIndex = 13
'
'type
'
DataGridViewCellStyle2.BackColor = System.Drawing.Color.FromArgb(CType(CType(17, Byte), Integer), CType(CType(17, Byte), Integer), CType(CType(17, Byte), Integer))
DataGridViewCellStyle2.ForeColor = System.Drawing.Color.Gainsboro
Me.type.DefaultCellStyle = DataGridViewCellStyle2
Me.type.HeaderText = "Type"
Me.type.MinimumWidth = 6
Me.type.Name = "type"
'
'proxy
'
DataGridViewCellStyle3.BackColor = System.Drawing.Color.FromArgb(CType(CType(17, Byte), Integer), CType(CType(17, Byte), Integer), CType(CType(17, Byte), Integer))
DataGridViewCellStyle3.ForeColor = System.Drawing.Color.Gainsboro
Me.proxy.DefaultCellStyle = DataGridViewCellStyle3
Me.proxy.HeaderText = "Proxy"
Me.proxy.MinimumWidth = 6
Me.proxy.Name = "proxy"
'
'port
'
DataGridViewCellStyle4.BackColor = System.Drawing.Color.FromArgb(CType(CType(17, Byte), Integer), CType(CType(17, Byte), Integer), CType(CType(17, Byte), Integer))
DataGridViewCellStyle4.ForeColor = System.Drawing.Color.Gainsboro
Me.port.DefaultCellStyle = DataGridViewCellStyle4
Me.port.HeaderText = "Port"
Me.port.MinimumWidth = 6
Me.port.Name = "port"
'
'working
'
Me.working.HeaderText = "Working"
Me.working.MinimumWidth = 6
Me.working.Name = "working"
'
'ping
'
Me.ping.HeaderText = "Ping"
Me.ping.MinimumWidth = 6
Me.ping.Name = "ping"
'
'lastchecked
'
Me.lastchecked.HeaderText = "Last Checked"
Me.lastchecked.MinimumWidth = 6
Me.lastchecked.Name = "lastchecked"
'
'Main
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(8.0!, 16.0!)
@@ -748,4 +842,10 @@ Partial Class Main
Friend WithEvents btnMaximize As MetroFramework.Controls.MetroButton
Friend WithEvents Panel20 As Panel
Friend WithEvents DataGridView1 As DataGridView
Friend WithEvents type As DataGridViewTextBoxColumn
Friend WithEvents proxy As DataGridViewTextBoxColumn
Friend WithEvents port As DataGridViewTextBoxColumn
Friend WithEvents working As DataGridViewTextBoxColumn
Friend WithEvents ping As DataGridViewTextBoxColumn
Friend WithEvents lastchecked As DataGridViewTextBoxColumn
End Class
Checker/Main.resx
+18
View File
@@ -117,4 +117,22 @@
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<metadata name="type.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="proxy.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="port.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="working.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="ping.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="lastchecked.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
</root>
Checker/Main.vb
-1
View File
@@ -18,5 +18,4 @@
Application.Exit()
End Sub
End Class
Checker/My Project/Application.Designer.vb
Generated
+1 -1
View File
@@ -32,7 +32,7 @@ Namespace My
<Global.System.Diagnostics.DebuggerStepThroughAttribute()> _
Protected Overrides Sub OnCreateMainForm()
Me.MainForm = Global.Checker.Main
Me.MainForm = Global.Checker.Import
End Sub
End Class
End Namespace
Checker/My Project/Application.myapp
+1 -2
View File
@@ -1,11 +1,10 @@
<?xml version="1.0" encoding="utf-8"?>
<MyApplicationData xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
<MySubMain>true</MySubMain>
<MainForm>Form1</MainForm>
<MainForm>Import</MainForm>
<SingleInstance>false</SingleInstance>
<ShutdownMode>0</ShutdownMode>
<EnableVisualStyles>true</EnableVisualStyles>
<AuthenticationMode>0</AuthenticationMode>
<ApplicationType>0</ApplicationType>
<SaveMySettingsOnExit>true</SaveMySettingsOnExit>
</MyApplicationData>
Checker/app.manifest
+79
View File
@@ -0,0 +1,79 @@
<?xml version="1.0" encoding="utf-8"?>
<assembly manifestVersion="1.0" xmlns="urn:schemas-microsoft-com:asm.v1">
<assemblyIdentity version="1.0.0.0" name="MyApplication.app"/>
<trustInfo xmlns="urn:schemas-microsoft-com:asm.v2">
<security>
<requestedPrivileges xmlns="urn:schemas-microsoft-com:asm.v3">
<!-- UAC Manifest Options
If you want to change the Windows User Account Control level replace the
requestedExecutionLevel node with one of the following.
<requestedExecutionLevel level="asInvoker" uiAccess="false" />
<requestedExecutionLevel level="requireAdministrator" uiAccess="false" />
<requestedExecutionLevel level="highestAvailable" uiAccess="false" />
Specifying requestedExecutionLevel element will disable file and registry virtualization.
Remove this element if your application requires this virtualization for backwards
compatibility.
-->
<requestedExecutionLevel level="asInvoker" uiAccess="false" />
</requestedPrivileges>
</security>
</trustInfo>
<compatibility xmlns="urn:schemas-microsoft-com:compatibility.v1">
<application>
<!-- A list of the Windows versions that this application has been tested on
and is designed to work with. Uncomment the appropriate elements
and Windows will automatically select the most compatible environment. -->
<!-- Windows Vista -->
<!--<supportedOS Id="{e2011457-1546-43c5-a5fe-008deee3d3f0}" />-->
Windows 7
<supportedOS Id="{35138b9a-5d96-4fbd-8e2d-a2440225f93a}" />
Windows 8
<supportedOS Id="{4a2f28e3-53b9-4441-ba9c-d69d4a4a6e38}" />
Windows 8.1
<supportedOS Id="{1f676c76-80e1-4239-95bb-83d0f6d0da78}" />
Windows 10
<supportedOS Id="{8e0f7a12-bfb3-4fe8-b9a5-48fd50a15a9a}" />
</application>
</compatibility>
<!-- Indicates that the application is DPI-aware and will not be automatically scaled by Windows at higher
DPIs. Windows Presentation Foundation (WPF) applications are automatically DPI-aware and do not need
to opt in. Windows Forms applications targeting .NET Framework 4.6 that opt into this setting, should
also set the 'EnableWindowsFormsHighDpiAutoResizing' setting to 'true' in their app.config.
Makes the application long-path aware. See https://docs.microsoft.com/windows/win32/fileio/maximum-file-path-limitation -->
<application xmlns="urn:schemas-microsoft-com:asm.v3">
<windowsSettings>
<dpiAware xmlns="http://schemas.microsoft.com/SMI/2005/WindowsSettings">true</dpiAware>
<longPathAware xmlns="http://schemas.microsoft.com/SMI/2016/WindowsSettings">true</longPathAware>
</windowsSettings>
</application>
<!-- Enable themes for Windows common controls and dialogs (Windows XP and later) -->
<!--
<dependency>
<dependentAssembly>
<assemblyIdentity
type="win32"
name="Microsoft.Windows.Common-Controls"
version="6.0.0.0"
processorArchitecture="*"
publicKeyToken="6595b64144ccf1df"
language="*"
/>
</dependentAssembly>
</dependency>
-->
</assembly>