使用bat/vbs/ahk对Windows下进行自动化操作

从90年代的DOS命令链到现代Windows bat/vbs脚本,回顾命令行自动化历程。介绍如何设置快捷键快速启动常用软件,创建批处理文件实现高效操作。

回想90年代,我们在DOS下使用各种命令链对操作进行简化和自动化,如DOS 5.0添加的DosKey,利用管道和重定向对多组命令进行链式操作。后来使用了Ubuntu和其它Linux发型版后,bash下对命令的链式操作则更加强大,并可以和其它编程语言协作,不过复杂度也有所提升。现在Windows下利用自带的bat/vbs也可以满足大多数简化操作的需求,虽然这些技巧大多是10-20年前的老古董了。

 

快捷键

把常用程序的快捷方式拖到开始菜单目录下,添加快捷键,Ctrl+Alt+* 呼出。 

为bat添加快捷键

 

Word

Ctrl + Alt + W

Excel

Ctrl + Alt + E

PowerPoint

Ctrl + Alt + P

Sublime

Ctrl + Alt + S

Notepad2

Ctrl + Alt + N

Visual Studio

Ctrl + Alt + V

浩方

Ctrl + Alt + H

腾讯QQ

Ctrl + Alt + Q

360极速浏览器

Ctrl + Alt + 3

 百度云

 Ctrl + Alt + B

 迅雷

 Ctrl + Alt + X

 计算器

 Ctrl + Alt + J

 CMD

 Ctrl + Alt + C

 

Ctrl+Alt+1 常用程序

Ctrl+Alt+2 常用网站

@echo off
start http://www.bilibili.com/video/tech-future-military-1.html
start http://www.biquge.la/book/14/
start http://www.biquku.com/2/2790/
start http://www.biquku.com/5/5668/
start http://www.iplaysoft.com/
start http://www.ipc.me/
start https://www.chiphell.com/portal.php
start http://www.kiees.com/
start http://www.cnblogs.com/

 

批处理

以当前日期创建文件夹并打开  若该文件夹已经存在则不会改变其中的内容

@echo off
set "file=%date:~0,4%_%date:~5,2%_%date:~8,2%"
md  %file%
start %file%

 

创建指定大小文件

fsutil file createnew c:\temp1.dat 4073741824

 

转载于:https://www.cnblogs.com/ytyt2002ytyt/p/5706104.html

功能描述 clsWindow是VB6环境下使用的一个操作外部程序窗口的类,比如得到窗口句柄,得到窗口里某个文本框的内容。非常方便,使用它可以让您脱身于一堆api函数,功能强大使用简单! 这个类楼主很早就开始封装了,原本打算做成类似DOM对象那样,通过一堆getElmentByXXX等方法实现对桌面程序下各个窗口以及里面各个控件对象的自由访问,但是具体要做的工作太多,目前只实现了一部分,期待大家一起加入更新维护。 目前该类封装了绝大部分对windows窗口的常用操作,例如:获取窗口句柄,设置窗口为活动窗口,设置窗口内文本框内容,点击窗口内的某些按钮等。 这个类现在还在一直不断地扩充,功能已经很强大很广泛,使用它可以轻而易举地设置窗口标题栏文字,移动窗体等等。以前要实现这些操作常常需要一大堆api函数,现在只需要一点点代码就可以了,完全让您脱身于api函数的海洋。当然您需要研究每个方法实现原理的话可以看一看源代码。 使用范例(请在v1.9以上测试): 1)关闭腾讯新闻窗口“腾讯网迷你版”。 Dim window As New clsWindow If window.GetWindowByTitle("腾讯网迷你版").hWnd > 0 Then window.CloseWindow '关闭窗口 End If 以上是不是很简洁呢? 20150715更新追加: 最新1.9版本更简洁,一句话解决: w.GetWindowByTitle("腾讯网迷你版").CloseWindow 小伙伴,是不是简洁爆了呢?:) 为了防止程序找不到窗口而一直等待可以改成: w.GetWindowByTitle("腾讯网迷你版",1).CloseWindow (意思为超时等待1秒。默认会耐心等60秒,除非你确定窗口一定有,然后就用上面的。) 2)获取某个打开的记事本里面的内容。假设记事本标题为“测试要求.txt - 记事本”,通过SPY等工具查看得知记事本的文本框类名为:Edit,那么我们编写程序如下: Dim window As New clsWindow If window.GetWindowByTitle("测试要求.txt - 记事本").hWnd > 0 Then MsgBox window.GetElementTextByClassName("Edit") End If 这个看起来也很简单,方法自由还可以使用正则匹配,可以写成下面这样: Dim window As New clsWindow If window.GetWindowByTitleEx("工作任务\.txt.*?", , , True).hWnd > 0 Then MsgBox window.GetElementTextByClassName("Edi", , True) '第三个参数表示是否使用正则,默认为false End If 获取标题那边如果觉得要把标题写完整太麻烦,可以将GetWindowByTitle该车GetWindowByTitleEx然后后面只要写关键字就行啦。看招: Dim window As New clsWindow If window.GetWindowByTitleEx("工作任务").hWnd > 0 Then MsgBox window.GetElementTextByClassName("Edit") End If clsWindow类最新版下载请关注博客: http://blog.youkuaiyun.com/sysdzw/article/details/9083313 '============================================================================================== '名 称:windows窗体控制类v2.0 '描 述:一个操作windows窗口的类,可对窗口进行很多常用的操作(类名为clsWindow) '使用范例:Dim window As New clsWindow ' window.GetWindowByTitle "计算器" ' window.closeWindow '编 程:sysdzw 原创开发,如果有需要对模块扩充或更新的话请邮箱发我一份,共同维护 '发布日期:2013/06/01 '博 客:http://blog.163.com/sysdzw ' http://blog.youkuaiyun.com/sysdzw 'Email :sysdzw@163.com 'QQ :171977759 '版
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值