home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 3_2004-2005.ISO / Data / Zips / Enigma_X18288312132004.psc / Source / del.bas < prev    next >
BASIC Source File  |  2004-12-12  |  19KB  |  359 lines

  1. Attribute VB_Name = "del"
  2. Option Explicit 'Makes sure all the variables are declared
  3.  
  4. '**********************************************************************************
  5. 'This module contains all the code for the del command. ie "del readme.txt" etc.
  6. 'I put it in here to clean up the code on the frmGame a bit :-)
  7. '**********************************************************************************
  8.  
  9.  
  10. 'They want to Delete C:\Documents\Images\Test.jpg
  11. Public Sub DelHomeDocImgTest()
  12.     GetLevel 'Where are we? Loads the GetLevel Sub in (main.bas)
  13.     If Disconnected = False Then 'Are we disconnected
  14.         If Level = "homedocimages" Then
  15.             If IsHomeDocImgTestDel = False Then 'Has it been deleted already?
  16.                 frmGame.txtConsole.Text = frmGame.txtConsole.Text & vbCrLf & Lvl & "del test.jpg" & vbCrLf
  17.                 frmGame.txtConsole.Text = frmGame.txtConsole.Text & "Successfully Deleted" & vbCrLf
  18.                 IsHomeDocImgTestDel = True 'Set it so that the file has been deleted (Sort Of)
  19.                 frmGame.txtConsole.Text = frmGame.txtConsole.Text & vbCrLf & Lvl & vbCrLf
  20.             Else 'Yes it has :[
  21.                 frmGame.txtConsole.Text = frmGame.txtConsole.Text & vbCrLf & Lvl & "del Test.jpg" & vbCrLf
  22.                 frmGame.txtConsole.Text = frmGame.txtConsole.Text & "Could not Find " & Lvl & "Test.jpg" & vbCrLf
  23.                 frmGame.txtConsole.Text = frmGame.txtConsole.Text & vbCrLf & Lvl & vbCrLf
  24.             End If
  25.             Exit Sub 'Ends the Sub :)
  26.         End If
  27.         
  28.         frmGame.txtConsole.Text = frmGame.txtConsole.Text & vbCrLf & Lvl & "del Test.jpg" & vbCrLf
  29.         frmGame.txtConsole.Text = frmGame.txtConsole.Text & "Could not Find " & Lvl & "Test.jpg" & vbCrLf
  30.         frmGame.txtConsole.Text = frmGame.txtConsole.Text & vbCrLf & Lvl & vbCrLf
  31.         Exit Sub
  32.         
  33.     Else 'The Computer is disconnected
  34.         frmGame.txtConsole.Text = frmGame.txtConsole.Text & vbCrLf & "Computer is Disconnected" & vbCrLf
  35.     End If
  36.     Exit Sub 'Ends the Sub :)
  37. End Sub
  38.  
  39.  
  40. 'They want to Delete a Readme.txt File
  41. Public Sub DelReadmetxt()
  42.     GetLevel  'Where are we? Loads the GetLevel Sub in (main.bas)
  43.     If Disconnected = False Then
  44.         Select Case Level
  45.             'They want to delete C:\Readme.txt
  46.             Case "home" 'Are we Home (C:\)?
  47.                 If IsHomeReadmeDel = False Then 'Has it been deleted already?
  48.                     GetLevel 'Get's the current level
  49.                     frmGame.txtConsole.Text = frmGame.txtConsole.Text & vbCrLf & Lvl & "del readme.txt" & vbCrLf
  50.                     frmGame.txtConsole.Text = frmGame.txtConsole.Text & "Successfully Deleted" & vbCrLf
  51.                     IsHomeReadmeDel = True 'Deletes the File. (Sort-of)
  52.                     frmGame.txtConsole.Text = frmGame.txtConsole.Text & vbCrLf & Lvl & vbCrLf
  53.                 Else 'Oh No It has been deleted :-)
  54.                     frmGame.txtConsole.Text = frmGame.txtConsole.Text & vbCrLf & Lvl & "del readme.txt" & vbCrLf
  55.                     frmGame.txtConsole.Text = frmGame.txtConsole.Text & "Could not Find " & Lvl & "Readme.txt" & vbCrLf
  56.                     frmGame.txtConsole.Text = frmGame.txtConsole.Text & vbCrLf & Lvl & vbCrLf
  57.                 End If
  58.                 Exit Sub 'Ends the Sub :)
  59.                 
  60.             'They want to delete C:\Documents\Recieved\Readme.txt
  61.             Case "homerecieved" 'Are we In the recieved folder (C:\Documents\Recieved\)?
  62.                 If IsHomeDocRecReadmeDel = False Then  'Has it been deleted already?
  63.                     GetLevel 'Get's the current level
  64.                     frmGame.txtConsole.Text = frmGame.txtConsole.Text & vbCrLf & Lvl & "del readme.txt" & vbCrLf
  65.                     frmGame.txtConsole.Text = frmGame.txtConsole.Text & "Successfully Deleted" & vbCrLf
  66.                     IsHomeDocRecReadmeDel = True 'Tell the program that is has been deleted
  67.                     frmGame.txtConsole.Text = frmGame.txtConsole.Text & vbCrLf & Lvl & vbCrLf
  68.                 Else 'It has been deleted
  69.                     frmGame.txtConsole.Text = frmGame.txtConsole.Text & vbCrLf & Lvl & "del readme.txt" & vbCrLf
  70.                     frmGame.txtConsole.Text = frmGame.txtConsole.Text & "Could not Find " & Lvl & "Readme.txt" & vbCrLf
  71.                     frmGame.txtConsole.Text = frmGame.txtConsole.Text & vbCrLf & Lvl & vbCrLf
  72.                 End If
  73.                 Exit Sub 'Ends the Sub
  74.         End Select
  75.         
  76.         frmGame.txtConsole.Text = frmGame.txtConsole.Text & vbCrLf & Lvl & "del readme.txt" & vbCrLf
  77.         frmGame.txtConsole.Text = frmGame.txtConsole.Text & "Could not Find " & Lvl & "Readme.txt" & vbCrLf
  78.         frmGame.txtConsole.Text = frmGame.txtConsole.Text & vbCrLf & Lvl & vbCrLf
  79.         Exit Sub
  80.     Else 'The Computer is disconnected
  81.         frmGame.txtConsole.Text = frmGame.txtConsole.Text & vbCrLf & "Computer is Disconnected" & vbCrLf
  82.     End If
  83.     Exit Sub 'Exits the Sub :)
  84. End Sub
  85.  
  86.  
  87. 'They want to Delete C:\System\View.exe
  88. Public Sub DelSysViewexe()
  89.     GetLevel 'Where are they?
  90.     If Disconnected = False Then 'Are we disconnected??
  91.         If Level = "homesystem" Then
  92.             Select Case Level 'Where are we
  93.                 Case "homesystem" 'If they are in the C:\System\ folder
  94.                     frmGame.txtConsole.Text = frmGame.txtConsole.Text & vbCrLf & Lvl & "del view.exe" & vbCrLf
  95.                     frmGame.txtConsole.Text = frmGame.txtConsole.Text & "Access is Denied" & vbCrLf
  96.                     frmGame.txtConsole.Text = frmGame.txtConsole.Text & "View.exe is a System File and Cannot be Deleted" & vbCrLf
  97.                     frmGame.txtConsole.Text = frmGame.txtConsole.Text & vbCrLf & Lvl & vbCrLf
  98.                     Exit Sub 'Exits the sub
  99.             End Select
  100.             frmGame.txtConsole.Text = frmGame.txtConsole.Text & vbCrLf & Lvl & "del view.exe" & vbCrLf
  101.             frmGame.txtConsole.Text = frmGame.txtConsole.Text & "Could not Find " & Lvl & "View.exe" & vbCrLf
  102.             frmGame.txtConsole.Text = frmGame.txtConsole.Text & vbCrLf & Lvl & vbCrLf
  103.             Exit Sub 'Exits the Sub :)
  104.         End If
  105.         
  106.         frmGame.txtConsole.Text = frmGame.txtConsole.Text & vbCrLf & Lvl & "del view.exe" & vbCrLf
  107.         frmGame.txtConsole.Text = frmGame.txtConsole.Text & "Could not Find " & Lvl & "View.exe" & vbCrLf
  108.         frmGame.txtConsole.Text = frmGame.txtConsole.Text & vbCrLf & Lvl & vbCrLf
  109.         Exit Sub
  110.         
  111.     Else 'The Computer is disconnected
  112.         frmGame.txtConsole.Text = frmGame.txtConsole.Text & vbCrLf & "Computer is Disconnected" & vbCrLf
  113.     End If
  114.     Exit Sub 'Exits the Sub :)
  115. End Sub
  116.  
  117.  
  118. 'They typed del and something that isn't there. e.g.(del gklfj)
  119. Public Sub DelSomething()
  120.     If Disconnected = False Then
  121.         cGetCharCount = Len(Text) 'Here is where we count the number of characters
  122.         'This will tell up what they typed after del
  123.         'Mid(What we want searched, The Starting Character, Then the total Characters/The Last Char)
  124.         Result = Mid(Text, 5, cGetCharCount)
  125.  
  126.         frmGame.txtConsole.Text = frmGame.txtConsole.Text & vbCrLf & Lvl & "del " & Result & vbCrLf
  127.         frmGame.txtConsole.Text = frmGame.txtConsole.Text & "Could not Find " & Lvl & Result & vbCrLf
  128.         frmGame.txtConsole.Text = frmGame.txtConsole.Text & vbCrLf & Lvl & vbCrLf
  129.         Exit Sub 'Exits the Sub :)
  130.     Else 'The Computer is disconnected
  131.         frmGame.txtConsole.Text = frmGame.txtConsole.Text & vbCrLf & "Computer is Disconnected" & vbCrLf
  132.     End If
  133.     Exit Sub 'Exits the Sub :)
  134. End Sub
  135.  
  136.  
  137. 'They want to Delete C:\System\Deltree.exe
  138. Public Sub DelSysDeltree()
  139.     GetLevel 'Where are they?
  140.     If Disconnected = False Then
  141.         Select Case Level
  142.             Case "homesystem" 'If they are in the C:\System\ folder
  143.                 frmGame.txtConsole.Text = frmGame.txtConsole.Text & vbCrLf & Lvl & "del deltree.exe" & vbCrLf
  144.                 frmGame.txtConsole.Text = frmGame.txtConsole.Text & "Access is Denied" & vbCrLf
  145.                 frmGame.txtConsole.Text = frmGame.txtConsole.Text & "Deltree.exe is a System File and Cannot be Deleted" & vbCrLf
  146.                 frmGame.txtConsole.Text = frmGame.txtConsole.Text & vbCrLf & Lvl & vbCrLf
  147.                 Exit Sub
  148.         End Select
  149.                 
  150.         frmGame.txtConsole.Text = frmGame.txtConsole.Text & vbCrLf & Lvl & "del deltree.exe" & vbCrLf
  151.         frmGame.txtConsole.Text = frmGame.txtConsole.Text & "Could not Find " & Lvl & "Deltree.exe" & vbCrLf
  152.         frmGame.txtConsole.Text = frmGame.txtConsole.Text & vbCrLf & Lvl & vbCrLf
  153.         Exit Sub
  154.                 
  155.     Else 'The Computer is disconnected
  156.         frmGame.txtConsole.Text = frmGame.txtConsole.Text & vbCrLf & "Computer is Disconnected" & vbCrLf
  157.     End If
  158.     Exit Sub 'Exits the Sub :)
  159. End Sub
  160.  
  161.  
  162. 'They want to Delete C:\System\Del.exe
  163. Public Sub DelSysDel()
  164.     GetLevel 'Where are they?
  165.     If Disconnected = False Then 'Are they disconnected?
  166.         Select Case Level 'Where are they
  167.             Case "homesystem" 'If they are in the C:\System\ folder
  168.                 frmGame.txtConsole.Text = frmGame.txtConsole.Text & vbCrLf & Lvl & "del del.exe" & vbCrLf
  169.                 frmGame.txtConsole.Text = frmGame.txtConsole.Text & "Access is Denied" & vbCrLf
  170.                 frmGame.txtConsole.Text = frmGame.txtConsole.Text & "Del.exe is a System File and Cannot be Deleted" & vbCrLf
  171.                 frmGame.txtConsole.Text = frmGame.txtConsole.Text & vbCrLf & Lvl & vbCrLf
  172.                 Exit Sub
  173.                 
  174.         End Select
  175.         frmGame.txtConsole.Text = frmGame.txtConsole.Text & vbCrLf & Lvl & "del del.exe" & vbCrLf
  176.         frmGame.txtConsole.Text = frmGame.txtConsole.Text & "Could not Find " & Lvl & "Del.exe" & vbCrLf
  177.         frmGame.txtConsole.Text = frmGame.txtConsole.Text & vbCrLf & Lvl & vbCrLf
  178.         Exit Sub
  179.                 
  180.     Else 'The Computer is disconnected
  181.         frmGame.txtConsole.Text = frmGame.txtConsole.Text & vbCrLf & "Computer is Disconnected" & vbCrLf
  182.     End If
  183.     Exit Sub 'Exits the Sub :)
  184. End Sub
  185.  
  186.  
  187. 'They want to Delete C:\System\Commands.exe
  188. Public Sub DelSysCommands()
  189.     GetLevel 'Where are they?
  190.     If Disconnected = False Then 'Is the Computer Disconnected
  191.         Select Case Level 'Where are They?
  192.             Case "homesystem" 'If they are in the C:\System\ folder
  193.                 frmGame.txtConsole.Text = frmGame.txtConsole.Text & vbCrLf & Lvl & "del commands.exe" & vbCrLf
  194.                 frmGame.txtConsole.Text = frmGame.txtConsole.Text & "Access is Denied" & vbCrLf
  195.                 frmGame.txtConsole.Text = frmGame.txtConsole.Text & "Commands.exe is a System File and Cannot be Deleted" & vbCrLf
  196.                 frmGame.txtConsole.Text = frmGame.txtConsole.Text & vbCrLf & Lvl & vbCrLf
  197.                 Exit Sub
  198.                     
  199.         End Select
  200.         frmGame.txtConsole.Text = frmGame.txtConsole.Text & vbCrLf & Lvl & "del commands.exe" & vbCrLf
  201.         frmGame.txtConsole.Text = frmGame.txtConsole.Text & "Could not Find " & Lvl & "Commands.exe" & vbCrLf
  202.         frmGame.txtConsole.Text = frmGame.txtConsole.Text & vbCrLf & Lvl & vbCrLf
  203.         Exit Sub
  204.                 
  205.     Else 'The Computer is disconnected
  206.         frmGame.txtConsole.Text = frmGame.txtConsole.Text & vbCrLf & "Computer is Disconnected" & vbCrLf
  207.     End If
  208.     Exit Sub 'Exits the Sub :)
  209. End Sub
  210.  
  211.  
  212. 'They want to Delete C:\System\Cls.exe
  213. Public Sub DelSysCls()
  214.     GetLevel 'Where are they?
  215.     If Disconnected = False Then
  216.         Select Case Level
  217.             Case "homesystem" 'If they are in the C:\System\ folder
  218.                 frmGame.txtConsole.Text = frmGame.txtConsole.Text & vbCrLf & Lvl & "del cls.exe" & vbCrLf
  219.                 frmGame.txtConsole.Text = frmGame.txtConsole.Text & "Access is Denied" & vbCrLf
  220.                 frmGame.txtConsole.Text = frmGame.txtConsole.Text & "Cls.exe is a System File and Cannot be Deleted" & vbCrLf
  221.                 frmGame.txtConsole.Text = frmGame.txtConsole.Text & vbCrLf & Lvl & vbCrLf
  222.                 Exit Sub
  223.                     
  224.         End Select
  225.         frmGame.txtConsole.Text = frmGame.txtConsole.Text & vbCrLf & Lvl & "del cls.exe" & vbCrLf
  226.         frmGame.txtConsole.Text = frmGame.txtConsole.Text & "Could not Find " & Lvl & "Cls.exe" & vbCrLf
  227.         frmGame.txtConsole.Text = frmGame.txtConsole.Text & vbCrLf & Lvl & vbCrLf
  228.         Exit Sub
  229.  
  230.     Else 'The Computer is disconnected
  231.         frmGame.txtConsole.Text = frmGame.txtConsole.Text & vbCrLf & "Computer is Disconnected" & vbCrLf
  232.     End If
  233.     Exit Sub 'Exits the Sub :)
  234. End Sub
  235.  
  236.  
  237. 'They want to Delete C:\System\Boot\Boot.ini
  238. Public Sub DelSysbootboot()
  239.     GetLevel 'Where are they?
  240.     If Disconnected = False Then
  241.         Select Case Level
  242.             Case "homesysboot" 'If they are in the C:\System\Boot folder
  243.                 frmGame.txtConsole.Text = frmGame.txtConsole.Text & vbCrLf & Lvl & "del boot.ini" & vbCrLf
  244.                 frmGame.txtConsole.Text = frmGame.txtConsole.Text & "Access is Denied" & vbCrLf
  245.                 frmGame.txtConsole.Text = frmGame.txtConsole.Text & "Boot.ini is a System File and Cannot be Deleted" & vbCrLf
  246.                 frmGame.txtConsole.Text = frmGame.txtConsole.Text & vbCrLf & Lvl & vbCrLf
  247.                 Exit Sub
  248.                     
  249.         End Select
  250.         frmGame.txtConsole.Text = frmGame.txtConsole.Text & vbCrLf & Lvl & "del boot.ini" & vbCrLf
  251.         frmGame.txtConsole.Text = frmGame.txtConsole.Text & "Could not Find " & Lvl & "Boot.ini" & vbCrLf
  252.         frmGame.txtConsole.Text = frmGame.txtConsole.Text & vbCrLf & Lvl & vbCrLf
  253.         Exit Sub
  254.  
  255.     Else 'The Computer is disconnected
  256.         frmGame.txtConsole.Text = frmGame.txtConsole.Text & vbCrLf & "Computer is Disconnected" & vbCrLf
  257.     End If
  258.     Exit Sub 'Exits the Sub :)
  259. End Sub
  260.  
  261.  
  262. 'They want to Delete C:\System\Boot\User.dat
  263. Public Sub DelSysbootuser()
  264.     GetLevel 'Where are they?
  265.     If Disconnected = False Then
  266.         Select Case Level
  267.             Case "homesysboot" 'If they are in the C:\System\Boot folder
  268.                 frmGame.txtConsole.Text = frmGame.txtConsole.Text & vbCrLf & Lvl & "del user.dat" & vbCrLf
  269.                 frmGame.txtConsole.Text = frmGame.txtConsole.Text & "Access is Denied" & vbCrLf
  270.                 frmGame.txtConsole.Text = frmGame.txtConsole.Text & "User.dat is a System File and Cannot be Deleted" & vbCrLf
  271.                 frmGame.txtConsole.Text = frmGame.txtConsole.Text & vbCrLf & Lvl & vbCrLf
  272.                 Exit Sub
  273.                     
  274.         End Select
  275.         frmGame.txtConsole.Text = frmGame.txtConsole.Text & vbCrLf & Lvl & "del user.dat" & vbCrLf
  276.         frmGame.txtConsole.Text = frmGame.txtConsole.Text & "Could not Find " & Lvl & "User.dat" & vbCrLf
  277.         frmGame.txtConsole.Text = frmGame.txtConsole.Text & vbCrLf & Lvl & vbCrLf
  278.         Exit Sub
  279.  
  280.     Else 'The Computer is disconnected
  281.         frmGame.txtConsole.Text = frmGame.txtConsole.Text & vbCrLf & "Computer is Disconnected" & vbCrLf
  282.     End If
  283.     Exit Sub 'Exits the Sub :)
  284. End Sub
  285.  
  286. 'They want to Delete C:\System\Boot\System.dat
  287. Public Sub DelSysbootsystem()
  288.     GetLevel 'Where are they?
  289.     If Disconnected = False Then
  290.         Select Case Level
  291.             Case "homesysboot" 'If they are in the C:\System\Boot folder
  292.                 frmGame.txtConsole.Text = frmGame.txtConsole.Text & vbCrLf & Lvl & "del system.dat" & vbCrLf
  293.                 frmGame.txtConsole.Text = frmGame.txtConsole.Text & "Access is Denied" & vbCrLf
  294.                 frmGame.txtConsole.Text = frmGame.txtConsole.Text & "System.dat is a System File and Cannot be Deleted" & vbCrLf
  295.                 frmGame.txtConsole.Text = frmGame.txtConsole.Text & vbCrLf & Lvl & vbCrLf
  296.                 Exit Sub
  297.                     
  298.         End Select
  299.         frmGame.txtConsole.Text = frmGame.txtConsole.Text & vbCrLf & Lvl & "del system.dat" & vbCrLf
  300.         frmGame.txtConsole.Text = frmGame.txtConsole.Text & "Could not Find " & Lvl & "System.dat" & vbCrLf
  301.         frmGame.txtConsole.Text = frmGame.txtConsole.Text & vbCrLf & Lvl & vbCrLf
  302.         Exit Sub
  303.  
  304.     Else 'The Computer is disconnected
  305.         frmGame.txtConsole.Text = frmGame.txtConsole.Text & vbCrLf & "Computer is Disconnected" & vbCrLf
  306.     End If
  307.     Exit Sub 'Exits the Sub :)
  308. End Sub
  309.  
  310.  
  311. 'They want to Delete C:\System\Kernel\Kernel.sys
  312. Public Sub DelSyskernelkernel()
  313.     GetLevel 'Where are they?
  314.     If Disconnected = False Then
  315.         Select Case Level
  316.             Case "homesyskernel" 'If they are in the C:\System\Kernel folder
  317.                 frmGame.txtConsole.Text = frmGame.txtConsole.Text & vbCrLf & Lvl & "del kernel.sys" & vbCrLf
  318.                 frmGame.txtConsole.Text = frmGame.txtConsole.Text & "Access is Denied" & vbCrLf
  319.                 frmGame.txtConsole.Text = frmGame.txtConsole.Text & "Kernel.sys is a System File and Cannot be Deleted" & vbCrLf
  320.                 frmGame.txtConsole.Text = frmGame.txtConsole.Text & vbCrLf & Lvl & vbCrLf
  321.                 Exit Sub
  322.                     
  323.         End Select
  324.         frmGame.txtConsole.Text = frmGame.txtConsole.Text & vbCrLf & Lvl & "del kernel.sys" & vbCrLf
  325.         frmGame.txtConsole.Text = frmGame.txtConsole.Text & "Could not Find " & Lvl & "Kernel.sys" & vbCrLf
  326.         frmGame.txtConsole.Text = frmGame.txtConsole.Text & vbCrLf & Lvl & vbCrLf
  327.         Exit Sub
  328.  
  329.     Else 'The Computer is disconnected
  330.         frmGame.txtConsole.Text = frmGame.txtConsole.Text & vbCrLf & "Computer is Disconnected" & vbCrLf
  331.     End If
  332.     Exit Sub 'Exits the Sub :)
  333. End Sub
  334.  
  335.  
  336. 'They want to Delete C:\Help\Help.hlp
  337. Public Sub DelHomeHelpHelp()
  338.     GetLevel 'Where are they?
  339.     If Disconnected = False Then
  340.         Select Case Level
  341.             Case "homehelp" 'If they are in the C:\Help\ folder
  342.                 frmGame.txtConsole.Text = frmGame.txtConsole.Text & vbCrLf & Lvl & "del help.hlp" & vbCrLf
  343.                 frmGame.txtConsole.Text = frmGame.txtConsole.Text & "Access is Denied" & vbCrLf
  344.                 frmGame.txtConsole.Text = frmGame.txtConsole.Text & "Help.hlp is a System File and Cannot be Deleted" & vbCrLf
  345.                 frmGame.txtConsole.Text = frmGame.txtConsole.Text & vbCrLf & Lvl & vbCrLf
  346.                 Exit Sub
  347.                     
  348.         End Select
  349.         frmGame.txtConsole.Text = frmGame.txtConsole.Text & vbCrLf & Lvl & "del help.hlp" & vbCrLf
  350.         frmGame.txtConsole.Text = frmGame.txtConsole.Text & "Could not Find " & Lvl & "Help.hlp" & vbCrLf
  351.         frmGame.txtConsole.Text = frmGame.txtConsole.Text & vbCrLf & Lvl & vbCrLf
  352.         Exit Sub
  353.  
  354.     Else 'The Computer is disconnected
  355.         frmGame.txtConsole.Text = frmGame.txtConsole.Text & vbCrLf & "Computer is Disconnected" & vbCrLf
  356.     End If
  357.     Exit Sub 'Exits the Sub :)
  358. End Sub
  359.