VBS如何vba调用api的具体步骤函数或批处理等，判断打开的多个资源管理器窗口哪个是正在使用的路径？不要脚本路径。

来源：蜘蛛抓取(WebSpider) 时间：2024-02-02 02:00 标签： vba调用api的具体步骤

在windows平台下，如果我们想要保持一个程序一直运行，仅仅打开程序是不够，因为在某些情况下，程序会因为某些问题，自动死掉，这时候，我们就无法保证程序一直在运行。如何解决这个问题，今天就告诉大家一个解决这个问题的思路：用bat脚本监测程序，启动程序。楼主简单介绍一下自己：楼主不是计算机专业出身，只是自学了python中简单的语法，水平很一般。但是我有 一个愿望，就是帮助那些不会编程的人，不用学习编程，也能实现自动办公。为了实现这个愿望，我打算从最普通、最笨的方法开始，我的办法很简单就是积累，根据工作需要在网上找一些半成品，然后研究透之后，在代码中写上最清晰-清楚-通俗的注解，然后基于实际需求，告诉大家需要改哪些地方，满足大家自动化办公的需求。总结一下：1. 尽量多的收集自动化办公的需求，找到解决方案（代码），输出完整可用的代码（使用的人看教程就可以使用，完全不用动编程）2. 将所有代码（方案）免费给大家，提高大家的工作效率实例1：windows程序运行检测和启动需求描述：有一个程序，比如你想保持你的记事本一直在线，但是你总是不小心把它给关了，有没有办法，在你关掉记事本的情况，记事本也会自己启动，一直运行。解决思路：采用bat脚本，实时检查notepad.exe程序是否在运行，如果没有运行，就打开程序。实现的脚本：@echo off
title restart 自动化脚本
:again
tasklist|findstr -i "notepad.exe"
if ERRORLEVEL 1 (
echo notepad is off in %Date:~0,4%-%Date:~5,2%-%Date:~8,2% %Time:~0,2%:%Time:~3,2%
start "" "C:/Windows/notepad.exe"
)
cd /d "D:/"
choice /t 30 /d y /n > nul
goto again如何使用1.修改脚本需要修改红框1 ：将名字改为你要检查的 程序名.exe ,主要双引号一定要是英文；红框2：需要找到你需要运行程序安装在那个位置，注意：分隔符为斜线还是反斜线。如果找不到，推荐安装everything软件，在里面搜一下，就可以找到，很方便。下载 - voidtoolseverything下载链接：搜索结果如下：32位系统用第二个，64位系统用第二个链接。如果不确定是哪个，可以三个路径都试一下。2.复制到txt文件中，重命名为a.bat文件，点击是。3.运行脚本，直接双击，编辑脚本则需要右键，选编辑4.其他多功能例子（不做详细解释，大家可以参考，有问题可以留言。）实现功能：检查notepad++.exe
SGC-online.exe influxd.exe三个程序是否在运行。通过直接启动 start
程序（.exe），和call
脚本（.bat）实现实时运行检查和启动。@echo off
title restart SGC-ShangZhuang
:again
tasklist|findstr -i "notepad++.exe"
if ERRORLEVEL 1 (
echo notepad++ is off in %Date:~0,4%-%Date:~5,2%-%Date:~8,2% %Time:~0,2%:%Time:~3,2%
start "" "E:/soft_install_dir/Notepad++/notepad++.exe"
)
tasklist|findstr -i "SGC-online.exe"
if ERRORLEVEL 1 (
echo SGC-online is off in %Date:~0,4%-%Date:~5,2%-%Date:~8,2% %Time:~0,2%:%Time:~3,2%
start "" "E:/soft_install_dir/dataServer/SGC-online.exe"
)
tasklist|findstr -i "influxd.exe"
if ERRORLEVEL 1 (
echo influxd is off in %Date:~0,4%-%Date:~5,2%-%Date:~8,2% %Time:~0,2%:%Time:~3,2%
cd /d "G:\influxdb-1.8.4-1"
Call Influxdb根据配置文件启动.bat
)
cd /d "E:/soft_install_dir"
choice /t 30 /d y /n > nul
goto again添加注释版：详细语法见链接：@echo off
rem
@echo off的目的是关闭回显；
title restart SGC-ShangZhuang
rem:doc界面上的标题为restart SGC-ShangZhuang
:again
rem :表示
tasklist|findstr -i "notepad++.exe"
if ERRORLEVEL 1 (
echo notepad++ is off in %Date:~0,4%-%Date:~5,2%-%Date:~8,2% %Time:~0,2%:%Time:~3,2%
start "" "E:/soft_install_dir/Notepad++/notepad++.exe"
)
tasklist|findstr -i "SGC-online.exe"
if ERRORLEVEL 1 (
echo SGC-online is off in %Date:~0,4%-%Date:~5,2%-%Date:~8,2% %Time:~0,2%:%Time:~3,2%
start "" "E:/soft_install_dir/dataServer/SGC-online.exe"
)
tasklist|findstr -i "influxd.exe"
if ERRORLEVEL 1 (
echo influxd is off in %Date:~0,4%-%Date:~5,2%-%Date:~8,2% %Time:~0,2%:%Time:~3,2%
cd /d "G:\influxdb-1.8.4-1"
Call Influxdb根据配置文件启动.bat
)
cd /d "E:/soft_install_dir"
choice /t 30 /d y /n > nul
goto again

我要回帖

更多关于 vba调用api的具体步骤 的文章

 

随机推荐