diff --git a/Main.Designer.vb b/Main.Designer.vb index c27fa3f..4e429fb 100644 --- a/Main.Designer.vb +++ b/Main.Designer.vb @@ -55,11 +55,11 @@ Partial Class Form Me.FindBtn = New System.Windows.Forms.Button() Me.CMD = New System.Windows.Forms.Button() Me.Silent = New System.Windows.Forms.CheckBox() + Me.RecentBtn = New System.Windows.Forms.Button() Me.GroupBox1 = New System.Windows.Forms.GroupBox() Me.GroupBox3 = New System.Windows.Forms.GroupBox() Me.LstIP = New System.Windows.Forms.ListBox() Me.GroupBox2 = New System.Windows.Forms.GroupBox() - Me.RecentBtn = New System.Windows.Forms.Button() Me.GroupBox1.SuspendLayout() Me.GroupBox3.SuspendLayout() Me.GroupBox2.SuspendLayout() @@ -487,6 +487,20 @@ Partial Class Form Me.ToolTip1.SetToolTip(Me.Silent, "Hide Temporary Files") Me.Silent.UseVisualStyleBackColor = False ' + 'RecentBtn + ' + Me.RecentBtn.BackColor = System.Drawing.Color.LightSeaGreen + Me.RecentBtn.FlatStyle = System.Windows.Forms.FlatStyle.Popup + Me.RecentBtn.Font = New System.Drawing.Font("Constantia", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.RecentBtn.ForeColor = System.Drawing.Color.Snow + Me.RecentBtn.Location = New System.Drawing.Point(288, 22) + Me.RecentBtn.Name = "RecentBtn" + Me.RecentBtn.Size = New System.Drawing.Size(88, 24) + Me.RecentBtn.TabIndex = 4 + Me.RecentBtn.Text = "Recent" + Me.ToolTip1.SetToolTip(Me.RecentBtn, "Lists Recent Users Logged Into The Local PC") + Me.RecentBtn.UseVisualStyleBackColor = False + ' 'GroupBox1 ' Me.GroupBox1.BackColor = System.Drawing.Color.Transparent @@ -566,20 +580,6 @@ Partial Class Form Me.GroupBox2.TabStop = False Me.GroupBox2.Text = "Shares" ' - 'RecentBtn - ' - Me.RecentBtn.BackColor = System.Drawing.Color.LightSeaGreen - Me.RecentBtn.FlatStyle = System.Windows.Forms.FlatStyle.Popup - Me.RecentBtn.Font = New System.Drawing.Font("Constantia", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.RecentBtn.ForeColor = System.Drawing.Color.Snow - Me.RecentBtn.Location = New System.Drawing.Point(288, 22) - Me.RecentBtn.Name = "RecentBtn" - Me.RecentBtn.Size = New System.Drawing.Size(88, 24) - Me.RecentBtn.TabIndex = 4 - Me.RecentBtn.Text = "Recent" - Me.ToolTip1.SetToolTip(Me.RecentBtn, "Lists Recent Users Logged Into The Local PC") - Me.RecentBtn.UseVisualStyleBackColor = False - ' 'Form ' Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 15.0!) diff --git a/Recent.Designer.vb b/Recent.Designer.vb index a56f079..6e5fbdf 100644 --- a/Recent.Designer.vb +++ b/Recent.Designer.vb @@ -22,10 +22,10 @@ Partial Class Recent 'Do not modify it using the code editor. _ Private Sub InitializeComponent() + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Recent)) Me.UserList = New System.Windows.Forms.ListBox() Me.NameTxt = New System.Windows.Forms.Label() Me.fAccessTxt = New System.Windows.Forms.Label() - Me.ActionTxt = New System.Windows.Forms.Label() Me.AccessTxt = New System.Windows.Forms.Label() Me.SuspendLayout() ' @@ -51,27 +51,17 @@ Partial Class Recent ' Me.fAccessTxt.AutoSize = True Me.fAccessTxt.BackColor = System.Drawing.Color.Transparent - Me.fAccessTxt.Location = New System.Drawing.Point(12, 294) + Me.fAccessTxt.Location = New System.Drawing.Point(12, 268) Me.fAccessTxt.Name = "fAccessTxt" Me.fAccessTxt.Size = New System.Drawing.Size(31, 13) Me.fAccessTxt.TabIndex = 7 Me.fAccessTxt.Text = "*first*" ' - 'ActionTxt - ' - Me.ActionTxt.AutoSize = True - Me.ActionTxt.BackColor = System.Drawing.Color.Transparent - Me.ActionTxt.Location = New System.Drawing.Point(12, 281) - Me.ActionTxt.Name = "ActionTxt" - Me.ActionTxt.Size = New System.Drawing.Size(44, 13) - Me.ActionTxt.TabIndex = 6 - Me.ActionTxt.Text = "*action*" - ' 'AccessTxt ' Me.AccessTxt.AutoSize = True Me.AccessTxt.BackColor = System.Drawing.Color.Transparent - Me.AccessTxt.Location = New System.Drawing.Point(12, 268) + Me.AccessTxt.Location = New System.Drawing.Point(12, 281) Me.AccessTxt.Name = "AccessTxt" Me.AccessTxt.Size = New System.Drawing.Size(49, 13) Me.AccessTxt.TabIndex = 5 @@ -82,14 +72,14 @@ Partial Class Recent Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.BackColor = System.Drawing.SystemColors.ControlLight - Me.ClientSize = New System.Drawing.Size(239, 315) + Me.ClientSize = New System.Drawing.Size(239, 298) Me.Controls.Add(Me.NameTxt) Me.Controls.Add(Me.fAccessTxt) - Me.Controls.Add(Me.ActionTxt) Me.Controls.Add(Me.AccessTxt) Me.Controls.Add(Me.UserList) Me.DoubleBuffered = True Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedToolWindow + Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon) Me.Name = "Recent" Me.Text = "Recent Users" Me.ResumeLayout(False) @@ -100,6 +90,5 @@ Partial Class Recent Friend WithEvents UserList As ListBox Friend WithEvents NameTxt As Label Friend WithEvents fAccessTxt As Label - Friend WithEvents ActionTxt As Label Friend WithEvents AccessTxt As Label End Class diff --git a/Recent.resx b/Recent.resx index 1af7de1..fb9bb61 100644 --- a/Recent.resx +++ b/Recent.resx @@ -117,4 +117,81 @@ System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + + AAABAAEAICAAAAEAIACoEAAAFgAAACgAAAAgAAAAQAAAAAEAIAAAAAAAgBAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAC6AP8AugD/ANkA/wDZAP8A2QD/ANkA/wDZAP8AugD/ALoA/wC6AP8AugD/ALoA/wC6 + AP8AugD/ALoA/wC6AP8AugD/ALoA/wC6AP8AugD/ALoA/wC6AP8AugD/ALoA/wC6AP8AugD/ALoA/wC6 + AP8AAAAAAAAAAAAAAAAAugD/ALoA/wC6AP8AugD/ALoA/wC6AP8AugD/ALoA/wDZAP8A2QD/ANkA/wDZ + AP8A2QD/ALoA/wC6AP8AugD/ALoA/wC6AP8AugD/ALoA/wC6AP8AugD/ALoA/wC6AP8AugD/ALoA/wC6 + AP8AugD/ALoA/wC6AP8AAAAAAPAA/wDwAP8A8AD/ALoA/wC6AP8AugD/ALoA/wC6AP8AugD/ALoA/wC6 + AP8AugD/ALoA/wC6AP8A2QD/ANkA/wDZAP8A2QD/ANkA/wC6AP8AugD/ALoA/wC6AP8AugD/ALoA/wC6 + AP8AugD/ALoA/wC6AP8AugD/ALoA/wC6AP8AugD/ALoA/wC6AP8A8AD/APAA/wDwAP8A8AD/APAA/wC6 + AP8AugD/ALoA/wC6AP8AugD/ALoA/wC6AP8AugD/ALoA/wC6AP8AugD/ANkA/wDZAP8A2QD/ANkA/wDZ + AP8AugD/ALoA/wC6AP8AugD/ALoA/wC6AP8AugD/ALoA/wC6AP8AugD/ALoA/wC6AP8AugD/ALoA/wC6 + AP8AugD/APAA/wDwAP8A8AD/APAA/wDwAP8AugD/ALoA/wC6AP8AugD/ALoA/wC6AP8AugD/ALoA/wC6 + AP8AugD/ALoA/wDZAP8A2QD/ANkA/wDZAP8A2QD/ALoA/wC6AP8AugD/kP+1/5D/tf+Q/7X/ALoA/wC6 + AP8AugD/ALoA/wC6AP8AugD/ALoA/wC6AP8AugD/ALoA/wDwAP8A8AD/APAA/wDwAP8A8AD/APAA/wC6 + AP8AugD/ALoA/wC6AP8AugD/ALoA/wC6AP8AugD/ALoA/wC6AP8A2QD/ANkA/wDZAP8AugD/ALoA/wC6 + AP+Q/7X/kP+1/5D/tf+Q/7X/kP+1/wC6AP8AugD/ALoA/wC6AP8AugD/ALoA/wC6AP8AugD/ALoA/wC6 + AP8AugD/APAA/wDwAP8A8AD/APAA/wDwAP8AugD/ALoA/wC6AP8AugD/ALoA/wC6AP8AugD/ALoA/9vb + 2//b29v/29vb/wC6AP8AugD/ALoA/wC6AP8AugD/kP+1/5D/tf+Q/7X/kP+1/5D/tf+Q/7X/ALoA/wC6 + AP8AugD/ALoA/wC6AP8AugD/ALoA/wC6AP8AugD/ALoA/wDwAP8A8AD/APAA/wDwAP8A8AD/ALoA/wC6 + AP8AugD/29vb/9vb2//b29v/29vb/9vb2//b29v/29vb/9vb2/8AugD/ALoA/wC6AP8AugD/ALoA/wC6 + AP+Q/7X/kP+1/5D/tf+Q/7X/kP+1/wC6AP8AugD/ALoA/wC6AP8AugD/ALoA/wC6AP8AugD/ALoA/wC6 + AP8A8AD/APAA/wDwAP/b29v/ALoA/wC6AP/b29v/29vb/9vb2//b29v/29vb/9vb2//b29v/29vb/9vb + 2//b29v/ALoA/wC6AP8AugD/ALoA/wC6AP8AugD/kP+1/5D/tf+Q/7X/kP+1/5D/tf8AugD/ALoA/wC6 + AP8AugD/ALoA/wC6AP8AugD/ALoA/9vb2/8AugD/ALoA/9vb2//b29v/29vb/9vb2//b29v/ALoA/wC6 + AP/b29v/29vb/9vb2//b29v/29vb/9vb2//b29v/29vb/9vb2/8AugD/ALoA/wC6AP8AugD/ALoA/5D/ + tf+Q/7X/kP+1/5D/tf+Q/7X/kP+1/wC6AP8AugD/8vLy/wC6AP8AugD/8vLy//Ly8v/b29v/29vb/9vb + 2/8AugD/ALoA/9vb2/8AugD/ALoA/9vb2//b29v/29vb/9vb2//b29v/29vb/9vb2//b29v/29vb/9vb + 2//b29v/ALoA/wC6AP8AugD/ALoA/wC6AP8AugD/kP+1/5D/tf/y8vL/ALoA/wC6AP/y8vL/8vLy/wC6 + AP/y8vL/8vLy/wC6AP8AugD/29vb/wC6AP8AugD/29vb/9vb2//b29v/29vb/wC6AP8AugD/29vb/9vb + 2//b29v/29vb/9vb2//b29v/29vb/9vb2//b29v/29vb/wC6AP8AugD/ALoA//Ly8v8AugD/ALoA//Ly + 8v8AugD/ALoA/wC6AP/y8vL/ALoA/wC6AP/y8vL/ALoA/wC6AP/y8vL/8vLy/9vb2/8AugD/ALoA/wC6 + AP/b29v/29vb/wC6AP8AugD/ALoA/wC6AP/b29v/29vb/9vb2//b29v/29vb/9vb2//b29v/8vLy/wC6 + AP8AugD/ALoA/wC6AP8AugD/ALoA/wC6AP8AugD/ALoA//Ly8v8AugD/ALoA//Ly8v/y8vL/ALoA/wC6 + AP8AugD/ALoA/9vb2/8AugD/ALoA/wC6AP8AugD/ALoA/wC6AP/b29v/29vb/9vb2//b29v/29vb/9vb + 2//y8vL/ALoA/wC6AP8AugD/ALoA//Ly8v8AugD/ALoA/wC6AP8AugD/8vLy/wC6AP8AugD/8vLy/wC6 + AP8AugD/ALoA/wC6AP8AugD/8vLy/wC6AP8AugD/8vLy/5D/tf8AugD/ALoA/9vb2//b29v/29vb/9vb + 2//b29v/29vb//////8AugD/ALoA/wC6AP/y8vL/8vLy//Ly8v8AugD/ALoA/wC6AP/y8vL/ALoA/wC6 + AP8AugD/ALoA/wC6AP/y8vL/ALoA/wC6AP/y8vL/8vLy//Ly8v/y8vL/8vLy/wC6AP8AugD/8vLy//Ly + 8v/b29v/29vb/9vb2//b29v//////wC6AP8AugD////////////y8vL/8vLy/wC6AP8AugD/ALoA//Ly + 8v8AugD/ALoA/wC6AP8AugD/8vLy//Ly8v8AugD/ALoA//Ly8v/y8vL/ALoA/wC6AP8AugD/ALoA/wC6 + AP/y8vL/8vLy//Ly8v/y8vL/29vb/9vb2////////////////////////////////////////////wC6 + AP8AugD/8vLy/wC6AP8AugD/8vLy//Ly8v/y8vL/8vLy/wC6AP8AugD/8vLy/wC6AP8AugD/ALoA/wC6 + AP8AugD/8vLy//Ly8v/y8vL/ALoA/wC6AP/y8vL/29vb/wC6AP8AugD/ALoA//////////////////// + ////////////////////////ALoA/wC6AP/y8vL/8vLy//Ly8v/y8vL/ALoA/wC6AP/y8vL/ALoA/wC6 + AP/y8vL/8vLy//Ly8v/y8vL/8vLy/wC6AP8AugD/ALoA/wC6AP/y8vL/kP+1/5D/tf+Q/7X/ALoA/wC6 + AP8AugD/ALoA//////////////////////////////////////////////////////8AugD/ALoA//Ly + 8v8AugD/ALoA//Ly8v/y8vL/ALoA/wC6AP/y8vL/ALoA/wC6AP8AugD/ALoA//Ly8v8AugD/ALoA/wC6 + AP+Q/7X/kP+1/5D/tf+Q/7X/ALoA/wC6AP8AugD/ALoA/wC6AP////////////////////////////// + /////////////wC6AP8AugD/ALoA/wC6AP8AugD/ALoA//Ly8v/y8vL/ALoA/wC6AP/y8vL/8vLy/wC6 + AP8AugD/ALoA/wC6AP8AugD/ALoA/wC6AP+Q/7X/kP+1/5D/tf+Q/7X/kP+1/wC6AP8AugD/ALoA/wC6 + AP///////////////////////////wC6AP8AugD/ALoA/wC6AP//////////////////////8vLy//Ly + 8v/y8vL/APAA/wDwAP8A8AD/ALoA/wC6AP8AugD/ALoA/wC6AP8AugD/ALoA/wC6AP8AugD/kP+1/5D/ + tf+Q/7X/kP+1/wC6AP8AugD/ALoA/wC6AP////////////////////////////////////////////// + //////////////////8AugD/ALoA/wC6AP8A8AD/APAA/wDwAP8A8AD/ALoA/wC6AP8AugD/ALoA/wC6 + AP8AugD/ALoA/wC6AP8AugD/kP+1/5D/tf+Q/7X/kP+1/wC6AP8AugD/ALoA/wC6AP8AugD///////// + /////////////////////////////wC6AP8AugD/ALoA/wC6AP8AugD/ALoA/wC6AP8A8AD/APAA/wDw + AP8A8AD/APAA/wC6AP8AugD/ALoA/wC6AP8AugD/ALoA/wC6AP8AugD/kP+1/5D/tf+Q/7X/kP+1/5D/ + tf8AugD/ALoA/wC6AP8AugD/////////////////ANkA/wDZAP8A2QD/ALoA/wC6AP8AugD/ALoA/wC6 + AP8AugD/ALoA/wC6AP8AugD/APAA/wDwAP8A8AD/APAA/wC6AP8AugD/ALoA/wC6AP8AugD/ALoA/wC6 + AP8AugD/ALoA/5D/tf+Q/7X/kP+1/5D/tf8AugD/ALoA/wC6AP8AugD/ALoA/wC6AP8A2QD/ANkA/wDZ + AP8A2QD/ANkA/wC6AP8AugD/ALoA/wC6AP8AugD/ALoA/wC6AP8AugD/APAA/wDwAP8A8AD/APAA/wDw + AP8AugD/ALoA/wC6AP8AugD/ALoA/wC6AP8AugD/ALoA/5D/tf+Q/7X/kP+1/wC6AP8AugD/ALoA/wC6 + AP8AugD/ALoA/wC6AP8AugD/ANkA/wDZAP8A2QD/ANkA/wC6AP8AugD/ALoA/wC6AP8AugD/ALoA/wC6 + AP8AugD/ALoA/wDwAP8A8AD/APAA/wDwAP8A8AD/ALoA/wC6AP8AugD/ALoA/wC6AP8AugD/ALoA/wC6 + AP8AugD/ALoA/wC6AP8AugD/ALoA/wC6AP8AugD/ALoA/wC6AP8AugD/ANkA/wDZAP8A2QD/ANkA/wDZ + AP8AugD/ALoA/wC6AP8AugD/ALoA/wC6AP8AugD/ALoA/wC6AP8A8AD/APAA/wDwAP8A8AD/ALoA/wC6 + AP8AAAAAALoA/wC6AP8AugD/ALoA/wC6AP8AugD/ALoA/wC6AP8AugD/ALoA/wC6AP8AugD/ALoA/wC6 + AP8AugD/ALoA/wDZAP8A2QD/ANkA/wDZAP8A2QD/ALoA/wC6AP8AugD/ALoA/wC6AP8AugD/ALoA/wC6 + AP8A8AD/AAAAAAAAAAAAAAAAALoA/wC6AP8AugD/ALoA/wC6AP8AugD/ALoA/wC6AP8AugD/ALoA/wC6 + AP8AugD/ALoA/wC6AP8AugD/ALoA/wC6AP8AugD/ALoA/wDZAP8A2QD/ANkA/wDZAP8A2QD/ALoA/wC6 + AP8AugD/ALoA/wAAAAAAAAAAwAAAA4AAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAgAAAAcAAAAM= + + \ No newline at end of file diff --git a/Recent.vb b/Recent.vb index 4fa4039..e342b9e 100644 --- a/Recent.vb +++ b/Recent.vb @@ -8,17 +8,20 @@ Public Class Recent UserList.Items.Clear() NameTxt.Text = Environment.UserName AccessTxt.Text = "Last Access: " + Directory.GetLastAccessTime(UserPath) - ActionTxt.Text = "Last Action: " + Directory.GetLastWriteTime(UserPath) fAccessTxt.Text = "First Login: " + Directory.GetCreationTime(UserPath) For Each folder In Directory.GetParent(UserPath).GetDirectories UserList.Items.Add(folder) Next + If Not UserList.SelectedItem Is Nothing Then + MsgBox("sees") + End If End Sub Private Sub UserList_SelectedIndexChanged(sender As Object, e As EventArgs) Handles UserList.SelectedIndexChanged - NameTxt.Text = UserList.SelectedItem.ToString - AccessTxt.Text = "Last Access: " + Directory.GetLastAccessTime(UsersPath.ToString + "\" + UserList.SelectedItem.ToString) - ActionTxt.Text = "Last Action: " + Directory.GetLastWriteTime(UsersPath.ToString + "\" + UserList.SelectedItem.ToString) - fAccessTxt.Text = "First Login: " + Directory.GetCreationTime(UsersPath.ToString + "\" + UserList.SelectedItem.ToString) + If Not UserList.SelectedItem Is Nothing Then + NameTxt.Text = UserList.SelectedItem.ToString + AccessTxt.Text = "Last Access: " + Directory.GetLastAccessTime(UsersPath.ToString + "\" + UserList.SelectedItem.ToString) + fAccessTxt.Text = "First Login: " + Directory.GetCreationTime(UsersPath.ToString + "\" + UserList.SelectedItem.ToString) + End If End Sub End Class \ No newline at end of file