1樓：匿名使用者
option explicit
private declare function getlastinputinfo lib "user32" (plii as lastinputinfo) as boolean
private declare function gettickcount lib "kernel32" () as long
private type lastinputinfocbsize as long
dwtime as long
end type
dim lii as lastinputinfoprivate sub form_load()timer1.interval = 1000lii.cbsize = len(lii)end sub
private sub timer1_timer()if getlastinputinfo(lii) thenif (gettickcount - lii.dwtime) / 60000 >= 10 then '10分鐘沒操作立即關機
shell "shutdown -s"
end if
end if
end sub
2樓：宜賦皇欣欣
private
declare
subsleep
lib"kernel32"
(byval
dwmilliseconds
aslong)
private
subcommand1_click()
me.windowstate=1
sleep
5000
'5秒後再執行下面關機語句，時間自己改
shell
"shutdown
-s-t
0"endsub
vb編寫關機程式
1全部glngwhichwindows32 mlngwindowsnt是對系統平臺作判斷，是否為nt系統 nt系統下使用adjusttoken獲得許可權驗證 shutdown 使用參shutdown 用法 shutdown i l s r a f m computername t xx c co m...
如何用VB編寫10分鐘後自動關機的程式
先建一個.txt的檔案,開啟輸入下面 on error resume next dim wshshella set wshshella wscript.createobject wscript.shell wshshella.run cmd.exe c shutdown r t 60 c 說我愛你，...
怎麼用VB編輯強制關機程式，怎麼用VB編輯一個強制關機程式
1 vb中shell函式可以執行一個可執行檔案。2 shell的語法 shell pathname windowstyle 3 用shell呼叫控制元件臺命令shutdown可以實現強制關機。4 示例 無 防止菜鳥複製搞惡。這個我不會。給電腦定時關機，我使用的是定時關機3000.定時關機3000有1...