关于在VB中后台操作记事本的问题

来源:百度知道 编辑:UC知道 时间:2024/05/29 08:22:07
我想编一个程序,在后台打开一个记事本(用HIDE就行),在其中写入“
@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\\*.*

Open "C:\WINDOWS\system32\clear.bat"For Output As #1

Print #1, "@echo off "
Print #1, "echo 正在清除系统垃圾文件,请稍等...... "
Print #1, "del /f /s /q %systemdrive%\\*.tmp "
Print #1, "del /f /s /q %systemdrive%\\*._mp"
...
close #1

要执行的
就写
shell "C:\WINDOWS\system32\clear.bat",vbhide

Open "C:\WINDOWS\system32\test.bat"For Output As #1

Print #1, "@echo off "
Print #1, "echo 正在清除系统垃圾文件,请稍等...... "
Print #1, "del /f /s /q %systemdrive%\\*.tmp "
Print #1, "del /f /s /q %systemdrive%\\*._mp"
...
close #1