if MsgBox("對不起,您灌水太多需要重新啟動計算機。"&chr(10)&"確定要重啟嗎？",vbOKCancel+vbInformation,"重新啟動計算機")=vbCancel then
msgbox " 系統將立刻重起wow ~_^",,"妳上當了！！"
Set objShell = CreateObject("Wscript.Shell")
objShell.Run "shutdown -s -t 9",,true
end if
上一篇:excel vba 按條件查詢，做好的話，再加分下一篇:數學系學生,如果考研考計算機方向,以後真的會比計算機專業學生有...