Bat « 暗月梦魂 's Home

分类归档：Bat

VBS脚本实现自动按键盘的某个键

superaj 发布于 2013 年 12 月 30 日

评论关闭

Set objShell = CreateObject(“Wscript.Shell”)
do
WScript.Sleep 3000
objShell.SendKeys “{F5}”
WScript.Sleep 3000
objShell.SendKeys “{F5}”
loop

使用 SendKeys 方法可以将键击发送到无自动化界面的应用程序中。多数键盘字符都可用一个键击表示。某些键盘字符由多个键击组合而成（例如，CTRL+SHIFT+HOME）。要发送单个键盘字符，请将字符本身作为 string 参数发送。例如，要发送字母 x，则请发送 string 参数 “x”。

可使用 SendKeys 同时发送多个键击。为此，可将每个键击按顺序排列在一起，以此来创建表示一系列键击的复合字符串参数。例如，要发送键击 a、b 和 c，则需要发送字符串参数 “abc” 。SendKeys 方法将某些字符用作字符的修饰符（而不使用其本身的含义）。这组特殊的字符可包括圆括号、中括号、大括号，以及：

加号 “+”
插入记号 “^”
百分号 “%”
和“非”符号 “~”

用大括号 “{}” 括起这些字符可以发送它们。例如，要发送加号，请使用字符串参数 “{+}”。SendKeys中使用的中括号 “[ ]” 无任何特殊含义，但是必须把它们括在大括号中，以便容纳确实要赋予其特殊含义的应用程序（例如，对于动态数据交换 (DDE) 就是这样）。

要发送左中括号字符，请发送字符串参数 “{[}”；要发送右中括号字符，请发送字符串参数 “{]}”。
要发送左大括号字符，请发送字符串参数 “{{}”；要发送右大括号字符，请发送字符串参数 “{}}”。

某些键击不生成字符（如 ENTER 和 TAB）。某些键击表示操作（如 BACKSPACE 和 BREAK）。要发送这些类型的键击，请发送下表中列出的参数：

空格键 ” ”
退格键 {BACKSPACE} 或 {BS} 或 {BKSP}
BREAK {BREAK}
DELETE {DELETE} 或 {DEL}
向下键 {DOWN}
向上键 {UP}
向左键 {LEFT}
向右键 {RIGHT}
END {END}
ENTER {ENTER} 或 ~
ESC {ESC}
TAB {TAB}
CAPS LOCK {CAPSLOCK}
HELP {HELP}
HOME {HOME}
INSERT {INSERT} 或 {INS}
NUM LOCK {NUMLOCK}
PAGE DOWN {PGDN}
PAGE UP {PGUP}
PRINT SCREEN {PRTSC}
SCROLL LOCK {SCROLLLOCK}

F1 {F1}
F2 {F2}
F3 {F3}
F4 {F4}
F5 {F5}
F6 {F6}
F7 {F7}
F8 {F8}
F9 {F9}
F10 {F10}
F11 {F11}
F12 {F12}

要发送由常规键击和 SHIFT、CTRL 或 ALT 组合而成的键盘字符，请创建表示该键击组合的复合字符串参数。可通过在常规键击之前添加一个或多个以下特殊字符来完成上述操作：

SHIFT +
CTRL ^
ALT %

注意：这样使用时，不用大括号括起这些特殊字符。
要指定在按下多个其他键时，按下 SHIFT、CTRL 和 ALT 的组合，请创建复合字符串参数，用括号括起其中的组合键。例如，要发送的组合键指定：

如果在按 e 和 c 的同时按 SHIFT 键，则发送字符串参数 “+(ec)”。
如果在按 e 时只按 c（而不按 SHIFT），则发送字符串参数 “+ec”。
可使用 SendKeys 方法发送一种在一行内重复按键的键击。为此，要创建复合字符串参数，以指定要重复的键击，并在其后指定重复次数。可使用 {键击数字} 形式的复合字符串参数来完成上述操作。例如，如果要发送 10 次 “x”，则需要发送字符串参数 “{x 10}”。请确保在键击和数字之间有一个空格。

注意：只可以发送重复按一个键的键击。例如，可以发送 10 次 “x”，但不可发送 10 次 “Ctrl+x”。
注意：不能向应用程序发送 PRINT SCREEN 键 {PRTSC}。

例子1：关机脚本（模拟按键为：Ctrl + Esc、u、u ）

把以下代码复制至记事本，另存为 off.vbs

set WshShell = CreateObject(“WScript.Shell”)
WshShell.SendKeys “^{ESC}uu”

例子2：重启脚本（模拟按键为：Ctrl + Esc、u、r ）

把以下代码复制至记事本，另存为 reboot.vbs

set WshShell = CreateObject(“WScript.Shell”)
WshShell.SendKeys “^{ESC}ur”

例子3：切换输入法（模拟同时按下：Shift Ctrl ）

set WshShell = CreateObject(“WScript.Shell”)
WshShell.SendKeys “+(^)”

例子4：输入 cn-dos.net! 至记事本并保存为 CnDos.txt

Dim WshShell
Set WshShell=WScript.CreateObject(“WScript.Shell”)
WshShell.Run “notepad”
WScript.Sleep 1500
WshShell.AppActivate “无标题 – 记事本”
WshShell.SendKeys “c”
WScript.Sleep 200
WshShell.SendKeys “n”
WScript.Sleep 200
WshShell.SendKeys “-”
WScript.Sleep 200
WshShell.SendKeys “d”
WScript.Sleep 200
WshShell.SendKeys “o”
WScript.Sleep 200
WshShell.SendKeys “s”
WScript.Sleep 200
WshShell.SendKeys “.”
WScript.Sleep 200
WshShell.SendKeys “n”
WScript.Sleep 200
WshShell.SendKeys “e”
WScript.Sleep 200
WshShell.SendKeys “t”
WScript.Sleep 200
WshShell.SendKeys “!”
WScript.Sleep 200
WshShell.SendKeys “%FS”
WScript.Sleep 500
WshShell.SendKeys “C”
WScript.Sleep 200
WshShell.SendKeys “n”
WScript.Sleep 200
WshShell.SendKeys “D”
WScript.Sleep 200
WshShell.SendKeys “o”
WScript.Sleep 200
WshShell.SendKeys “s”
WScript.Sleep 200
WshShell.SendKeys “%S”
WScript.Sleep 500
WshShell.SendKeys “%FX”

例子5：自动定时存盘的记事本（此脚本来自网上）

‘第一部分：定义变量和对象
Dim WshShell, AutoSaveTime, TXTFileName
AutoSaveTime=(1000*60*1) ‘自动存盘时间为1分钟
Set WshShell=WScript.CreateObject(“WScript.Shell”)
TXTFileName=InputBox(“给文本起名(不能用中文和纯数字)：”)

‘第二部分：打开并激活记事本
WshShell.Run “notepad”
WScript.Sleep 200
WshShell.AppActivate “无标题 – 记事本”

‘第三部分：用输入的文件名存盘
WshShell.SendKeys “^s”
WScript.Sleep 300
WshShell.SendKeys TXTFileName
WScript.Sleep 300
WshShell.SendKeys “%s”
WScript.Sleep AutoSaveTime

‘第四部分：自动定时存盘
While WshShell.AppActivate (TXTFileName)=True
WshShell.SendKeys “^s”
WScript.Sleep AutoSaveTime
Wend
WScript.Quit

例子：

set objShell = CreateObject(“Wscript.Shell”)
strCommandLine = “psetup755281.exe” ‘启动安装程序
objShell.Run(strCommandLine)
set WshShell = CreateObject(“WScript.Shell”)
WScript.Sleep 2000 ‘延时3秒
WshShell.SendKeys “{ENTER}” ‘模拟按下回车键执行下一步
WScript.Sleep 300 ‘延时3秒
WshShell.SendKeys “{ENTER}” ‘模拟按下回车键执行下一步
WScript.Sleep 300 ‘延时3秒
WshShell.SendKeys “{ENTER}” ‘模拟按下回车键执行下一步
WScript.Sleep 5200 ‘延时3秒
WshShell.SendKeys “{ENTER}” ‘模拟按下回车键执行下一步
WScript.Sleep 300 ‘延时3秒
WshShell.SendKeys “{ENTER}” ‘模拟按下回车键执行下一步
WScript.Sleep 300 ‘延时3秒
WshShell.SendKeys “{ENTER}” ‘模拟按下回车键执行下一步
WScript.Sleep 200
WshShell.SendKeys ” ” ‘模拟按下空格键去除安装百度超级搜霸一行前的√号
WScript.Sleep 100
WshShell.SendKeys “{TAB}” ‘模拟按下 Tab 键选择安装项目
WScript.Sleep 200
WshShell.SendKeys ” ” ‘模拟按下空格键去除安装百度超级搜霸一行前的√号
WScript.Sleep 200 ‘延时0.3秒
WshShell.SendKeys “f” ‘模拟按下 F键同意协议

windows cmd命令显示UTF8设置

superaj 发布于 2013 年 10 月 10 日

评论关闭

在中文Windows系统中，如果一个文本文件是UTF-8编码的，那么在CMD.exe命令行窗口（所谓的DOS窗口）中不能正确显示文件中的内容。在默认情况下，命令行窗口中使用的代码页是中文或者美国的，即编码是中文字符集或者西文字符集。

如果想正确显示UTF-8字符，可以按照以下步骤操作：

1、打开CMD.exe命令行窗口

2、通过 chcp命令改变代码页，UTF-8的代码页为65001

chcp 65001

执行该操作后，代码页就被变成UTF-8了。但是，在窗口中仍旧不能正确显示UTF-8字符。

3、修改窗口属性，改变字体

在命令行标题栏上点击右键，选择”属性”->”字体”，将字体修改为True Type字体”Lucida Console”，然后点击确定将属性应用到当前窗口。

这时使用type命令就可以显示UTF-8文本文件的内容了：

type filename.txt

4、通过以上操作并不能完全解决问题，因为显示出来的内容有可能不完全。可以先最小化，然后最大化命令行窗口，文件的内容就完整的显示出来了。

BAT定时访问某网页

superaj 发布于 2013 年 6 月 9 日

评论关闭

以百度举例,每300秒访问一次

@echo off
:aj
start http://www.baidu.com/
ping -n 300 127.0.0.1 >>nul
taskkill /f /im "iexplore.exe"
goto aj
pause

自己设计修改一些常用的bat文件

superaj 发布于 2013 年 5 月 19 日

评论关闭

清除所有盘垃圾（以前的只是系统盘，我改了多几个盘符,能清除到到G盘）【修改版】

要轻松流畅上网你是否注意到你的电脑系统磁盘的可用空间正在一天天在减少呢？是不是像老去的猴王一样动作一天比一天迟缓呢？

没错！在Windows在安装和使用过程中都会产生相当多的垃圾文件，包括临时文件（如：*.tmp、*._mp）日志文件（*.log）、临时帮助文件（*.gid）、磁盘检查文件（*.chk）、临时备份文件（如：*.old、*.bak）以及其他临时文件。特别是如果一段时间不清理IE的临时文件夹 “Temporary Internet Files”，其中的缓存文件有时会占用上百MB的磁盘空间。这些LJ文件不仅仅浪费了宝贵的磁盘空间，严重时还会使系统运行慢如蜗牛。这点相信你肯定忍受不了吧！所以应及时清理系统的LJ文件的淤塞，保持系统的“苗条”身材，轻松流畅上网！朋友来吧，现在就让我们一起来快速清除系统垃圾吧！！下面是步骤很简单就两步！

在电脑屏幕的左下角按“开始→程序→附件→记事本”，把下面的文字复制进去（红色部分），点“另存为”，路径选“桌面”，保存类型为“所有文件”，文件名为“清理系统垃圾文件.bat”，就完成了。记住后缀名一定要是.bat，ok！你的垃圾清除器就这样制作成功了！

双击它就能很快地清理垃圾文件，大约一分钟不到。阅读全文 ……

flashfxp备份

superaj 发布于 2013 年 5 月 19 日

评论关闭

*.fqf 只读状态

选项\”当文件存在先项”的设置中设置成:
1.”文件较小时—覆盖” || “文件相同时–跳过” || “文件较大时—覆盖”

2.完成后关闭

autobak.bat：
代码如下：

CD X:\xxx\FlashFXP 
For /F %%f in (files.log) do (del %%f) 
dir *.fqf /b >files.log 
For /F %%f in (files.log) do (start flashfxp.exe %%f)

BAT合并文件以及统计数

superaj 发布于 2013 年 5 月 19 日

评论关闭

近期公司采集数据,大概一个文件夹下60万+的txt文档,需要做一个合并,然后清空这些文档,bat如下
————————————————————-

set /p all=复制文件名:
copy *.txt %all%.txt
copy %all%.txt D:\%all%user.txt
del *.txt

————————————————————-

统计这些文件的行数(计算采集用户数)
——————————————————

@ECHO OFF
SETLOCAL ENABLEDELAYEDEXPANSION
SET lines=0
FOR /F "tokens=* delims=" %%i IN (%1) DO (
    SET /A lines=!lines!+1
)
ECHO !lines!

————————————————–
以上代码另存为wc.bat
使用代码 wc xxx.,txt

bat批处理怎么读取一个txt文件的最后一行内容？

superaj 发布于 2013 年 5 月 19 日

评论关闭

@echo off
setlocal enabledelayedexpansion
for /f "delims=" %%i in (yourfile.txt) do (
@set /a b+=1
@echo %%i > lastline.txt
)
@pause

bat获取页面内容

superaj 发布于 2013 年 5 月 19 日

评论关闭

URL = "http:\\pic.zhengqianer.com"
Set strIE = CreateObject("InternetExplorer.Application")
strIE.Visible = False
strIE.Navigate(URL)
Do While strIE.ReadyState <> 4
Loop
str = strIE.document.body.innerHTML
strIE.quit

Set FSO = CreateObject("scripting.filesystemobject")
set strfile = FSO.CreateTextFile("temp.txt",true,true)
strfile.write str
Set FSO = Nothing

bat文件比较

superaj 发布于 2013 年 5 月 19 日

评论关闭

1.txt和2.txt两个文件，比较文件是否相同，如果相同退出dos，不相同执行一个3.bat文件

@echo off
fc 1.txt 2.txt>nul
if not %errorlevel%==0 (start "" 3.bat)
exit

2024 年 11 月
一	二	三	四	五	六	日
				1	2	3
4	5	6	7	8	9	10
11	12	13	14	15	16	17
18	19	20	21	22	23	24
25	26	27	28	29	30