1. 程式人生 > 程式設計 >vbs定期監控 值個班,定期瞄一下

vbs定期監控 值個班,定期瞄一下

系統:Windows 7

引言

有些時候需要定期去執行一段程式,怎麼辦?這裡提供一個方法,雖然有點繞,但效果還不錯
時間控制部分使用vbs實現

思考:實驗設計
目標:定期執行一個Python程式
vbs指令碼作為時間控制部分,定期執行一個bat檔案,bat檔案再執行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,True
  Wscript.sleep (2*1000) '休息2秒 

Loop

程式碼截圖

bat部分

python main.py

python部分

import win32apiimport win32con

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

程式碼截圖

執行結果

程式碼解讀

wsh.run bat_addr,True,執行bat_addr命令

0,表示不顯示執行視窗,如果寫1,則顯示執行視窗,如下圖

True,表示是否等待後面程式執行完畢,再執行下面的語句,如果寫False,效果如下,有一種中病毒的感覺

為什麼採用這種方法呢?vbs這種方式定期執行,對電腦資源的消耗是非常小的。例如我的電腦,對CPU的消耗幾乎為0,記憶體的消耗大概3000K,還是在接受的範圍內(notepad++的記憶體消耗為20000K左右,只打開文中3個檔案的情況下)

引數寫1時,效果

False,效果

這篇文章就介紹到這了,如果這篇文章幫助到了你,希望你以後能繼續支援我們。