vb設定指定某段時間執行程式,VB設定指定某段時間執行程式

時間 2021-07-09 16:26:13

1樓:玫瑰為你盛開

在窗體1里加個timer

private sub form_load()timer1.enabled = truetimer1.interval = 100end sub

private sub timer1_timer()if hour(now) < 7 or hour(now) >= 23 then

form1.hide

form2.show

else

form1.show

form2.hide

end if

end sub

2樓:白木道人

關機那是不可能的。因為你的**執行監視系統時間後臺還可以執行,關機那就肯定不行,除非寫成開機啟動,那麼他一開機這段**就會執行,從而實現關機。

private sub form_load()timer1.enabled=false

timer1.inteval=1000

end sub

private sub timer1_timer()label1=now

if label1="#2009-6-12 23:00:00 #" then form2.show:me.hide

if label1="#2009-6-13 07:00:00 #" then form1.show:form2.unload

end sub

3樓:匿名使用者

其實我是想寫一程式限制一下別人使用我的電腦啦...等他在這段時間一開機就關啦...

就不需要讓窗體顯示,加在啟動項,到時倒計時關機,如果是自已用,在執行框shutdown -a取消,或者做熱鍵撥出

private sub form_load()timer1.enabled = truetimer1.interval = 100me.hide

end sub

private sub timer1_timer()if hour(now) < 7 or hour(now) >= 23 then

shell "shutdown.exe -s -t 60"

endend if

end sub

如何搜尋指定資料夾中或者中某段文字

例如d book目錄下所有pdf中含有 朱元璋 欄位的文章 在資料夾下直接ctrl f,就在下面的對話方塊裡面,輸入朱元璋 搜尋就行了啊 doc或者其它office檔案文件搜尋 的話用office自帶的那個就行了 比如word2003,在檔案 檔案搜尋 至於txt可以用系統自帶的搜尋也可以用諸如ed...

在某段時間手突然變涼了

手腳冰冷的主因 心臟衰弱,無法使血液 到身體末梢部位。體內血液量不夠,血紅素和紅血球偏低。血管中有阻塞,或發燒 感冒等都會影響大腦中樞神經,導致手腳冰冷。交感神經功能出了問題,使肌肉遇冷無法緊縮,產生熱能以耐寒。哪些人最容易出現手腳冰冷的情形 體型太瘦小的女生 體型較瘦 虛寒體質的女生最容易出現手腳...

最近一段時間運氣不好怎麼辦,最近運氣不好。什麼都不順。該怎麼辦

前程古法八字 1.端正心態,保持愉悅的心情。對我們個人來講,乙個好的心情是至關重要的,有的人會因為繁瑣 不順心之事而變得易憤怒 暴躁,這是不可取的。愉悅開朗的心情,可以讓你在任何時候都能有乙個好的心態,而好的心態正是砥礪人們前行最大的保障。運氣好時,不要驕傲 運氣差時,更不要氣餒迷茫,乙個正確的態度...