灰灰灰灰 发表于 2025-3-4 12:35
可以了安装    控制台操作支持库Ex3.0 下载链接  【支持库改造】控制台操作支持库Ex 3.0 第二版_精易论坛

...

我用DEEPSEEK也解决了，现在最后一个功能就是输入账号密码错误之后，可以返回重新登陆。我研究很久了没搞定

附源码  https://tuoto.lanzouq.com/iMPT02pjk6wf     已经特别感谢大哥的指导了。如果您在忙也不耽误你呢，您已经跟我解决很多了，特别感谢，我在问下去感觉在无止境索取了。晚点我给你在加币

可以了安装    控制台操作支持库Ex3.0 下载链接  【支持库改造】控制台操作支持库Ex 3.0 第二版_精易论坛
1.e (81.13 KB, 下载次数: 3)

2025-3-4 12:35 上传

点击文件名下载附件

  

子程序名	返回值类型	公开	备 注
登录类型

变量名	类 型	静态	数组	备 注
标准输入	文本型
控制台对象EX	控制台对象Ex

标准输出 (, #换行符 ＋ “操作方式：”)
登录类型 ＝ 标准输入 ()
如果真 (登录类型 ＝ 到文本 (1))
标准输出 (, #换行符 ＋ “用户账号：”)
账号 ＝ 控制台对象EX.输入 (真, “*”, 真, 1024)
标准输出 (, #换行符 ＋ “用户密码：”)
密码 ＝ 控制台对象EX.输入 (真, “*”, 真, 1024)
登录程序 ()

i支持库列表	支持库注释
console	控制台操作支持库

.版本 2<br /> .支持库 console<br /> <br /> .子程序 登录类型<br /> .局部变量 标准输入, 文本型<br /> .局部变量 控制台对象EX, 控制台对象Ex<br /> <br /> 标准输出 (, #换行符 ＋ “操作方式：”)<br /> 登录类型 ＝ 标准输入 ()<br /> .如果真 (登录类型 ＝ 到文本 (1))<br />     标准输出 (, #换行符 ＋ “用户账号：”)<br />     账号 ＝ 控制台对象EX.输入 (真, “*”, 真, 1024)<br />     标准输出 (, #换行符 ＋ “用户密码：”)<br />     密码 ＝ 控制台对象EX.输入 (真, “*”, 真, 1024)<br /> <br /> <br />     登录程序 ()

最烦起名字 发表于 2025-3-4 05:18

你的也删除不了，不能退格

灰灰灰灰 发表于 2025-3-4 08:22
加一个  控制台对象变量  类型   控制台对象   密码 ＝ 控制台对象.输入 (, , 假, 真, “*”, 真, 1024)    ...

现在可以显示星号了但是不能退格，比如我的账号密码输入错误了，我要删除账号密码重新输入就输入不了了，请帮忙在看看

lhhhhhhhhh 发表于 2025-3-4 04:23

现在可以显示星号了但是不能退格，比如我的账号密码输入错误了，我要删除账号密码重新输入就输入不了了

不能删除，比如我输入密码他现在是星号了，比如我账号输入错了，要删除密码重新输入，他就删除不了密码，现在不能退格。

应该解决了，一会我在来挨个打赏

帖子不要沉了

加一个  控制台对象变量  类型   控制台对象   密码 ＝ 控制台对象.输入 (, , 假, 真, “*”, 真, 1024)    就行了

  

子程序名	返回值类型	公开	备 注
登录类型

变量名	类 型	静态	数组	备 注
控制台对象	控制台对象

标准输出 (, #换行符 ＋ “操作方式：”)
登录类型 ＝ 标准输入 ()
如果真 (登录类型 ＝ 到文本 (1))
标准输出 (, #换行符 ＋ “用户账号：”)
账号 ＝ 标准输入 ()
标准输出 (, #换行符 ＋ “用户密码：”)
密码 ＝ 控制台对象.输入 (, , 假, 真, “*”, 真, 1024)
调试输出 (密码)
登录程序 ()
如果真 (登录类型 ＝ 到文本 (2))
标准输出 (, #换行符 ＋ “注册账号：”)
账号 ＝ 标准输入 ()
标准输出 (, #换行符 ＋ “注册密码：”)
密码 ＝ 控制台对象.输入 (, , 假, 真, “*”, 真, 1024)
控制台对象.输入 (, , 假, 真, “****”, 真, 1024)
标准输出 (, #换行符 ＋ “注册邮箱：”)
安全密码 ＝ 标准输入 ()
标准输出 (, #换行符 ＋ “注册卡密：”)
充值卡密 ＝ 标准输入 ()
注册程序 ()
标准输出 (, #换行符 ＋ “返回登录：[ <1>是  <2>否 ]” ＋ #换行符 ＋ #换行符 ＋ “返回结果：”)
是否返回登录 ＝ 标准输入 ()
如果真 (是否返回登录 ＝ 到文本 (1))
标准输出 (, #换行符 ＋ “用户账号：”)
账号 ＝ 标准输入 ()
标准输出 (, #换行符 ＋ “用户密码：”)
密码 ＝ 控制台对象.输入 (, , 假, 真, “*”, 真, 1024)
登录程序 ()

如果真 (登录类型 ＝ 到文本 (3))
标准输出 (, #换行符 ＋ “用户账号：”)
账号 ＝ 标准输入 ()
标准输出 (, #换行符 ＋ “注册卡密：”)
卡密 ＝ 标准输入 ()
充值程序 ()
如果真 (登录类型 ＝ 到文本 (4))
标准输出 (, #换行符 ＋ “用户账号：”)
账号 ＝ 标准输入 ()
标准输出 (, #换行符 ＋ “安全邮箱：”)
安全密码 ＝ 标准输入 ()
标准输出 (, #换行符 ＋ “新登录密码：”)
新密码 ＝ 标准输入 ()
修改密码 ()

i支持库列表	支持库注释
console	控制台操作支持库
spec	特殊功能支持库

.版本 2<br /> .支持库 console<br /> .支持库 spec<br /> <br /> .子程序 登录类型<br /> .局部变量 控制台对象, 控制台对象<br /> <br /> 标准输出 (, #换行符 ＋ “操作方式：”)<br /> 登录类型 ＝ 标准输入 ()<br /> .如果真 (登录类型 ＝ 到文本 (1))<br />     标准输出 (, #换行符 ＋ “用户账号：”)<br />     账号 ＝ 标准输入 ()<br />     标准输出 (, #换行符 ＋ “用户密码：”)<br />     密码 ＝ 控制台对象.输入 (, , 假, 真, “*”, 真, 1024)<br />     调试输出 (密码)<br />     登录程序 ()<br /> .如果真结束<br /> .如果真 (登录类型 ＝ 到文本 (2))<br />     标准输出 (, #换行符 ＋ “注册账号：”)<br />     账号 ＝ 标准输入 ()<br />     标准输出 (, #换行符 ＋ “注册密码：”)<br />     密码 ＝ 控制台对象.输入 (, , 假, 真, “*”, 真, 1024)<br />     控制台对象.输入 (, , 假, 真, “****”, 真, 1024)<br />     标准输出 (, #换行符 ＋ “注册邮箱：”)<br />     安全密码 ＝ 标准输入 ()<br />     标准输出 (, #换行符 ＋ “注册卡密：”)<br />     充值卡密 ＝ 标准输入 ()<br />     注册程序 ()<br />     标准输出 (, #换行符 ＋ “返回登录：[ <1>是  <2>否 ]” ＋ #换行符 ＋ #换行符 ＋ “返回结果：”)<br />     是否返回登录 ＝ 标准输入 ()<br />     .如果真 (是否返回登录 ＝ 到文本 (1))<br />         标准输出 (, #换行符 ＋ “用户账号：”)<br /> <br />         账号 ＝ 标准输入 ()<br />         标准输出 (, #换行符 ＋ “用户密码：”)<br />         密码 ＝ 控制台对象.输入 (, , 假, 真, “*”, 真, 1024)<br />         登录程序 ()<br /> <br />     .如果真结束<br /> <br /> <br /> <br /> .如果真结束<br /> .如果真 (登录类型 ＝ 到文本 (3))<br />     标准输出 (, #换行符 ＋ “用户账号：”)<br />     账号 ＝ 标准输入 ()<br />     标准输出 (, #换行符 ＋ “注册卡密：”)<br />     卡密 ＝ 标准输入 ()<br />     充值程序 ()<br /> .如果真结束<br /> .如果真 (登录类型 ＝ 到文本 (4))<br />     标准输出 (, #换行符 ＋ “用户账号：”)<br />     账号 ＝ 标准输入 ()<br />     标准输出 (, #换行符 ＋ “安全邮箱：”)<br />     安全密码 ＝ 标准输入 ()<br />     标准输出 (, #换行符 ＋ “新登录密码：”)<br />     新密码 ＝ 标准输入 ()<br />     修改密码 ()<br /> .如果真结束