vb6.0网上最小精简版绿化bat文件
@echo off:: 吉林四平奥杰多媒体软件技术工作室
::【北极长老】2012_09_25制作
:: 适用系统: windowsxp
color 2f
md "C:\Program Files\VB精简版"
copy C2.exe "C:\Program Files\VB精简版"
copy dao350.dll "C:\Program Files\VB精简版"
copy Link.exe "C:\Program Files\VB精简版"
copy Mrt7chs.dll "C:\Program Files\VB精简版"
copy Mso97rt.dll "C:\Program Files\VB精简版"
copy Mspdb60.dll "C:\Program Files\VB精简版"
copy Msvcrt.dll "C:\Program Files\VB精简版"
copy Vb6.exe "C:\Program Files\VB精简版"
copy Vb6.olb "C:\Program Files\VB精简版"
copy Vb6chs.dll "C:\Program Files\VB精简版"
copy Vb6debug.dll "C:\Program Files\VB精简版"
copy Vb6ext.olb "C:\Program Files\VB精简版"
copy Vb6ide.dll "C:\Program Files\VB精简版"
copy Vba6.dll "C:\Program Files\VB精简版"
copy Vbaexe6.lib "C:\Program Files\VB精简版"
copy VB6IDEMouseWheelAddin.dll "C:\Program Files\VB精简版"
md "C:\Documents and Settings\Administrator\「开始」菜单\程序\Visual Basic 6.0精简版"
echo [InternetShortcut] >vb.url
echo URL=C:\Program Files\VB精简版\VB6.exe>>vb.url
echo IconIndex=0 >>vb.url
echo IconFile=C:\Program Files\VB精简版\VB6.exe>>vb.url
copy vb.url "C:\Documents and Settings\Administrator\桌面\Visual Basic 6.0精简版.url"
copy vb.url "C:\Documents and Settings\Administrator\「开始」菜单\程序\Visual Basic 6.0精简版\Visual Basic 6.0精简版.url"
del vb.url
reg add "HKLM\SOFTWARE\Classes\Licenses\74872841-703A-11d1-A3AF-00A0C90F26FA" /f /ve /t REG_SZ /d "klglsejeilmereglrfkleeheqkpkelgejgqf"
reg add "HKLM\SOFTWARE\Microsoft\Cryptography\RNG" /f /v "Seed" /t REG_BINARY /d 87975b60a05ab809de119086202925de1bfa3aad845721b577d24ebecfe71bea9933d9d8ed643961296657e6de3c0843c7a8ecf0263dfc75b46af69a2fc109fecc5bc874f21361e6fcb2ade5e2b81c66
reg add "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\Visual Basic 6.0精简版_is1" /f /v "Inno Setup: Setup Version" /t REG_SZ /d "3.0.6"
reg add "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\Visual Basic 6.0精简版_is1" /f /v "Inno Setup: App Path" /t REG_SZ /d "C:\Program Files\VB精简版"
reg add "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\Visual Basic 6.0精简版_is1" /f /v "Inno Setup: Icon Group" /t REG_SZ /d "Visual Basic 6.0精简版"
reg add "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\Visual Basic 6.0精简版_is1" /f /v "Inno Setup: User" /t REG_SZ /d "Administrator"
reg add "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\Visual Basic 6.0精简版_is1" /f /v "Inno Setup: Selected Tasks" /t REG_SZ /d "desktopicon"
reg add "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\Visual Basic 6.0精简版_is1" /f /v "Inno Setup: Deselected Tasks" /t REG_SZ /d ""
reg add "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\Visual Basic 6.0精简版_is1" /f /v "DisplayName" /t REG_SZ /d "1.0"
reg add "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\Visual Basic 6.0精简版_is1" /f /v "UninstallString" /t REG_SZ /d "\"C:\Program Files\VB精简版\unins000.exe\""
reg add "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\Visual Basic 6.0精简版_is1" /f /v "Publisher" /t REG_SZ /d "tgwang"
reg add "HKCR\.vbp" /f /ve /t REG_SZ /d "VisualBasic.Project"
reg add "HKCR\VisualBasic.Project" /f /ve /t REG_SZ /d "Visual Basic Project"
reg add "HKCR\VisualBasic.Project\DefaultIcon" /f /ve /t REG_SZ /d "C:\Program Files\VB精简版\vb6.exe,16"
reg add "HKCR\VisualBasic.Project\shell" /f /ve /t REG_SZ /d ""
reg add "HKCR\VisualBasic.Project\shell\Make" /f /ve /t REG_SZ /d "Make"
reg add "HKCR\VisualBasic.Project\shell\Make\command" /f /ve /t REG_SZ /d "C:\Program Files\VB精简版\vb6.exe \"%%1\" /make"
reg add "HKCR\VisualBasic.Project\shell\open" /f /ve /t REG_SZ /d ""
reg add "HKCR\VisualBasic.Project\shell\open\command" /f /ve /t REG_SZ /d "\"C:\Program Files\VB精简版\vb6.exe\" \"%%1\""
reg add "HKCR\VisualBasic.Project\shell\Run Project" /f /ve /t REG_SZ /d "Run"
reg add "HKCR\VisualBasic.Project\shell\Run Project\command" /f /ve /t REG_SZ /d "C:\Program Files\VB精简版\vb6.exe \"%%1\" /run"
echo @echo off>"C:\Documents and Settings\Administrator\「开始」菜单\程序\Visual Basic 6.0精简版\卸载 Visual Basic 6.0精简版.bat"
echo reg delete "HKCR\.Vbp" /f>>"C:\Documents and Settings\Administrator\「开始」菜单\程序\Visual Basic 6.0精简版\卸载 Visual Basic 6.0精简版.bat"
echo reg delete "HKCR\VisualBasic.Project" /f>>"C:\Documents and Settings\Administrator\「开始」菜单\程序\Visual Basic 6.0精简版\卸载 Visual Basic 6.0精简版.bat"
echo del "C:\Documents and Settings\Administrator\桌面\Visual Basic 6.0精简版.url">>"C:\Documents and Settings\Administrator\「开始」菜单\程序\Visual Basic 6.0精简版\卸载 Visual Basic 6.0精简版.bat"
echo del "C:\Documents and Settings\Administrator\「开始」菜单\程序\Visual Basic 6.0精简版\Visual Basic 6.0精简版.url">>"C:\Documents and Settings\Administrator\「开始」菜单\程序\Visual Basic 6.0精简版\卸载 Visual Basic 6.0精简版.bat"
echo md "C:\WINDOWS\Visual Basic">>"C:\Documents and Settings\Administrator\「开始」菜单\程序\Visual Basic 6.0精简版\卸载 Visual Basic 6.0精简版.bat"
echo echo @echo off^>"C:\WINDOWS\Visual Basic\vb.bat">>"C:\Documents and Settings\Administrator\「开始」菜单\程序\Visual Basic 6.0精简版\卸载 Visual Basic 6.0精简版.bat"
echo echo rd "C:\Documents and Settings\Administrator\「开始」菜单\程序\Visual Basic 6.0精简版"^>^>"C:\WINDOWS\Visual Basic\vb.bat">>"C:\Documents and Settings\Administrator\「开始」菜单\程序\Visual Basic 6.0精简版\卸载 Visual Basic 6.0精简版.bat"
::echo echo reg delete HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run\ /v vb /f^>^>"C:\WINDOWS\Visual Basic\vb.bat">>"C:\Documents and Settings\Administrator\「开始」菜单\程序\Visual Basic 6.0精简版\卸载 Visual Basic 6.0精简版.bat"
echo echo reg delete "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run" /v vb /f^>^>"C:\WINDOWS\Visual Basic\vb.bat">>"C:\Documents and Settings\Administrator\「开始」菜单\程序\Visual Basic 6.0精简版\卸载 Visual Basic 6.0精简版.bat"
echo echo del %%%%0^>^>"C:\WINDOWS\Visual Basic\vb.bat">>"C:\Documents and Settings\Administrator\「开始」菜单\程序\Visual Basic 6.0精简版\卸载 Visual Basic 6.0精简版.bat"
echo reg add "HKCU\Software\Microsoft\Windows\CurrentVersion\Run" /f /v "vb" /t REG_SZ /d "C:\WINDOWS\Visual Basic\vb.bat">>"C:\Documents and Settings\Administrator\「开始」菜单\程序\Visual Basic 6.0精简版\卸载 Visual Basic 6.0精简版.bat"
echo del /a /s /f /q "C:\Program Files\VB精简版\">>"C:\Documents and Settings\Administrator\「开始」菜单\程序\Visual Basic 6.0精简版\卸载 Visual Basic 6.0精简版.bat"
echo for /f "tokens=*" %%%%a in ('dir /b /ad /s "C:\Program Files\VB精简版"^^^|sort /r') do rd "%%%%a" 2>nul>>"C:\Documents and Settings\Administrator\「开始」菜单\程序\Visual Basic 6.0精简版\卸载 Visual Basic 6.0精简版.bat"
echo rd "C:\Program Files\VB精简版">>"C:\Documents and Settings\Administrator\「开始」菜单\程序\Visual Basic 6.0精简版\卸载 Visual Basic 6.0精简版.bat"
echo del %%0 >>"C:\Documents and Settings\Administrator\「开始」菜单\程序\Visual Basic 6.0精简版\卸载 Visual Basic 6.0精简版.bat"
msg %username% /time:5 "vb6.0精简版安装完毕!等待刷新文件图标......"
regsvr32 /s "C:\Program Files\VB精简版\VB6IDEMouseWheelAddin.dll"
reg add "HKCU\Software\Microsoft\Visual Basic\6.0\Addins\VB6IDEMouseWheelAddin.Connect" /f /v "FriendlyName" /t REG_SZ /d "MouseWheel Fix"
reg add "HKCU\Software\Microsoft\Visual Basic\6.0\Addins\VB6IDEMouseWheelAddin.Connect" /f /v "LoadBehavior" /t REG_DWORD /d 3
reg add "HKCU\Software\Microsoft\Visual Basic\6.0\Addins\VB6IDEMouseWheelAddin.Connect" /f /v "CommandLineSafe" /t REG_DWORD /d 0
@echo off
echo [Version]>cc.inf
echo. >>cc.inf
echo Signature="$CHICAGO$">>cc.inf
echo. >>cc.inf
echo [Defaultinstall]>>cc.inf
echo. >>cc.inf
echo addREG=Gc>>cc.inf
echo. >>cc.inf
echo [Gc]>>cc.inf
echo. >>cc.inf
echo HKCU,Software\Policies\Microsoft\Windows\System,DisableCMD,0x00010001,0 >>cc.inf
rundll32.exe setupapi,InstallHinfSection DefaultInstall 128 .\cc.inf
del cc.inf
exit
