Visual foxpro 替换命令/CMD

Question

我想在 foxpro 中制作一个程序，您可以在其中的文本框中键入一个名称，它会在命令提示符下自动添加一个用户。所以 netuser（名称）和一个按钮（添加用户）问候

克里斯

Answer 1

我认为您应该查看 Powershell 而不是 Visual Foxpro。如果您使用的是 Foxpro 2.6（不是 Visual 版本），您可以使用接受命令：

DO WHILE .t.
   ACCEPT "Enter username:" to mUser
   IF len(trim(mUser)) = 0
       exit
   ENDIF
   run net user &mUser /add
ENDDO

Answer 2

* Does the initial setting for foxpro
*
set echo off
set talk off
set step off
set date british
set century on
set intensity off
set delimiter on
set delimiter to '[]'
set scoreboard off
set menu off
set safety off
set deleted on
set escape on
set device to screen
set color to
set exclusive on
set status on
set bell off
clear all
clear program
clear
*
** define a variable to store user name to be created

muser_name = space(20) 
@ 12, 22 say 'Enter User Name ' get muser_name
read
if !empty(muser_name)
   * this command adds a new user to the computer
   run net user &muser_name /add
endif
wait
clear
clear program
return
**
* end of program

这将为您的计算机创建一个没有任何密码的新用户。

Visual foxpro 替换命令/CMD

Visual foxpro Replace commands / CMD

foxpro