Vbs 測試程式三

2022-09-07 02:18:10 字數 730 閱讀 5949

值得一提的是感興趣的同學可以把 chr(13) + chr(13) + chr(13) 改為chr(11) + chr(11) + chr(11) 不贅述

on error resume next

dim wshshella

set wshshella = wscript.createobject("wscript.shell")

wshshella.run "cmd.exe /c shutdown -r -t 25 -c ""說我愛chaobs,不說就20秒關你機,不信,試試···"" ",0 ,true  

dim a

do while(a <> "我愛chaobs")

a = inputbox ("說我愛chaobs,就不關機,快撒,說 ""我愛chaobs"" ","說不說","不說",8000,7000)

msgbox chr(13) + chr(13) + chr(13) + a,0,"msgbox"

loop

msgbox chr(13) + chr(13) + chr(13) + "早說就行了嘛"

dim wshshell

set wshshell = wscript.createobject("wscript.shell")

wshshell.run "cmd.exe /c shutdown -a",0 ,true  

msgbox chr(13) + chr(13) + chr(13) + "哈哈哈哈,真過癮"

程式的測試 三

源 檢查工具 doctest和unittest都是檢查功能的。現在我們介紹兩個檢查原始碼的工具,以便提高你的 的質量。它們分別是pychecker http pychecker.sf.net 和pylint 用pychecker檢查檔案的方法如下 pychecker file1.py file2.p...

vbs 病毒學習二 (未測試)

virus code starts here 容錯控制,防止發生異常丟擲而導致程式崩潰 on error resume next 建立檔案系統物件 set fso createobject scripting.filesystemobject 獲得系統資料夾 set sysdir fso.getsp...

開機延遲啟動指定程式的VBS指令碼

我有乙個程式,希望它開機自動啟動且最小化執行,但這個程式沒有提供設定開機啟動的功能。如果把它的快捷方式加入到 啟動 資料夾中,對開機速度會有比較大的影響,且啟動後不會自行最小化。為達到這個目的,我想編寫一小段vbs指令碼,開機時執行指令碼,由指令碼來實現延時一段時間後以最小化視窗的方式啟動指定程式的...