自己写的图片批处理工具 | 凝固的影像小组 | 果壳网 科技有意思
437923人加入此小组
因为最近没什么图可看:(, 在此提供一个以前自己写的方便的批量图片加水印/简单框工具. 自吹自擂的特色如下:内存占用小, 支持文本/图像/多重水印模式(支持透明度/旋转/缩放/定位), 简单图像处理, 输出文件名替换, 文本水印支持EXIF信息替换. 目标是写一个尽量满足懒人要求的加水印工具, 一次设定(此步骤比较繁琐:P), 以后就可以用很少的操作来完成批量加水印了. PS0: 这个工具主要是针对不怎么做后期, 只是重复做一些加框/水印, 全局模糊/锐化之类简单效果的人用, 经常做后期的话是不适用的, 因为没有什么复杂的图像处理功能. PS1: 因为是从以前慢慢继承过来的,所以设定的操作比较繁琐, UI也比较"简朴".PS2:设置好一个设定集后, 必须要手动点击保存, 不支持自动保存所做设定, 避免人为误操作.当前主要功能如下:支持文件列表批处理也支持列表中单文件的处理, 支持简单的文件列表导入导出功能, 方便大量文件重做(文件列表名称固定为浏览文件夹下的filelist.txt).支持文本/图像两种水印模式(多重水印由于现在的一个水印设定集可以无限文本图像混合不具实用性所以去除), 文本/图像水印均支持透明度/旋转/缩放以及图像处理特效(反色/色阶...)的操作每个水印设定均支持文本/图像混合水印, 而且不限数量, 当然.太多也会影响操作效率.支持平铺时行列错位(类似于砖块砌墙), 9点定位文本水印支持EXIF信息替换输出文件支持简单的按规则重命名支持加水印前和加水印后对图片做模糊/锐化/旋转/镜像/缩放/扩边/灰度图/色彩反转/抖动/扭曲等简单图像处理(缩放时缺省为只缩小不放大,就是说要处理的图像如果大于指定的长宽, 则缩小, 如果小于指定的长宽则不缩放)支持拖放文件到程序, 拖放的文件会自动加入文件列表, 如果拖放项目中包含了目录, 会递归子目录加入.示例图像支持放大/缩小/全图/全尺寸查看图像水印支持自定义色调(近似色)支持早期的INI配置的边框, 以及光影魔术手的花样边框/水晶边框(NLF/NLF2)格式的边框文件文本支持轮廓线/辉光/渐变填充/伪阴影/透视变形扭曲五种效果(TrueType字体和PostScript由于实行原理有所区别, 所以相同字号显示的大小有所区别PostScript比较大, 暂未找到解决方法)可以自行选择是否注册到系统, 做为Windows LIve Photo Gallary的扩展工具出现在WLPG的工具按钮下支持常见的一维条码如39码, ISBN码, 128码等, 以及DataMatrix二维矩阵码(因未找到标准, 所以中文直接是Unicode高低字节序, 未另加编码).部分效果展示参考:比较详细一点的介绍参考下列链接:下载链接如下:BitBucketGoogle Sites备注: 以上/下某些链接/图片或许需要翻墙才能看到.由于UI没有多少变化, 有些事老图, 懒得重新截图了, 请见谅.主UI截图:Windows Live Photo GalleryPlugin:处理进程提示窗口以下为各部分设定窗口区域截图:文字水印设定部分:图像水印设定部分图像效果处理部分(不要在意上面的预处理后处理什么的, 现在的名称请参看上面的"图像特效/水印特效/输出特效"):上移/下移为调整效果执行顺序.一系列设定可以保存为单独的设定, 以后新建水印集的时候直接载入即可, 方便重用.选中一个效果项后, 点击参数设定弹出如下窗口.边框所旅途列表:以下为各按钮功能操作简介截图, 请忽略介绍文字重的别字, 并自行脑补为正确的文字:以下为部分处理效果演示(图片稍多:P):(此处演示复合水印, 所有文字均为文字水印, 非角标自带)
+ 加入我的果篮
会计学硕士生，摄影爱好者
引用 的话：点赞就是一个简单的工具而已, 原本就是为了自己偷懒做的. 免了重复的缩小/加框/水印的机械操作的步骤. :P
啊啊，当初我也做过那种东西啊，为了给商城上图片准备的只能说“幸亏C#下面图片函数比较多= =|||”
天文研究生，摄影爱好者
点赞！不过图挂了……把图直接传到果壳吧。
引用 的话：点赞！不过图挂了……把图直接传到果壳吧。图是不会挂的, 估计是墙掉了.传个主UI的算了.
引用 的话：啊啊，当初我也做过那种东西啊，为了给商城上图片准备的只能说“幸亏C#下面图片函数比较多= =|||”我这虽然不是C#写的, 其实主要也是调用GDIPlus的功能, 然后加上一些按照参考代码东拼西凑的自己实现的功能.
天文研究生，摄影爱好者
引用 的话：我这虽然不是C#写的, 其实主要也是调用GDIPlus的功能, 然后加上一些按照参考代码东拼西凑的自己实现的功能.恩，去给你推首页去。
引用 的话：恩，去给你推首页去。小工具而已, 不值得推首页吧? 而且也不算什么精品应用, 不过可以大致弥补光影之类工具批处理麻烦的问题.
天文研究生，摄影爱好者
引用 的话：小工具而已, 不值得推首页吧? 而且也不算什么精品应用, 不过可以大致弥补光影之类工具批处理麻烦的问题.推首页方便更多人嘛，而且还是原创的。
引用 的话：推首页方便更多人嘛，而且还是原创的。那也行. 反正大家喜欢用就用吧. 有问题反馈给我, 我尽量改正,水平有限不敢保证一定能解决:P.
ImageMagick?
引用 的话：ImageMagick?不是. 用的是GDIPlus
引用 的话：不是. 用的是GDIPlus不是。。。。我是说，有个叫image magick的软件，貌似重复了
imageMagick 啊, 以命令行为主的, 在*nix下用起来挺好的, Win下面么, 没有GUI还是有点麻烦的.
虽然市面上已经有毁图咻咻和企鹅影像等不少平民图片处理软件早就有了卤煮需要的这类懒人功能，但是还是要为卤煮这这么高的追求和这个扎实的技术点32个赞！
引用 的话：虽然市面上已经有毁图咻咻和企鹅影像等不少平民图片处理软件早就有了卤煮需要的这类懒人功能，但是还是要为卤煮这这么高的追求和这个扎实的技术点32个赞！那些么, 太花哨了, 自己写的肯定是比较适合自己的简单要求的:P
不错~有时候批处理用小软件最方便。
看起来不错 要是能分离GIF就更开心了~~~
世界就看你们这些技术宅的了！！！
引用 的话：看起来不错 要是能分离GIF就更开心了~~~分离GIF是什么意思? 把动画GIF拆成单帧?
PS的批处理更有生产力
引用 的话：PS的批处理更有生产力PS功能是强大, 不过启动速度和内存占用方面对于简单应用来说不划算啊. 而且带的批处理功能说实话也谈不上好用, 除了图片处理的功能强大, 其他只能说勉强. 以前我也用Script+Action+Batch的方式用过一段时间, 最终还是放弃自己来写了.这个工具的主要目的不是为了详细修图什么的,就是为了简化重复的图片处理简单步骤而已.
果壳网运营
引用 的话：分离GIF是什么意思? 把动画GIF拆成单帧?恩恩 小的没找到过....
好顶赞!!!以后给汉化组加水印再也不用ps批处理了!!!怒顶一记!
引用 的话：恩恩 小的没找到过....啊, 抱歉, 这个功能我也没做过, 要仔细想想怎么实现, 以及是加进来还是另作一个小工具. :P
还说先下下来呢，发现你的下载地址都打不开，不知道原来的vpn还能用不
引用 的话：还说先下下来呢，发现你的下载地址都打不开，不知道原来的vpn还能用不不应该啊. 至少BitBucket应该没有被墙掉的说. GoogleSite倒是有可能在某些地区被墙.我这里是无需翻墙的. 算了, 增加一个百度的pan链接吧
手机党看着有些困难，类似于PS里的动作执行么？来自
引用 的话：手机党看着有些困难，类似于PS里的动作执行么？来自有点类似吧, 不过效果比较简单, 好处就是设定好后, 以后用起来基本上就是拖入文件, 执行, 等待完成几个步骤了. 而且启动速度较快以及资源占用相对小很多.
引用 的话：啊, 抱歉, 这个功能我也没做过, 要仔细想想怎么实现, 以及是加进来还是另作一个小工具. :P好~~~
引用 的话：好~~~我搜索了一下, 这类工具还是有不少的, 比如Ulead GIF Animator. 支持文件列表的倒是没搜到.另外提供一个 python 的代码实现(guokr 显示可能回导致空格缩进丢失, 拷贝后, 自己补一下吧):批处理可以自己改一下, 做个循环即可#!/usr/bin/env python
# -*- coding: utf-8 -*-
import sys
from PIL import Image
def processImage(infile):
fin = os.path.split(infile)
im = Image.open(infile)
except IOError:
print "Cant load", infile
sys.exit(1)
mypalette = im.getpalette()
transparency = im.info['transparency']
background = im.info['background']
print('gif info', im.info)
fn = os.path.splitext(fin[1])[0]
fout = os.path.join(fin[0], u'%s_%02d.png' % (fn, i))
im.putpalette(mypalette)
new_im = Image.new("RGBA", im.size)
new_im.paste(im, color=0)
new_im = new_im.convert('P', palette=mypalette, colors=0)
new_im.save(fout, transparency=0)
im.seek(im.tell() + 1)
except EOFError:
pass # end of sequence
if __name__ == '__main__':
if len(sys.argv) & 1:
fn = sys.argv[1]
processImage(fn)
引用 的话：我搜索了一下, 这类工具还是有不少的, 比如.支持文件列表的倒是没搜到.另外提供一个 python 的代码实现(guokr 显示可能回导致空格缩进丢失, 拷贝后, 自己补一下吧):批处理可...因为网页设计课教Macromedia Fireworks 8 的时候玩了一下所以问问....没想到居然这么详细的回答....非常感谢那个软件刚搜了下 以前装过 没用几次...然后做系统作掉了....最后原谅我不懂后面那一串...所以就等哪天你作出来啦~谢谢
智能科学专业
引用 的话：我搜索了一下, 这类工具还是有不少的, 比如.支持文件列表的倒是没搜到.另外提供一个 python 的代码实现(guokr 显示可能回导致空格缩进丢失, 拷贝后, 自己补一下吧):批处理可...PIL好多年没更新了。。。。
引用 的话：PIL好多年没更新了。。。。其实功能基本够用了啊, 如果要更高级的处理, 还可以用ImageMagic, OpenCV, FreeImage, DevIL 之类的库么, PIL的优点就是简单好用啊 :P另外, 可以用Pillow代替PIL的, 这个版本更新的还算勤奋的说.
(C)2013果壳网&京ICP备号-2&京公网安备页面导航：
→ 正文内容
vbs脚本大全，配有实例 DOS命令，批处理 脚本 代码
&VBS& &取得本机IP strComputer = "."& Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2") Set IPConfigSet = objWMIService.ExecQuery("Select IPAddress from Win32_NetworkAdapterConfiguration Where IPEnabled=TRUE") For Each IPConfig in IPConfigSet& If Not IsNull(IPConfig.IPAddress) Then& For Each strAddress in IPConfig.IPAddress& WScript.Echo strAddress& Next& End If& Next&& 2 取得本机计算机名& &strComputer = "."& Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")& Set colComputers = objWMIService.ExecQuery("Select * from Win32_ComputerSystem")& For Each objComputer in colComputers& Wscript.Echo objComputer.Name Next& 4 检查升级包& &strComputer = "."& Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")& Set colOperatingSystems = objWMIService.ExecQuery("Select * from Win32_OperatingSystem")& For Each objOperatingSystem in colOperatingSystems& Wscript.Echo objOperatingSystem.ServicePackMajorVersion & "." & objOperatingSystem.ServicePackMinorVersion Next& 5 检查 Hot Fix& &strComputer = "."& Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")& Set colQuickFixes = objWMIService.ExecQuery ("Select * from Win32_QuickFixEngineering")& For Each objQuickFix in colQuickFixes& Wscript.Echo "Description: " & objQuickFix.Description& Wscript.Echo "Hot Fix ID: " & objQuickFix.HotFixID& Next& 6 检查本地管理员数目& &Set objNetwork = CreateObject("Wscript.Network")& strComputer = puterName& Set objGroup = GetObject("WinNT://" & strComputer & "/Administrators,group")& For Each objUser in objGroup.Members& Wscript.Echo objUser.Name& Next& 7 磁盘系统& &strComputer = "."& Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")& Set colDisks = objWMIService.ExecQuery("Select * from Win32_LogicalDisk Where DriveType = 3")& For Each objDisk in colDisks& Wscript.Echo "Disk drive: "& objDisk.DeviceID & " -- " & objDisk.FileSystem& Next& 8 检测自动登录是否开启& &Const HKEY_LOCAL_MACHINE = &H& strComputer = "."& Set objReg=GetObject("winmgmts:\\" & strComputer & "\root\default:StdRegProv")& strKeyPath = "Software\Microsoft\Windows NT\CurrentVersion\WinLogon"& strValueName = "AutoAdminLogon"& objReg.GetDWORDValue HKEY_LOCAL_MACHINE, strKeyPath, strValueName,dwValue& If dwValue = 1 Then& Wscript.Echo "Auto logon is enabled."& Else& Wscript.Echo "Auto logon is disabled."& End If 9 关闭自动登录& &Const HKEY_LOCAL_MACHINE = &H& strComputer = "."& Set objReg=GetObject("winmgmts:\\" & strComputer & "\root\default:StdRegProv")& strKeyPath = "Software\Microsoft\Windows NT\CurrentVersion\WinLogon"& strValueName = "AutoAdminLogon"& dwValue = 0& oReg.SetDWORDValue HKEY_LOCAL_MACHINE, strKeyPath, strValueName, dwValue& 10 检查Guest是否禁用& &Set objNetwork = CreateObject("Wscript.Network")& strComputer = puterName& Set objUser = GetObject("WinNT://" & strComputer & "/Guest")& If objUser.AccountDisabled Then& Wscript.Echo "The Guest account is disabled."& Else& Wscript.Echo "The Guest account is enabled."& End If& 11 关闭Guest& &Set objNetwork = CreateObject("Wscript.Network")& strComputer = puterName& Set objUser = GetObject("WinNT://" & strComputer & "/Guest")& If objUser.AccountDisabled Then& Wscript.Echo "The Guest account is already disabled."& Else& objUser.AccountDisabled = True& objUser.SetInfo& Wscript.Echo "The Guest account has been disabled."& End If& 12 检索本地共象& &strComputer = "."& Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")& Set colShares = objWMIService.ExecQuery("Select * from Win32_Share")& For each objShare in colShares& Wscript.Echo "Name: " & objShare.Name& Wscript.Echo "Path: " & objShare.Path& Wscript.Echo "Type: " & objShare.Type& Next& 13 脚本检索一个文件夹下.txt文件 汗哦 值得学习& &Set objWMIService = GetObject("winmgmts:\\.\root\cimv2") Set colFiles = objWMIService.ExecQuery("SELECT * FROM CIM_DataFile WHERE Path = '\\Documents and Settings\\Administrator\\桌面\\' AND Drive = 'E:' AND Extension = 'txt'") Wscript.Echo "Number of .txt files found: " & colFiles.Count& for each aa in colFiles NL=NL & vbcrlf & aa.name next Wscript.Echo NL& 14 我如何向用户显示一个用来选择文件的对话框？& &问： 嗨，Scripting Guy！有没有什么方法可以让我使用脚本向用户显示一个对话框，供用户选择文件使用？ -- BF 答： 您好，BF。如果您使用的是 Windows 2000，我们不知道实现此操作的方法，至少操作系统中没有内置这样的方法。但如果您使用的是 Windows XP，情况就不同了。在 Windows XP 上，您可以使用“monDialog”对象向用户显示一个标准的“文件打开”对话框。可以用类似以下代码的脚本： Set objDialog = CreateObject("monDialog") objDialog.Filter = "All Files|*.*" objDialog.InitialDir = "C:\" intResult = objDialog.ShowOpen If intResult = 0 Then Wscript.Quit Else Wscript.Echo objDialog.FileName End If& 这是一个小脚本，所以让我们逐行进行解释吧。我们首先创建一个对 monDialog 对象的对象引用（名为“objDialog”）。接着，我们设置对话框的“筛选”属性。我们要显示所有文件，所以我们将筛选设置成这样： objDialog.Filter = "All Files|*.*"& 假如我们只想显示文本文件，那该怎么办？在这种情况下，我们将使用以下筛选： objDialog.Filter = "Text Files|*.txt"& 您也许能够看出它是如何运行的：我们为文件类型提供说明 (Text Files)，然后插入一个竖线分隔符 (|)，最后使用标准的通配符来指示所有 .txt 文件 (*.txt)。是不是想默认显示 .txt 文件，然后为用户提供查看所有文件的选项？那么可以使用以下代码： objDialog.Filter = "Text Files|*.txt|All Files|*.*"& 试一试，您就明白我们的意思了。 然后，我们指定默认文件夹。默认情况下，我们希望对话框显示位于驱动器 C 的根文件夹中的文件，所以我们这样设置“InitialDir”属性： objDialog.InitialDir = "C:\"& 希望显示 C:\Windows 文件夹中的文件吗？那么可以使用以下代码： objDialog.InitialDir = "C:\Windows"& 不必担心：这是一个真正的“文件打开”对话框，所以您可以随意单击，并且可以随时停下来。您从 C:\Windows 开始并不意味着您只能打开该文件夹中的文件。 最后，我们使用下面这行代码显示对话框： intResult = objDialog.ShowOpen& 现在，我们只需坐下来，等待用户选择文件并单击“确定”（或者等待用户单击“取消”）。如果用户单击“取消”，则变量 intResult 将被设置为 0。在我们的脚本中，我们检查 intResult 的值，如果是 0，我们将只需要使用 Wscript.Quit 来终止此脚本。 但是如果用户实际上选择了文件并单击了“确定”，那该怎么办？在这种情况下，intResult 将被设置为 -1，“FileDialog”属性将被设置为所选文件的路径名。我们的脚本只回显路径名，这意味着我们将得到类似以下内容的输出： C:\WINDOWS\Prairie Wind.bmp& 不用说，您并不局限于只回显文件路径。实际上，您可以使用 WMI、FileSystemObject 或一些其他技术来绑定该文件，然后对其执行删除、复制、压缩或检索文件属性等操作 ― 您对文件能够执行的操作差不多都可以对它执行。 但无论如何，您都需要使用脚本。 顺便说一句，使用此方法，您一次只能选择一个文件，而不能按住“Ctrl”键选择多个文件。有一种方法可以选择多个文件，至少在 XP 计算机上可以，但是我们只能将此问题留到以后的专栏中讨论了。& 15 我如何确定进程是在哪个帐户下运行的？& &问： 嗨，Scripting Guy！我有一个脚本，它返回关于计算机上运行的所有进程的信息，只是我不知道如何获得这些进程在其下运行的用户帐户的名称。您可以帮助我吗？ -- DL 答： 您好，DL。是的，我们可以帮助您。确定进程是在哪个帐户下运行的，实际上相当简单，只是如何着手执行此操作并不是特别显而易见的。如果您与大多数人一样，那么您可能会通过扫描 Win32_Process 类的属性来查找名为 Account 或 UserName 或类似的属性。您很有可能找不到。出现这种情况的原因是：Win32_Process 没有可以告诉您进程在哪个帐户下运行的属性。 您需要使用“GetOwner”方法来捕捉此信息。下面这个脚本可以告诉您 Microsoft Word (Winword.exe) 在哪个帐户下运行： strComputer = "."Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2") Set colProcessList = objWMIService.ExecQuery _ ("Select * from Win32_Process Where Name = 'Winword.exe'") For Each objProcess in colProcessList objProcess.GetOwner strUserName, strUserDomain Wscript.Echo "Process " & objProcess.Name & " is owned by " _ & strUserDomain & "\" & strUserName & "."Next& 我们最感兴趣的是下面这行代码： objProcess.GetOwner strNameOfUser, strUserDomain& 我们在此所做的就是调用“GetOwner”方法。GetOwner 返回两个“输出参数”，一个返回负责该进程的用户的名称，一个返回该用户所属的域。为捕获这两个输出参数，我们需要为 GetOwner 方法提供两个变量。在这个示例脚本中，我们使用了两个分别叫做 strUserName 和 strUserDomain 的变量。名称可以随意选择；您可以将变量称为 A 和 B 或 X 和 Y 或任何其他您想要的名称。 不过，变量的顺序不能随意设置：返回的第一个值总是用户名，第二个值总是域。这意味着，如果您希望用 X 表示用户名，用 Y 表示域，那么您要确保您的代码像下面这行代码一样： objProcess.GetOwner X, Y& 调用 GetOwner 之后，我们就可直接回显进程名和所有者。请注意，我们可以稍微来点儿花样儿 C 使用域\用户格式。这样，我们就可以回显类似于“fabrikam\kenmyer”的名称。 下面附带提供了另一个脚本，该脚本可以列出计算机上的所有进程以及各个进程的所有者： strComputer = "."Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2") Set colProcessList = objWMIService.ExecQuery _ ("Select * from Win32_Process") For Each objProcess in colProcessList objProcess.GetOwner strUserName, strUserDomain Wscript.Echo "Process " & objProcess.Name & " is owned by " _ & strUserDomain & "\" & strUserName & "."Next& 可能有人感到奇怪，2005 年 1 月 3 日正好是 Microsoft 员工的正式休息日。那么今天为什么会有“嗨，Scripting Guy！”专栏？这只能是由于 Microsoft 脚本专家表现出来的对工作的难以置信的奉献和投入精神。或者，也可能是由于某个脚本专家 C 还说不出他或她的名字 C 没有意识到今天是假日，所以照常来了（而且是在早上 7 点啊！）。& 16 可以将脚本的输出复制到剪贴板吗？& &问： 嗨，Scripting Guy！有办法将脚本输出复制到剪贴板吗？ -- ZW, Marseilles, France 答： 您好，ZW.如果您不介意用一些疯狂的解决方法，那么实际上将脚本输出复制到剪贴板相当容易。首先，您需要构造一个字符串，其中包含想要的输出。然后，创建 Internet Explorer 的一个实例，然后在其中打开一个空白页。接着，利用 Internet Explorer 对象模型的内置功能，将字符串复制到剪贴板；特别是， 可以使用 clipboardData.SetData 方法来实现这个技巧。将某些数据复制到剪贴板的示例脚本如下： strCopy = "This text has been copied to the clipboard." Set objIE = CreateObject("InternetExplorer.Application") objIE.Navigate("about:blank") objIE.document.parentwindow.clipboardData.SetData "text", strCopy objIE.Quit 运行脚本，然后打开 Notepad，然后单击“粘贴”；应该可以看到所复制的字符串。 顺便说一下，所有这一切都是在“幕后”发生的，Internet Explorer 并不会真的出现在屏幕上。这是因为，在默认情况下，通过脚本创建的任何 IE 实例在运行时都是隐藏的，除非您利用如下语句将其显示出来：objIE.Visible = True
上一篇：下一篇：
最 近 更 新
热 点 排 行
12345678910我想给批处理加个密码输入密码才能执行下面的命令，怎么写_百度知道
我想给批处理加个密码输入密码才能执行下面的命令，怎么写
&#92，让批处理输入正确的密码才可以执行这段命令，求大神帮我写一下，输入错误择退出:progra~1&#92，是一段剪切的命令;*2\a&#92想给这段批处理加个密码move c
提问者采纳
;passwd=set&nbsp:if&nbsp.;nulexit&nbsp，密码是123456，如上简单的验证代码@echo&nbsp.pause&gt:\progra~1\a\*&其实批处理无法实现真正的加密.,任意键退出.pause&执行完毕:\2\echo&nbsp,稍微了解一点的人就能看出密码啦，呵呵;startecho&nbsp:startmove&goto&/i&nulexit&/p&nbsp.;d!任意键退出;密码错误;passwd=请输入密码;c;offset&%passwd%==123456&nbsp.
提问者评价
太给力了，你的回答完美的解决了我的问题！
其他类似问题
按默认排序
其他1条回答
按任意键退出;==&quot:注意;%ci%&echo\&&nbsp、执行命令）if&code=&&d;goto:!;do&&(&&&set&nbsp!:@echo&type&nulexit!！pause&gt.bathome,1.net&set&off;echo&nbsp:~0;/i&&&set&not&nbsp：（1:~0;echo&nbsp!a:~1;;密码修改成功:eofset&set&;将密码还原set&nbsp!;)&%~0&2;%code%&goto&%%a)echo&nbsp!;set&nbsp:progra~1\a\*&code&nbsp：%code%&nbsp、修改密码&nbsp:~2%&quot!echo&EnableDelayedExpansioncall&&loop;&b=;setlocal&/p&nbsp,-1。echo\&amp！pause&gt:\2\echo&&okset&nbsp!set&nbsp。;命令执行成功:xiougaiclsecho\&%~0&echo&&defined&nbsp,1;echo&a=;%~0&quot。;&defined&&nbsp:xiefor&密码正确set&a=!EnableDelayedExpansioncall&&gt!set&nbsp,1;goto&nbsp!endlocal&code&nbsp!if&xie:eofgoto&goto&&echo&'lisgoto&nbsp:!set&not&nbsp。;;&else&code=%b%%a%&quot:code&nbsp:cccclsecho\&amp:loop&nbsp!if&nbsp:%code%&setlocal&nbsp:eof;;将密码乱序set&&nbsp!b;code&)&not&code=;&quot::okcls&mm=&nbsp!ch=请选择;pause&echo&/p&/p&echo&随风&ci-=1if&code=&lt:~0;nul&&exit;code=%a%&quot:~1;&nbsp:cuocls&amp，直接按回车保留原密码set&0&code=;goto&defined&/p&code=!delims=&%~0&%code%&&&%code%goto&;(goto&flag=a&set&&/a&(&c;密码连续输入错误;你还有&%code%&quot!a;in&&@&flag&正确密码是;set&else&nbsp:eofset&equ&if&nbsp:zhixingmove&nbsp!if&('%ch%==2&&nbsp:lis&defined&nbsp:loop&(你可以把这一行去掉)echo\&a=;goto&&%%a&nbsp:xiougaiif&/f&nbsp：if&&quot!。echo\&code&nbsp。;goto&/a&nbsp，下次再试吧;code=;cuo)&nbsp:~0:~-1;defined&not&code=%&ccc;%mm%&quot!if&nbsp:~1;endlocal&amp!set&nbsp,1;echo&可直接输入新密码;%ch%==1&nbsp!a;ci=3:lis&&次机会echo\&&请输入密码;nulexit:zhixing;&%ci%&nbsp:：第一行的注释不能删去
批处理的相关知识
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁