另注意,如果使用外部ActiveX控件,在发布的程序中必须使用regsvr32注册相应控件后调用,才能保证在其他机上正常运行。
.版本 2.子程序 _文件是否存在, 逻辑型
.参数 文件名, 文本型
.局部变量 文件号, 整数型
文件号 = 打开文件 (文件名, 1, 1)
.判断开始 (文件号 = 0)
返回 (假)
.默认
关闭文件 (文件号)
返回 (真)
.判断结束
.子程序 _按钮1_被单击
.如果 (_文件是否存在 (“文件地址”) = 真)
信息框 (“存在”, 0, )
.否则
信息框 (“不存在”, 0, )
.如果结束
只要 编辑框1.内容 的也就是账户是对的 那就能修改不过你可以用这个方式写
运行(“net user %username% ”+编辑框2.内容,,)