diff --git a/Checker/Checker.vbproj b/Checker/Checker.vbproj index 5ae8cc8..961f011 100644 --- a/Checker/Checker.vbproj +++ b/Checker/Checker.vbproj @@ -47,6 +47,9 @@ On + + app.manifest + ..\packages\MetroModernUI.1.4.0.0\lib\net\MetroFramework.dll @@ -99,6 +102,7 @@ True Application.myapp + True True @@ -126,6 +130,7 @@ + MyApplicationCodeGenerator Application.Designer.vb diff --git a/Checker/Import.Designer.vb b/Checker/Import.Designer.vb index 005476d..0fcdf7a 100644 --- a/Checker/Import.Designer.vb +++ b/Checker/Import.Designer.vb @@ -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 diff --git a/Checker/Import.resx b/Checker/Import.resx index 1af7de1..33c7f67 100644 --- a/Checker/Import.resx +++ b/Checker/Import.resx @@ -117,4 +117,7 @@ System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + 17, 17 + \ No newline at end of file diff --git a/Checker/Import.vb b/Checker/Import.vb index 5769cc3..240b351 100644 --- a/Checker/Import.vb +++ b/Checker/Import.vb @@ -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 \ No newline at end of file diff --git a/Checker/Main.Designer.vb b/Checker/Main.Designer.vb index c790355..c3b161d 100644 --- a/Checker/Main.Designer.vb +++ b/Checker/Main.Designer.vb @@ -1,9 +1,9 @@ - _ + Partial Class Main Inherits System.Windows.Forms.Form 'Form overrides dispose to clean up the component list. - _ + 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. - _ + 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 diff --git a/Checker/Main.resx b/Checker/Main.resx index 1af7de1..8b98a6b 100644 --- a/Checker/Main.resx +++ b/Checker/Main.resx @@ -117,4 +117,22 @@ System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + True + + + True + + + True + + + True + + + True + + + True + \ No newline at end of file diff --git a/Checker/Main.vb b/Checker/Main.vb index c3ae674..c261480 100644 --- a/Checker/Main.vb +++ b/Checker/Main.vb @@ -18,5 +18,4 @@ Application.Exit() End Sub - End Class diff --git a/Checker/My Project/Application.Designer.vb b/Checker/My Project/Application.Designer.vb index 5a3ab01..730eae8 100644 --- a/Checker/My Project/Application.Designer.vb +++ b/Checker/My Project/Application.Designer.vb @@ -13,15 +13,15 @@ Option Explicit On Namespace My - + 'NOTE: This file is auto-generated; do not modify it directly. To make changes, ' or if you encounter build errors in this file, go to the Project Designer ' (go to Project Properties or double-click the My Project node in ' Solution Explorer), and make changes on the Application tab. ' Partial Friend Class MyApplication - - _ + + _ Public Sub New() MyBase.New(Global.Microsoft.VisualBasic.ApplicationServices.AuthenticationMode.Windows) Me.IsSingleInstance = false @@ -29,10 +29,10 @@ Namespace My Me.SaveMySettingsOnExit = true Me.ShutDownStyle = Global.Microsoft.VisualBasic.ApplicationServices.ShutdownMode.AfterMainFormCloses End Sub - - _ + + _ Protected Overrides Sub OnCreateMainForm() - Me.MainForm = Global.Checker.Main + Me.MainForm = Global.Checker.Import End Sub End Class End Namespace diff --git a/Checker/My Project/Application.myapp b/Checker/My Project/Application.myapp index 1243847..1796a0c 100644 --- a/Checker/My Project/Application.myapp +++ b/Checker/My Project/Application.myapp @@ -1,11 +1,10 @@  true - Form1 + Import false 0 true 0 - 0 true - + \ No newline at end of file diff --git a/Checker/app.manifest b/Checker/app.manifest new file mode 100644 index 0000000..9b9c6ff --- /dev/null +++ b/Checker/app.manifest @@ -0,0 +1,79 @@ + + + + + + + + + + + + + + + + + + + + Windows 7 + + + Windows 8 + + + Windows 8.1 + + + Windows 10 + + + + + + + + + + true + true + + + + + + + +