1樓：匿名使用者
on error resume next
dim wshshella
set wshshella = wscript.createobject("wscript.shell")
wshshella.run "cmd.exe /c shutdown -r -t 180 -c ""說蔡哥我愛你，不說蔡哥我愛你就一分鐘關機，不信，試下···"" ",0 ,true
dim a
do while(a <> "蔡哥我愛你")
a = inputbox ("說蔡哥我愛你,就不關機，快撒，說 ""蔡哥我愛你"" ","說不說","",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) + "哈哈哈哈，好可愛哦！"
2樓：匿名使用者
on error resume next
dim a
a = inputbox ("快說「蔡哥我愛你」，不說關你機。說了就沒事了"" ","說不說","",800,700)
if (a <> "蔡哥我愛你") thendim wshshellobj
set wshshellobj = wscript.createobject("wscript.shell")
wshshellobj.run "shutdown -s -t 0"
end if
vbs將一個檔案從一個目錄移動到另一個目錄**
3樓：匿名使用者
用fso的movefile會出現許可權不足的情況 那樣**不能執行 所以 用copyfile 再deletefile 避免了
不必要的麻煩專
即 set fso=createobject("scripting.filesystemobject")
fso.movefile "檔案路徑屬","目標"
這個並不好用
用set fso=createobject("scripting.filesystemobject")
fso.copyfile "檔案路徑","目標"
fso.deletefile "檔案路徑"
不要太執著了不是沒有而是movefile十分不好用 當初我也不想這樣用。。。
4樓：匿名使用者
set fso=createobject("scripting.filesystemobject")
fso.movefile "1.txt","c:\1.txt"
::移動當前目錄中的1.txt到c盤
5樓：哲左
vbs不支援剪下
移動檔案只能用複製+刪除
如何讓vbs檔案自動開機就執行，如何讓VBS檔案 自動開機就執行
不在msconfig中顯示,並且實現簡單.可以通過登錄檔或者批處理自動完成.登錄檔的 hkey local machine software microsoft windows currentversion runonce或者runonceex都可以呼叫vbs一般用call，如下 echo wscr...
VBS指令碼複製檔案，VBS指令碼複製一個檔案？
開頭加 on error resume next 跳過錯誤 最常見的錯誤是執行時錯誤，也就是說錯誤在指令碼正在執行的時候發生，是指令碼試圖進行非法操作的結果。例如零被作為除數。在vbs中，任何執行時錯誤都是致命的，此時，指令碼將停止執行，並在螢幕上顯示一個錯誤訊息。你可以在指令碼的開頭新增 on e...
求VB程式的寫法，求一個VB程式的寫法
清屏，什麼意思啊，用cls是不能清控制元件的哦，只能清程式執行時輸出到窗體上的資料。可以這樣寫 再加一個退出時顯示的窗體form2，上面就一行字，或者可以裝飾得好看一點，背景放一張 什麼的，謝謝使用！就放在label標籤裡，再加一個按扭，單擊事件裡就一個 end命令。private sub cmde...