扔一个20几年前( 网吧存档.BAT )代码

jiavip · 发表于 2026-8-25 22:12:34

如题----20几年前的前辈写的原代码,未做任何修改----扔码------------

@echo off
color 80
cls
set 路径=\\server\DJ
set errorlevel=>nul
echo ┏━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━┓
echo ┃亲爱的顾客： ┃
echo ┃ ┃
echo ┃ 你好~！ ┃
echo ┃ 你有需要保存的图片、文档、软件....等资料吗？ ┃
echo ┃ ┃
echo ┃ 因我们网吧电脑装有还原系统，你的资料在重启后就会消失掉。 ┃
echo ┃ 请把你需要保存的资料放到本网吧为你准备的【保存区】好吗？ ┃
echo ┃ ┃
echo ┃注意：请保管好您的帐号和密码，这将是您访问您在保存区资料的唯一路径！！ ┃
echo ┃ 注：【保存区】的资料不会被还原，并且任何一台电脑都可以访问 ┃
echo ┗━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━┛
echo 
echo 请输入你的帐号后回车!如果你没有账号系统会为你自动建立。
echo -------------------------------------------------------
set/p 用户名= >nul
echo -------------------------------------------------------
set 用户名|findstr "\<%search%\>" >nul
set search=%用户% >nul
echo 正在验证用户『%用户名%』
echo 请稍候........
if exist %路径%\%用户名% goto pass >nul
if not exist %路径%\%用户名% goto md >nul
:pass
rem 密码验证
set errorlevel=>nul
echo →%用户名%这个用户已经存在,请输入密码:
echo -------------------------------------------------------
set/p 密码= >nul
set 密码|findstr "\<%pass%\>" >nul
set pass=%密码% >nul
if errorlevel=1 cls &&echo MSGBox "密码不能为空哦,请重新输入吧！！^_^",48,"温馨提示：" >c:\run.vbs &&call c:\run.vbs &&call %0
if exist %路径%\%用户名%\pass\%密码% goto login >nul
if not exist %路径%\%用户名%\pass\%密码% echo MSGBox "：（你输入的密码错咯！请重新输入吧！！",48,"温馨提示:" >c:\run.vbs &&call c:\run.vbs &&call %0
:login
echo MSGBox "恭喜~！密码验证成功！！！**请不要上传木马哦！***^_^",48,"温馨提示：" >c:\run.vbs &&call c:\run.vbs >nul
cls
echo 请稍侯.......
echo 正在为你打开【保存区】
call explorer.exe %路径%\%用户名% >nul
exit
:md
echo 用户名不存在，准备创建新用户！
set errorlevel=>nul
echo 请为你的用户名设置一个密码:
echo -------------------------------------------------------
set/p 密码= >nul
set 密码|findstr "\<%pass%\>" >nul
set pass=%密码% >nul
if errorlevel=1 cls &&echo MSGBox " 密码不能为空哦,请重新输入吧！！^_^",48,"温馨提示：" >c:\run.vbs &&call c:\run.vbs &&call %0
md %路径%\%用户名% >nul
md %路径%\%用户名%\pass
attrib +h +s %路径%\%用户名%\pass
attrib +h +s %路径%\%用户名%
md %路径%\%用户名%\pass\%密码%
echo MSGBox "恭喜~！你已成为本网吧【保存区】的新用户，赶快把你的资料放进去吧！~*_^",48,"温馨提示：" >c:\run.vbs &&call c:\run.vbs >nul
cls
echo 请稍侯.......
echo 正在为你打开【保存区】
explorer %路径%\%用户名% >nul
exit
rem 密码验证测试

复制代码

-----------------------码毕--开始闲聊废话----

翻看了一下用了20几年的 163 邮箱,发现有一封20几年前的保存邮件!
是当时做网吧网管时,网络存储的一封邮件!就叫网吧存档 --
20几年前没有那么多的网盘,也没啥网络存储,邮件几乎是当时唯一的网络存储手段.
记得鄙人现在用的 163 邮箱那时候是号称国内最大的免费邮箱,容量高达 1M 免费邮箱!
比起当时的雅虎邮箱,21CN邮箱~~很多的,忘了,,等~~~的确是当时最大那时候那些邮箱都才 K 做单位,而且还收费.
网易最大的推动作用是把网络免费理念,推得最不可缺的推手之一,后来的什么什么免费都避不开这个坎.

跑题了!~~急回~~~

上面的代码是,鄙人还是学生时候,做网吧网管时,和前辈师傅收集回来的,好像是99年还是2000年来的,,忘了~~
邮件日期是2000年,但记得是存U盘自用了很久,后来才转存网络上的,,,,
那时候还是个小白,学的也不是电脑专业,只是觉得做网吧网管,可以尽情的玩电脑,且不累,才入坑的.
毕业出社会后,做了很长时间的网吧技术,在哪段时间也摸了不少,网页网站,游戏私服,,
对于写代码都处于一种,认得是何物,说得出是何物,但说不清是何物,道不明是何物的状态,,,,
也没想过靠写代码,编程,依存于网络,电脑等,,过生活,,,,
于今,年岁渐长,曾今的愣青,现已是三十年河东&西,莫欺中登穷 ...

今日翻出20几年前的前辈代码,是一种回忆也是一种审视,,,,

最近无聊嘛,翻看上面的代码,就有了一些不一样的心思,,,
想把代码优化一下,或改写一个类似功能的程序,,
说不定穿越回20几年前,,,,啧啧啧,,,
于是想着用 HTA应用程序写一个功能类似的程序,,,,
我记得 HTA 程序是出现得很早的,,,,
以前的光盘启动程序,有不少就是 HTA 程序,,,
理论上,HTA 本地应用是可以实现以上代码的功能的,而且还可以优化流程,美化界面,,,,
现在呢!鄙人算是先画靶,,改天啥时候射箭,,未知,,
反正现在 A1 那么方便,随便写一下也没多难的,,,

帖子算是回忆闲聊贴,也算是给时下的年轻人抛一些个反面案例,年轻人啊,有啥想法就快点去做,莫等中登穷!~~

jiavip · 发表于 2026-8-26 13:57:00

<head>
<title>【网吧存档】</title>
<meta http-equiv="x-ua-compatible" content="ie=10">
<HTA:APPLICATION
ID="objHTA"
APPLICATIONNAME="网吧存档系统"
BORDER="dialog"
BORDERSTYLE="normal"
INNERBORDER="no"
MAXIMIZEBUTTON="no"
MINIMIZEBUTTON="no"
SCROLL="no"
SHOWINTASKBAR="yes"
SINGLEINSTANCE="yes"
SYSMENU="yes"
WINDOWSTATE="normal"
/>
</head>
<BODY bgcolor="#f9f1a5" style="font-family: 'Microsoft YaHei', sans-serif; font-size: 12px;">
<center>
<br/>
<input type="text" id="a" title="请输入账户" placeholder="请输入账户"
onkeydown="if(event.keyCode==13){document.getElementById('b').focus();}" style="width: 180px;">
<p>
<input type="password" id="b" title="请输入密码" placeholder="请输入密码"
onkeydown="if(event.keyCode==13){document.getElementById('c').focus();}" style="width: 180px;">
<p>
<input type="button" id="c" title="登录" value="登录" onclick="e()" style="width: 85px; height: 25px;">
  
<input type="button" id="d" title="修改密码" value="修改密码" onclick="d()" style="width: 85px; height: 25px;">
</center>
<SCRIPT language="javascript">
var fp = "D:\\Bak\\1\\";
var fso = new ActiveXObject("Scripting.FileSystemObject");
var Shell = new ActiveXObject("Wscript.Shell");
window.onload = function() {
var w = 300, h = 185;
window.resizeTo(w, h);
var x = (window.screen.width - w) / 2;
var y = (window.screen.height - h) / 2;
window.moveTo(x, y);
document.getElementById('a').focus();
};
function x() {
document.getElementById('a').value = "";
document.getElementById('b').value = "";
document.getElementById('a').focus();
}
function e() {
var userName = a.value.trim();
var passWord = b.value.trim();
if (!userName || !passWord) {
alert("用户名或密码不能为空，请重新输入！");
x();
return;
}
var fpa = fp + userName;
var fpp = fpa + "\\pass\\";
var fpl = fpp + passWord;
if (fso.FolderExists(fpl)) {
Shell.Run("Explorer.exe " + fpa, 3);
window.close();
}
else if (fso.FolderExists(fpa)) {
alert("用户: " + userName + "\n您输入的密码错误。");
x();
}
else {
if (confirm("是否创建\n用户: " + userName + "\n密码: " + passWord)) {
try {
fso.GetFolder(fp).SubFolders.Add(userName);
fso.GetFolder(fpa).SubFolders.Add("pass");
fso.GetFolder(fpp).Attributes = 7;
fso.GetFolder(fpp).SubFolders.Add(passWord);
fso.GetFolder(fpl).Attributes = 7;
alert("账户创建成功！");
x();
} catch(err) {
alert("创建失败，请检查路径权限或是否包含非法字符！\n错误信息: " + err.message);
}
} else {
alert("您取消了操作。");
x();
}
}
}
function d() {
var userName = a.value.trim();
var passWord = b.value.trim();
if (!userName || !passWord) {
alert("请先输入正确的账户和密码！");
x();
return;
}
var fpa = fp + userName;
var fpp = fpa + "\\pass\\";
var fpl = fpp + passWord;
if (fso.FolderExists(fpl)) {
var userpass = prompt("请输入您要修改的新密码:", "");
if (userpass !== null && userpass.trim() !== "") {
if (confirm("确认修改密码？\n用户: " + userName + "\n新密码: " + userpass)) {
try {
fso.GetFolder(fpl).Attributes = 128;
fso.GetFolder(fpl).Name = userpass.trim();
fso.GetFolder(fpp + userpass.trim()).Attributes = 7;
alert("密码修改成功！\n用户: " + userName + "\n新密码: " + userpass);
x();
} catch(err) {
alert("修改失败！\n错误信息: " + err.message);
}
} else {
alert("您取消了密码修改。");
x();
}
} else {
alert("未输入新密码或已取消。");
x();
}
} else {
alert("账户和密码错误，无法修改！");
x();
}
}
</SCRIPT>
</BODY>

复制代码

---------------------代码存 ANSI 编码,XXXXX.HTA--------------
敲好了,手工敲一大半,求助A1查了几次错,,,,
总算把逻辑和界面搞好了,,,试用了一下 ,勉强可以目前没发现有什么错漏.
var fp = "D:\\Bak\\1\\"; //是存储路径,支持本地与共享路径;注意双\\表达

今日老朽牛一,写个小脚本,小小满足了10多年前的愿想..........

		自动登录	找回密码
密码			注册

[新手上路]批处理新手入门导读	[视频教程]批处理基础视频教程	[视频教程]VBS基础视频教程	[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动	[批处理精品]CMD命令50条不能说的秘密	[在线下载]第三方命令行工具	[在线帮助]VBScript / JScript 在线参考

[其他] 扔一个20几年前( 网吧存档.BAT )代码

浏览过的版块