home *** CD-ROM | disk | FTP | other *** search
VERSION 5.00 Begin VB.Form Explorer BackColor = &H00FF0000& BorderStyle = 0 'None Caption = "Computer Security Sysytem" ClientHeight = 9540 ClientLeft = 0 ClientTop = 0 ClientWidth = 12870 DrawMode = 15 'Merge Pen Not DrawStyle = 2 'Dot LinkTopic = "Form1" MaxButton = 0 'False MinButton = 0 'False Moveable = 0 'False PaletteMode = 2 'Custom ScaleHeight = 477 ScaleMode = 2 'Point ScaleWidth = 643.5 ShowInTaskbar = 0 'False StartUpPosition = 2 'CenterScreen WhatsThisHelp = -1 'True WindowState = 2 'Maximized Begin VB.TextBox Text1 Height = 375 Left = 720 TabIndex = 20 Top = 3120 Width = 1575 End Begin VB.Timer Timer1 Interval = 60000 Left = 1320 Top = 1200 End Begin VB.TextBox timeLeft Enabled = 0 'False Height = 375 Left = 3480 TabIndex = 17 Text = "60" Top = 720 Width = 855 End Begin VB.CommandButton clear Caption = "Oops! I Hit the Wrong Button, Clear The Password I Entered" Height = 855 Left = 9480 TabIndex = 16 Top = 8040 Width = 2175 End Begin VB.CommandButton padAsterik Caption = "*" BeginProperty Font Name = "MS Sans Serif" Size = 15 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 915 Left = 8760 TabIndex = 14 Top = 6960 Width = 1395 End Begin VB.CommandButton padPound Caption = "#" BeginProperty Font Name = "MS Sans Serif" Size = 12 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 975 Left = 4560 TabIndex = 13 Top = 6960 Width = 1335 End Begin VB.CommandButton cmdEnter Caption = "Enter" BeginProperty Font Name = "Comic Sans MS" Size = 21.75 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 975 Left = 10320 TabIndex = 10 Top = 4920 Width = 1935 End Begin VB.CommandButton pad0 Caption = "0" Height = 975 Left = 6720 TabIndex = 9 Top = 6960 Width = 1335 End Begin VB.CommandButton pad7 Caption = "7" Height = 975 Left = 4560 TabIndex = 8 Top = 2640 Width = 1335 End Begin VB.CommandButton pad4 Caption = "4" Height = 975 Left = 4560 TabIndex = 7 Top = 4080 Width = 1335 End Begin VB.CommandButton pad5 Caption = "5" Height = 975 Left = 6720 TabIndex = 6 Top = 4080 Width = 1335 End Begin VB.CommandButton pad2 Caption = "2" Height = 975 Left = 6720 TabIndex = 5 Top = 5520 Width = 1335 End Begin VB.CommandButton pad9 Caption = "9" Height = 975 Left = 8760 TabIndex = 4 Top = 2640 Width = 1335 End Begin VB.CommandButton pad6 Caption = "6" Height = 975 Left = 8760 TabIndex = 3 Top = 4080 Width = 1335 End Begin VB.CommandButton pad3 Caption = "3" Height = 975 Left = 8760 TabIndex = 2 Top = 5520 Width = 1335 End Begin VB.CommandButton pad8 Caption = "8" Height = 975 Left = 6720 TabIndex = 1 Top = 2640 Width = 1335 End Begin VB.CommandButton pad1 Caption = "1" Height = 975 Left = 4560 TabIndex = 0 Top = 5520 Width = 1335 End Begin VB.TextBox EnteredCode Enabled = 0 'False Height = 405 Left = 5400 TabIndex = 12 ToolTipText = "You Entered" Top = 8280 Width = 3495 End Begin VB.Label Label4 AutoSize = -1 'True BackColor = &H00FF0000& Caption = "Minutes You Will Automatically Be Shut Down!!" BeginProperty Font Name = "Comic Sans MS" Size = 9.75 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 270 Left = 4440 TabIndex = 19 Top = 720 Width = 4245 End Begin VB.Label Label3 AutoSize = -1 'True BackColor = &H00FF0000& Caption = "If you do not enter a password in: " BeginProperty Font Name = "Comic Sans MS" Size = 9.75 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 270 Left = 240 TabIndex = 18 Top = 720 Width = 3180 End Begin VB.Label Label2 BackColor = &H00FF0000& Caption = "Entered Password:" BeginProperty Font Name = "Comic Sans MS" Size = 14.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 375 Left = 2520 TabIndex = 15 Top = 8280 Width = 2655 End Begin VB.Label Label1 AutoSize = -1 'True BackColor = &H00FF0000& Caption = "Computer Security System" BeginProperty Font Name = "Comic Sans MS" Size = 27.75 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 780 Left = 3000 TabIndex = 11 Top = 1800 Width = 6900 End Begin VB.Shape yellow BackColor = &H0000FFFF& BackStyle = 1 'Opaque FillColor = &H0000FFFF& Height = 735 Left = 2640 Shape = 3 'Circle Top = 3360 Visible = 0 'False Width = 975 End Begin VB.Shape green BackColor = &H0000C000& BackStyle = 1 'Opaque BorderStyle = 6 'Inside Solid Height = 735 Left = 2760 Shape = 3 'Circle Top = 5280 Visible = 0 'False Width = 735 End Begin VB.Shape red BackColor = &H000000FF& BackStyle = 1 'Opaque BorderStyle = 6 'Inside Solid Height = 735 Left = 2760 Shape = 3 'Circle Top = 4320 Visible = 0 'False Width = 735 End Attribute VB_Name = "Explorer" Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False Attribute VB_PredeclaredId = True Attribute VB_Exposed = False '****Updated Version, May 29,1999**** 'Higher Level Of Security!! Now With Disabled CTRL+ALT+DEL keys and mouse trap! 'Even Higher Level Of Seciurity!! Now With 'Always On Top' Function and Encryption also with optional All Acess Administrators Code! '********************************************************************* '********************************************************************* ' Step 1: create 10 command buttons, name them: pad0, pad1, pad2, etc. all they way from 0-9 ' Step 2: create 4 more command buttons, name them: padAsterik, cmdEnter, and padPound, and clear ' Step 3: Set the caption to the command buttons according to their names ' Ex1. pad0 would have a caption of 0 ' Ex2. padAsterik would have a caption of * ' Ex3. padPound would have a caption of # ' Ex.4 Clear would have a caption of 'Clear the code i entered, its wrong' ' Step4: create 2 textboxes: EnteredCode.text, CorrectCode.text ' Step5: set these textboxes to be behind a command button, they should not be viewable to the user ' Step6: Name your form Explorer ' Step7: Follow these settings for 'Explorer' ' BorderSyle...0 - None ' Caption...Computer Security System ' FillStyle...1 - Transparent ' Height 6465 ' Movable...False ' ScaleWidth... 516.75 ' ShowInTaskbar...False ' Width...10335 ' WindowState...2 - Maximized ' Step 8: Set the name of the project to Explore ' Step 9: Select the Project menu in VB 5.0 (don't know if its in any other version) ' Step10: Select 'Explore Properties' ' Step11: Follow this: ' In the default folder, 'General' ' set the 'StartUp Object' combobox to 'Explorer ' Project Name: Explore ' Project Description: Security System ' Select the next folder tab, 'Make' ' Change the Icon to whatever you want ' Title: Explorer ' Step12: Create 3 Shapes, make them circles, 1 red, 1 green, 1 yellow ' Name them 'yellow' 'green' and 'red' Also, make them all NOT visible 'WARNING: This will not protect all computers, this is just a thing I made ' to keep my brothers of my computer ' Finally, the last step,well actually the second to last step ' Copy Coding below EXACTLY ' Now, the last step, after you save it and everything and you compile it ' place a shortcut in the start menu so it will startup with your computer ' or find another way to load on startup, such as Win.INI or the Registry ' Note: If you cannot get this to work email me and ill send the working Source code ' And I also Highly RECCOMEND that you use my source, because I may have left out some settings ' for the Form: Explorer ' Original Code Created by Tyler Robbins, Tuesday and Wednesday May 26, and 27 1999 ' Updated Code Created by Tyler Robbins, Saturday, May 29 1999 ' Updated Code Created by Tyler Robbins, Monday June 7 1999 '************************************************************** '*************************************************************** Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long Private Declare Function ShowCursor Lib "user32" (ByVal bShow As Long) As Long Private Sub clear_Click() EnteredCode.Text = "" 'clears the entered code End Sub Private Sub cmdEnter_Click() 'Cmdenter: executes the alarm process If EnteredCode.Text = Text1.Text Or EnteredCode.Text = "#1010861057117975163677064*" Then 'if user's entered code is the same as the password then If EnteredCode.Text = "#1010861057117975163677064*" Then allacess = "yes" Else End If yellow.Visible = False 'turn off yellow light green.Visible = True 'turn on green light If allacess = "yes" Then MsgBox ("All Acess Administrative Password Accepted") Else MsgBox ("Correct Password") End If MsgBox ("Access Granted!!") Else 'if the user's entered code isn't the same as the password then yellow.Visible = False 'turn off yellow light red.Visible = True 'turns on yellow light MsgBox ("Sorry, Incorrect Password, Have A Good Day!!") ' returnvalue = Shell("c:\windows\rundll.exe user.exe,exitwindows", 1) 'Shuts down the computer End If End Sub Private Sub Form_Load() Call Disable_Ctrl_Alt_Del ' Disables CTRL+ALT+DEL EnableTrap Explorer 'Enables Mouse Trapping Text1.Visible = False allacess = "" CorrectCode = "" EnteredCode.Text = "" 'any of the numbers 0-9, "#", and "*" yellow.Visible = True 'tells the yellow circle, or standby light to be on worm = GetSetting("xyzxx", 0, "c") 'Finds out how many times this program worm = Val(worm) + 1 'has been loaded SaveSetting "xyzxx", 0, "c", worm If worm = 1 Then 'set password and ask if you want timer PW = InputBox("Enter What You Want Your Password to be, It May Be Up to 44 digits long Please, Numbers Only") SaveSetting "xyzxx", 0, "R", PW * 101086.1057 'Encryption MsgBox ("Reminder: Your Password is: ") MsgBox PW MsgBox ("Do not forget this password, since this is your 1st use this is the only time it will be displayed") TimerSelect = InputBox("Do you want a timer that will automatically shut down your computer after 1 hour of the password not being entered? [Type yes or no]") SaveSetting "xyzxx", 0, "T", TimerSelect End If CorrectCode = GetSetting("xyzxx", 0, "R") Text1.Text = CorrectCode / 101086.1057 ' Decryption timercontroller = GetSetting("xyzxx", 0, "T") If timercontroller = "no" Then Label3.Visible = False Label4.Visible = False Timer1.Enabled = False timeLeft.Visible = False End If End Sub Sub AlwaysOnTop(FrmID As Form, OnTop As Integer) ' This function uses an argument to determine whether ' to make the specified form always on top or not Const SWP_NOMOVE = 2 Const SWP_NOSIZE = 1 Const FLAGS = SWP_NOMOVE Or SWP_NOSIZE Const HWND_TOPMOST = -1 Const HWND_NOTOPMOST = -2 If OnTop Then OnTop = SetWindowPos(FrmID.hwnd, HWND_TOPMOST, 0, 0, 0, 0, FLAGS) Else OnTop = SetWindowPos(FrmID.hwnd, HWND_TOPMOST, 0, 0, 0, 0, FLAGS) End If End Sub Private Sub Explorer_Unload() Call Enable_Ctrl_Alt_Del 'Re-Enables CTRL+ALT+DEL DisableTrap Explorer 'Re enables the mouse to move around the screen End Sub Private Sub pad0_Click() EnteredCode = EnteredCode & "0" 'Enteredcode(or the code the user has entered)... End Sub 'gets a 0 added to it Private Sub pad1_Click() EnteredCode = EnteredCode & "1" 'entercode gets a 1 added to it End Sub Private Sub pad2_Click() EnteredCode = EnteredCode & "2" 'entercode gets a 2 added to it End Sub Private Sub pad3_Click() EnteredCode = EnteredCode & "3" 'entercode gets a 3 added to it End Sub Private Sub pad4_Click() EnteredCode = EnteredCode & "4" 'entercode gets a 4 added to it End Sub Private Sub pad5_Click() EnteredCode = EnteredCode & "5" 'entercode gets a 5 added to it End Sub Private Sub pad6_Click() EnteredCode = EnteredCode & "6" 'entercode gets a 6 added to it End Sub Private Sub pad7_Click() EnteredCode = EnteredCode & "7" 'entercode gets a 7 added to it End Sub Private Sub pad8_Click() EnteredCode = EnteredCode & "8" 'entercode gets a 8 added to it End Sub Private Sub pad9_Click() EnteredCode = EnteredCode & "9" 'entercode gets a 9 added to it End Sub Private Sub padAsterik_Click() EnteredCode = EnteredCode & "*" 'entercode gets a * added to it End Sub Private Sub padPound_Click() EnteredCode = EnteredCode & "#" 'entercode gets a # added to it End Sub Private Sub Timer1_Timer() Timer1.Enabled = False Timer1.Enabled = True timeLeft = timeLeft - 1 If timeLeft = 0 Then returnvalue = Shell("c:\windows\rundll.exe user.exe,exitwindows", 1) End If End Sub ' Ok, this shows what a 12 year old that has been programming in VB for 3 or 4 weeks can do ' I used no books, but all you out there, Try using the VB Help File!! ' Its hard to understand at first but you'll get the hang of it ' Also, if you have a background in QuickBasic, or Basic, then you pretty ' Much know the basics of this program ' -Tyler Robbins May, 26 1999 
(.txt)