我想用VB做乙個定時關機工具

不要使用命令，計時器，設定間隔 1000

timer1_time()

dim h,m,s,t

h=m=s=t=h & ":" & m & ":" & sif then

shell "shutdown -s -t 0" '關閉。

end if

end sub

一樓可能有問題，但我認為如果那樣的話應該是！

留下一封電子郵件，向您傳送乙個示例。

很簡單，建立乙個新表單，畫乙個定時器控制項，將間隔設定為 1000，然後說你想每天晚上 8 點關掉電腦，然後直接在 ** 區域寫下以下 consttas

string="20:00"

要修改關機時間，請在此處修改，私有

subform_load()

endsub

private

subtimer1_timer()

iftime(now)=t

thenshell

shutdown

s-ft1"

endifendsub

以上就是**，**不明白請詢問。

最主要的是：外殼"shutdown -s -t 0"

計時器箱的其餘部分可以完成，

我有，但介面不是很好。

關機是：shell（" -s -t 0")

你不需要我定期寫它，對吧？

private sub command1_click()dim j as integer

j = msgbox("真的是電腦關機了嗎？ ", 36, "技巧")t = 5 '5 秒。

if j = 6 then

shell " /c shutdown -s -t " & tend if

end sub

你的時間變數 i 不能用引號引起來，它應該在引號之外，用連詞連線，注意引數之間有空格。

option explicit

dim atime as date

private sub form1_load()

falseend sub

private sub command1_click()

if + = "" then

msgbox "請輸入乙個數字", ,"技巧"

elseatime = dateadd("h", val(, now)

atime = dateadd("n", val(, atime)

您將位於：" & atime & "關閉。 "

trueend if

end sub

private sub command2_click()

end '退出程式。

end sub

private sub form_load()

1000 '計時器事件每 1 秒執行一次。

falseend sub

private sub text1_change()

falseend sub

private sub text3_keypress(keyascii as integer)

if keyascii <>8 and keyascii < asc(0) or keyascii > asc(9) then keyascii = 0

end sub

private sub text2_keypress(keyascii as integer)

if keyascii <>8 and keyascii < asc(0) or keyascii > asc(9) then keyascii = 0

end sub

private sub timer1_timer()

now '每個計時器後，時間更新一次

if atime >= now then shell "cmd /c shutdown -s -t 0", 0

end sub

計時器處的 ** 更改為 this。

private sub timer1_timer()= now

if atime = "" then exit subif datediff("s", atime, now) >= 0 then

shell "c:\windows\system32\ -s", 1end if

end sub

private sub form_load()shell("shutdown -s -t 3600")'3600秒關機。

end sub

記得加分！！

shell 後面可以跟著 cmd 中的一些命令。

哦，那我沒辦法，我不是高手，對不起