中国DOS联盟论坛

中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --
联盟域名:www.cn-dos.net 论坛域名:www.cn-dos.net/forum
游客 | 登录 | 注册 | 会员 | 搜索 | 中国DOS联盟
中国DOS联盟论坛
现在时间是 2026-08-07 13:35
48,040 主题排行 / 350,125 发帖 / 今日 0 篇 / 48,252 会员排行
DOS批处理 & 脚本技术(批处理室) » [求助]一个cmd的循环递减的语句
可打印版本  1,623 / 11
第1楼 lmq 发表于 2008-02-18 17:39
中级用户 发帖 86 积分 420
[求助]一个cmd的循环递减的语句
要求:
在windows XP 下隐藏运行一个bat的文件
每当运行一次此bat文件时里面的变量就减少一次
直至减少到一个值后(如 r=1 时),就启动当前文件夹下的卸载命令


请帮帮忙,写出程序
谢谢诸位了
第2楼 fastslz 发表于 2008-02-18 19:03
铂金会员 发帖 2,315 积分 5,493 来自 上海
http://www.cn-dos.net/forum/viewthread.php?tid=32340&fpage=1
还可以用写注册表几次方法(以前帮别人写过)
隐藏运行关键词搜索
第3楼 lmq 发表于 2008-02-18 20:23
中级用户 发帖 86 积分 420
大哥:
我看了半天也没明白啊
:aaa
goto aaa
是怎样的啊???
我实在是不会啊
第4楼 fastslz 发表于 2008-02-18 21:03
铂金会员 发帖 2,315 积分 5,493 来自 上海
晕也太菜了吧,7楼那么好的代码不用
@echo off
if "%1" == "h" goto begin
mshta vbscript:createobject("wscript.shell").run("""%~nx0"" h",0)(window.close)&&exit
:begin

if not exist "%temp%\times.tx_" >"%temp%\times.tx_" echo 10
for /f %%a in (%temp%\times.tx_) do set/a times=%%a
if %times% EQU 0 exit
set/a num=%times%-1
set/a num_=10-%num%
echo 您已使用了%num_%次,剩余使用次数:%num%次
set/a times-=1
echo %times% >"%temp%\times.tx_"
if %times% EQU 0 start "" cmd /c "echo 这里启动当前文件夹下的卸载命令&pause"
rem 这里你批处理的开始
第5楼 lmq 发表于 2008-02-18 21:17
中级用户 发帖 86 积分 420
谢了
大哥
我太崇拜你了
第6楼 lmq 发表于 2008-02-20 18:36
中级用户 发帖 86 积分 420
图片上唇不料啊
第7楼 lmq 发表于 2008-02-20 18:40
中级用户 发帖 86 积分 420
internet explorer脚本错误
行: 1
字符: 1
错误: 系统找不到指定的文件
代码:0
URL: vbscript:createobject("wscript.shell").run("""AUTOEXEC.BAT"" h",0)(window.close)
第8楼 fastslz 发表于 2008-02-20 18:53
铂金会员 发帖 2,315 积分 5,493 来自 上海
要看啥图片,你的代码贴出来一看便知了

第9楼 lmq 发表于 2008-02-20 18:57
中级用户 发帖 86 积分 420
@echo off
if "%1" == "h" goto begin
mshta vbscript:createobject("wscript.shell").run("""%~nx0"" h",0)(window.close)&&exit
:begin
if not exist times.tx_ echo 10>times.tx_
for /f %%a in (times.tx_) do set/a times=%%a
if %times% EQU 0 cmd /c "echo &Uninstall&pause"
set/a num=%times%-1
set/a num_=10-%num%
echo 您已使用了%num_%次,剩余使用次数:%num%次
set/a times-=1
echo %times% >times.tx_

注册表的部分我是直接在安装软件中写入的
直接写入注册表

[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run]
"autoexec.bat"="e:\\123\\autoexec.bat"
第10楼 lmq 发表于 2008-02-20 19:05
中级用户 发帖 86 积分 420
看到了
大哥,在安装文件里我无法指定bat中的安装路径啊
那个是会变得
第11楼 fastslz 发表于 2008-02-20 19:09
铂金会员 发帖 2,315 积分 5,493 来自 上海
@echo off
if "%1" == "h" goto begin
mshta vbscript:createobject("wscript.shell").run("""%~nx0"" h",0)(window.close)&&exit
:begin
if not exist times.tx_ echo 10>times.tx_
for /f %%a in (times.tx_) do set/a times=%%a
if %times% EQU 0 cmd /c "echo &Uninstall&pause"
set/a num=%times%-1
set/a num_=10-%num%
echo 您已使用了%num_%次,剩余使用次数:%num%次
set/a times-=1
echo %times% >times.tx_

运行这部分出错?你的ie有问题,或禁用某脚本,修复下ie试试
第12楼 lmq 发表于 2008-02-20 19:17
中级用户 发帖 86 积分 420
谢谢
我看看
[ 联系联盟系统管理团队 - 中国DOS联盟 - 标准版 ]
Sponsored by ifanr Inc | © 2001–2023