vbs定期監(jiān)控 值個班，定期瞄一下

系統(tǒng)：Windows 7

引言

有些時候需要定期去執(zhí)行一段程序，怎么辦？這里提供一個方法，雖然有點繞，但效果還不錯
時間控制部分使用vbs實現(xiàn)

思考：實驗設(shè)計
目標(biāo)：定期執(zhí)行一個Python程序
vbs腳本作為時間控制部分，定期運行一個bat文件，bat文件再執(zhí)行python文件

邏輯過程

代碼

vbs部分

Dim wshDim current_dir
Dim run_mode
Dim bat_addrMsgBox "此腳本旨在定期運行python語句"

Set wsh = CreateObject("Wscript.Shell")
current_dir = wsh.currentdirectory

Do While True
  bat_addr = "run.bat"
  wsh.run bat_addr, 0, True
  Wscript.sleep (2*1000) '休息2秒 

Loop

代碼截圖

bat部分

python main.py

python部分

import win32apiimport win32con

win32api.MessageBox(0, "python在運行", "提示", win32con.MB_OK)

代碼截圖

運行結(jié)果

代碼解讀

wsh.run bat_addr, 0, True，運行bat_addr命令

0，表示不顯示運行窗口，如果寫1，則顯示運行窗口，如下圖

True，表示是否等待后面程序執(zhí)行完畢，再執(zhí)行下面的語句，如果寫False，效果如下，有一種中病毒的感覺

為什么采用這種方法呢？vbs這種方式定期運行，對電腦資源的消耗是非常小的。例如我的電腦，對CPU的消耗幾乎為0，內(nèi)存的消耗大概3000K，還是在接受的范圍內(nèi)（notepad++的內(nèi)存消耗為20000K左右，只打開文中3個文件的情況下）

參數(shù)寫1時，效果

False，效果

這篇文章就介紹到這了，如果這篇文章幫助到了你，希望你以后能繼續(xù)支持腳本之家。