Login Panel (BUG Exploit)

Author: PSNAppz

KeyLogger/KeyLogger.vbproj

@@ -12,21 +12,20 @@
     <FileAlignment>512</FileAlignment>
     <MyType>WindowsForms</MyType>
     <TargetFrameworkVersion>v4.5</TargetFrameworkVersion>
-    <PublishUrl>https://github.com/PSNAppz/KeyLogger.git/</PublishUrl>
+    <IsWebBootstrapper>false</IsWebBootstrapper>
+    <PublishUrl>C:\Users\User\Desktop\SOurce\</PublishUrl>
     <Install>true</Install>
-    <InstallFrom>Web</InstallFrom>
+    <InstallFrom>Disk</InstallFrom>
     <UpdateEnabled>false</UpdateEnabled>
     <UpdateMode>Foreground</UpdateMode>
     <UpdateInterval>7</UpdateInterval>
     <UpdateIntervalUnits>Days</UpdateIntervalUnits>
     <UpdatePeriodically>false</UpdatePeriodically>
     <UpdateRequired>false</UpdateRequired>
     <MapFileExtensions>true</MapFileExtensions>
-    <CreateWebPageOnPublish>true</CreateWebPageOnPublish>
     <WebPage>publish.htm</WebPage>
-    <ApplicationRevision>0</ApplicationRevision>
+    <ApplicationRevision>1</ApplicationRevision>
     <ApplicationVersion>1.0.0.%2a</ApplicationVersion>
-    <IsWebBootstrapper>true</IsWebBootstrapper>
     <UseApplicationTrust>false</UseApplicationTrust>
     <PublishWizardCompleted>true</PublishWizardCompleted>
     <BootstrapperEnabled>true</BootstrapperEnabled>

KeyLogger/Menu.vb

@@ -41,10 +41,12 @@
     End Sub
 
     Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
-        If TextBox1.Text = My.Settings.USER And TextBox2.Text = My.Settings.PASSWORD Then
-            Errorlbl.Text = "Login Succesful!"
-            controlpanel.Show()
-            Me.Hide()
+        If My.Settings.USER <> vbNullString Then
+            If TextBox1.Text = My.Settings.USER And TextBox2.Text = My.Settings.PASSWORD Then
+                Errorlbl.Text = "Login Succesful!"
+                controlpanel.Show()
+                Me.Hide()
+            End If
         End If
     End Sub