文章摘要
这篇文章描述了一个使用Visual Basic脚本自动化执行的操作，目的是完成以下任务：
1. 创建快捷方式文件并将其保存到指定路径（如`C:UserscaptainzouDesktoptanhuang.lnk`）；
2. 将表情包文件（如`abd`）保存到另一个指定路径；
3. 通过粘贴和复制操作实现快速操作，例如将联系人信息保存到快捷方式，并将表情包保存到指定文件夹。
文章详细列出了每一步的操作步骤，包括使用`WScript.Sleep`控制等待时间、发送特定快捷键（如回车键`{ESC}`、粘贴键`^a`、复制键`^c`、快捷方式键`^v`等）以及运行相关命令。这些操作旨在实现一个高效的自动化脚本，方便后续的文件管理和操作。
Set objShell=CreateObject(“Wscript.Shell”)
WScript.Sleep 3000
objShell.SendKeys “{ESC}”
WScript.Sleep 7000 ‘等待时间设置7秒是为了给足时间电脑启动
objShell.SendKeys “{ESC}”
WScript.Sleep 3000
Set Shell=Wscript.Createobject(“Wscript.shell”)
Shell.run “C:\Users\captainzou\Desktop\abc.txt” ‘qq信息文件保存地址
Wscript.Sleep 1000 ‘等待1秒
set WshShell=CreateObject(“WScript.Shell”)
WshShell.SendKeys (“^a”)
Wscript.Sleep 2000 ‘等待1秒
WshShell.SendKeys (“^c”)
Wscript.Sleep 2000 ‘等待1秒
WshShell.SendKeys “%{F4}”
Wscript.Sleep 1000 ‘等待1秒
Shell.run “C:\Users\captainzou\Desktop\tanhuang.lnk” ‘联系人快捷方式保存地址
Wscript.Sleep 5000 ‘等待5秒
WshShell.SendKeys (“^v”)
Wscript.Sleep 1000 ‘等待1秒
WshShell.SendKeys “%{F4}”
Wscript.Sleep 2000 ‘等待2秒
Shell.run “C:\Users\captainzou\Desktop\abd” ‘表情包保存地址
Wscript.Sleep 2000 ‘等待2秒
WshShell.SendKeys (“^a”)
Wscript.Sleep 1000 ‘等待1秒
WshShell.SendKeys (“^c”)
Wscript.Sleep 1000 ‘等待1秒
WshShell.SendKeys “%{F4}”
Wscript.Sleep 1000 ‘等待1秒
Shell.run “C:\Users\captainzou\Desktop\tanhuang.lnk” ‘联系人快捷方式保存地址
Wscript.Sleep 1000 ‘等待1秒
WshShell.SendKeys (“^v”)
Wscript.Sleep 4000 ‘等待4秒
WshShell.SendKeys “{ENTER}”
Wscript.Sleep 1000 ‘等待1秒
WshShell.SendKeys “%{F4}”
Wscript.Sleep 1000 ‘等待1秒