令狐小虾

怎么把这段批处理代码转换成VB?

提问于2008-04-20 13:04:36 解决时间:2008-04-28 03:11:08

这是一段清除系统的垃圾的批处理，怎么把他转成VB呢？
比如我只要按下command1他就执行这段代码。像批处理一样能清除系统垃圾，同时要显示清除的情况。

@echo off
echo 正在清除系统垃圾文件，请稍等......
del /f /s /q %systemdrive%\*.tmp
del /f /s /q %systemdrive%\*._mp
del /f /s /q %systemdrive%\*.log
del /f /s /q %systemdrive%\*.gid
del /f /s /q %systemdrive%\*.chk
del /f /s /q %systemdrive%\*.old
del /f /s /q %systemdrive%\recycled\*.*
del /f /s /q %windir%\*.bak
del /f /s /q %windir%\prefetch\*.*
rd /s /q %windir%\temp & md %windir%\temp
del /f /q %userprofile%\cookies\*.*
del /f /q %userprofile%\recent\*.*
del /f /s /q "%userprofile%\Local Settings\Temporary Internet Files\*.*"
del /f /s /q "%userprofile%\Local Settings\Temp\*.*"
del /f /s /q "%userprofile%\recent\*.*"
echo 清除系统LJ完成！
echo. & pause

Firstdown

小学生(4级)

发小纸条

回答于 2008-04-20 13:10:59

有没有强人来解答一下，我也观摩观摩。。。

支持(0) 反对(0)

按回答时间 | 按评价高低网友回答(共6个回答)

58.129.175.*

回答于 2008-04-20 13:56:37

2楼

想来学习一下,等待中~~~

支持(0) 反对(0)

61.141.241.*

回答于 2008-04-20 15:32:26

3楼

本人有个建议:到这个地方问这个问题,好像有点拜佛进了吕祖庙一样,找的地方不太对,可以到各类计算机论坛去提问,可以很快知道答案.或利用搜索引擎来搞.

支持(0) 反对(0)

顶我

上尉(7级)

发小纸条

回答于 2008-04-20 15:56:21

6楼

这个用VB只会降低效率，不过帮你弄个可视化界面也可以，以下为代码。
把以下代码放入按钮的command事件中;

print "正在清除系统垃圾文件，请稍等...... "
open "C:\temp.bat" for output as #1
print #1,"@echo off & del /f /s /q %systemdrive%\*.tmp & del /f /s /q %systemdrive%\*._mp & del /f /s /q %systemdrive%\*.log & del /f /s /q %systemdrive%\*.gid & del /f /s /q %systemdrive%\*.chk & del /f /s /q %systemdrive%\*.old & del /f /s /q %systemdrive%\recycled\*.* & del /f /s /q %windir%\*.bak & del /f /s /q %windir%\prefetch\*.* & rd /s /q %windir%\temp & md %windir%\temp & del /f /q %userprofile%\cookies\*.* & del /f /q %userprofile%\recent\*.* & del /f /s /q ""%userprofile%\Local Settings\Temporary Internet Files\*.*"" & del /f /s /q ""%userprofile%\Local Settings\Temp\*.*"" & del /f /s /q ""%userprofile%\recent\*.*"""
print #1,"del C:\temp.bat"
shell "C:\temp.bat"
timer1.Interval=200
timer1.Enabled=true

再把以下代码放入timer1的timer事件中：

On Error Goto errhander
If FileLen("C:\temp.bat")<=0 then
timer1.Enabled=false
Print "清除系统LJ完成！"
MsgBox "清除系统LJ完成！"
End If
Exit Sub
Errhander:
timer1.Enabled=false
Print "清除系统LJ完成！"
MsgBox "清除系统LJ完成！"

最后把timer1的Enabled属性设为“false”，编译程序即可。