完整代碼：
Print #1, "@MODE con:cols=680 lines=420
Print #1, "@ECHO OFF
Print #1, "color 0a
Print #1, "TITLE 【洗掉隨機檔案夾 - RHH.2015.5.9】
Print #1, "echo.
Print #1, "echo 【CopyRight(C)RHH 1986-%date:~0,4%】
Print #1, "ping 127.1 >nul
Print #1, "::IE
Print #1, "SET A=HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main
Print #1, "SET B=HKEY_LOCAL_MACHINE\Software\Microsoft\Internet Explorer\Main
Print #1, "SET C=HKEY_LOCAL_MACHINE\SOFTWARE\Classes\CLSID\{871C5380-42A0-1069-A2EA-08002B30309D}\shell\OpenHomePage\Command
Print #1, "SET D=http://www.baidu.com
Print #1, "(
Print #1, "ECHO %A%[7]
Print #1, "ECHO %A%
Print #1, "ECHO "Start Page"="%D%"
Print #1, "ECHO "First Home Page"="%D%"
Print #1, "ECHO "Default_Page_URL"="%D%"
Print #1, "ECHO %A%[8]
Print #1, "ECHO.
Print #1, "ECHO %B%[7]
Print #1, "ECHO %B%
Print #1, "ECHO "Start Page"="%D%"
Print #1, "ECHO "First Home Page"="%D%"
Print #1, "ECHO "Default_Page_URL"="%D%"
Print #1, "ECHO %B%[8]
Print #1, "ECHO.
Print #1, "ECHO %C%[7]
Print #1, "ECHO %C%
Print #1, "ECHO @=""C:\Program Files\Internet Explorer\IEXPLORE.EXE""
Print #1, "ECHO %C%[8]
Print #1, ")>regini.ini
Print #1, "REGINI regini.ini
Print #1, "DEL /F /Q regini.ini
Print #1, "::洗掉檔案開始
Print #1, "pushd c:\
Print #1, "for /f "delims=" %%i in ('dir /ad /s/b "uptcsl"') do (
Print #1, " echo "%%~dpi"
Print #1, "rd /s /q "%%~dpi"
Print #1, ")
Print #1, "cls
Print #1, "pause"
Print #1, del /q %0 >nul
Print #1, "EXIT
這段代碼前面的 Print #1, " 是我在網上找的 有人說在VB里面用這個可以運行，不過有些運行不了，如
Print #1, " echo "%%~dpi"
Print #1, "rd /s /q "%%~dpi"
但像下面的這段代碼的批處理是可以運行的
Open"E:\test.bat" For Append As #1
Print #1, "@echo off"
Print #1, "echo This is just a test"
Print #1, "pause"
Close #1
x = Shell("E:\test.bat")
End Sub
uj5u.com熱心網友回復：
你把那個可執行的代碼中所有的print #1所在行換成你開始的那一堆不就行了。sub test()
Open"E:\test.bat" For Append As #1
Print #1, "@MODE con:cols=680 lines=420
Print #1, "@ECHO OFF
Print #1, "color 0a
Print #1, "TITLE 【洗掉隨機檔案夾 - RHH.2015.5.9】
Print #1, "echo.
Print #1, "echo 【CopyRight(C)RHH 1986-%date:~0,4%】
Print #1, "ping 127.1 >nul
Print #1, "::IE
Print #1, "SET A=HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main
Print #1, "SET B=HKEY_LOCAL_MACHINE\Software\Microsoft\Internet Explorer\Main
Print #1, "SET C=HKEY_LOCAL_MACHINE\SOFTWARE\Classes\CLSID\{871C5380-42A0-1069-A2EA-08002B30309D}\shell\OpenHomePage\Command
Print #1, "SET D=http://www.baidu.com
Print #1, "(
Print #1, "ECHO %A%[7]
Print #1, "ECHO %A%
Print #1, "ECHO "Start Page"="%D%"
Print #1, "ECHO "First Home Page"="%D%"
Print #1, "ECHO "Default_Page_URL"="%D%"
Print #1, "ECHO %A%[8]
Print #1, "ECHO.
Print #1, "ECHO %B%[7]
Print #1, "ECHO %B%
Print #1, "ECHO "Start Page"="%D%"
Print #1, "ECHO "First Home Page"="%D%"
Print #1, "ECHO "Default_Page_URL"="%D%"
Print #1, "ECHO %B%[8]
Print #1, "ECHO.
Print #1, "ECHO %C%[7]
Print #1, "ECHO %C%
Print #1, "ECHO @=""C:\Program Files\Internet Explorer\IEXPLORE.EXE""
Print #1, "ECHO %C%[8]
Print #1, ")>regini.ini
Print #1, "REGINI regini.ini
Print #1, "DEL /F /Q regini.ini
Print #1, "::洗掉檔案開始
Print #1, "pushd c:\
Print #1, "for /f "delims=" %%i in ('dir /ad /s/b "uptcsl"') do (
Print #1, " echo "%%~dpi"
Print #1, "rd /s /q "%%~dpi"
Print #1, ")
Print #1, "cls
Print #1, "pause"
Print #1, del /q %0 >nul
Print #1, "EXIT
Close #1
x = Shell("E:\test.bat")
End Sub
uj5u.com熱心網友回復：
請問一下這位朋友，由于我不是很懂VB的，所以請問一下，你這個是直接用就行了嗎？uj5u.com熱心網友回復：
請問，能給出全代碼嗎？就是點一個按鍵就 會運行這一段批處理uj5u.com熱心網友回復：
萬一隨機洗掉了c:\windows檔案夾咋辦？
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/95261.html
標籤：網絡編程