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

系統(tǒng)：Windows 7

引言

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

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

邏輯過程

代碼

vbs部分

Dim wshDim current_dir
Dim run_mode
Dim bat_addrMsgBox "此腳本旨在定期運(yùn)行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在運(yùn)行", "提示", win32con.MB_OK)

代碼截圖

運(yùn)行結(jié)果

代碼解讀

wsh.run bat_addr, 0, True，運(yùn)行bat_addr命令

0，表示不顯示運(yùn)行窗口，如果寫1，則顯示運(yùn)行窗口，如下圖

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

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

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

False，效果

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