AT2k Design BBS Message Area
Casually read the BBS message area using an easy to use interface. Messages are categorized exactly like they are on the BBS. You may post new messages or reply to existing messages!

You are not logged in. Login here for full access privileges.

Previous Message | Next Message | Back to Scripts Only! (Code Only)  <--  <--- Return to Home Page
   Networked Database  Scripts Only! (Code Only)   [14 / 68] RSS
 From   To   Subject   Date/Time 
Message   Steve Winn    All   RUN ANY PROGRAM   December 2, 2001
 6:38 PM   

  CLEAR
  SUSPENDPAGEBREAK

  ACTION "Doing SysOp Stuff"
  LET A0 = "SHELL"

Start:
  CLS
  LOC 2,1
  ? "Aspect Technologies 2k � DOS Command"
  ? "Press ENTER to quit..."
  ?
  LET D0 = "VADV Execution as: " % A0 % ". To toggle, enter [!]."
  ? D0
  ?
  ? "Enter DOS Command to Execute."
  RS E0, ":: "
  IF E0 = "" GOTO Exit_Script
  IF E0 = " " GOTO Exit_Script
  IF E0 = "Q" GOTO Exit_Script
  IF E0 = "!" GOTO Set_EXE

  LET Z1 = "+++ DOS Command: " % E0
  LOG Z1

  LET x0 = E0
  LET y0 = "*.*"
  LET Z0 = !8
  IFVAL Z0 = 0 GOTO templabel1
    RR P0, "YN", "This command contains *.*, Are you sure? "
    IF P0 = "Y" GOTO templabel1
    GOTO Start

  templabel1:
  IF A0 = "DOOR" GOTO Execute_Door


Execute_Shell:
  SHELL E0
  GOTO Start


Execute_Door:
  DOOR E0
  GOTO Start


Set_EXE:
  LET A0 = "DOOR"
  GOTO Start

Exit_Script:
  RESUMEPAGEBREAK

--
[AT2k] -- Your VBBS/VADV Support Center -- [www.at2k.org] -- [bbs.at2k.org]
  Show ANSI Codes | Hide BBCodes | Show Color Codes | Hide Encoding | Hide HTML Tags | Show Routing
Previous Message | Next Message | Back to Scripts Only! (Code Only)  <--  <--- Return to Home Page
VADV-PHP
Execution Time: 0.0178 seconds

If you experience any problems with this website or need help, contact the webmaster.
VADV-PHP Copyright © 2002-2024 Steve Winn, Aspect Technologies. All Rights Reserved.
Virtual Advanced Copyright © 1995-1997 Roland De Graaf.
 v2.1.241108